Home » CEEFAX disks » telesoftware12.adl » 20-01-89/Colour1

20-01-89/Colour1

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 » telesoftware12.adl
Filename: 20-01-89/Colour1
Read OK:
File size: 0D19 bytes
Load address: FFFF1A00
Exec address: FFFF8023
File contents
   10*|"���9��������������������������
   20*|"�����C�O�L�O�U�R�_�P�R�I�N�T���
   30*|"���9��������������������������
   40*|"�����(C) M.GOLDFINCH 1989   ���
   50*|"�����Telesoftware v.8.8�A   ���
   60*|"�����EPSON FX80 &compatibles���
   70*|"�����Part 1 assembles code  ���
   80*|"�����for printing & screen  ���
   90*|"�����control�in Mode 1/2/4/5���
  100*|"�����BBC B�COMPACT�MASTER�& ���
  110*|"�����ARCHIMEDES + emulator  ���
  120*|"�`````````````````````````````
  130ONERRORPROCA("FX4"):REPORT:PRINTERL;" ";ERR:END
  140MODE7:VDU23,0,10,79;0;0;0;:DIMO%40,Q%40:L%=0:R%=Q%+3:U%=4:PROCC:PROCG:PROCD:PROCE:PROCI:PROCF:END
  150DATA-1,&900,0,&900,1,&900,245,&E00,253,&E00,160,&900,888,&900
  160DEFPROCA($O%)X%=O%:Y%=O%DIV256:CALL&FFF7:ENDPROC
  170DEFPROCB(W%):TIME=0:REPEATUNTILTIME>W%*100ORINKEY-97:ENDPROC
  180DEFPROCD:VDU23,-1,&AAFE;&AAD6;&AAD6;&FE;:PROCA("FX212,152"):PROCA("FX213,230"):PROCA("FX214,3"):PROCA("FX229,1"):PROCA("FX4,2"):D%=0:M%=1:ENDPROC
  190DEFPROCE:A%=&EA:X%=0:Y%=&FF:IFUSR&FFF4AND&FF00PROCH
  200I%=INKEY-256:RESTORE150:REPEATREADC%,B%:UNTILC%=I%ORC%=888:Y%=0:A%=0:F%=USR&FFDAAND&FF:IFF%<3 B%=&E00
  210ENDPROC
  220DEFPROCG:VDU23,0,2,52;0;0;0;:A$="COLOUR,PRINT":B$=STRING$(34,"`"):C$=STRING$(34,"p"):FORN%=&7C01TO&7FFDSTEP8:!N%=&24779A90+RND(7):N%?4=&3F:NEXT:FORH%=2TO3:PRINTTAB(4,H%)"��";A$TAB(22,H%)A$:NEXT:PRINTTAB(10,12)"�by  Mike Goldfinch�":PRINTTAB(2,17)"�6";B$;"i"TAB(2,18)"�5�"TAB(37,18)"�j"TAB(2,19)"�e";C$;":"
  230VDU28,5,18,36,18,7,12:PRINT"����Initialising:�please wait";:ENDPROC
  240DEFPROCF:PROCB(2):CLS:IFI%<2PRINT"�BBC B";:ELSEIFI%=245PRINT"�COMPACT";:ELSEIFI%=253PRINT"�MASTER";:ELSEIFI%=160PRINT"�ARC";
  250IFI%=160 ANDPAGE<>&1900 PAGE=&1900:CHAIN"COLOUR1":END
  260E%=&1100:S%=B%+264:PRINT"�mc &";~B%;"�data &";~E%;:PROCB(5)
  270L%=0:IFI%=160PROCss:L%=TRUE:V%=&1FD8000
  280CLS:PRINT"�Loading�Colour2.";:CHAIN"Colour2":ENDPROC
  290DEFPROCH:VDU7,12:PRINT"������Turn of�TUBE�& rerun����";:END:ENDPROC
  300DEFPROCarc VDU26,7:PRINT'"��$�Archimedes users:  �"''"�Colour print�requires�6502 emulator"''"�key�CTRL+BREAK"'"�type�QUIT�key�RETURN"'"�Insert�Welcome disc"'"�type�$.Modules.65Arthur�key�RETURN"
  310PRINT"�insert�Colour print disc"'"�type�CHAIN""COLOUR1""�key�RETURN"''"�$�Colour print will *LOAD a screen"'"�directly to screen memory thus only"'"�Mode 1,2,4 or 5 screens�in Archimedes"'"�format�can be used_ screens saved on a"
  320PRINT"�BBC B/MASTER have a different format."''"�$�The screen must have been saved using��*SAVE�rather than�*SCREENSAVE.":VDU7:OSCLI"FX4":OSCLI"FX229":OSCLI"FX220,27":L%=TRUE
  325PROCss:PRINT"�V% = ";~V%'"�Alter line 270 if V% <> &1FD8000"
  330DEFPROCss L%=TRUE:Q%=(R%DIVU%)*U%:V%=Q%+&10:!(Q%+U%)=TRUE:!Q%=&94:SYS49,Q%,V%:V%=!V%:ENDPROC
  340DEFPROCC:IFPAGE=&1900 ENDPROC ELSEIFINKEY-256=160 ANDPAGE=&8F00 PROCarc ELSEVDU7:PRINTTAB(0,12)"�����PAGE not =�&1900�� Reloading."
  350PAGE=&1900:CHAIN"Colour1":ENDPROC
  360DEFPROCI:O=&73:P=&74:F=&80:Q=&81:C=&82:G=&83:R=&84:S=&85:K=&86:T=&87:`=&88:FORT%=0TO2STEP2:P%=B%
  370[OPTT%:JSRa:JSRU:JSRb:JSRD:.I JSRc:.V JSRd:LDAR:CMPO:BEQH:CMP`:CLC:BNEe:SEC:.e RORT:JSRW:DECK:LDAK:BNEV:JSRp:JSRp:JSRE:JSRX:JMPI:.p LDAT:JSRA:RTS
  380.c LDA#8:STAK:RTS:.d LDA#9:LDX#F:LDY#0:JSR&FFF1:RTS:.X CLC:LDAF:ADC#4:STAF:BCSM:RTS:.M INCQ:RTS:.E SEC:LDAC:SBC#16:STAC:BCCZ:RTS:.Z DECG:RTS:.W CLC:LDAC:ADC#2:STAC:BCSN:RTS:.N INCG:RTS:.H JSRD:JSRB:JSRE:LDAG:CMP&73:BNEI:JMP_
  390.B LDA#0:STAF:STAQ:RTS:.U LDA#27:JSRA:LDA#51:JSRA:LDA#24:JSRA:RTS:.a:LDA#2:JSR&FFEE:LDA#27:JSRA:LDA#64:JSRA:RTS:.b JSRB:LDA#&F0:STAC:LDA#3:STAG:RTS:.A STAS:LDA#1:JSR&FFEE:LDAS:JSR&FFEE:RTS:.D LDA#&A:JSRA:LDA#27:JSRA:LDA#42:JSRA:LDA#4:JSRA
  400LDA#128:JSRA:LDA#2:JSRA:RTS:._:LDX#&A0:LDY#4:.LL:LDA#0:JSRA:DEX:BNELL:LDX#&A0:DEY:BNELL:LDY#&C:.f LDA#&A:JSRA:DEY:CPY#3:BCSf:LDA#3:JSR&FFEE:RTS:LDXP:LDY#0:STY&75:STY&77:.J LDA(&75),Y:STA(&77),Y:INY:BNEJ:INC&76:INC&78:DEX:BNEJ:RTS:]NEXT:ENDPROC
  410*|"���$�COLOUR1�v.8.8A�15.01.89  �

