Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_c16_basic2.wav » heads
heads
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_tape03a_c16_basic2.wav |
| Filename: | heads |
| Read OK: | ✔ |
| File size: | 012C bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_c16_basic2.wav » heads
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav » heads
File contents
10 H=0
20 T=0
30 PRINT"TYPE H FOR HEADS"
40 PRINT"T FOR TAILS"
50 PRINT"E FOR END"
60 INPUT"NEXT THROW";I$
70 IF I$="E"THEN 160
80 IF I$="H"THEN 120
90 IF I$="T"THEN 140
100 PRINT"WRONG ITEM"
110 GOTO 60
120 H=H+1
130 GOTO 60
140 T=T+1
150 GOTO 60
160 PRINT"OUT OF";H+T;"THROWS"
170 PRINT"THERE WERE";H;"HEADS"
180 PRINT"AND";T;"TAILS"
190 STOP
H�0 T�0 ) �"TYPE H FOR HEADS" <( �"T FOR TAILS" M2 �"E FOR END" b< �"NEXT THROW";I$ tF � I$�"E"� 160 �P � I$�"H"� 120 �Z � I$�"T"� 140 �d �"WRONG ITEM" �n � 60 �x H�H�1 �� � 60 �� T�T�1 �� � 60 �� �"OUT OF";H�T;"THROWS" � �"THERE WERE";H;"HEADS" %� �"AND";T;"TAILS" +� �
IPJ@h.0@QPT@t.0@)P.@."type h for heads"@<P(@."t for tails"@mP2@."e for end"@BP<@."next throw";i$@TPf@. i$."e". 160@.Pp@. i$."h". 120@.Pz@. i$."t". 140@.PD@."wrong item"@.PN@. 60@.PX@h.h.1@.P.@. 60@.P.@t.t.1@.P.@. 60@.P.@."out of";h.t;"throws"@PQ.@."there were";h;"heads"@%Q.@."and";t;"tails"@+Q.@.@@@
00000000 09 10 0a 00 48 b2 30 00 11 10 14 00 54 b2 30 00 |....H.0.....T.0.| 00000010 29 10 1e 00 99 22 54 59 50 45 20 48 20 46 4f 52 |)...."TYPE H FOR| 00000020 20 48 45 41 44 53 22 00 3c 10 28 00 99 22 54 20 | HEADS".<.(.."T | 00000030 46 4f 52 20 54 41 49 4c 53 22 00 4d 10 32 00 99 |FOR TAILS".M.2..| 00000040 22 45 20 46 4f 52 20 45 4e 44 22 00 62 10 3c 00 |"E FOR END".b.<.| 00000050 85 22 4e 45 58 54 20 54 48 52 4f 57 22 3b 49 24 |."NEXT THROW";I$| 00000060 00 74 10 46 00 8b 20 49 24 b2 22 45 22 a7 20 31 |.t.F.. I$."E". 1| 00000070 36 30 00 86 10 50 00 8b 20 49 24 b2 22 48 22 a7 |60...P.. I$."H".| 00000080 20 31 32 30 00 98 10 5a 00 8b 20 49 24 b2 22 54 | 120...Z.. I$."T| 00000090 22 a7 20 31 34 30 00 aa 10 64 00 99 22 57 52 4f |". 140...d.."WRO| 000000a0 4e 47 20 49 54 45 4d 22 00 b3 10 6e 00 89 20 36 |NG ITEM"...n.. 6| 000000b0 30 00 bd 10 78 00 48 b2 48 aa 31 00 c6 10 82 00 |0...x.H.H.1.....| 000000c0 89 20 36 30 00 d0 10 8c 00 54 b2 54 aa 31 00 d9 |. 60.....T.T.1..| 000000d0 10 96 00 89 20 36 30 00 f4 10 a0 00 99 22 4f 55 |.... 60......"OU| 000000e0 54 20 4f 46 22 3b 48 aa 54 3b 22 54 48 52 4f 57 |T OF";H.T;"THROW| 000000f0 53 22 00 10 11 aa 00 99 22 54 48 45 52 45 20 57 |S"......"THERE W| 00000100 45 52 45 22 3b 48 3b 22 48 45 41 44 53 22 00 25 |ERE";H;"HEADS".%| 00000110 11 b4 00 99 22 41 4e 44 22 3b 54 3b 22 54 41 49 |...."AND";T;"TAI| 00000120 4c 53 22 00 2b 11 be 00 90 00 00 00 |LS".+.......| 0000012c
.