24-02-89/Display

Home » CEEFAX disks » telesoftware14.adl » 24-02-89/Display

24-02-89/Display

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 » CEEFAX disks » telesoftware14.adl
Filename:	24-02-89/Display
Read OK:	✔
File size:	1127 bytes
Load address:	FFFF1A00
Exec address:	FFFF8023

File contents

   10REM > Display   Weather Satellite image display program
   20REM (C) BBC tv  and  Peter Vince  22/2/89
   30 
   40*SAVE"a"0+5000
   50*DELETE"a"
   60 
   70ON ERROR ON ERROR OFF:PRINTTAB(0,28);:REPORT:GOTO610
   80DIM Z% 360, C%(8), code 72
   90PROCassemble
  100 
  110MODE7
  120*CAT
  130INPUT'"Enter name of file to be drawn ";infyl$
  140S%=OPENINinfyl$
  150IF S%=0 THEN PRINT"Data file """;infyl$;""" not found.";CHR$7:END
  160 
  170PTR#S%=2
  180IF BGET#S%<3 OR BGET#S%-&84 OR BGET#S%-16 THEN format=FALSE ELSE format=TRUE
  190width=BGET#S% + BGET#S%*256
  200height=BGET#S% + BGET#S%*256
  210IF (width=276 AND height=200) OR (width=320 AND height=256) OR (width=360 AND height=288) THEN size=TRUE ELSE size=FALSE
  220PTR#S%=17
  230IF format=FALSE OR size=FALSE OR (BGET#S%AND7)-3 THEN PRINT'"Data using incompatible format -"'"cannot decode."';CHR$7:CLOSE#S%:END
  240 
  250message%=BGET#S%
  260IF message% AND 1 THEN ident$=FNgetstring  ELSE GOTO290
  270IF message% AND 16 THEN PRINT'new$
  280 
  290creditflag%=BGET#S%
  300IF creditflag% AND 1 THEN credit$=FNgetstring  ELSE credit$="" : GOTO330
  310IF creditflag% AND 16 THEN PRINT'new$
  320 
  330IF ((message% OR creditflag%) AND 16) = 0 THEN 370
  340PRINT'"Press the Space-Bar to continue...";
  350REPEAT UNTIL GET=32
  360 
  370MODE2
  380VDU23,1,0;0;0;0;
  390COLOUR 132:CLS
  400IF (width=276 AND height=200) THEN window=TRUE ELSE window=FALSE : GOTO430
  410VDU 24,72;96;1207;927; :GCOL0,134:CLG
  420VDU 24,88;112;1191;911;:GCOL0,132:CLG:VDU26
  430PROCcaptions
  440 
  450REM Define colours for 'grey scale'
  460C%(0)=0:C%(1)=4:C%(2)=1:C%(3)=5:C%(4)=2:C%(5)=6:C%(6)=3:C%(7)=7:C%(8)=7
  470PTR#S%=0 : PTR#S% = BGET#S% + BGET#S%*256
  480 
  490FOR V% = (0-window*112) TO (1020+window*112) STEP 4
  500MOVE (1280+window*88),V%
  510PROCfill
  520FOR I%=P% TO (360+window*80) : Z%?I%=C% : NEXT
  530FOR P%=0 TO (319+window*44) STEP 2
  540GCOL0,C%((Z%?P%+Z%?(P%+1)+2)DIV4)
  550PLOT65,-8,0
  560NEXT
  570NEXT
  580 
  590OSCLI("SAVE "+outfyl$+" FFFF3000+5000 0")
  600PRINTTAB(1,30)" Saved as ";outfyl$;" "
  610VDU23,1,1;0;0;0; 31,0,31
  620CLOSE#0
  630*FX20
  640END
  650 
  660DEFPROCfill
  670B%=&FF:P%=0
  680REPEAT
  690O%=B%
  700B%=BGET#S%
  710C%=B%AND15
  720W%=B%DIV16
  730IF C%=O% THEN UNTIL TRUE : ENDPROC
  740IF W%=15 THEN W%=BGET#S%+15 : IF W%=270 THEN W%=BGET#S%+270
  750FOR P%=P% TO P%+W% : Z%?P%=C% : NEXT
  760UNTIL FALSE
  770 
  780DEFPROCcaptions
  790PROCredef
  800GCOL0,7:GCOL0,132
  810source$=FNgetstring
  820rad%=BGET#S%
  830date$=FNgetstring
  840time$=FNgetstring
  850 
  860IF (message%AND12)=0 THEN 1020
  870IF (message%AND3)<>3 THEN ident$=source$
  880title$=""
  890FOR I%=1 TO LEN(ident$)
  900C%=ASC(MID$(ident$,I%,1))
  910IF C%>96 AND C%<123 THEN C%=C% AND &DF
  920title$=title$+CHR$C%
  930NEXT
  940IF message%AND2 THEN 990
  950 
  960IF rad%>0 AND rad%<5 THEN title$=title$+" "+MID$(" IRVZWVRD",rad%*2,2)
  970IF date$<>"" THEN title$=title$+"  "+LEFT$(date$,2)+"/"+MID$(date$,3,2)+"/"+MID$(date$,5)
  980IF time$<>"" THEN title$=title$+" "+LEFT$(time$,2)+":"+MID$(time$,3)
  990MOVE 640-LEN(title$)*16,924+window*864
 1000PROCnarrow
 1010 
 1020IF credit$="" OR (creditflag%AND7)<>7 THEN 1120
 1030title$=""
 1040FOR I%=1 TO LEN(credit$)
 1050C%=ASC(MID$(credit$,I%,1))
 1060IF C%>96 AND C%<123 THEN C%=C% AND &DF
 1070title$=title$+CHR$C%
 1080NEXT
 1090MOVE 640-LEN(title$)*16,988
 1100PROCnarrow
 1110 
 1120jd$=FNgetstring
 1130IF jd$="" THEN outfyl$="NODATE" : GOTO1180
 1140A%=0 : Y%=0 : F%=USR(&FFDA)AND&FF : REM Find filing system for name length
 1150IF F%=4 THEN outfyl$=MID$(jd$,4,4) ELSE outfyl$=LEFT$(jd$,7)
 1160outfyl$=outfyl$+MID$(jd$,9,2)
 1170 
 1180area=BGET#S% AND &7F
 1190IF area>0 AND area<5 THEN prefix$=MID$("waeb",area,1) ELSE prefix$="?"
 1200outfyl$=prefix$+outfyl$
 1210 
 1220VDU23,1,0;0;0;0;
 1230ENDPROC
 1240 
 1250DEFFNgetstring
 1260new$=""
 1270REPEAT
 1280C%=BGET#S%
 1290IF C% THEN new$=new$+CHR$C%
 1300UNTIL C%=0
 1310=new$
 1320 
 1330DEFPROCnarrow
 1340IF LEN(title$)>38 THEN title$=LEFT$(title$,38)
 1350VDU 5
 1360FOR I%=1 TO LENtitle$
 1370A%=ASC(MID$(title$,I%,1))
 1380CALL code
 1390NEXT
 1400VDU 4
 1410ENDPROC
 1420 
 1430DEFPROCredef
 1440REM Redefine characters to look better when squashed
 1450IF PAGE>&E00 THEN lim=8 ELSE lim=16:*FX20,6
 1460RESTORE 1530
 1470FOR I%=1 TO lim
 1480READ C$:VDU23,ASC C$
 1490FOR J%=1 TO 7:READ B$:VDU EVAL("&"+B$):NEXT
 1500VDU 0:NEXT
 1510ENDPROC
 1520 
 1530DATA 0,1C,36,63,63,63,36,1C, 2,1C,66,06,0C,18,30,7E
 1540DATA 3,1C,66,06,1C,06,66,1C, 5,7E,60,7C,06,06,66,1C
 1550DATA 6,1C,30,60,7C,66,66,1C, 8,1C,66,66,1C,66,66,1C
 1560DATA 9,1C,66,66,1E,06,06,18, /,00,03,06,0C,18,30,60
 1570DATA A,1C,66,66,7E,66,66,66, C,1C,66,60,60,60,66,1C
 1580DATA D,78,66,66,66,66,66,78, M,63,7F,7F,6B,63,63,63
 1590DATA O,1C,66,66,66,66,66,1C, S,1C,66,60,1C,06,66,1C
 1600DATA U,66,66,66,66,66,66,1C, Y,66,66,66,3E,18,18,18
 1610 
 1620DEFPROCassemble
 1630FOR V%=0 TO 2 STEP 2
 1640P%=code
 1650[ OPT V%
 1660 STA block
 1670 LDX #(block MOD 256)
 1680 LDY #(block DIV 256)
 1690 LDA #10 :JSR &FFF1
 1700 
 1710 LDX #8
 1720.loop1
 1730 LDA #0 :LDY #4
 1740.loop2
 1750 LSR block,X :LSR block,X :ROR A
 1760 DEY :BNE loop2
 1770 STA block,X
 1780 DEX :BNE loop1
 1790 
 1800 LDA #23 :JSR &FFEE
 1810 LDA #255:JSR &FFEE
 1820.loop3
 1830 LDA block+1,X :JSR &FFEE
 1840 INX
 1850 CPX #15 :BNE loop3
 1860 RTS
 1870 
 1880.block
 1890 EQUB 0 :EQUD 0 :EQUD 0
 1900 EQUB 255
 1910 EQUB 25 :EQUB 0 :EQUW -32 :EQUW 0
 1920]
 1930NEXT
 1940ENDPROC


9� > Display   Weather Satellite image display program
+� (C) BBC tv  and  Peter Vince  22/2/89
 
(*SAVE"a"0+5000
2*DELETE"a"
< 
F� � � � �:�0,28);:�:�DbB
P� Z% 360, C%(8), code 72
Z
�assemble
d 
n�7
x*CAT
�.�'"Enter name of file to be drawn ";infyl$
�S%=�infyl$
�8� S%=0 � �"Data file """;infyl$;""" not found.";�7:�
� 
�
�#S%=2
�7� �#S%<3 � �#S%-&84 � �#S%-16 � format=� � format=�
�width=�#S% + �#S%*256
�height=�#S% + �#S%*256
�f� (width=276 � height=200) � (width=320 � height=256) � (width=360 � height=288) � size=� � size=�
��#S%=17
�g� format=� � size=� � (�#S%�7)-3 � �'"Data using incompatible format -"'"cannot decode."';�7:�#S%:�
� 
�message%=�#S%
/� message% � 1 � ident$=�getstring  � �TbA
� message% � 16 � �'new$
 
"creditflag%=�#S%
,@� creditflag% � 1 � credit$=�getstring  � credit$="" : �DJA
6� creditflag% � 16 � �'new$
@ 
J0� ((message% � creditflag%) � 16) = 0 � �DrA
T+�'"Press the Space-Bar to continue...";
^� � �=32
h 
r�2
|�23,1,0;0;0;0;
�� 132:�
�<� (width=276 � height=200) � window=� � window=� : �tnA
�"� 24,72;96;1207;927; :�0,134:�
�&� 24,88;112;1191;911;:�0,132:�:�26
�
�captions
� 
�%� Define colours for 'grey scale'
�KC%(0)=0:C%(1)=4:C%(2)=1:C%(3)=5:C%(4)=2:C%(5)=6:C%(6)=3:C%(7)=7:C%(8)=7
�#�#S%=0 : �#S% = �#S% + �#S%*256
� 
�1� V% = (0-window*112) � (1020+window*112) � 4
�� (1280+window*88),V%
�	�fill
,� I%=P% � (360+window*80) : Z%?I%=C% : �
 � P%=0 � (319+window*44) � 2
 �0,C%((Z%?P%+Z%?(P%+1)+2)�4)
&�65,-8,0
0�
:�
D 
N)�("SAVE "+outfyl$+" FFFF3000+5000 0")
X#�1,30)" Saved as ";outfyl$;" "
b�23,1,1;0;0;0; 31,0,31
l�#0
v	*FX20
��
� 
�
��fill
�B%=&FF:P%=0
��
�	O%=B%
�B%=�#S%
�C%=B%�15
�W%=B%�16
�� C%=O% � � � : �
�1� W%=15 � W%=�#S%+15 : � W%=270 � W%=�#S%+270
�"� P%=P% � P%+W% : Z%?P%=C% : �
�� �
 
��captions

�redef
 �0,7:�0,132
*source$=�getstring
4
rad%=�#S%
>date$=�getstring
Htime$=�getstring
R 
\� (message%�12)=0 � �d|C
f&� (message%�3)<>3 � ident$=source$
p
title$=""
z� I%=1 � �(ident$)
�C%=�(�ident$,I%,1))
�"� C%>96 � C%<123 � C%=C% � &DF
�title$=title$+�C%
��
�� message%�2 � �d^C
� 
�@� rad%>0 � rad%<5 � title$=title$+" "+�" IRVZWVRD",rad%*2,2)
�L� date$<>"" � title$=title$+"  "+�date$,2)+"/"+�date$,3,2)+"/"+�date$,5)
�;� time$<>"" � title$=title$+" "+�time$,2)+":"+�time$,3)
�%� 640-�(title$)*16,924+window*864
��narrow
� 
�,� credit$="" � (creditflag%�7)<>7 � �D`D

title$=""
� I%=1 � �(credit$)
C%=�(�credit$,I%,1))
$"� C%>96 � C%<123 � C%=C% � &DF
.title$=title$+�C%
8�
B� 640-�(title$)*16,988
L�narrow
V 
`jd$=�getstring
j'� jd$="" � outfyl$="NODATE" : �t\D
tHA%=0 : Y%=0 : F%=�(&FFDA)�&FF : � Find filing system for name length
~0� F%=4 � outfyl$=�jd$,4,4) � outfyl$=�jd$,7)
�outfyl$=outfyl$+�jd$,9,2)
� 
�area=�#S% � &7F
�=� area>0 � area<5 � prefix$=�"waeb",area,1) � prefix$="?"
�outfyl$=prefix$+outfyl$
� 
��23,1,0;0;0;0;
��
� 
�ݤgetstring
�new$=""
��
C%=�#S%

� C% � new$=new$+�C%

� C%=0
	=new$
( 
2��narrow
<'� �(title$)>38 � title$=�title$,38)
F� 5
P� I%=1 � �title$
ZA%=�(�title$,I%,1))
d
� code
n�
x� 4
��
� 
���redef
�6� Redefine characters to look better when squashed
�%� �>&E00 � lim=8 � lim=16:*FX20,6
�
� �dzE
�� I%=1 � lim
�� C$:�23,� C$
�!� J%=1 � 7:� B$:� �("&"+B$):�
�	� 0:�
��
� 
�4� 0,1C,36,63,63,63,36,1C, 2,1C,66,06,0C,18,30,7E
4� 3,1C,66,06,1C,06,66,1C, 5,7E,60,7C,06,06,66,1C
4� 6,1C,30,60,7C,66,66,1C, 8,1C,66,66,1C,66,66,1C
4� 9,1C,66,66,1E,06,06,18, /,00,03,06,0C,18,30,60
"4� A,1C,66,66,7E,66,66,66, C,1C,66,60,60,60,66,1C
,4� D,78,66,66,66,66,66,78, M,63,7F,7F,6B,63,63,63
64� O,1C,66,66,66,66,66,1C, S,1C,66,60,1C,06,66,1C
@4� U,66,66,66,66,66,66,1C, Y,66,66,66,3E,18,18,18
J 
T��assemble
^� V%=0 � 2 � 2
hP%=code
r[ OPT V%
| STA block
� LDX #(block � 256)
� LDY #(block � 256)
� LDA #10 :JSR &FFF1
� 
� LDX #8
�
.loop1
� LDA #0 :LDY #4
�
.loop2
�$ LSR block,X :LSR block,X :ROR A
� DEY :BNE loop2
� STA block,X
� DEX :BNE loop1
� 
 LDA #23 :JSR &FFEE
 LDA #255:JSR &FFEE

.loop3
& LDA block+1,X :JSR &FFEE
0 INX
: CPX #15 :BNE loop3
D RTS
N 
X
.block
b EQUB 0 :EQUD 0 :EQUD 0
l
 EQUB 255
v& EQUB 25 :EQUB 0 :EQUW -32 :EQUW 0
�]
��
��
�

00000000  0d 00 0a 39 f4 20 3e 20  44 69 73 70 6c 61 79 20  |...9. > Display |
00000010  20 20 57 65 61 74 68 65  72 20 53 61 74 65 6c 6c  |  Weather Satell|
00000020  69 74 65 20 69 6d 61 67  65 20 64 69 73 70 6c 61  |ite image displa|
00000030  79 20 70 72 6f 67 72 61  6d 0d 00 14 2b f4 20 28  |y program...+. (|
00000040  43 29 20 42 42 43 20 74  76 20 20 61 6e 64 20 20  |C) BBC tv  and  |
00000050  50 65 74 65 72 20 56 69  6e 63 65 20 20 32 32 2f  |Peter Vince  22/|
00000060  32 2f 38 39 0d 00 1e 05  20 0d 00 28 12 2a 53 41  |2/89.... ..(.*SA|
00000070  56 45 22 61 22 30 2b 35  30 30 30 0d 00 32 0e 2a  |VE"a"0+5000..2.*|
00000080  44 45 4c 45 54 45 22 61  22 0d 00 3c 05 20 0d 00  |DELETE"a"..<. ..|
00000090  46 1e ee 20 85 20 ee 20  85 20 87 3a f1 8a 30 2c  |F.. . . . .:..0,|
000000a0  32 38 29 3b 3a f6 3a e5  8d 44 62 42 0d 00 50 1c  |28);:.:..DbB..P.|
000000b0  de 20 5a 25 20 33 36 30  2c 20 43 25 28 38 29 2c  |. Z% 360, C%(8),|
000000c0  20 63 6f 64 65 20 37 32  0d 00 5a 0d f2 61 73 73  | code 72..Z..ass|
000000d0  65 6d 62 6c 65 0d 00 64  05 20 0d 00 6e 06 eb 37  |emble..d. ..n..7|
000000e0  0d 00 78 08 2a 43 41 54  0d 00 82 2e e8 27 22 45  |..x.*CAT.....'"E|
000000f0  6e 74 65 72 20 6e 61 6d  65 20 6f 66 20 66 69 6c  |nter name of fil|
00000100  65 20 74 6f 20 62 65 20  64 72 61 77 6e 20 22 3b  |e to be drawn ";|
00000110  69 6e 66 79 6c 24 0d 00  8c 0e 53 25 3d 8e 69 6e  |infyl$....S%=.in|
00000120  66 79 6c 24 0d 00 96 38  e7 20 53 25 3d 30 20 8c  |fyl$...8. S%=0 .|
00000130  20 f1 22 44 61 74 61 20  66 69 6c 65 20 22 22 22  | ."Data file """|
00000140  3b 69 6e 66 79 6c 24 3b  22 22 22 20 6e 6f 74 20  |;infyl$;""" not |
00000150  66 6f 75 6e 64 2e 22 3b  bd 37 3a e0 0d 00 a0 05  |found.";.7:.....|
00000160  20 0d 00 aa 0a cf 23 53  25 3d 32 0d 00 b4 37 e7  | .....#S%=2...7.|
00000170  20 9a 23 53 25 3c 33 20  84 20 9a 23 53 25 2d 26  | .#S%<3 . .#S%-&|
00000180  38 34 20 84 20 9a 23 53  25 2d 31 36 20 8c 20 66  |84 . .#S%-16 . f|
00000190  6f 72 6d 61 74 3d a3 20  8b 20 66 6f 72 6d 61 74  |ormat=. . format|
000001a0  3d b9 0d 00 be 19 77 69  64 74 68 3d 9a 23 53 25  |=.....width=.#S%|
000001b0  20 2b 20 9a 23 53 25 2a  32 35 36 0d 00 c8 1a 68  | + .#S%*256....h|
000001c0  65 69 67 68 74 3d 9a 23  53 25 20 2b 20 9a 23 53  |eight=.#S% + .#S|
000001d0  25 2a 32 35 36 0d 00 d2  66 e7 20 28 77 69 64 74  |%*256...f. (widt|
000001e0  68 3d 32 37 36 20 80 20  68 65 69 67 68 74 3d 32  |h=276 . height=2|
000001f0  30 30 29 20 84 20 28 77  69 64 74 68 3d 33 32 30  |00) . (width=320|
00000200  20 80 20 68 65 69 67 68  74 3d 32 35 36 29 20 84  | . height=256) .|
00000210  20 28 77 69 64 74 68 3d  33 36 30 20 80 20 68 65  | (width=360 . he|
00000220  69 67 68 74 3d 32 38 38  29 20 8c 20 73 69 7a 65  |ight=288) . size|
00000230  3d b9 20 8b 20 73 69 7a  65 3d a3 0d 00 dc 0b cf  |=. . size=......|
00000240  23 53 25 3d 31 37 0d 00  e6 67 e7 20 66 6f 72 6d  |#S%=17...g. form|
00000250  61 74 3d a3 20 84 20 73  69 7a 65 3d a3 20 84 20  |at=. . size=. . |
00000260  28 9a 23 53 25 80 37 29  2d 33 20 8c 20 f1 27 22  |(.#S%.7)-3 . .'"|
00000270  44 61 74 61 20 75 73 69  6e 67 20 69 6e 63 6f 6d  |Data using incom|
00000280  70 61 74 69 62 6c 65 20  66 6f 72 6d 61 74 20 2d  |patible format -|
00000290  22 27 22 63 61 6e 6e 6f  74 20 64 65 63 6f 64 65  |"'"cannot decode|
000002a0  2e 22 27 3b bd 37 3a d9  23 53 25 3a e0 0d 00 f0  |."';.7:.#S%:....|
000002b0  05 20 0d 00 fa 11 6d 65  73 73 61 67 65 25 3d 9a  |. ....message%=.|
000002c0  23 53 25 0d 01 04 2f e7  20 6d 65 73 73 61 67 65  |#S%.../. message|
000002d0  25 20 80 20 31 20 8c 20  69 64 65 6e 74 24 3d a4  |% . 1 . ident$=.|
000002e0  67 65 74 73 74 72 69 6e  67 20 20 8b 20 e5 8d 54  |getstring  . ..T|
000002f0  62 41 0d 01 0e 1c e7 20  6d 65 73 73 61 67 65 25  |bA..... message%|
00000300  20 80 20 31 36 20 8c 20  f1 27 6e 65 77 24 0d 01  | . 16 . .'new$..|
00000310  18 05 20 0d 01 22 14 63  72 65 64 69 74 66 6c 61  |.. ..".creditfla|
00000320  67 25 3d 9a 23 53 25 0d  01 2c 40 e7 20 63 72 65  |g%=.#S%..,@. cre|
00000330  64 69 74 66 6c 61 67 25  20 80 20 31 20 8c 20 63  |ditflag% . 1 . c|
00000340  72 65 64 69 74 24 3d a4  67 65 74 73 74 72 69 6e  |redit$=.getstrin|
00000350  67 20 20 8b 20 63 72 65  64 69 74 24 3d 22 22 20  |g  . credit$="" |
00000360  3a 20 e5 8d 44 4a 41 0d  01 36 1f e7 20 63 72 65  |: ..DJA..6.. cre|
00000370  64 69 74 66 6c 61 67 25  20 80 20 31 36 20 8c 20  |ditflag% . 16 . |
00000380  f1 27 6e 65 77 24 0d 01  40 05 20 0d 01 4a 30 e7  |.'new$..@. ..J0.|
00000390  20 28 28 6d 65 73 73 61  67 65 25 20 84 20 63 72  | ((message% . cr|
000003a0  65 64 69 74 66 6c 61 67  25 29 20 80 20 31 36 29  |editflag%) . 16)|
000003b0  20 3d 20 30 20 8c 20 8d  44 72 41 0d 01 54 2b f1  | = 0 . .DrA..T+.|
000003c0  27 22 50 72 65 73 73 20  74 68 65 20 53 70 61 63  |'"Press the Spac|
000003d0  65 2d 42 61 72 20 74 6f  20 63 6f 6e 74 69 6e 75  |e-Bar to continu|
000003e0  65 2e 2e 2e 22 3b 0d 01  5e 0c f5 20 fd 20 a5 3d  |e...";..^.. . .=|
000003f0  33 32 0d 01 68 05 20 0d  01 72 06 eb 32 0d 01 7c  |32..h. ..r..2..||
00000400  12 ef 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 0d  |..23,1,0;0;0;0;.|
00000410  01 86 0b fb 20 31 33 32  3a db 0d 01 90 3c e7 20  |.... 132:....<. |
00000420  28 77 69 64 74 68 3d 32  37 36 20 80 20 68 65 69  |(width=276 . hei|
00000430  67 68 74 3d 32 30 30 29  20 8c 20 77 69 6e 64 6f  |ght=200) . windo|
00000440  77 3d b9 20 8b 20 77 69  6e 64 6f 77 3d a3 20 3a  |w=. . window=. :|
00000450  20 e5 8d 74 6e 41 0d 01  9a 22 ef 20 32 34 2c 37  | ..tnA...". 24,7|
00000460  32 3b 39 36 3b 31 32 30  37 3b 39 32 37 3b 20 3a  |2;96;1207;927; :|
00000470  e6 30 2c 31 33 34 3a da  0d 01 a4 26 ef 20 32 34  |.0,134:....&. 24|
00000480  2c 38 38 3b 31 31 32 3b  31 31 39 31 3b 39 31 31  |,88;112;1191;911|
00000490  3b 3a e6 30 2c 31 33 32  3a da 3a ef 32 36 0d 01  |;:.0,132:.:.26..|
000004a0  ae 0d f2 63 61 70 74 69  6f 6e 73 0d 01 b8 05 20  |...captions.... |
000004b0  0d 01 c2 25 f4 20 44 65  66 69 6e 65 20 63 6f 6c  |...%. Define col|
000004c0  6f 75 72 73 20 66 6f 72  20 27 67 72 65 79 20 73  |ours for 'grey s|
000004d0  63 61 6c 65 27 0d 01 cc  4b 43 25 28 30 29 3d 30  |cale'...KC%(0)=0|
000004e0  3a 43 25 28 31 29 3d 34  3a 43 25 28 32 29 3d 31  |:C%(1)=4:C%(2)=1|
000004f0  3a 43 25 28 33 29 3d 35  3a 43 25 28 34 29 3d 32  |:C%(3)=5:C%(4)=2|
00000500  3a 43 25 28 35 29 3d 36  3a 43 25 28 36 29 3d 33  |:C%(5)=6:C%(6)=3|
00000510  3a 43 25 28 37 29 3d 37  3a 43 25 28 38 29 3d 37  |:C%(7)=7:C%(8)=7|
00000520  0d 01 d6 23 cf 23 53 25  3d 30 20 3a 20 cf 23 53  |...#.#S%=0 : .#S|
00000530  25 20 3d 20 9a 23 53 25  20 2b 20 9a 23 53 25 2a  |% = .#S% + .#S%*|
00000540  32 35 36 0d 01 e0 05 20  0d 01 ea 31 e3 20 56 25  |256.... ...1. V%|
00000550  20 3d 20 28 30 2d 77 69  6e 64 6f 77 2a 31 31 32  | = (0-window*112|
00000560  29 20 b8 20 28 31 30 32  30 2b 77 69 6e 64 6f 77  |) . (1020+window|
00000570  2a 31 31 32 29 20 88 20  34 0d 01 f4 19 ec 20 28  |*112) . 4..... (|
00000580  31 32 38 30 2b 77 69 6e  64 6f 77 2a 38 38 29 2c  |1280+window*88),|
00000590  56 25 0d 01 fe 09 f2 66  69 6c 6c 0d 02 08 2c e3  |V%.....fill...,.|
000005a0  20 49 25 3d 50 25 20 b8  20 28 33 36 30 2b 77 69  | I%=P% . (360+wi|
000005b0  6e 64 6f 77 2a 38 30 29  20 3a 20 5a 25 3f 49 25  |ndow*80) : Z%?I%|
000005c0  3d 43 25 20 3a 20 ed 0d  02 12 20 e3 20 50 25 3d  |=C% : .... . P%=|
000005d0  30 20 b8 20 28 33 31 39  2b 77 69 6e 64 6f 77 2a  |0 . (319+window*|
000005e0  34 34 29 20 88 20 32 0d  02 1c 20 e6 30 2c 43 25  |44) . 2... .0,C%|
000005f0  28 28 5a 25 3f 50 25 2b  5a 25 3f 28 50 25 2b 31  |((Z%?P%+Z%?(P%+1|
00000600  29 2b 32 29 81 34 29 0d  02 26 0c f0 36 35 2c 2d  |)+2).4)..&..65,-|
00000610  38 2c 30 0d 02 30 05 ed  0d 02 3a 05 ed 0d 02 44  |8,0..0....:....D|
00000620  05 20 0d 02 4e 29 ff 28  22 53 41 56 45 20 22 2b  |. ..N).("SAVE "+|
00000630  6f 75 74 66 79 6c 24 2b  22 20 46 46 46 46 33 30  |outfyl$+" FFFF30|
00000640  30 30 2b 35 30 30 30 20  30 22 29 0d 02 58 23 f1  |00+5000 0")..X#.|
00000650  8a 31 2c 33 30 29 22 20  53 61 76 65 64 20 61 73  |.1,30)" Saved as|
00000660  20 22 3b 6f 75 74 66 79  6c 24 3b 22 20 22 0d 02  | ";outfyl$;" "..|
00000670  62 1a ef 32 33 2c 31 2c  31 3b 30 3b 30 3b 30 3b  |b..23,1,1;0;0;0;|
00000680  20 33 31 2c 30 2c 33 31  0d 02 6c 07 d9 23 30 0d  | 31,0,31..l..#0.|
00000690  02 76 09 2a 46 58 32 30  0d 02 80 05 e0 0d 02 8a  |.v.*FX20........|
000006a0  05 20 0d 02 94 0a dd f2  66 69 6c 6c 0d 02 9e 0f  |. ......fill....|
000006b0  42 25 3d 26 46 46 3a 50  25 3d 30 0d 02 a8 05 f5  |B%=&FF:P%=0.....|
000006c0  0d 02 b2 09 4f 25 3d 42  25 0d 02 bc 0b 42 25 3d  |....O%=B%....B%=|
000006d0  9a 23 53 25 0d 02 c6 0c  43 25 3d 42 25 80 31 35  |.#S%....C%=B%.15|
000006e0  0d 02 d0 0c 57 25 3d 42  25 81 31 36 0d 02 da 15  |....W%=B%.16....|
000006f0  e7 20 43 25 3d 4f 25 20  8c 20 fd 20 b9 20 3a 20  |. C%=O% . . . : |
00000700  e1 0d 02 e4 31 e7 20 57  25 3d 31 35 20 8c 20 57  |....1. W%=15 . W|
00000710  25 3d 9a 23 53 25 2b 31  35 20 3a 20 e7 20 57 25  |%=.#S%+15 : . W%|
00000720  3d 32 37 30 20 8c 20 57  25 3d 9a 23 53 25 2b 32  |=270 . W%=.#S%+2|
00000730  37 30 0d 02 ee 22 e3 20  50 25 3d 50 25 20 b8 20  |70...". P%=P% . |
00000740  50 25 2b 57 25 20 3a 20  5a 25 3f 50 25 3d 43 25  |P%+W% : Z%?P%=C%|
00000750  20 3a 20 ed 0d 02 f8 07  fd 20 a3 0d 03 02 05 20  | : ...... ..... |
00000760  0d 03 0c 0e dd f2 63 61  70 74 69 6f 6e 73 0d 03  |......captions..|
00000770  16 0a f2 72 65 64 65 66  0d 03 20 0f e6 30 2c 37  |...redef.. ..0,7|
00000780  3a e6 30 2c 31 33 32 0d  03 2a 16 73 6f 75 72 63  |:.0,132..*.sourc|
00000790  65 24 3d a4 67 65 74 73  74 72 69 6e 67 0d 03 34  |e$=.getstring..4|
000007a0  0d 72 61 64 25 3d 9a 23  53 25 0d 03 3e 14 64 61  |.rad%=.#S%..>.da|
000007b0  74 65 24 3d a4 67 65 74  73 74 72 69 6e 67 0d 03  |te$=.getstring..|
000007c0  48 14 74 69 6d 65 24 3d  a4 67 65 74 73 74 72 69  |H.time$=.getstri|
000007d0  6e 67 0d 03 52 05 20 0d  03 5c 1c e7 20 28 6d 65  |ng..R. ..\.. (me|
000007e0  73 73 61 67 65 25 80 31  32 29 3d 30 20 8c 20 8d  |ssage%.12)=0 . .|
000007f0  64 7c 43 0d 03 66 26 e7  20 28 6d 65 73 73 61 67  |d|C..f&. (messag|
00000800  65 25 80 33 29 3c 3e 33  20 8c 20 69 64 65 6e 74  |e%.3)<>3 . ident|
00000810  24 3d 73 6f 75 72 63 65  24 0d 03 70 0d 74 69 74  |$=source$..p.tit|
00000820  6c 65 24 3d 22 22 0d 03  7a 16 e3 20 49 25 3d 31  |le$=""..z.. I%=1|
00000830  20 b8 20 a9 28 69 64 65  6e 74 24 29 0d 03 84 17  | . .(ident$)....|
00000840  43 25 3d 97 28 c1 69 64  65 6e 74 24 2c 49 25 2c  |C%=.(.ident$,I%,|
00000850  31 29 29 0d 03 8e 22 e7  20 43 25 3e 39 36 20 80  |1))...". C%>96 .|
00000860  20 43 25 3c 31 32 33 20  8c 20 43 25 3d 43 25 20  | C%<123 . C%=C% |
00000870  80 20 26 44 46 0d 03 98  15 74 69 74 6c 65 24 3d  |. &DF....title$=|
00000880  74 69 74 6c 65 24 2b bd  43 25 0d 03 a2 05 ed 0d  |title$+.C%......|
00000890  03 ac 17 e7 20 6d 65 73  73 61 67 65 25 80 32 20  |.... message%.2 |
000008a0  8c 20 8d 64 5e 43 0d 03  b6 05 20 0d 03 c0 40 e7  |. .d^C.... ...@.|
000008b0  20 72 61 64 25 3e 30 20  80 20 72 61 64 25 3c 35  | rad%>0 . rad%<5|
000008c0  20 8c 20 74 69 74 6c 65  24 3d 74 69 74 6c 65 24  | . title$=title$|
000008d0  2b 22 20 22 2b c1 22 20  49 52 56 5a 57 56 52 44  |+" "+." IRVZWVRD|
000008e0  22 2c 72 61 64 25 2a 32  2c 32 29 0d 03 ca 4c e7  |",rad%*2,2)...L.|
000008f0  20 64 61 74 65 24 3c 3e  22 22 20 8c 20 74 69 74  | date$<>"" . tit|
00000900  6c 65 24 3d 74 69 74 6c  65 24 2b 22 20 20 22 2b  |le$=title$+"  "+|
00000910  c0 64 61 74 65 24 2c 32  29 2b 22 2f 22 2b c1 64  |.date$,2)+"/"+.d|
00000920  61 74 65 24 2c 33 2c 32  29 2b 22 2f 22 2b c1 64  |ate$,3,2)+"/"+.d|
00000930  61 74 65 24 2c 35 29 0d  03 d4 3b e7 20 74 69 6d  |ate$,5)...;. tim|
00000940  65 24 3c 3e 22 22 20 8c  20 74 69 74 6c 65 24 3d  |e$<>"" . title$=|
00000950  74 69 74 6c 65 24 2b 22  20 22 2b c0 74 69 6d 65  |title$+" "+.time|
00000960  24 2c 32 29 2b 22 3a 22  2b c1 74 69 6d 65 24 2c  |$,2)+":"+.time$,|
00000970  33 29 0d 03 de 25 ec 20  36 34 30 2d a9 28 74 69  |3)...%. 640-.(ti|
00000980  74 6c 65 24 29 2a 31 36  2c 39 32 34 2b 77 69 6e  |tle$)*16,924+win|
00000990  64 6f 77 2a 38 36 34 0d  03 e8 0b f2 6e 61 72 72  |dow*864.....narr|
000009a0  6f 77 0d 03 f2 05 20 0d  03 fc 2c e7 20 63 72 65  |ow.... ...,. cre|
000009b0  64 69 74 24 3d 22 22 20  84 20 28 63 72 65 64 69  |dit$="" . (credi|
000009c0  74 66 6c 61 67 25 80 37  29 3c 3e 37 20 8c 20 8d  |tflag%.7)<>7 . .|
000009d0  44 60 44 0d 04 06 0d 74  69 74 6c 65 24 3d 22 22  |D`D....title$=""|
000009e0  0d 04 10 17 e3 20 49 25  3d 31 20 b8 20 a9 28 63  |..... I%=1 . .(c|
000009f0  72 65 64 69 74 24 29 0d  04 1a 18 43 25 3d 97 28  |redit$)....C%=.(|
00000a00  c1 63 72 65 64 69 74 24  2c 49 25 2c 31 29 29 0d  |.credit$,I%,1)).|
00000a10  04 24 22 e7 20 43 25 3e  39 36 20 80 20 43 25 3c  |.$". C%>96 . C%<|
00000a20  31 32 33 20 8c 20 43 25  3d 43 25 20 80 20 26 44  |123 . C%=C% . &D|
00000a30  46 0d 04 2e 15 74 69 74  6c 65 24 3d 74 69 74 6c  |F....title$=titl|
00000a40  65 24 2b bd 43 25 0d 04  38 05 ed 0d 04 42 1a ec  |e$+.C%..8....B..|
00000a50  20 36 34 30 2d a9 28 74  69 74 6c 65 24 29 2a 31  | 640-.(title$)*1|
00000a60  36 2c 39 38 38 0d 04 4c  0b f2 6e 61 72 72 6f 77  |6,988..L..narrow|
00000a70  0d 04 56 05 20 0d 04 60  12 6a 64 24 3d a4 67 65  |..V. ..`.jd$=.ge|
00000a80  74 73 74 72 69 6e 67 0d  04 6a 27 e7 20 6a 64 24  |tstring..j'. jd$|
00000a90  3d 22 22 20 8c 20 6f 75  74 66 79 6c 24 3d 22 4e  |="" . outfyl$="N|
00000aa0  4f 44 41 54 45 22 20 3a  20 e5 8d 74 5c 44 0d 04  |ODATE" : ..t\D..|
00000ab0  74 48 41 25 3d 30 20 3a  20 59 25 3d 30 20 3a 20  |tHA%=0 : Y%=0 : |
00000ac0  46 25 3d ba 28 26 46 46  44 41 29 80 26 46 46 20  |F%=.(&FFDA).&FF |
00000ad0  3a 20 f4 20 46 69 6e 64  20 66 69 6c 69 6e 67 20  |: . Find filing |
00000ae0  73 79 73 74 65 6d 20 66  6f 72 20 6e 61 6d 65 20  |system for name |
00000af0  6c 65 6e 67 74 68 0d 04  7e 30 e7 20 46 25 3d 34  |length..~0. F%=4|
00000b00  20 8c 20 6f 75 74 66 79  6c 24 3d c1 6a 64 24 2c  | . outfyl$=.jd$,|
00000b10  34 2c 34 29 20 8b 20 6f  75 74 66 79 6c 24 3d c0  |4,4) . outfyl$=.|
00000b20  6a 64 24 2c 37 29 0d 04  88 1d 6f 75 74 66 79 6c  |jd$,7)....outfyl|
00000b30  24 3d 6f 75 74 66 79 6c  24 2b c1 6a 64 24 2c 39  |$=outfyl$+.jd$,9|
00000b40  2c 32 29 0d 04 92 05 20  0d 04 9c 13 61 72 65 61  |,2).... ....area|
00000b50  3d 9a 23 53 25 20 80 20  26 37 46 0d 04 a6 3d e7  |=.#S% . &7F...=.|
00000b60  20 61 72 65 61 3e 30 20  80 20 61 72 65 61 3c 35  | area>0 . area<5|
00000b70  20 8c 20 70 72 65 66 69  78 24 3d c1 22 77 61 65  | . prefix$=."wae|
00000b80  62 22 2c 61 72 65 61 2c  31 29 20 8b 20 70 72 65  |b",area,1) . pre|
00000b90  66 69 78 24 3d 22 3f 22  0d 04 b0 1b 6f 75 74 66  |fix$="?"....outf|
00000ba0  79 6c 24 3d 70 72 65 66  69 78 24 2b 6f 75 74 66  |yl$=prefix$+outf|
00000bb0  79 6c 24 0d 04 ba 05 20  0d 04 c4 12 ef 32 33 2c  |yl$.... .....23,|
00000bc0  31 2c 30 3b 30 3b 30 3b  30 3b 0d 04 ce 05 e1 0d  |1,0;0;0;0;......|
00000bd0  04 d8 05 20 0d 04 e2 0f  dd a4 67 65 74 73 74 72  |... ......getstr|
00000be0  69 6e 67 0d 04 ec 0b 6e  65 77 24 3d 22 22 0d 04  |ing....new$=""..|
00000bf0  f6 05 f5 0d 05 00 0b 43  25 3d 9a 23 53 25 0d 05  |.......C%=.#S%..|
00000c00  0a 18 e7 20 43 25 20 8c  20 6e 65 77 24 3d 6e 65  |... C% . new$=ne|
00000c10  77 24 2b bd 43 25 0d 05  14 0a fd 20 43 25 3d 30  |w$+.C%..... C%=0|
00000c20  0d 05 1e 09 3d 6e 65 77  24 0d 05 28 05 20 0d 05  |....=new$..(. ..|
00000c30  32 0c dd f2 6e 61 72 72  6f 77 0d 05 3c 27 e7 20  |2...narrow..<'. |
00000c40  a9 28 74 69 74 6c 65 24  29 3e 33 38 20 8c 20 74  |.(title$)>38 . t|
00000c50  69 74 6c 65 24 3d c0 74  69 74 6c 65 24 2c 33 38  |itle$=.title$,38|
00000c60  29 0d 05 46 07 ef 20 35  0d 05 50 14 e3 20 49 25  |)..F.. 5..P.. I%|
00000c70  3d 31 20 b8 20 a9 74 69  74 6c 65 24 0d 05 5a 17  |=1 . .title$..Z.|
00000c80  41 25 3d 97 28 c1 74 69  74 6c 65 24 2c 49 25 2c  |A%=.(.title$,I%,|
00000c90  31 29 29 0d 05 64 0a d6  20 63 6f 64 65 0d 05 6e  |1))..d.. code..n|
00000ca0  05 ed 0d 05 78 07 ef 20  34 0d 05 82 05 e1 0d 05  |....x.. 4.......|
00000cb0  8c 05 20 0d 05 96 0b dd  f2 72 65 64 65 66 0d 05  |.. ......redef..|
00000cc0  a0 36 f4 20 52 65 64 65  66 69 6e 65 20 63 68 61  |.6. Redefine cha|
00000cd0  72 61 63 74 65 72 73 20  74 6f 20 6c 6f 6f 6b 20  |racters to look |
00000ce0  62 65 74 74 65 72 20 77  68 65 6e 20 73 71 75 61  |better when squa|
00000cf0  73 68 65 64 0d 05 aa 25  e7 20 90 3e 26 45 30 30  |shed...%. .>&E00|
00000d00  20 8c 20 6c 69 6d 3d 38  20 8b 20 6c 69 6d 3d 31  | . lim=8 . lim=1|
00000d10  36 3a 2a 46 58 32 30 2c  36 0d 05 b4 0a f7 20 8d  |6:*FX20,6..... .|
00000d20  64 7a 45 0d 05 be 10 e3  20 49 25 3d 31 20 b8 20  |dzE..... I%=1 . |
00000d30  6c 69 6d 0d 05 c8 11 f3  20 43 24 3a ef 32 33 2c  |lim..... C$:.23,|
00000d40  97 20 43 24 0d 05 d2 21  e3 20 4a 25 3d 31 20 b8  |. C$...!. J%=1 .|
00000d50  20 37 3a f3 20 42 24 3a  ef 20 a0 28 22 26 22 2b  | 7:. B$:. .("&"+|
00000d60  42 24 29 3a ed 0d 05 dc  09 ef 20 30 3a ed 0d 05  |B$):...... 0:...|
00000d70  e6 05 e1 0d 05 f0 05 20  0d 05 fa 34 dc 20 30 2c  |....... ...4. 0,|
00000d80  31 43 2c 33 36 2c 36 33  2c 36 33 2c 36 33 2c 33  |1C,36,63,63,63,3|
00000d90  36 2c 31 43 2c 20 32 2c  31 43 2c 36 36 2c 30 36  |6,1C, 2,1C,66,06|
00000da0  2c 30 43 2c 31 38 2c 33  30 2c 37 45 0d 06 04 34  |,0C,18,30,7E...4|
00000db0  dc 20 33 2c 31 43 2c 36  36 2c 30 36 2c 31 43 2c  |. 3,1C,66,06,1C,|
00000dc0  30 36 2c 36 36 2c 31 43  2c 20 35 2c 37 45 2c 36  |06,66,1C, 5,7E,6|
00000dd0  30 2c 37 43 2c 30 36 2c  30 36 2c 36 36 2c 31 43  |0,7C,06,06,66,1C|
00000de0  0d 06 0e 34 dc 20 36 2c  31 43 2c 33 30 2c 36 30  |...4. 6,1C,30,60|
00000df0  2c 37 43 2c 36 36 2c 36  36 2c 31 43 2c 20 38 2c  |,7C,66,66,1C, 8,|
00000e00  31 43 2c 36 36 2c 36 36  2c 31 43 2c 36 36 2c 36  |1C,66,66,1C,66,6|
00000e10  36 2c 31 43 0d 06 18 34  dc 20 39 2c 31 43 2c 36  |6,1C...4. 9,1C,6|
00000e20  36 2c 36 36 2c 31 45 2c  30 36 2c 30 36 2c 31 38  |6,66,1E,06,06,18|
00000e30  2c 20 2f 2c 30 30 2c 30  33 2c 30 36 2c 30 43 2c  |, /,00,03,06,0C,|
00000e40  31 38 2c 33 30 2c 36 30  0d 06 22 34 dc 20 41 2c  |18,30,60.."4. A,|
00000e50  31 43 2c 36 36 2c 36 36  2c 37 45 2c 36 36 2c 36  |1C,66,66,7E,66,6|
00000e60  36 2c 36 36 2c 20 43 2c  31 43 2c 36 36 2c 36 30  |6,66, C,1C,66,60|
00000e70  2c 36 30 2c 36 30 2c 36  36 2c 31 43 0d 06 2c 34  |,60,60,66,1C..,4|
00000e80  dc 20 44 2c 37 38 2c 36  36 2c 36 36 2c 36 36 2c  |. D,78,66,66,66,|
00000e90  36 36 2c 36 36 2c 37 38  2c 20 4d 2c 36 33 2c 37  |66,66,78, M,63,7|
00000ea0  46 2c 37 46 2c 36 42 2c  36 33 2c 36 33 2c 36 33  |F,7F,6B,63,63,63|
00000eb0  0d 06 36 34 dc 20 4f 2c  31 43 2c 36 36 2c 36 36  |..64. O,1C,66,66|
00000ec0  2c 36 36 2c 36 36 2c 36  36 2c 31 43 2c 20 53 2c  |,66,66,66,1C, S,|
00000ed0  31 43 2c 36 36 2c 36 30  2c 31 43 2c 30 36 2c 36  |1C,66,60,1C,06,6|
00000ee0  36 2c 31 43 0d 06 40 34  dc 20 55 2c 36 36 2c 36  |6,1C..@4. U,66,6|
00000ef0  36 2c 36 36 2c 36 36 2c  36 36 2c 36 36 2c 31 43  |6,66,66,66,66,1C|
00000f00  2c 20 59 2c 36 36 2c 36  36 2c 36 36 2c 33 45 2c  |, Y,66,66,66,3E,|
00000f10  31 38 2c 31 38 2c 31 38  0d 06 4a 05 20 0d 06 54  |18,18,18..J. ..T|
00000f20  0e dd f2 61 73 73 65 6d  62 6c 65 0d 06 5e 12 e3  |...assemble..^..|
00000f30  20 56 25 3d 30 20 b8 20  32 20 88 20 32 0d 06 68  | V%=0 . 2 . 2..h|
00000f40  0b 50 25 3d 63 6f 64 65  0d 06 72 0c 5b 20 4f 50  |.P%=code..r.[ OP|
00000f50  54 20 56 25 0d 06 7c 0e  20 53 54 41 20 62 6c 6f  |T V%..|. STA blo|
00000f60  63 6b 0d 06 86 17 20 4c  44 58 20 23 28 62 6c 6f  |ck.... LDX #(blo|
00000f70  63 6b 20 83 20 32 35 36  29 0d 06 90 17 20 4c 44  |ck . 256).... LD|
00000f80  59 20 23 28 62 6c 6f 63  6b 20 81 20 32 35 36 29  |Y #(block . 256)|
00000f90  0d 06 9a 17 20 4c 44 41  20 23 31 30 20 3a 4a 53  |.... LDA #10 :JS|
00000fa0  52 20 26 46 46 46 31 0d  06 a4 05 20 0d 06 ae 0b  |R &FFF1.... ....|
00000fb0  20 4c 44 58 20 23 38 0d  06 b8 0a 2e 6c 6f 6f 70  | LDX #8.....loop|
00000fc0  31 0d 06 c2 13 20 4c 44  41 20 23 30 20 3a 4c 44  |1.... LDA #0 :LD|
00000fd0  59 20 23 34 0d 06 cc 0a  2e 6c 6f 6f 70 32 0d 06  |Y #4.....loop2..|
00000fe0  d6 24 20 4c 53 52 20 62  6c 6f 63 6b 2c 58 20 3a  |.$ LSR block,X :|
00000ff0  4c 53 52 20 62 6c 6f 63  6b 2c 58 20 3a 52 4f 52  |LSR block,X :ROR|
00001000  20 41 0d 06 e0 13 20 44  45 59 20 3a 42 4e 45 20  | A.... DEY :BNE |
00001010  6c 6f 6f 70 32 0d 06 ea  10 20 53 54 41 20 62 6c  |loop2.... STA bl|
00001020  6f 63 6b 2c 58 0d 06 f4  13 20 44 45 58 20 3a 42  |ock,X.... DEX :B|
00001030  4e 45 20 6c 6f 6f 70 31  0d 06 fe 05 20 0d 07 08  |NE loop1.... ...|
00001040  17 20 4c 44 41 20 23 32  33 20 3a 4a 53 52 20 26  |. LDA #23 :JSR &|
00001050  46 46 45 45 0d 07 12 17  20 4c 44 41 20 23 32 35  |FFEE.... LDA #25|
00001060  35 3a 4a 53 52 20 26 46  46 45 45 0d 07 1c 0a 2e  |5:JSR &FFEE.....|
00001070  6c 6f 6f 70 33 0d 07 26  1d 20 4c 44 41 20 62 6c  |loop3..&. LDA bl|
00001080  6f 63 6b 2b 31 2c 58 20  3a 4a 53 52 20 26 46 46  |ock+1,X :JSR &FF|
00001090  45 45 0d 07 30 08 20 49  4e 58 0d 07 3a 17 20 43  |EE..0. INX..:. C|
000010a0  50 58 20 23 31 35 20 3a  42 4e 45 20 6c 6f 6f 70  |PX #15 :BNE loop|
000010b0  33 0d 07 44 08 20 52 54  53 0d 07 4e 05 20 0d 07  |3..D. RTS..N. ..|
000010c0  58 0a 2e 62 6c 6f 63 6b  0d 07 62 1b 20 45 51 55  |X..block..b. EQU|
000010d0  42 20 30 20 3a 45 51 55  44 20 30 20 3a 45 51 55  |B 0 :EQUD 0 :EQU|
000010e0  44 20 30 0d 07 6c 0d 20  45 51 55 42 20 32 35 35  |D 0..l. EQUB 255|
000010f0  0d 07 76 26 20 45 51 55  42 20 32 35 20 3a 45 51  |..v& EQUB 25 :EQ|
00001100  55 42 20 30 20 3a 45 51  55 57 20 2d 33 32 20 3a  |UB 0 :EQUW -32 :|
00001110  45 51 55 57 20 30 0d 07  80 05 5d 0d 07 8a 05 ed  |EQUW 0....].....|
00001120  0d 07 94 05 e1 0d ff                              |.......|
00001127

24-02-89/Display.m0

24-02-89/Display.m1

24-02-89/Display.m2

24-02-89/Display.m4

24-02-89/Display.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .