Home » Personal collection » Commodore disks » disk52a2_c16_progs.d64 » ski
ski
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Commodore disks » disk52a2_c16_progs.d64 |
Filename: | ski |
Read OK: | ✔ |
File size: | 02D1 bytes |
Load address: | 1001 |
Exec address: | 0000 |
File contents
1 T=1 10 W=40 20 REM GAME 30 LET P=15 40 LET R$="." 50 LET L$="," 60 SCNCLR 70 PRINT 90 PRINT 100 PRINT"YOU ARE SKIING DOWN A SLALOM" 110 PRINT"RUN. PRESS ";L$;" TO GO" 120 PRINT"LEFT AND ";R$;" TO GO RIGHT." 130 PRINT"IF YOU GO OFF THE RUN, YOU" 140 PRINT"FALL OVER THE PRECIPICE." 150 PRINT"HIT ANY KEY TO START." 160 GET A$:IF A$<>"" THEN 160 170 GET A$:IF A$="" THEN GOTO 170 180 PRINT 190 LET T=W/2-P/2 200 LET C=W/2 210 LET R=RND(1) 215 ZX=T+P:S=S+1 220 PRINT TAB(T);"P";TAB(C);"!!";TAB(ZX);"P" 230 IF R<0.5 AND T>2 THEN LET T=T-1 240 IF R>0.5 AND T+P<W-2 THEN LET T=T+1 250 GET A$ 260 IF A$=L$ THEN LET C=C-1 270 IF A$=R$ THEN LET C=C+1 280 IF C<T THEN GOTO 310 290 IF C>P+T THEN GOTO 310 300 GOTO 210 310 FOR T=1 TO 40 320 PRINT"**!! OVER THE PRECIPICE **!!" 330 NEXT T 340 PRINT"YOUR SCORE WAS ";S 350 PRINT"HIT ANY KEY FOR ANOTHER GO":S=0 360 GOTO 160
T�1 W�40 � GAME ( � P�15 5( � R$�"."