10 clear 24575
20 load "fucktro.cod" code 24576
21 cls:print "16+ F-tro. keep children away!"
22 print flash 1;"           any key           "

30 pause 0:cls:randomize usr 24576