2 REM *** CASSETTE VERSION ***›65 IF PASS=2 THEN FOR X=1 TO 18:PUT #1,0:NEXT X:CLOSE #1:END ›70 ? "READY CASSETTE AND PRESS RETURN";:OPEN #1,8,128,"C:":RESTORE 200:FOR X=1 TO 40:READ N:PUT #1,N:NEXT X›200 DATA 0,11,216,31,255,31,169,0,141,47,2,169,60,141,2,211,169,0,141,231,2,133,14,169,56,141,232,2›210 DATA 133,15,169,0,133,10,169,32,133,11,24,96›