Home » Personal collection » Commodore disks » disk41b_autostereo.d64 » char-convert
char-convert
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 » disk41b_autostereo.d64 |
| Filename: | char-convert |
| Read OK: | ✔ |
| File size: | 0128 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
5 FORR=0TO7:READCL(R):NEXT
10 FORCH=1TO31:PRINTCH:FORX=0TO15:FORY=0TO15
20 C=PEEK($2000+$80*CH+8*INT(X/2)+(Y AND7)+64*INT(Y/8))
30 IF (X AND1)=0 THEN C=C/2
40 C=(C AND 1)+(C AND 4)/2+(C AND 16)/4
50 AD=$8000+16*CH+$400*INT(Y/8)+$200*INT((X AND 4)/4)+(X AND8)+(Y AND 7)
60 POKEAD,PEEK(AD)+CL(C)*4^(3-(X AND3))
100 NEXT:NEXT:NEXT
110 :
120 DATA 0,2,1,0,3,3,2,3
�R�0�7:�CL(R):� 6 �CH�1�31:�CH:�X�0�15:�Y�0�15 f C��($2000�$80�CH�8��(X�2)�(Y �7)�64��(Y�8)) } � (X �1)�0 � C�C�2 �( C�(C � 1)�(C � 4)�2�(C � 16)�4 �2 AD�$8000�16�CH�$400��(Y�8)�$200��((X � 4)�4)�(X �8)�(Y � 7) < �AD,�(AD)�CL(C)�4�(3�(X �3)) d �:�:� n : ' x � 0,2,1,0,3,3,2,3
UHE@.r.0.7:.cl(r):.@6HJ@.ch.1.31:.ch:.x.0.15:.y.0.15@FHT@c..($2000.$80.ch.8..(x.2).(y .7).64..(y.8))@.H.@. (x .1).0 . c.c.2@.H(@c.(c . 1).(c . 4).2.(c . 16).4@.H2@ad.$8000.16.ch.$400..(y.8).$200..((x . 4).4).(x .8).(y . 7)@AI<@.ad,.(ad).cl(c).4.(3.(x .3))@KID@.:.:.@QIN@:@'IX@. 0,2,1,0,3,3,2,3@@@
00000000 15 08 05 00 81 52 b2 30 a4 37 3a 87 43 4c 28 52 |.....R.0.7:.CL(R| 00000010 29 3a 82 00 36 08 0a 00 81 43 48 b2 31 a4 33 31 |):..6....CH.1.31| 00000020 3a 99 43 48 3a 81 58 b2 30 a4 31 35 3a 81 59 b2 |:.CH:.X.0.15:.Y.| 00000030 30 a4 31 35 00 66 08 14 00 43 b2 c2 28 24 32 30 |0.15.f...C..($20| 00000040 30 30 aa 24 38 30 ac 43 48 aa 38 ac b5 28 58 ad |00.$80.CH.8..(X.| 00000050 32 29 aa 28 59 20 af 37 29 aa 36 34 ac b5 28 59 |2).(Y .7).64..(Y| 00000060 ad 38 29 29 00 7d 08 1e 00 8b 20 28 58 20 af 31 |.8)).}.... (X .1| 00000070 29 b2 30 20 a7 20 43 b2 43 ad 32 00 a0 08 28 00 |).0 . C.C.2...(.| 00000080 43 b2 28 43 20 af 20 31 29 aa 28 43 20 af 20 34 |C.(C . 1).(C . 4| 00000090 29 ad 32 aa 28 43 20 af 20 31 36 29 ad 34 00 e0 |).2.(C . 16).4..| 000000a0 08 32 00 41 44 b2 24 38 30 30 30 aa 31 36 ac 43 |.2.AD.$8000.16.C| 000000b0 48 aa 24 34 30 30 ac b5 28 59 ad 38 29 aa 24 32 |H.$400..(Y.8).$2| 000000c0 30 30 ac b5 28 28 58 20 af 20 34 29 ad 34 29 aa |00..((X . 4).4).| 000000d0 28 58 20 af 38 29 aa 28 59 20 af 20 37 29 00 01 |(X .8).(Y . 7)..| 000000e0 09 3c 00 97 41 44 2c c2 28 41 44 29 aa 43 4c 28 |.<..AD,.(AD).CL(| 000000f0 43 29 ac 34 ae 28 33 ab 28 58 20 af 33 29 29 00 |C).4.(3.(X .3)).| 00000100 0b 09 64 00 82 3a 82 3a 82 00 11 09 6e 00 3a 00 |..d..:.:....n.:.| 00000110 27 09 78 00 83 20 30 2c 32 2c 31 2c 30 2c 33 2c |'.x.. 0,2,1,0,3,| 00000120 33 2c 32 2c 33 00 00 00 |3,2,3...| 00000128
.