Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape04b_c16_c60_computer_tape_1.wav » ...number...
...number...
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 tapes » Commodore_16 » drawer_br_tape04b_c16_c60_computer_tape_1.wav |
| Filename: | ...number... |
| Read OK: | ✔ |
| File size: | 04DA bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
5 GOTO 30
10 PRINT
15 PRINT"NUMBER? 1ðŸ¸9"
17 GETKEY A$
20 IF A$="1"THEN GOSUB 10000
21 IF A$="2"THEN GOSUB 20000
22 IF A$="3"THEN GOSUB 30000
23 IF A$="4"THEN GOSUB 40000
24 IF A$="5"THEN GOSUB 50000
25 IF A$="6"THEN GOSUB 60000
26 IF A$="7"THEN GOSUB 60100
27 IF A$="8"THEN GOSUB 60200
28 IF A$="9"THEN GOSUB 60300
29 GOTO 10
30 PRINT" HIT"
40 GETKEY A$
50 PRINT
60 PRINT" HIT"
70 GETKEY A$
80 PRINT
90 PRINT
95 PRINT"IF YOU HIT E AND WAIT I END"
100 Q=0
110 W=1
120 E=2
130 R=3
140 T=4
150 Y=5
160 U=6
170 I=7
180 O=8
190 P=9
200 S=10
210 D=11
220 F=12
230 G=13
240 H=14
250 J=15
260 K=16
270 L=17
280 Z=18
290 X=19
300 C=20
310 V=21
320 B=22
330 N=23
350 GOTO 10
10000 M=1
10010 GOTO 61000
20000 M=2
20010 GOTO 61000
30000 M=3
30010 GOTO 61000
40000 M=4
40010 GOTO 61000
50000 M=5
50010 GOTO 61000
60000 M=6
60010 GOTO 61000
60100 M=7
60110 GOTO 61000
60200 M=8
60210 GOTO 61000
60300 M=9
60310 GOTO 61000
61000 GETKEY A$
61004 DO
61005 PRINT Q
61010 PRINT W
61020 PRINT E
61030 PRINT R
61040 PRINT T
61050 PRINT Y
61060 PRINT U
61070 PRINT I
61080 PRINT O
61090 PRINT P
61100 PRINT S
61110 PRINT D
61120 PRINT F
61130 PRINT G
61140 PRINT H
61150 PRINT J
61160 PRINT K
61170 PRINT L
61180 PRINT Z
61190 PRINT X
61200 PRINT C
61210 PRINT V
61220 PRINT B
61230 PRINT N
61250 IF A$="E"THEN RETURN
61260 Q=Q+M
61270 W=W+M
61280 E=E+M
61290 R=R+M
61300 T=T+M
61310 Y=Y+M
61320 U=U+M
61330 I=I+M
61340 O=O+M
61350 P=P+M
61360 S=S+M
61370 D=D+M
61380 F=F+M
61390 G=G+M
61400 H=H+M
61410 J=J+M
61420 K=K+M
61430 L=L+M
61440 Z=Z+M
61450 X=X+M
61460 C=C+M
61470 V=V+M
61480 B=B+M
61490 N=N+M
61510 LOOP
� 30 � # �"NUMBER? 1�9"