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�155(� R$�"."B2� L$�","H<�NF�TZ�xd�"YOU ARE SKIING DOWN A SLALOM"�n�"RUN. PRESS ";L$;" TO GO"�x�"LEFT AND ";R$;" TO GO RIGHT."���"IF YOU GO OFF THE RUN, YOU"���"FALL OVER THE PRECIPICE."��"HIT ANY KEY TO START."2�� A$:� A$��"" � 160K�� A$:� A$�"" � � 170Q��a�� T�W�2�P�2m�� C�W�2z�� R��(1)��ZX�T�P:S�S�1��� �T);"P";�C);"!!";�ZX);"P"��� R�0.5 � T�2 � � T�T�1��� R�0.5 � T�P�W�2 � � T�T�1��� A$� A$�L$ � � C�C�1� A$�R$ � � C�C�1.� C�T � � 310B"� C�P�T � � 310L,� 210[6� T�1 � 40@�"**!! OVER THE PRECIPICE **!!"�J� T�T�"YOUR SCORE WAS ";S�^�"HIT ANY KEY FOR ANOTHER GO":S�0�h� 160
IPA@t.1@RPJ@w.40@]PT@. game@(P.@. p.15@5P(@. r$."."@bP2@. l$.","@hP<@.@nPf@.@tPz@.@XPD@."you are skiing down a slalom"@.PN@."run. press ";l$;" to go"@.PX@."left and ";r$;" to go right."@.P.@."if you go off the run, you"@.P.@."fall over the precipice."@ZQ.@."hit any key to start."@2Q.@. a$:. a$.."" . 160@kQ.@. a$:. a$."" . . 170@qQ.@.@AQ.@. t.w.2.p.2@MQ.@. c.w.2@ZQ.@. r..(1)@.Q.@zx.t.p:s.s.1@.Q.@. .t);"p";.c);"!!";.zx);"p"@.Q.@. r.0.5 . t.2 . . t.t.1@.Q.@. r.0.5 . t.p.w.2 . . t.t.1@.Q.@. a$@FRDA. a$.l$ . . c.c.1@£RNA. a$.r$ . . c.c.1@.RXA. c.t . . 310@bR"A. c.p.t . . 310@lR,A. 210@[R6A. t.1 . 40@.R@A."**!! over the precipice **!!"@.RjA. t@.RtA."your score was ";s@.R.A."hit any key for another go":s.0@.RHA. 160@@@
00000000  09 10 01 00 54 b2 31 00  12 10 0a 00 57 b2 34 30  |....T.1.....W.40|
00000010  00 1d 10 14 00 8f 20 47  41 4d 45 00 28 10 1e 00  |...... GAME.(...|
00000020  88 20 50 b2 31 35 00 35  10 28 00 88 20 52 24 b2  |. P.15.5.(.. R$.|
00000030  22 2e 22 00 42 10 32 00  88 20 4c 24 b2 22 2c 22  |".".B.2.. L$.","|
00000040  00 48 10 3c 00 e8 00 4e  10 46 00 99 00 54 10 5a  |.H.<...N.F...T.Z|
00000050  00 99 00 78 10 64 00 99  22 59 4f 55 20 41 52 45  |...x.d.."YOU ARE|
00000060  20 53 4b 49 49 4e 47 20  44 4f 57 4e 20 41 20 53  | SKIING DOWN A S|
00000070  4c 41 4c 4f 4d 22 00 97  10 6e 00 99 22 52 55 4e  |LALOM"...n.."RUN|
00000080  2e 20 50 52 45 53 53 20  22 3b 4c 24 3b 22 20 54  |. PRESS ";L$;" T|
00000090  4f 20 47 4f 22 00 bb 10  78 00 99 22 4c 45 46 54  |O GO"...x.."LEFT|
000000a0  20 41 4e 44 20 22 3b 52  24 3b 22 20 54 4f 20 47  | AND ";R$;" TO G|
000000b0  4f 20 52 49 47 48 54 2e  22 00 dd 10 82 00 99 22  |O RIGHT."......"|
000000c0  49 46 20 59 4f 55 20 47  4f 20 4f 46 46 20 54 48  |IF YOU GO OFF TH|
000000d0  45 20 52 55 4e 2c 20 59  4f 55 22 00 fd 10 8c 00  |E RUN, YOU".....|
000000e0  99 22 46 41 4c 4c 20 4f  56 45 52 20 54 48 45 20  |."FALL OVER THE |
000000f0  50 52 45 43 49 50 49 43  45 2e 22 00 1a 11 96 00  |PRECIPICE.".....|
00000100  99 22 48 49 54 20 41 4e  59 20 4b 45 59 20 54 4f  |."HIT ANY KEY TO|
00000110  20 53 54 41 52 54 2e 22  00 32 11 a0 00 a1 20 41  | START.".2.... A|
00000120  24 3a 8b 20 41 24 b3 b1  22 22 20 a7 20 31 36 30  |$:. A$.."" . 160|
00000130  00 4b 11 aa 00 a1 20 41  24 3a 8b 20 41 24 b2 22  |.K.... A$:. A$."|
00000140  22 20 a7 20 89 20 31 37  30 00 51 11 b4 00 99 00  |" . . 170.Q.....|
00000150  61 11 be 00 88 20 54 b2  57 ad 32 ab 50 ad 32 00  |a.... T.W.2.P.2.|
00000160  6d 11 c8 00 88 20 43 b2  57 ad 32 00 7a 11 d2 00  |m.... C.W.2.z...|
00000170  88 20 52 b2 bb 28 31 29  00 8b 11 d7 00 5a 58 b2  |. R..(1).....ZX.|
00000180  54 aa 50 3a 53 b2 53 aa  31 00 ab 11 dc 00 99 20  |T.P:S.S.1...... |
00000190  a3 54 29 3b 22 50 22 3b  a3 43 29 3b 22 21 21 22  |.T);"P";.C);"!!"|
000001a0  3b a3 5a 58 29 3b 22 50  22 00 c7 11 e6 00 8b 20  |;.ZX);"P"...... |
000001b0  52 b3 30 2e 35 20 af 20  54 b1 32 20 a7 20 88 20  |R.0.5 . T.2 . . |
000001c0  54 b2 54 ab 31 00 e7 11  f0 00 8b 20 52 b1 30 2e  |T.T.1...... R.0.|
000001d0  35 20 af 20 54 aa 50 b3  57 ab 32 20 a7 20 88 20  |5 . T.P.W.2 . . |
000001e0  54 b2 54 aa 31 00 f0 11  fa 00 a1 20 41 24 00 06  |T.T.1...... A$..|
000001f0  12 04 01 8b 20 41 24 b2  4c 24 20 a7 20 88 20 43  |.... A$.L$ . . C|
00000200  b2 43 ab 31 00 1c 12 0e  01 8b 20 41 24 b2 52 24  |.C.1...... A$.R$|
00000210  20 a7 20 88 20 43 b2 43  aa 31 00 2e 12 18 01 8b  | . . C.C.1......|
00000220  20 43 b3 54 20 a7 20 89  20 33 31 30 00 42 12 22  | C.T . . 310.B."|
00000230  01 8b 20 43 b1 50 aa 54  20 a7 20 89 20 33 31 30  |.. C.P.T . . 310|
00000240  00 4c 12 2c 01 89 20 32  31 30 00 5b 12 36 01 81  |.L.,.. 210.[.6..|
00000250  20 54 b2 31 20 a4 20 34  30 00 7f 12 40 01 99 22  | T.1 . 40...@.."|
00000260  2a 2a 21 21 20 4f 56 45  52 20 54 48 45 20 50 52  |**!! OVER THE PR|
00000270  45 43 49 50 49 43 45 20  2a 2a 21 21 22 00 87 12  |ECIPICE **!!"...|
00000280  4a 01 82 20 54 00 a0 12  54 01 99 22 59 4f 55 52  |J.. T...T.."YOUR|
00000290  20 53 43 4f 52 45 20 57  41 53 20 22 3b 53 00 c6  | SCORE WAS ";S..|
000002a0  12 5e 01 99 22 48 49 54  20 41 4e 59 20 4b 45 59  |.^.."HIT ANY KEY|
000002b0  20 46 4f 52 20 41 4e 4f  54 48 45 52 20 47 4f 22  | FOR ANOTHER GO"|
000002c0  3a 53 b2 30 00 d0 12 68  01 89 20 31 36 30 00 00  |:S.0...h.. 160..|
000002d0  00                                                |.|
000002d1