%*|"���9��������������������������
&*|"�����C�O�L�O�U�R�_�P�R�I�N�T���
%*|"���9��������������������������
(&*|"�����(C) M.GOLDFINCH 1989   ���
2&*|"�����Telesoftware v.8.8�A   ���
<&*|"�����EPSON FX80 &compatibles���
F&*|"�����Part 1 assembles code  ���
P&*|"�����for printing & screen  ���
Z&*|"�����control�in Mode 1/2/4/5���
d&*|"�����BBC B�COMPACT�MASTER�& ���
n&*|"�����ARCHIMEDES + emulator  ���
x%*|"�`````````````````````````````
���A("FX4"):�:�;" ";�:�
�J�7:�23,0,10,79;0;0;0;:�O%40,Q%40:L%=0:R%=Q%+3:U%=4:�C:�G:�D:�E:�I:�F:�
�>�-1,&900,0,&900,1,&900,245,&E00,253,&E00,160,&900,888,&900
�$��A($O%)X%=O%:Y%=O%�256:�&FFF7:�
�!��B(W%):�=0:���>W%*100��-97:�
�y��D:�23,-1,&AAFE;&AAD6;&AAD6;&FE;:�A("FX212,152"):�A("FX213,230"):�A("FX214,3"):�A("FX229,1"):�A("FX4,2"):D%=0:M%=1:�
�*��E:A%=&EA:X%=0:Y%=&FF:�&FFF4�&FF00�H
�NI%=�-256:��tV@:��C%,B%:�C%=I%�C%=888:Y%=0:A%=0:F%=�&FFDA�&FF:�F%<3 B%=&E00
��
����G:�23,0,2,52;0;0;0;:A$="COLOUR,PRINT":B$=�34,"`"):C$=�34,"p"):�N%=&7C01�&7FFD�8:!N%=&24779A90+�(7):N%?4=&3F:�:�H%=2�3:�4,H%)"��";A$�22,H%)A$:�:�10,12)"�by  Mike Goldfinch�":�2,17)"�6";B$;"i"�2,18)"�5�"�37,18)"�j"�2,19)"�e";C$;":"
�;�28,5,18,36,18,7,12:�"����Initialising:�please wait";:�
�Y��F:�B(2):�:�I%<2�"�BBC B";:��I%=245�"�COMPACT";:��I%=253�"�MASTER";:��I%=160�"�ARC";
�*�I%=160 ��<>&1900 �=&1900:�"COLOUR1":�
8E%=&1100:S%=B%+264:�"�mc &";~B%;"�data &";~E%;:�B(5)
$L%=0:�I%=160�ss:L%=�:V%=&1FD8000
(�:�"�Loading�Colour2.";:�"Colour2":�
"4��H:�7,12:�"������Turn of�TUBE�& rerun����";:�:�
,���arc �26,7:�'"��$�Archimedes users:  �"''"�Colour print�requires�6502 emulator"''"�key�CTRL+BREAK"'"�type�QUIT�key�RETURN"'"�Insert�Welcome disc"'"�type�$.Modules.65Arthur�key�RETURN"
6��"�insert�Colour print disc"'"�type�CHAIN""COLOUR1""�key�RETURN"''"�$�Colour print will *LOAD a screen"'"�directly to screen memory thus only"'"�Mode 1,2,4 or 5 screens�in Archimedes"'"�format�can be used_ screens saved on a"
@��"�BBC B/MASTER have a different format."''"�$�The screen must have been saved using��*SAVE�rather than�*SCREENSAVE.":�7:�"FX4":�"FX229":�"FX220,27":L%=�
E9�ss:�"�V% = ";~V%'"�Alter line 270 if V% <> &1FD8000"
JL��ss L%=�:Q%=(R%�U%)*U%:V%=Q%+&10:!(Q%+U%)=�:!Q%=&94:ș49,Q%,V%:V%=!V%:�
T\��C:�=&1900 � ��-256=160 ��=&8F00 �arc ��7:�0,12)"�����PAGE not =�&1900�� Reloading."
^�=&1900:�"Colour1":�
hY��I:O=&73:P=&74:F=&80:Q=&81:C=&82:G=&83:R=&84:S=&85:K=&86:T=&87:`=&88:�T%=0�2�2:P%=B%
r�[OPTT%:JSRa:JSRU:JSRb:JSRD:.I JSRc:.V JSRd:LDAR:CMPO:BEQH:CMP`:CLC:BNEe:SEC:.e RORT:JSRW:DECK:LDAK:BNEV:JSRp:JSRp:JSRE:JSRX:JMPI:.p LDAT:JSRA:RTS
|�.c LDA#8:STAK:RTS:.d LDA#9:LDX#F:LDY#0:JSR&FFF1:RTS:.X CLC:LDAF:ADC#4:STAF:BCSM:RTS:.M INCQ:RTS:.E SEC:LDAC:SBC#16:STAC:BCCZ:RTS:.Z DECG:RTS:.W CLC:LDAC:ADC#2:STAC:BCSN:RTS:.N INCG:RTS:.H JSRD:JSRB:JSRE:LDAG:CMP&73:BNEI:JMP_
��.B LDA#0:STAF:STAQ:RTS:.U LDA#27:JSRA:LDA#51:JSRA:LDA#24:JSRA:RTS:.a:LDA#2:JSR&FFEE:LDA#27:JSRA:LDA#64:JSRA:RTS:.b JSRB:LDA#&F0:STAC:LDA#3:STAG:RTS:.A STAS:LDA#1:JSR&FFEE:LDAS:JSR&FFEE:RTS:.D LDA#&A:JSRA:LDA#27:JSRA:LDA#42:JSRA:LDA#4:JSRA
��LDA#128:JSRA:LDA#2:JSRA:RTS:._:LDX#&A0:LDY#4:.LL:LDA#0:JSRA:DEX:BNELL:LDX#&A0:DEY:BNELL:LDY#&C:.f LDA#&A:JSRA:DEY:CPY#3:BCSf:LDA#3:JSR&FFEE:RTS:LDXP:LDY#0:STY&75:STY&77:.J LDA(&75),Y:STA(&77),Y:INY:BNEJ:INC&76:INC&78:DEX:BNEJ:RTS:]�:�
�&*|"���$�COLOUR1�v.8.8A�15.01.89  �
�
00000000  0d 00 0a 25 2a 7c 22 9e  9a 94 39 97 92 93 92 91  |...%*|"...9.....|
00000010  96 97 92 94 96 92 91 96  97 94 93 96 94 91 97 96  |................|
00000020  95 93 96 94 92 0d 00 14  26 2a 7c 22 84 9d 81 9d  |........&*|"....|
00000030  82 43 83 4f 84 4c 86 4f  85 55 87 52 82 5f 86 50  |.C.O.L.O.U.R._.P|
00000040  82 52 84 49 85 4e 83 54  84 9d 9c 0d 00 1e 25 2a  |.R.I.N.T......%*|
00000050  7c 22 9e 9a 94 39 93 92  91 96 97 92 91 94 95 97  ||"...9..........|
00000060  93 96 94 96 92 97 94 95  97 94 93 95 91 97 96 96  |................|
00000070  0d 00 28 26 2a 7c 22 84  9d 85 9d 84 28 43 29 20  |..(&*|".....(C) |
00000080  4d 2e 47 4f 4c 44 46 49  4e 43 48 20 31 39 38 39  |M.GOLDFINCH 1989|
00000090  20 20 20 84 9d 9c 0d 00  32 26 2a 7c 22 84 9d 85  |   .....2&*|"...|
000000a0  9d 83 54 65 6c 65 73 6f  66 74 77 61 72 65 20 76  |..Telesoftware v|
000000b0  2e 38 2e 38 84 41 20 20  20 84 9d 9c 0d 00 3c 26  |.8.8.A   .....<&|
000000c0  2a 7c 22 84 9d 82 9d 81  45 50 53 4f 4e 20 46 58  |*|".....EPSON FX|
000000d0  38 30 20 26 63 6f 6d 70  61 74 69 62 6c 65 73 84  |80 &compatibles.|
000000e0  9d 9c 0d 00 46 26 2a 7c  22 84 9d 87 9d 84 50 61  |....F&*|".....Pa|
000000f0  72 74 20 31 20 61 73 73  65 6d 62 6c 65 73 20 63  |rt 1 assembles c|
00000100  6f 64 65 20 20 84 9d 9c  0d 00 50 26 2a 7c 22 84  |ode  .....P&*|".|
00000110  9d 87 9d 84 66 6f 72 20  70 72 69 6e 74 69 6e 67  |....for printing|
00000120  20 26 20 73 63 72 65 65  6e 20 20 84 9d 9c 0d 00  | & screen  .....|
00000130  5a 26 2a 7c 22 84 9d 87  9d 84 63 6f 6e 74 72 6f  |Z&*|".....contro|
00000140  6c 85 69 6e 20 4d 6f 64  65 20 31 2f 32 2f 34 2f  |l.in Mode 1/2/4/|
00000150  35 84 9d 9c 0d 00 64 26  2a 7c 22 84 9d 81 9d 87  |5.....d&*|".....|
00000160  42 42 43 20 42 83 43 4f  4d 50 41 43 54 86 4d 41  |BBC B.COMPACT.MA|
00000170  53 54 45 52 87 26 20 84  9d 9c 0d 00 6e 26 2a 7c  |STER.& .....n&*||
00000180  22 84 9d 81 9d 82 41 52  43 48 49 4d 45 44 45 53  |".....ARCHIMEDES|
00000190  20 2b 20 65 6d 75 6c 61  74 6f 72 20 20 84 9d 9c  | + emulator  ...|
000001a0  0d 00 78 25 2a 7c 22 94  60 60 60 60 60 60 60 60  |..x%*|".````````|
000001b0  60 60 60 60 60 60 60 60  60 60 60 60 60 60 60 60  |````````````````|
000001c0  60 60 60 60 60 0d 00 82  1c ee 85 f2 41 28 22 46  |`````.......A("F|
000001d0  58 34 22 29 3a f6 3a f1  9e 3b 22 20 22 3b 9f 3a  |X4"):.:..;" ";.:|
000001e0  e0 0d 00 8c 4a eb 37 3a  ef 32 33 2c 30 2c 31 30  |....J.7:.23,0,10|
000001f0  2c 37 39 3b 30 3b 30 3b  30 3b 3a de 4f 25 34 30  |,79;0;0;0;:.O%40|
00000200  2c 51 25 34 30 3a 4c 25  3d 30 3a 52 25 3d 51 25  |,Q%40:L%=0:R%=Q%|
00000210  2b 33 3a 55 25 3d 34 3a  f2 43 3a f2 47 3a f2 44  |+3:U%=4:.C:.G:.D|
00000220  3a f2 45 3a f2 49 3a f2  46 3a e0 0d 00 96 3e dc  |:.E:.I:.F:....>.|
00000230  2d 31 2c 26 39 30 30 2c  30 2c 26 39 30 30 2c 31  |-1,&900,0,&900,1|
00000240  2c 26 39 30 30 2c 32 34  35 2c 26 45 30 30 2c 32  |,&900,245,&E00,2|
00000250  35 33 2c 26 45 30 30 2c  31 36 30 2c 26 39 30 30  |53,&E00,160,&900|
00000260  2c 38 38 38 2c 26 39 30  30 0d 00 a0 24 dd f2 41  |,888,&900...$..A|
00000270  28 24 4f 25 29 58 25 3d  4f 25 3a 59 25 3d 4f 25  |($O%)X%=O%:Y%=O%|
00000280  81 32 35 36 3a d6 26 46  46 46 37 3a e1 0d 00 aa  |.256:.&FFF7:....|
00000290  21 dd f2 42 28 57 25 29  3a d1 3d 30 3a f5 fd 91  |!..B(W%):.=0:...|
000002a0  3e 57 25 2a 31 30 30 84  a6 2d 39 37 3a e1 0d 00  |>W%*100..-97:...|
000002b0  b4 79 dd f2 44 3a ef 32  33 2c 2d 31 2c 26 41 41  |.y..D:.23,-1,&AA|
000002c0  46 45 3b 26 41 41 44 36  3b 26 41 41 44 36 3b 26  |FE;&AAD6;&AAD6;&|
000002d0  46 45 3b 3a f2 41 28 22  46 58 32 31 32 2c 31 35  |FE;:.A("FX212,15|
000002e0  32 22 29 3a f2 41 28 22  46 58 32 31 33 2c 32 33  |2"):.A("FX213,23|
000002f0  30 22 29 3a f2 41 28 22  46 58 32 31 34 2c 33 22  |0"):.A("FX214,3"|
00000300  29 3a f2 41 28 22 46 58  32 32 39 2c 31 22 29 3a  |):.A("FX229,1"):|
00000310  f2 41 28 22 46 58 34 2c  32 22 29 3a 44 25 3d 30  |.A("FX4,2"):D%=0|
00000320  3a 4d 25 3d 31 3a e1 0d  00 be 2a dd f2 45 3a 41  |:M%=1:....*..E:A|
00000330  25 3d 26 45 41 3a 58 25  3d 30 3a 59 25 3d 26 46  |%=&EA:X%=0:Y%=&F|
00000340  46 3a e7 ba 26 46 46 46  34 80 26 46 46 30 30 f2  |F:..&FFF4.&FF00.|
00000350  48 0d 00 c8 4e 49 25 3d  a6 2d 32 35 36 3a f7 8d  |H...NI%=.-256:..|
00000360  74 56 40 3a f5 f3 43 25  2c 42 25 3a fd 43 25 3d  |tV@:..C%,B%:.C%=|
00000370  49 25 84 43 25 3d 38 38  38 3a 59 25 3d 30 3a 41  |I%.C%=888:Y%=0:A|
00000380  25 3d 30 3a 46 25 3d ba  26 46 46 44 41 80 26 46  |%=0:F%=.&FFDA.&F|
00000390  46 3a e7 46 25 3c 33 20  42 25 3d 26 45 30 30 0d  |F:.F%<3 B%=&E00.|
000003a0  00 d2 05 e1 0d 00 dc ee  dd f2 47 3a ef 32 33 2c  |..........G:.23,|
000003b0  30 2c 32 2c 35 32 3b 30  3b 30 3b 30 3b 3a 41 24  |0,2,52;0;0;0;:A$|
000003c0  3d 22 43 4f 4c 4f 55 52  2c 50 52 49 4e 54 22 3a  |="COLOUR,PRINT":|
000003d0  42 24 3d c4 33 34 2c 22  60 22 29 3a 43 24 3d c4  |B$=.34,"`"):C$=.|
000003e0  33 34 2c 22 70 22 29 3a  e3 4e 25 3d 26 37 43 30  |34,"p"):.N%=&7C0|
000003f0  31 b8 26 37 46 46 44 88  38 3a 21 4e 25 3d 26 32  |1.&7FFD.8:!N%=&2|
00000400  34 37 37 39 41 39 30 2b  b3 28 37 29 3a 4e 25 3f  |4779A90+.(7):N%?|
00000410  34 3d 26 33 46 3a ed 3a  e3 48 25 3d 32 b8 33 3a  |4=&3F:.:.H%=2.3:|
00000420  f1 8a 34 2c 48 25 29 22  8d 9a 22 3b 41 24 8a 32  |..4,H%)"..";A$.2|
00000430  32 2c 48 25 29 41 24 3a  ed 3a f1 8a 31 30 2c 31  |2,H%)A$:.:..10,1|
00000440  32 29 22 83 62 79 20 20  4d 69 6b 65 20 47 6f 6c  |2)".by  Mike Gol|
00000450  64 66 69 6e 63 68 94 22  3a f1 8a 32 2c 31 37 29  |dfinch.":..2,17)|
00000460  22 94 36 22 3b 42 24 3b  22 69 22 8a 32 2c 31 38  |".6";B$;"i".2,18|
00000470  29 22 94 35 86 22 8a 33  37 2c 31 38 29 22 94 6a  |)".5.".37,18)".j|
00000480  22 8a 32 2c 31 39 29 22  94 65 22 3b 43 24 3b 22  |".2,19)".e";C$;"|
00000490  3a 22 0d 00 e6 3b ef 32  38 2c 35 2c 31 38 2c 33  |:"...;.28,5,18,3|
000004a0  36 2c 31 38 2c 37 2c 31  32 3a f1 22 88 ff 89 83  |6,18,7,12:."....|
000004b0  49 6e 69 74 69 61 6c 69  73 69 6e 67 3a 82 70 6c  |Initialising:.pl|
000004c0  65 61 73 65 20 77 61 69  74 22 3b 3a e1 0d 00 f0  |ease wait";:....|
000004d0  59 dd f2 46 3a f2 42 28  32 29 3a db 3a e7 49 25  |Y..F:.B(2):.:.I%|
000004e0  3c 32 f1 22 82 42 42 43  20 42 22 3b 3a 8b e7 49  |<2.".BBC B";:..I|
000004f0  25 3d 32 34 35 f1 22 86  43 4f 4d 50 41 43 54 22  |%=245.".COMPACT"|
00000500  3b 3a 8b e7 49 25 3d 32  35 33 f1 22 81 4d 41 53  |;:..I%=253.".MAS|
00000510  54 45 52 22 3b 3a 8b e7  49 25 3d 31 36 30 f1 22  |TER";:..I%=160."|
00000520  83 41 52 43 22 3b 0d 00  fa 2a e7 49 25 3d 31 36  |.ARC";...*.I%=16|
00000530  30 20 80 90 3c 3e 26 31  39 30 30 20 90 3d 26 31  |0 ..<>&1900 .=&1|
00000540  39 30 30 3a d7 22 43 4f  4c 4f 55 52 31 22 3a e0  |900:."COLOUR1":.|
00000550  0d 01 04 38 45 25 3d 26  31 31 30 30 3a 53 25 3d  |...8E%=&1100:S%=|
00000560  42 25 2b 32 36 34 3a f1  22 83 6d 63 20 26 22 3b  |B%+264:.".mc &";|
00000570  7e 42 25 3b 22 85 64 61  74 61 20 26 22 3b 7e 45  |~B%;".data &";~E|
00000580  25 3b 3a f2 42 28 35 29  0d 01 0e 24 4c 25 3d 30  |%;:.B(5)...$L%=0|
00000590  3a e7 49 25 3d 31 36 30  f2 73 73 3a 4c 25 3d b9  |:.I%=160.ss:L%=.|
000005a0  3a 56 25 3d 26 31 46 44  38 30 30 30 0d 01 18 28  |:V%=&1FD8000...(|
000005b0  db 3a f1 22 83 4c 6f 61  64 69 6e 67 87 43 6f 6c  |.:.".Loading.Col|
000005c0  6f 75 72 32 2e 22 3b 3a  d7 22 43 6f 6c 6f 75 72  |our2.";:."Colour|
000005d0  32 22 3a e1 0d 01 22 34  dd f2 48 3a ef 37 2c 31  |2":..."4..H:.7,1|
000005e0  32 3a f1 22 88 81 9d 86  ff 89 54 75 72 6e 20 6f  |2:."......Turn o|
000005f0  66 83 54 55 42 45 86 26  20 72 65 72 75 6e 88 ff  |f.TUBE.& rerun..|
00000600  89 9c 22 3b 3a e0 3a e1  0d 01 2c bc dd f2 61 72  |..";:.:...,...ar|
00000610  63 20 ef 32 36 2c 37 3a  f1 27 22 9d 94 24 84 41  |c .26,7:.'"..$.A|
00000620  72 63 68 69 6d 65 64 65  73 20 75 73 65 72 73 3a  |rchimedes users:|
00000630  20 20 9c 22 27 27 22 83  43 6f 6c 6f 75 72 20 70  |  ."''".Colour p|
00000640  72 69 6e 74 87 72 65 71  75 69 72 65 73 86 36 35  |rint.requires.65|
00000650  30 32 20 65 6d 75 6c 61  74 6f 72 22 27 27 22 82  |02 emulator"''".|
00000660  6b 65 79 87 43 54 52 4c  2b 42 52 45 41 4b 22 27  |key.CTRL+BREAK"'|
00000670  22 82 74 79 70 65 87 51  55 49 54 82 6b 65 79 87  |".type.QUIT.key.|
00000680  52 45 54 55 52 4e 22 27  22 83 49 6e 73 65 72 74  |RETURN"'".Insert|
00000690  86 57 65 6c 63 6f 6d 65  20 64 69 73 63 22 27 22  |.Welcome disc"'"|
000006a0  82 74 79 70 65 87 24 2e  4d 6f 64 75 6c 65 73 2e  |.type.$.Modules.|
000006b0  36 35 41 72 74 68 75 72  82 6b 65 79 87 52 45 54  |65Arthur.key.RET|
000006c0  55 52 4e 22 0d 01 36 e5  f1 22 83 69 6e 73 65 72  |URN"..6..".inser|
000006d0  74 86 43 6f 6c 6f 75 72  20 70 72 69 6e 74 20 64  |t.Colour print d|
000006e0  69 73 63 22 27 22 82 74  79 70 65 87 43 48 41 49  |isc"'".type.CHAI|
000006f0  4e 22 22 43 4f 4c 4f 55  52 31 22 22 82 6b 65 79  |N""COLOUR1"".key|
00000700  87 52 45 54 55 52 4e 22  27 27 22 97 24 86 43 6f  |.RETURN"''".$.Co|
00000710  6c 6f 75 72 20 70 72 69  6e 74 20 77 69 6c 6c 20  |lour print will |
00000720  2a 4c 4f 41 44 20 61 20  73 63 72 65 65 6e 22 27  |*LOAD a screen"'|
00000730  22 86 64 69 72 65 63 74  6c 79 20 74 6f 20 73 63  |".directly to sc|
00000740  72 65 65 6e 20 6d 65 6d  6f 72 79 20 74 68 75 73  |reen memory thus|
00000750  20 6f 6e 6c 79 22 27 22  86 4d 6f 64 65 20 31 2c  | only"'".Mode 1,|
00000760  32 2c 34 20 6f 72 20 35  20 73 63 72 65 65 6e 73  |2,4 or 5 screens|
00000770  83 69 6e 20 41 72 63 68  69 6d 65 64 65 73 22 27  |.in Archimedes"'|
00000780  22 83 66 6f 72 6d 61 74  86 63 61 6e 20 62 65 20  |".format.can be |
00000790  75 73 65 64 5f 20 73 63  72 65 65 6e 73 20 73 61  |used_ screens sa|
000007a0  76 65 64 20 6f 6e 20 61  22 0d 01 40 9d f1 22 86  |ved on a"..@..".|
000007b0  42 42 43 20 42 2f 4d 41  53 54 45 52 20 68 61 76  |BBC B/MASTER hav|
000007c0  65 20 61 20 64 69 66 66  65 72 65 6e 74 20 66 6f  |e a different fo|
000007d0  72 6d 61 74 2e 22 27 27  22 97 24 82 54 68 65 20  |rmat."''".$.The |
000007e0  73 63 72 65 65 6e 20 6d  75 73 74 20 68 61 76 65  |screen must have|
000007f0  20 62 65 65 6e 20 73 61  76 65 64 20 75 73 69 6e  | been saved usin|
00000800  67 87 87 2a 53 41 56 45  82 72 61 74 68 65 72 20  |g..*SAVE.rather |
00000810  74 68 61 6e 87 2a 53 43  52 45 45 4e 53 41 56 45  |than.*SCREENSAVE|
00000820  2e 22 3a ef 37 3a ff 22  46 58 34 22 3a ff 22 46  |.":.7:."FX4":."F|
00000830  58 32 32 39 22 3a ff 22  46 58 32 32 30 2c 32 37  |X229":."FX220,27|
00000840  22 3a 4c 25 3d b9 0d 01  45 39 f2 73 73 3a f1 22  |":L%=...E9.ss:."|
00000850  86 56 25 20 3d 20 22 3b  7e 56 25 27 22 86 41 6c  |.V% = ";~V%'".Al|
00000860  74 65 72 20 6c 69 6e 65  20 32 37 30 20 69 66 20  |ter line 270 if |
00000870  56 25 20 3c 3e 20 26 31  46 44 38 30 30 30 22 0d  |V% <> &1FD8000".|
00000880  01 4a 4c dd f2 73 73 20  4c 25 3d b9 3a 51 25 3d  |.JL..ss L%=.:Q%=|
00000890  28 52 25 81 55 25 29 2a  55 25 3a 56 25 3d 51 25  |(R%.U%)*U%:V%=Q%|
000008a0  2b 26 31 30 3a 21 28 51  25 2b 55 25 29 3d b9 3a  |+&10:!(Q%+U%)=.:|
000008b0  21 51 25 3d 26 39 34 3a  c8 99 34 39 2c 51 25 2c  |!Q%=&94:..49,Q%,|
000008c0  56 25 3a 56 25 3d 21 56  25 3a e1 0d 01 54 5c dd  |V%:V%=!V%:...T\.|
000008d0  f2 43 3a e7 90 3d 26 31  39 30 30 20 e1 20 8b e7  |.C:..=&1900 . ..|
000008e0  a6 2d 32 35 36 3d 31 36  30 20 80 90 3d 26 38 46  |.-256=160 ..=&8F|
000008f0  30 30 20 f2 61 72 63 20  8b ef 37 3a f1 8a 30 2c  |00 .arc ..7:..0,|
00000900  31 32 29 22 84 9d 83 ff  82 50 41 47 45 20 6e 6f  |12)".....PAGE no|
00000910  74 20 3d 86 26 31 39 30  30 87 ff 20 52 65 6c 6f  |t =.&1900.. Relo|
00000920  61 64 69 6e 67 2e 22 0d  01 5e 18 d0 3d 26 31 39  |ading."..^..=&19|
00000930  30 30 3a d7 22 43 6f 6c  6f 75 72 31 22 3a e1 0d  |00:."Colour1":..|
00000940  01 68 59 dd f2 49 3a 4f  3d 26 37 33 3a 50 3d 26  |.hY..I:O=&73:P=&|
00000950  37 34 3a 46 3d 26 38 30  3a 51 3d 26 38 31 3a 43  |74:F=&80:Q=&81:C|
00000960  3d 26 38 32 3a 47 3d 26  38 33 3a 52 3d 26 38 34  |=&82:G=&83:R=&84|
00000970  3a 53 3d 26 38 35 3a 4b  3d 26 38 36 3a 54 3d 26  |:S=&85:K=&86:T=&|
00000980  38 37 3a 60 3d 26 38 38  3a e3 54 25 3d 30 b8 32  |87:`=&88:.T%=0.2|
00000990  88 32 3a 50 25 3d 42 25  0d 01 72 95 5b 4f 50 54  |.2:P%=B%..r.[OPT|
000009a0  54 25 3a 4a 53 52 61 3a  4a 53 52 55 3a 4a 53 52  |T%:JSRa:JSRU:JSR|
000009b0  62 3a 4a 53 52 44 3a 2e  49 20 4a 53 52 63 3a 2e  |b:JSRD:.I JSRc:.|
000009c0  56 20 4a 53 52 64 3a 4c  44 41 52 3a 43 4d 50 4f  |V JSRd:LDAR:CMPO|
000009d0  3a 42 45 51 48 3a 43 4d  50 60 3a 43 4c 43 3a 42  |:BEQH:CMP`:CLC:B|
000009e0  4e 45 65 3a 53 45 43 3a  2e 65 20 52 4f 52 54 3a  |NEe:SEC:.e RORT:|
000009f0  4a 53 52 57 3a 44 45 43  4b 3a 4c 44 41 4b 3a 42  |JSRW:DECK:LDAK:B|
00000a00  4e 45 56 3a 4a 53 52 70  3a 4a 53 52 70 3a 4a 53  |NEV:JSRp:JSRp:JS|
00000a10  52 45 3a 4a 53 52 58 3a  4a 4d 50 49 3a 2e 70 20  |RE:JSRX:JMPI:.p |
00000a20  4c 44 41 54 3a 4a 53 52  41 3a 52 54 53 0d 01 7c  |LDAT:JSRA:RTS..||
00000a30  e4 2e 63 20 4c 44 41 23  38 3a 53 54 41 4b 3a 52  |..c LDA#8:STAK:R|
00000a40  54 53 3a 2e 64 20 4c 44  41 23 39 3a 4c 44 58 23  |TS:.d LDA#9:LDX#|
00000a50  46 3a 4c 44 59 23 30 3a  4a 53 52 26 46 46 46 31  |F:LDY#0:JSR&FFF1|
00000a60  3a 52 54 53 3a 2e 58 20  43 4c 43 3a 4c 44 41 46  |:RTS:.X CLC:LDAF|
00000a70  3a 41 44 43 23 34 3a 53  54 41 46 3a 42 43 53 4d  |:ADC#4:STAF:BCSM|
00000a80  3a 52 54 53 3a 2e 4d 20  49 4e 43 51 3a 52 54 53  |:RTS:.M INCQ:RTS|
00000a90  3a 2e 45 20 53 45 43 3a  4c 44 41 43 3a 53 42 43  |:.E SEC:LDAC:SBC|
00000aa0  23 31 36 3a 53 54 41 43  3a 42 43 43 5a 3a 52 54  |#16:STAC:BCCZ:RT|
00000ab0  53 3a 2e 5a 20 44 45 43  47 3a 52 54 53 3a 2e 57  |S:.Z DECG:RTS:.W|
00000ac0  20 43 4c 43 3a 4c 44 41  43 3a 41 44 43 23 32 3a  | CLC:LDAC:ADC#2:|
00000ad0  53 54 41 43 3a 42 43 53  4e 3a 52 54 53 3a 2e 4e  |STAC:BCSN:RTS:.N|
00000ae0  20 49 4e 43 47 3a 52 54  53 3a 2e 48 20 4a 53 52  | INCG:RTS:.H JSR|
00000af0  44 3a 4a 53 52 42 3a 4a  53 52 45 3a 4c 44 41 47  |D:JSRB:JSRE:LDAG|
00000b00  3a 43 4d 50 26 37 33 3a  42 4e 45 49 3a 4a 4d 50  |:CMP&73:BNEI:JMP|
00000b10  5f 0d 01 86 f2 2e 42 20  4c 44 41 23 30 3a 53 54  |_.....B LDA#0:ST|
00000b20  41 46 3a 53 54 41 51 3a  52 54 53 3a 2e 55 20 4c  |AF:STAQ:RTS:.U L|
00000b30  44 41 23 32 37 3a 4a 53  52 41 3a 4c 44 41 23 35  |DA#27:JSRA:LDA#5|
00000b40  31 3a 4a 53 52 41 3a 4c  44 41 23 32 34 3a 4a 53  |1:JSRA:LDA#24:JS|
00000b50  52 41 3a 52 54 53 3a 2e  61 3a 4c 44 41 23 32 3a  |RA:RTS:.a:LDA#2:|
00000b60  4a 53 52 26 46 46 45 45  3a 4c 44 41 23 32 37 3a  |JSR&FFEE:LDA#27:|
00000b70  4a 53 52 41 3a 4c 44 41  23 36 34 3a 4a 53 52 41  |JSRA:LDA#64:JSRA|
00000b80  3a 52 54 53 3a 2e 62 20  4a 53 52 42 3a 4c 44 41  |:RTS:.b JSRB:LDA|
00000b90  23 26 46 30 3a 53 54 41  43 3a 4c 44 41 23 33 3a  |#&F0:STAC:LDA#3:|
00000ba0  53 54 41 47 3a 52 54 53  3a 2e 41 20 53 54 41 53  |STAG:RTS:.A STAS|
00000bb0  3a 4c 44 41 23 31 3a 4a  53 52 26 46 46 45 45 3a  |:LDA#1:JSR&FFEE:|
00000bc0  4c 44 41 53 3a 4a 53 52  26 46 46 45 45 3a 52 54  |LDAS:JSR&FFEE:RT|
00000bd0  53 3a 2e 44 20 4c 44 41  23 26 41 3a 4a 53 52 41  |S:.D LDA#&A:JSRA|
00000be0  3a 4c 44 41 23 32 37 3a  4a 53 52 41 3a 4c 44 41  |:LDA#27:JSRA:LDA|
00000bf0  23 34 32 3a 4a 53 52 41  3a 4c 44 41 23 34 3a 4a  |#42:JSRA:LDA#4:J|
00000c00  53 52 41 0d 01 90 ee 4c  44 41 23 31 32 38 3a 4a  |SRA....LDA#128:J|
00000c10  53 52 41 3a 4c 44 41 23  32 3a 4a 53 52 41 3a 52  |SRA:LDA#2:JSRA:R|
00000c20  54 53 3a 2e 5f 3a 4c 44  58 23 26 41 30 3a 4c 44  |TS:._:LDX#&A0:LD|
00000c30  59 23 34 3a 2e 4c 4c 3a  4c 44 41 23 30 3a 4a 53  |Y#4:.LL:LDA#0:JS|
00000c40  52 41 3a 44 45 58 3a 42  4e 45 4c 4c 3a 4c 44 58  |RA:DEX:BNELL:LDX|
00000c50  23 26 41 30 3a 44 45 59  3a 42 4e 45 4c 4c 3a 4c  |#&A0:DEY:BNELL:L|
00000c60  44 59 23 26 43 3a 2e 66  20 4c 44 41 23 26 41 3a  |DY#&C:.f LDA#&A:|
00000c70  4a 53 52 41 3a 44 45 59  3a 43 50 59 23 33 3a 42  |JSRA:DEY:CPY#3:B|
00000c80  43 53 66 3a 4c 44 41 23  33 3a 4a 53 52 26 46 46  |CSf:LDA#3:JSR&FF|
00000c90  45 45 3a 52 54 53 3a 4c  44 58 50 3a 4c 44 59 23  |EE:RTS:LDXP:LDY#|
00000ca0  30 3a 53 54 59 26 37 35  3a 53 54 59 26 37 37 3a  |0:STY&75:STY&77:|
00000cb0  2e 4a 20 4c 44 41 28 26  37 35 29 2c 59 3a 53 54  |.J LDA(&75),Y:ST|
00000cc0  41 28 26 37 37 29 2c 59  3a 49 4e 59 3a 42 4e 45  |A(&77),Y:INY:BNE|
00000cd0  4a 3a 49 4e 43 26 37 36  3a 49 4e 43 26 37 38 3a  |J:INC&76:INC&78:|
00000ce0  44 45 58 3a 42 4e 45 4a  3a 52 54 53 3a 5d ed 3a  |DEX:BNEJ:RTS:].:|
00000cf0  e1 0d 01 9a 26 2a 7c 22  81 9d 97 24 83 43 4f 4c  |....&*|"...$.COL|
00000d00  4f 55 52 31 87 76 2e 38  2e 38 41 82 31 35 2e 30  |OUR1.v.8.8A.15.0|
00000d10  31 2e 38 39 20 20 9c 0d  ff                       |1.89  ...|
00000d19
20-01-89/Colour1.m0
20-01-89/Colour1.m1
20-01-89/Colour1.m2
20-01-89/Colour1.m4
20-01-89/Colour1.m5