Home » Personal collection » Commodore tapes » Commodore_64 » drawer_tr_tape02a_hf90_c64_tape_2.wav » code-enter
code-enter
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_64 » drawer_tr_tape02a_hf90_c64_tape_2.wav |
| Filename: | code-enter |
| Read OK: | ✔ |
| File size: | 01F2 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
5 A=0
10 INPUT C$
20 X$=MID$(C$,1,2)
30 Y$=MID$(C$,3,3)
40 Z$=MID$(C$,6,2)
50 X=(ASC(MID$(X$,1,1))-48-INT(ASC(MID$(X$,1,1))/65)*7)*16
60 X=X+ASC(MID$(X$,2,1))-48-INT(ASC(MID$(X$,2,1))/65)*7
70 Y=(ASC(MID$(Z$,1,1))-48-INT(ASC(MID$(Z$,1,1))/65)*7)*16
80 Y=Y+ASC(MID$(Z$,2,1))-48-INT(ASC(MID$(Z$,2,1))/65)*7
90 POKE8192+A,X
100 FORR=1TO3
110 POKE8192+R+A,ASC(MID$(Y$,R,1))
120 NEXT
130 POKE8196+A,Y
140 A=A+5:GOTO10
1000 FORR=8192 TO 9000
1010 IF PEEK(R)>32 THEN PRINTCHR$(PEEK(R));
1020 IF PEEK(R)<33 THEN PRINT".";
1030 NEXT
2000 OPEN1,1,1,"ASSCODE"
2010 PRINT#1,0
2020 FORR=8192TO9000
2030 PRINT#1,PEEK(R)
2040 NEXT
2050 PRINT#1,-1
2060 CLOSE#1
A�0 � C$ # X$��(C$,1,2) 4 Y$��(C$,3,3) E( Z$��(C$,6,2) u2 X�(�(�(X$,1,1))�48��(�(�(X$,1,1))�65)�7)�16 �< X�X��(�(X$,2,1))�48��(�(�(X$,2,1))�65)�7 �F Y�(�(�(Z$,1,1))�48��(�(�(Z$,1,1))�65)�7)�16 �P Y�Y��(�(Z$,2,1))�48��(�(�(Z$,2,1))�65)�7 Z �8192�A,X d �R�1�3 3 n �8192�R�A,�(�(Y$,R,1)) 9 x � G � �8196�A,Y U � A�A�5:�10 h ��R�8192 � 9000 � �� �(R)�32 � ��(�(R)); � �� �(R)�33 � �"."; � � � ��1,1,1,"ASSCODE" � ��1,0 � ��R�8192�9000 � ��1,�(R) � �� � �1,�1 � �#1
IHE@a.0@RHJ@. c$@#HT@x$..(c$,1,2)@4H.@y$..(c$,3,3)@eH(@z$..(c$,6,2)@UH2@x.(.(.(x$,1,1)).48..(.(.(x$,1,1)).65).7).16@.H<@x.x..(.(x$,2,1)).48..(.(.(x$,2,1)).65).7@.Hf@y.(.(.(z$,1,1)).48..(.(.(z$,1,1)).65).7).16@.Hp@y.y..(.(z$,2,1)).48..(.(.(z$,2,1)).65).7@MIz@.8192.a,x@XID@.r.1.3@3IN@.8192.r.a,.(.(y$,r,1))@9IX@.@gI.@.8196.a,y@uI.@a.a.5:.10@HI.C.r.8192 . 9000@.I.C. .(r).32 . ..(.(r));@.I.C. .(r).33 . .".";@.IFD.@.I.G.1,1,1,"asscode"@.I.G.1,0@.I.G.r.8192.9000@.I.G.1,.(r)@.I.G.@.IBH.1,.1@.ILH.#1@@@
00000000 09 08 05 00 41 b2 30 00 12 08 0a 00 85 20 43 24 |....A.0...... C$| 00000010 00 23 08 14 00 58 24 b2 ca 28 43 24 2c 31 2c 32 |.#...X$..(C$,1,2| 00000020 29 00 34 08 1e 00 59 24 b2 ca 28 43 24 2c 33 2c |).4...Y$..(C$,3,| 00000030 33 29 00 45 08 28 00 5a 24 b2 ca 28 43 24 2c 36 |3).E.(.Z$..(C$,6| 00000040 2c 32 29 00 75 08 32 00 58 b2 28 c6 28 ca 28 58 |,2).u.2.X.(.(.(X| 00000050 24 2c 31 2c 31 29 29 ab 34 38 ab b5 28 c6 28 ca |$,1,1)).48..(.(.| 00000060 28 58 24 2c 31 2c 31 29 29 ad 36 35 29 ac 37 29 |(X$,1,1)).65).7)| 00000070 ac 31 36 00 a2 08 3c 00 58 b2 58 aa c6 28 ca 28 |.16...<.X.X..(.(| 00000080 58 24 2c 32 2c 31 29 29 ab 34 38 ab b5 28 c6 28 |X$,2,1)).48..(.(| 00000090 ca 28 58 24 2c 32 2c 31 29 29 ad 36 35 29 ac 37 |.(X$,2,1)).65).7| 000000a0 00 d2 08 46 00 59 b2 28 c6 28 ca 28 5a 24 2c 31 |...F.Y.(.(.(Z$,1| 000000b0 2c 31 29 29 ab 34 38 ab b5 28 c6 28 ca 28 5a 24 |,1)).48..(.(.(Z$| 000000c0 2c 31 2c 31 29 29 ad 36 35 29 ac 37 29 ac 31 36 |,1,1)).65).7).16| 000000d0 00 ff 08 50 00 59 b2 59 aa c6 28 ca 28 5a 24 2c |...P.Y.Y..(.(Z$,| 000000e0 32 2c 31 29 29 ab 34 38 ab b5 28 c6 28 ca 28 5a |2,1)).48..(.(.(Z| 000000f0 24 2c 32 2c 31 29 29 ad 36 35 29 ac 37 00 0d 09 |$,2,1)).65).7...| 00000100 5a 00 97 38 31 39 32 aa 41 2c 58 00 18 09 64 00 |Z..8192.A,X...d.| 00000110 81 52 b2 31 a4 33 00 33 09 6e 00 97 38 31 39 32 |.R.1.3.3.n..8192| 00000120 aa 52 aa 41 2c c6 28 ca 28 59 24 2c 52 2c 31 29 |.R.A,.(.(Y$,R,1)| 00000130 29 00 39 09 78 00 82 00 47 09 82 00 97 38 31 39 |).9.x...G....819| 00000140 36 aa 41 2c 59 00 55 09 8c 00 41 b2 41 aa 35 3a |6.A,Y.U...A.A.5:| 00000150 89 31 30 00 68 09 e8 03 81 52 b2 38 31 39 32 20 |.10.h....R.8192 | 00000160 a4 20 39 30 30 30 00 82 09 f2 03 8b 20 c2 28 52 |. 9000...... .(R| 00000170 29 b1 33 32 20 a7 20 99 c7 28 c2 28 52 29 29 3b |).32 . ..(.(R));| 00000180 00 98 09 fc 03 8b 20 c2 28 52 29 b3 33 33 20 a7 |...... .(R).33 .| 00000190 20 99 22 2e 22 3b 00 9e 09 06 04 82 00 b3 09 d0 | .".";..........| 000001a0 07 9f 31 2c 31 2c 31 2c 22 41 53 53 43 4f 44 45 |..1,1,1,"ASSCODE| 000001b0 22 00 bc 09 da 07 98 31 2c 30 00 cd 09 e4 07 81 |"......1,0......| 000001c0 52 b2 38 31 39 32 a4 39 30 30 30 00 d9 09 ee 07 |R.8192.9000.....| 000001d0 98 31 2c c2 28 52 29 00 df 09 f8 07 82 00 e9 09 |.1,.(R).........| 000001e0 02 08 98 31 2c ab 31 00 f1 09 0c 08 a0 23 31 00 |...1,.1......#1.| 000001f0 00 00 |..| 000001f2
.