Home » Archimedes archive » Acorn User » AU 1996-Xmas.adf » Regulars » StarInfo/Stoner/SlickOil
StarInfo/Stoner/SlickOil
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 » Archimedes archive » Acorn User » AU 1996-Xmas.adf » Regulars |
| Filename: | StarInfo/Stoner/SlickOil |
| Read OK: | ✔ |
| File size: | 083F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10ON ERROR REPORT:PRINT" at line ";ERL:END
20
30REM Machine Code Plasma prog
40REM Look like an oil slick, pretty slick eh!
50REM by Nigel Stoner
60REM LEN 1996
70
80PROCinit
90PROCassemble
100PROCmain
110END
120
130DEF PROCinit
140MODE 12:OFF
150DIM code 1000, rand 1020
160t$="Press Space To See Next Slick... By Nigel Stoner"
170l%=LEN t$
180PROCcycle
190ENDPROC
200
210DEF PROCassemble
220FOR pass = 0 TO 2 STEP 2
230P%=code
240[OPT pass
250.start
260STMFD R13!,{R14}
270LDR R10,array:LDR R11,rndcount:MOV R4,#0:LDR R2,ystep:LDR R7,base%
280.lo
290LDRB R0,[R10,R11]:ADD R11,R11,#1:CMP R11,#1020:MOVGE R11,#0
300STR R11,rndcount:MOV R3,R4,ASL#6:ADD R3,R3,R4,ASL#8
310STRB R0,[R7,R3]:ADD R4,R4,R2:CMP R4,#240:BLE lo:MOV R4,#0
320LDR R2,ystep:MOV R8,R2,ASL#6:ADD R8,R8,R2,ASL#8:MOV R9,R8,ASR#1
330.lt
340LDR R7,base%:ADD R7,R7,R4,ASL#6:ADD R7,R7,R4,ASL#8:LDRB R5,[R7]
350LDRB R6,[R7,R8]:ADD R5,R5,R6:MOV R5,R5,ASR#1:STRB R5,[R7,R9]
360ADD R4,R4,R2:CMP R4,#238:BLE lt:MOV R4,#0:MOV R2,R2,ASR#1
370MOV R8,R8,ASR#1:MOV R9,R9,ASR#1:CMP R2,#1:BNE lt:MOV R4,#0
380MOV R3,#0:LDR R1,xstep
390.lf
400LDR R7,base%:MOV R9,R4,ASL#6:ADD R9,R9,R4,ASL#8:ADD R9,R9,R3
410ADD R7,R7,R9:LDRB R5,[R7]:LDRB R6,[R7,R1]:ADD R5,R5,R6
420MOV R5,R5,ASR#1:STRB R5,[R7,R1,ASR#1]:ADD R4,R4,#1:CMP R4,#255
430BLE lf:MOV R4,#0:ADD R3,R3,R1:CMP R3,#16:BLE lf:MOV R3,#0
440MOV R1,R1,ASR#1:CMP R1,#2:BGE lf
450LDMFD R13!,{PC}
460.xstep EQUD 8
470.ystep EQUD 8
480.base% EQUD 149:EQUD -1
490.array EQUD rand
500.rndcount EQUD RND(1020)
510]
520NEXT pass
530SYS "OS_ReadVduVariables",base%,base%
540ENDPROC
550
560DEF PROCmain
570REPEAT:PROCmakeplas:REPEAT:PROCcycle:WAIT:UNTIL INKEY-99:UNTIL FALSE
580ENDPROC
590
600DEF PROCmakeplas
610n%=RND(16)*16
620FOR p%=0 TO 1020 STEP 4:rand!p%=(RND(n%)<<24)+(RND(n%)<<16)+(RND(n%)<<8)+RND(n%):NEXT p%
630ystep%=1<<(RND(3)+1):ystep!0=ystep%:xstep%=1<<(RND(3)+1):xstep!0=xstep%
640FOR a%=0 TO 320/xstep%:CALL start:MOVE 0,0:MOVE1280,1024:SYS"OS_Plot",189,xstep%*4,0:WAIT:PROCcycle:NEXT a%:CALL start:PROCtext
650ENDPROC
660
670DEF PROCcycle:c1%=TIME/7.2:c2%=TIME/8:c3%=TIME/8.2
680FOR d%=1 TO 15:COLOUR d%,c1%+d%<<4,-c2%-d%<<4,-c3%-d%<<4:NEXT d%:ENDPROC
690
700DEF PROCtext
710c%=1:d%=-1:FOR t%=1 TO l%:bit$=MID$(t$,t%,1):COLOUR c%:PRINT TAB(t%+7,30)bit$:c%+=d%:IF c%=0 c%=15
720IF bit$="B" d%=1
730IF c%=16 c%=1
740NEXT t%
750ENDPROC
� � �:�" at line ";�:�
� Machine Code Plasma prog
(.� Look like an oil slick, pretty slick eh!
2� by Nigel Stoner
< � � 1996
F
P �init
Z
�assemble
d �main
n�
x
� � �init
�
� 12:�
�� code 1000, rand 1020
�It$="Press Space To See Next Slick... By Nigel Stoner"
� l%=� t$
�
�cycle
��
�
�� �assemble
�� pass = 0 � 2 � 2
� P%=code
�
[OPT pass
�
.start
STMFD R13!,{R14}
FLDR R10,array:LDR R11,rndcount:MOV R4,#0:LDR R2,ystep:LDR R7,base%
.lo
"?LDRB R0,[R10,R11]:ADD R11,R11,#1:CMP R11,#1020:MOVGE R11,#0
,7STR R11,rndcount:MOV R3,R4,ASL#6:ADD R3,R3,R4,ASL#8
6=STRB R0,[R7,R3]:ADD R4,R4,R2:CMP R4,#240:BLE lo:MOV R4,#0
@CLDR R2,ystep:MOV R8,R2,ASL#6:ADD R8,R8,R2,ASL#8:MOV R9,R8,ASR#1
J.lt
TCLDR R7,base%:ADD R7,R7,R4,ASL#6:ADD R7,R7,R4,ASL#8:LDRB R5,[R7]
^BLDRB R6,[R7,R8]:ADD R5,R5,R6:MOV R5,R5,ASR#1:STRB R5,[R7,R9]
h=ADD R4,R4,R2:CMP R4,#238:BLE lt:MOV R4,#0:MOV R2,R2,ASR#1
r>MOV R8,R8,ASR#1:MOV R9,R9,ASR#1:CMP R2,#1:BNE lt:MOV R4,#0
|MOV R3,#0:LDR R1,xstep
�.lf
�@LDR R7,base%:MOV R9,R4,ASL#6:ADD R9,R9,R4,ASL#8:ADD R9,R9,R3
�:ADD R7,R7,R9:LDRB R5,[R7]:LDRB R6,[R7,R1]:ADD R5,R5,R6
�BMOV R5,R5,ASR#1:STRB R5,[R7,R1,ASR#1]:ADD R4,R4,#1:CMP R4,#255
�=BLE lf:MOV R4,#0:ADD R3,R3,R1:CMP R3,#16:BLE lf:MOV R3,#0
�$MOV R1,R1,ASR#1:CMP R1,#2:BGE lf
�LDMFD R13!,{PC}
�.xstep EQUD 8
�.ystep EQUD 8
�.base% EQUD 149:EQUD -1
�.array EQUD rand
�.rndcount EQUD �(1020)
�]
� pass
(ș "OS_ReadVduVariables",base%,base%
�
&
0 � �main
:&�:�makeplas:�:�cycle:Ȗ:� �-99:� �
D�
N
X� �makeplas
bn%=�(16)*16
lK� p%=0 � 1020 � 4:rand!p%=(�(n%)<<24)+(�(n%)<<16)+(�(n%)<<8)+�(n%):� p%
vGystep%=1<<(�(3)+1):ystep!0=ystep%:xstep%=1<<(�(3)+1):xstep!0=xstep%
�h� a%=0 � 320/xstep%:� start:� 0,0:�1280,1024:ș"OS_Plot",189,xstep%*4,0:Ȗ:�cycle:� a%:� start:�text
��
�
�(� �cycle:c1%=�/7.2:c2%=�/8:c3%=�/8.2
�;� d%=1 � 15:� d%,c1%+d%<<4,-c2%-d%<<4,-c3%-d%<<4:� d%:�
�
� � �text
�Rc%=1:d%=-1:� t%=1 � l%:bit$=�t$,t%,1):� c%:� �t%+7,30)bit$:c%+=d%:� c%=0 c%=15
�� bit$="B" d%=1
�� c%=16 c%=1
�� t%
��
� 00000000 0d 00 0a 1a ee 20 85 20 f6 3a f1 22 20 61 74 20 |..... . .:." at |
00000010 6c 69 6e 65 20 22 3b 9e 3a e0 0d 00 14 04 0d 00 |line ";.:.......|
00000020 1e 1e f4 20 4d 61 63 68 69 6e 65 20 43 6f 64 65 |... Machine Code|
00000030 20 50 6c 61 73 6d 61 20 70 72 6f 67 0d 00 28 2e | Plasma prog..(.|
00000040 f4 20 4c 6f 6f 6b 20 6c 69 6b 65 20 61 6e 20 6f |. Look like an o|
00000050 69 6c 20 73 6c 69 63 6b 2c 20 70 72 65 74 74 79 |il slick, pretty|
00000060 20 73 6c 69 63 6b 20 65 68 21 0d 00 32 15 f4 20 | slick eh!..2.. |
00000070 62 79 20 4e 69 67 65 6c 20 53 74 6f 6e 65 72 0d |by Nigel Stoner.|
00000080 00 3c 0c f4 20 a9 20 31 39 39 36 0d 00 46 04 0d |.<.. . 1996..F..|
00000090 00 50 09 f2 69 6e 69 74 0d 00 5a 0d f2 61 73 73 |.P..init..Z..ass|
000000a0 65 6d 62 6c 65 0d 00 64 09 f2 6d 61 69 6e 0d 00 |emble..d..main..|
000000b0 6e 05 e0 0d 00 78 04 0d 00 82 0b dd 20 f2 69 6e |n....x...... .in|
000000c0 69 74 0d 00 8c 0a eb 20 31 32 3a 87 0d 00 96 1a |it..... 12:.....|
000000d0 de 20 63 6f 64 65 20 31 30 30 30 2c 20 72 61 6e |. code 1000, ran|
000000e0 64 20 31 30 32 30 0d 00 a0 49 74 24 3d 22 50 72 |d 1020...It$="Pr|
000000f0 65 73 73 20 53 70 61 63 65 20 54 6f 20 53 65 65 |ess Space To See|
00000100 20 4e 65 78 74 20 53 6c 69 63 6b 2e 2e 2e 20 20 | Next Slick... |
00000110 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 | B|
00000120 79 20 4e 69 67 65 6c 20 53 74 6f 6e 65 72 22 0d |y Nigel Stoner".|
00000130 00 aa 0b 6c 25 3d a9 20 74 24 0d 00 b4 0a f2 63 |...l%=. t$.....c|
00000140 79 63 6c 65 0d 00 be 05 e1 0d 00 c8 04 0d 00 d2 |ycle............|
00000150 0f dd 20 f2 61 73 73 65 6d 62 6c 65 0d 00 dc 16 |.. .assemble....|
00000160 e3 20 70 61 73 73 20 3d 20 30 20 b8 20 32 20 88 |. pass = 0 . 2 .|
00000170 20 32 0d 00 e6 0b 50 25 3d 63 6f 64 65 0d 00 f0 | 2....P%=code...|
00000180 0d 5b 4f 50 54 20 70 61 73 73 0d 00 fa 0a 2e 73 |.[OPT pass.....s|
00000190 74 61 72 74 0d 01 04 14 53 54 4d 46 44 20 52 31 |tart....STMFD R1|
000001a0 33 21 2c 7b 52 31 34 7d 0d 01 0e 46 4c 44 52 20 |3!,{R14}...FLDR |
000001b0 52 31 30 2c 61 72 72 61 79 3a 4c 44 52 20 52 31 |R10,array:LDR R1|
000001c0 31 2c 72 6e 64 63 6f 75 6e 74 3a 4d 4f 56 20 52 |1,rndcount:MOV R|
000001d0 34 2c 23 30 3a 4c 44 52 20 52 32 2c 79 73 74 65 |4,#0:LDR R2,yste|
000001e0 70 3a 4c 44 52 20 52 37 2c 62 61 73 65 25 0d 01 |p:LDR R7,base%..|
000001f0 18 07 2e 6c 6f 0d 01 22 3f 4c 44 52 42 20 52 30 |...lo.."?LDRB R0|
00000200 2c 5b 52 31 30 2c 52 31 31 5d 3a 41 44 44 20 52 |,[R10,R11]:ADD R|
00000210 31 31 2c 52 31 31 2c 23 31 3a 43 4d 50 20 52 31 |11,R11,#1:CMP R1|
00000220 31 2c 23 31 30 32 30 3a 4d 4f 56 47 45 20 52 31 |1,#1020:MOVGE R1|
00000230 31 2c 23 30 0d 01 2c 37 53 54 52 20 52 31 31 2c |1,#0..,7STR R11,|
00000240 72 6e 64 63 6f 75 6e 74 3a 4d 4f 56 20 52 33 2c |rndcount:MOV R3,|
00000250 52 34 2c 41 53 4c 23 36 3a 41 44 44 20 52 33 2c |R4,ASL#6:ADD R3,|
00000260 52 33 2c 52 34 2c 41 53 4c 23 38 0d 01 36 3d 53 |R3,R4,ASL#8..6=S|
00000270 54 52 42 20 52 30 2c 5b 52 37 2c 52 33 5d 3a 41 |TRB R0,[R7,R3]:A|
00000280 44 44 20 52 34 2c 52 34 2c 52 32 3a 43 4d 50 20 |DD R4,R4,R2:CMP |
00000290 52 34 2c 23 32 34 30 3a 42 4c 45 20 6c 6f 3a 4d |R4,#240:BLE lo:M|
000002a0 4f 56 20 52 34 2c 23 30 0d 01 40 43 4c 44 52 20 |OV R4,#0..@CLDR |
000002b0 52 32 2c 79 73 74 65 70 3a 4d 4f 56 20 52 38 2c |R2,ystep:MOV R8,|
000002c0 52 32 2c 41 53 4c 23 36 3a 41 44 44 20 52 38 2c |R2,ASL#6:ADD R8,|
000002d0 52 38 2c 52 32 2c 41 53 4c 23 38 3a 4d 4f 56 20 |R8,R2,ASL#8:MOV |
000002e0 52 39 2c 52 38 2c 41 53 52 23 31 0d 01 4a 07 2e |R9,R8,ASR#1..J..|
000002f0 6c 74 0d 01 54 43 4c 44 52 20 52 37 2c 62 61 73 |lt..TCLDR R7,bas|
00000300 65 25 3a 41 44 44 20 52 37 2c 52 37 2c 52 34 2c |e%:ADD R7,R7,R4,|
00000310 41 53 4c 23 36 3a 41 44 44 20 52 37 2c 52 37 2c |ASL#6:ADD R7,R7,|
00000320 52 34 2c 41 53 4c 23 38 3a 4c 44 52 42 20 52 35 |R4,ASL#8:LDRB R5|
00000330 2c 5b 52 37 5d 0d 01 5e 42 4c 44 52 42 20 52 36 |,[R7]..^BLDRB R6|
00000340 2c 5b 52 37 2c 52 38 5d 3a 41 44 44 20 20 52 35 |,[R7,R8]:ADD R5|
00000350 2c 52 35 2c 52 36 3a 4d 4f 56 20 20 52 35 2c 52 |,R5,R6:MOV R5,R|
00000360 35 2c 41 53 52 23 31 3a 53 54 52 42 20 52 35 2c |5,ASR#1:STRB R5,|
00000370 5b 52 37 2c 52 39 5d 0d 01 68 3d 41 44 44 20 52 |[R7,R9]..h=ADD R|
00000380 34 2c 52 34 2c 52 32 3a 43 4d 50 20 52 34 2c 23 |4,R4,R2:CMP R4,#|
00000390 32 33 38 3a 42 4c 45 20 6c 74 3a 4d 4f 56 20 52 |238:BLE lt:MOV R|
000003a0 34 2c 23 30 3a 4d 4f 56 20 52 32 2c 52 32 2c 41 |4,#0:MOV R2,R2,A|
000003b0 53 52 23 31 0d 01 72 3e 4d 4f 56 20 52 38 2c 52 |SR#1..r>MOV R8,R|
000003c0 38 2c 41 53 52 23 31 3a 4d 4f 56 20 52 39 2c 52 |8,ASR#1:MOV R9,R|
000003d0 39 2c 41 53 52 23 31 3a 43 4d 50 20 52 32 2c 23 |9,ASR#1:CMP R2,#|
000003e0 31 3a 42 4e 45 20 6c 74 3a 4d 4f 56 20 52 34 2c |1:BNE lt:MOV R4,|
000003f0 23 30 0d 01 7c 1a 4d 4f 56 20 52 33 2c 23 30 3a |#0..|.MOV R3,#0:|
00000400 4c 44 52 20 52 31 2c 78 73 74 65 70 0d 01 86 07 |LDR R1,xstep....|
00000410 2e 6c 66 0d 01 90 40 4c 44 52 20 52 37 2c 62 61 |.lf...@LDR R7,ba|
00000420 73 65 25 3a 4d 4f 56 20 52 39 2c 52 34 2c 41 53 |se%:MOV R9,R4,AS|
00000430 4c 23 36 3a 41 44 44 20 52 39 2c 52 39 2c 52 34 |L#6:ADD R9,R9,R4|
00000440 2c 41 53 4c 23 38 3a 41 44 44 20 52 39 2c 52 39 |,ASL#8:ADD R9,R9|
00000450 2c 52 33 0d 01 9a 3a 41 44 44 20 52 37 2c 52 37 |,R3...:ADD R7,R7|
00000460 2c 52 39 3a 4c 44 52 42 20 52 35 2c 5b 52 37 5d |,R9:LDRB R5,[R7]|
00000470 3a 4c 44 52 42 20 52 36 2c 5b 52 37 2c 52 31 5d |:LDRB R6,[R7,R1]|
00000480 3a 41 44 44 20 52 35 2c 52 35 2c 52 36 0d 01 a4 |:ADD R5,R5,R6...|
00000490 42 4d 4f 56 20 52 35 2c 52 35 2c 41 53 52 23 31 |BMOV R5,R5,ASR#1|
000004a0 3a 53 54 52 42 20 52 35 2c 5b 52 37 2c 52 31 2c |:STRB R5,[R7,R1,|
000004b0 41 53 52 23 31 5d 3a 41 44 44 20 52 34 2c 52 34 |ASR#1]:ADD R4,R4|
000004c0 2c 23 31 3a 43 4d 50 20 52 34 2c 23 32 35 35 0d |,#1:CMP R4,#255.|
000004d0 01 ae 3d 42 4c 45 20 6c 66 3a 4d 4f 56 20 52 34 |..=BLE lf:MOV R4|
000004e0 2c 23 30 3a 41 44 44 20 52 33 2c 52 33 2c 52 31 |,#0:ADD R3,R3,R1|
000004f0 3a 43 4d 50 20 52 33 2c 23 31 36 3a 42 4c 45 20 |:CMP R3,#16:BLE |
00000500 6c 66 3a 4d 4f 56 20 52 33 2c 23 30 0d 01 b8 24 |lf:MOV R3,#0...$|
00000510 4d 4f 56 20 52 31 2c 52 31 2c 41 53 52 23 31 3a |MOV R1,R1,ASR#1:|
00000520 43 4d 50 20 52 31 2c 23 32 3a 42 47 45 20 6c 66 |CMP R1,#2:BGE lf|
00000530 0d 01 c2 13 4c 44 4d 46 44 20 52 31 33 21 2c 7b |....LDMFD R13!,{|
00000540 50 43 7d 0d 01 cc 11 2e 78 73 74 65 70 20 45 51 |PC}.....xstep EQ|
00000550 55 44 20 38 0d 01 d6 11 2e 79 73 74 65 70 20 45 |UD 8.....ystep E|
00000560 51 55 44 20 38 0d 01 e0 1b 2e 62 61 73 65 25 20 |QUD 8.....base% |
00000570 45 51 55 44 20 31 34 39 3a 45 51 55 44 20 2d 31 |EQUD 149:EQUD -1|
00000580 0d 01 ea 14 2e 61 72 72 61 79 20 45 51 55 44 20 |.....array EQUD |
00000590 72 61 6e 64 0d 01 f4 1a 2e 72 6e 64 63 6f 75 6e |rand.....rndcoun|
000005a0 74 20 45 51 55 44 20 b3 28 31 30 32 30 29 0d 01 |t EQUD .(1020)..|
000005b0 fe 05 5d 0d 02 08 0a ed 20 70 61 73 73 0d 02 12 |..]..... pass...|
000005c0 28 c8 99 20 22 4f 53 5f 52 65 61 64 56 64 75 56 |(.. "OS_ReadVduV|
000005d0 61 72 69 61 62 6c 65 73 22 2c 62 61 73 65 25 2c |ariables",base%,|
000005e0 62 61 73 65 25 0d 02 1c 05 e1 0d 02 26 04 0d 02 |base%.......&...|
000005f0 30 0b dd 20 f2 6d 61 69 6e 0d 02 3a 26 f5 3a f2 |0.. .main..:&.:.|
00000600 6d 61 6b 65 70 6c 61 73 3a f5 3a f2 63 79 63 6c |makeplas:.:.cycl|
00000610 65 3a c8 96 3a fd 20 a6 2d 39 39 3a fd 20 a3 0d |e:..:. .-99:. ..|
00000620 02 44 05 e1 0d 02 4e 04 0d 02 58 0f dd 20 f2 6d |.D....N...X.. .m|
00000630 61 6b 65 70 6c 61 73 0d 02 62 0f 6e 25 3d b3 28 |akeplas..b.n%=.(|
00000640 31 36 29 2a 31 36 0d 02 6c 4b e3 20 70 25 3d 30 |16)*16..lK. p%=0|
00000650 20 b8 20 31 30 32 30 20 88 20 34 3a 72 61 6e 64 | . 1020 . 4:rand|
00000660 21 70 25 3d 28 b3 28 6e 25 29 3c 3c 32 34 29 2b |!p%=(.(n%)<<24)+|
00000670 28 b3 28 6e 25 29 3c 3c 31 36 29 2b 28 b3 28 6e |(.(n%)<<16)+(.(n|
00000680 25 29 3c 3c 38 29 2b b3 28 6e 25 29 3a ed 20 70 |%)<<8)+.(n%):. p|
00000690 25 0d 02 76 47 79 73 74 65 70 25 3d 31 3c 3c 28 |%..vGystep%=1<<(|
000006a0 b3 28 33 29 2b 31 29 3a 79 73 74 65 70 21 30 3d |.(3)+1):ystep!0=|
000006b0 79 73 74 65 70 25 3a 78 73 74 65 70 25 3d 31 3c |ystep%:xstep%=1<|
000006c0 3c 28 b3 28 33 29 2b 31 29 3a 78 73 74 65 70 21 |<(.(3)+1):xstep!|
000006d0 30 3d 78 73 74 65 70 25 0d 02 80 68 e3 20 61 25 |0=xstep%...h. a%|
000006e0 3d 30 20 b8 20 33 32 30 2f 78 73 74 65 70 25 3a |=0 . 320/xstep%:|
000006f0 d6 20 73 74 61 72 74 3a ec 20 30 2c 30 3a ec 31 |. start:. 0,0:.1|
00000700 32 38 30 2c 31 30 32 34 3a c8 99 22 4f 53 5f 50 |280,1024:.."OS_P|
00000710 6c 6f 74 22 2c 31 38 39 2c 78 73 74 65 70 25 2a |lot",189,xstep%*|
00000720 34 2c 30 3a c8 96 3a f2 63 79 63 6c 65 3a ed 20 |4,0:..:.cycle:. |
00000730 61 25 3a d6 20 73 74 61 72 74 3a f2 74 65 78 74 |a%:. start:.text|
00000740 0d 02 8a 05 e1 0d 02 94 04 0d 02 9e 28 dd 20 f2 |............(. .|
00000750 63 79 63 6c 65 3a 63 31 25 3d 91 2f 37 2e 32 3a |cycle:c1%=./7.2:|
00000760 63 32 25 3d 91 2f 38 3a 63 33 25 3d 91 2f 38 2e |c2%=./8:c3%=./8.|
00000770 32 0d 02 a8 3b e3 20 64 25 3d 31 20 b8 20 31 35 |2...;. d%=1 . 15|
00000780 3a fb 20 64 25 2c 63 31 25 2b 64 25 3c 3c 34 2c |:. d%,c1%+d%<<4,|
00000790 2d 63 32 25 2d 64 25 3c 3c 34 2c 2d 63 33 25 2d |-c2%-d%<<4,-c3%-|
000007a0 64 25 3c 3c 34 3a ed 20 64 25 3a e1 0d 02 b2 04 |d%<<4:. d%:.....|
000007b0 0d 02 bc 0b dd 20 f2 74 65 78 74 0d 02 c6 52 63 |..... .text...Rc|
000007c0 25 3d 31 3a 64 25 3d 2d 31 3a e3 20 74 25 3d 31 |%=1:d%=-1:. t%=1|
000007d0 20 b8 20 6c 25 3a 62 69 74 24 3d c1 74 24 2c 74 | . l%:bit$=.t$,t|
000007e0 25 2c 31 29 3a fb 20 63 25 3a f1 20 8a 74 25 2b |%,1):. c%:. .t%+|
000007f0 37 2c 33 30 29 62 69 74 24 3a 63 25 2b 3d 64 25 |7,30)bit$:c%+=d%|
00000800 3a e7 20 63 25 3d 30 20 63 25 3d 31 35 0d 02 d0 |:. c%=0 c%=15...|
00000810 13 e7 20 62 69 74 24 3d 22 42 22 20 64 25 3d 31 |.. bit$="B" d%=1|
00000820 0d 02 da 10 e7 20 63 25 3d 31 36 20 63 25 3d 31 |..... c%=16 c%=1|
00000830 0d 02 e4 08 ed 20 74 25 0d 02 ee 05 e1 0d ff |..... t%.......|
0000083f 
.