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