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"