Home » CEEFAX disks » telesoftware14.adl » 12-03-89/Instr

12-03-89/Instr

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: 12-03-89/Instr
Read OK:
File size: 1132 bytes
Load address: FFFF0E00
Exec address: FFFF802B
File contents
   10MODE7:VDU23;10,1;0;0;0;23;8,144,0;0;0;23;9,9,0;0;0;23;10,&69,0;0;0;23;8202;0;0;0;:*FX210,1
   20PROCb
   30END
   40DEFPROCA(X,Y,O$):PRINTTAB(X,Y);:FORP=1TOLENO$:VDU32:PRINTMID$(O$,P,1);:FORR=1TO120:NEXTR:VDU8,8:PRINTMID$(O$,P,1);:SOUND0,-7,253,1:NEXTP:VDU9,127:ENDPROC
   50DEFPROCb:VDU28,0,23,39,0,12:FORA=0TO1:PRINTCHR$129CHR$157CHR$131CHR$141SPC6"TELESYS INSTRUCTIONS":NEXTA:PRINTTAB(0,23)CHR$129CHR$157CHR$131SPC7"CevaSoft Software 1988";:VDU28,0,22,39,2,12
   60O$="Telesys was originally designed as a    general duty Teletext creator/editor andfor creating and using�Communitel�pages.":PROCA(0,3,O$)
   70O$="The Telesys has been written in�BASIC�sothat you may modify if you require but":PROCA(0,7,O$)
   80O$="please take note of its structure and   the way it behaves. Any massive changes are liable to stop the program completly":PROCA(0,9,O$)
   90O$="�A.�TeleSys Keystrip infomation":PROCA(3,14,O$):O$="�B.�TeleSys Functions":PROCA(3,15,O$):O$="�C.�Exit to main menu":PROCA(3,16,O$)
  100P=GET
  110IF P=65 THEN PROCkey
  120IF P=97 THEN PROCkey
  130IF P=66 THEN PROCfun
  140IF P=98 THEN PROCfun
  150IF P=67 THEN CHAIN"Menu"
  160IF P=99 THEN CHAIN"Menu"
  170GOTO100
  180END
  190DEFPROCkey
  200VDU28,0,24,39,0,12:FORA=0TO1:PRINTCHR$132CHR$157CHR$131CHR$141SPC6"Keystrip instructions":NEXTA
  210O$="�Functions only":PROCA(0,3,O$)
  220O$=" f0 normal height (140)":PROCA(0,6,O$):O$="�f1�double height (141)":PROCA(0,7,O$):O$="�f2�black background (156)":PROCA(0,8,O$):O$="�f3�new background (157)":PROCA(0,9,O$):O$="�f4�hold graphics (158)":PROCA(0,10,O$)
  230O$="�f5�release graphics (159)":PROCA(0,11,O$):O$="�f6�AUTOMATIC DOUBLE HEIGHT":PROCA(0,12,O$):O$=" f7 AUTOMATIC NEW COLOURED BACKGROUNDS":PROCA(0,13,O$):O$=" f8 LOAD SCREEN":PROCA(0,14,O$):O$=" f9 SAVE SCREEN":PROCA(0,15,O$)
  240O$=" Syntax for functions:":PROCA(0,17,O$)
  250O$="�f6<text/graphics>":PROCA(0,19,O$):O$="�f7<every press= new colour cycle>":PROCA(0,20,O$):O$="�f8<prompt for Y/N then title>":PROCA(0,21,O$):O$="�f9<prompt for Y/N then title>":PROCA(0,22,O$)
  260PRINTTAB(7,23)"Press space to continue":A=GET:IF A=32THEN GOTO270 ELSE GOTO260
  270VDU28,0,24,39,0,12:FORA=0TO1:PRINTCHR$132CHR$157CHR$131CHR$141SPC6"Keystrip instructions":NEXTA:O$="�Shift-functions":PROCA(0,3,O$)
  280O$=" f0 AUTOREVEAL":PROCA(0,6,O$):O$="�f1�A.Red (text)":PROCA(0,7,O$):O$="�f2�A.Green (text)":PROCA(0,8,O$):O$="�f3�A.Yellow (text)":PROCA(0,9,O$):O$="�f4�A.blue (text)":PROCA(0,10,O$)
  290O$="�f5�A.Magenta (text)":PROCA(0,11,O$):O$="�f6�A.Cyan (text)":PROCA(0,12,O$):O$=" f7 A.White (text)":PROCA(0,13,O$):O$=" f8 Flash":PROCA(0,14,O$):O$=" f9 Steady":PROCA(0,15,O$)
  300O$=" Syntax for functions:":PROCA(0,17,O$):O$="�f0<revealing/press any key>":PROCA(0,19,O$):PRINTTAB(7,23)"Press space to continue":A=GET:IF A=32THEN GOTO310 ELSE GOTO300
  310VDU28,0,24,39,0,12:FORA=0TO1:PRINTCHR$132CHR$157CHR$131CHR$141SPC6"Keystrip instructions":NEXTA:O$="�Ctrl-functions":PROCA(0,3,O$)
  320O$=" f0 G.Red (graphic)":PROCA(0,6,O$):O$="�f1�G.Green (graphic)":PROCA(0,7,O$):O$="�f2�G.Yellow (graphic)":PROCA(0,8,O$):O$="�f3�G.Blue (graphic)":PROCA(0,9,O$):O$="�f4�G.Magenta (graphic)":PROCA(0,10,O$)
  330O$="�f5�G.Cyan (graphic)":PROCA(0,11,O$):O$="�f6�G.White (graphic)":PROCA(0,12,O$):O$=" f7 Conceal display":PROCA(0,13,O$):O$=" f8 Cont' Graphics":PROCA(0,14,O$):O$=" f9 Sept' Graphics":PROCA(0,15,O$)
  340PRINTTAB(7,23)"Press space to continue":A=GET:IF A=32THEN GOTO350 ELSE GOTO340
  350VDU28,0,24,39,0,12:FORA=0TO1:PRINTCHR$132CHR$157CHR$131CHR$141SPC6"Keystrip instructions":NEXTA:O$="�Shift/Ctrl-functions":PROCA(0,3,O$)
  360O$=" f0 Exchange codes":PROCA(0,6,O$):O$="�f1�Not used":PROCA(0,7,O$):O$="�f2�Not used":PROCA(0,8,O$):O$="�f3�Not used":PROCA(0,9,O$):O$="�f4�Not used":PROCA(0,10,O$):O$="�f5�Not used":PROCA(0,11,O$)
  370O$="�f6�Erase screen up":PROCA(0,12,O$):O$=" f7 Erase screen down":PROCA(0,13,O$):O$=" f8 Wipe entire screen":PROCA(0,14,O$):O$=" f9 OS cmd's":PROCA(0,15,O$)
  380O$=" Syntax for functions:":PROCA(0,17,O$):O$="�f0<old code><new code>":PROCA(0,19,O$):O$="�f6<Erase up Y/N from cursor X,Y>":PROCA(0,20,O$):O$="�f7<Erase down Y/N from cursor X,Y>":PROCA(0,21,O$):O$="�f8<Wipe YES/N>":PROCA(0,22,O$)
  390O$="�f9<OS Cmd (*TTX to exit>":PROCA(0,23,O$):A=GET:IF A=32THEN PROCb
  400ENDPROC
  410DEFPROCfun
  420VDU28,0,24,39,0,12:FORA=0TO1:PRINTCHR$132CHR$157CHR$131CHR$141SPC7"Keyboard functions":NEXTA
  430O$=" The editor has several functions that   are called from the keyboard using one  or more keys. This section will outline these keys.":PROCA(0,4,O$)
  440O$="�Cursors�= move cursor                  �Shift/Cursors�= Copy in direction      �Ctrl/Cursors�= Move to corner direction�Sh/Ct/Cursors�= Erase line/column":PROCA(0,9,O$)
  450O$="�TAB�= Toggle�Charactor/QWASZX�modes    �COPY�= produce a���charactor           �RETURN�= cursor 00/00":PROCA(0,14,O$)
  460O$="�R�= Reverse Pixels in�QWASZX�mode":PROCA(0,17,O$)
  470O$="�QWASZX�= pixel definer":PROCA(0,18,O$)
  480PRINTTAB(0,20)" To leave the Telesys program you just"'" press BREAK.":A=GET:IF A=32 THEN PROCb:ENDPROC
  490ENDPROC

Y�7:�23;10,1;0;0;0;23;8,144,0;0;0;23;9,9,0;0;0;23;10,&69,0;0;0;23;8202;0;0;0;:*FX210,1
�b
�
(c��A(X,Y,O$):�X,Y);:�P=1��O$:�32:�O$,P,1);:�R=1�120:�R:�8,8:�O$,P,1);:�0,-7,253,1:�P:�9,127:�
2���b:�28,0,23,39,0,12:�A=0�1:�129�157�131�141�6"TELESYS INSTRUCTIONS":�A:�0,23)�129�157�131�7"CevaSoft Software 1988";:�28,0,22,39,2,12
<�O$="Telesys was originally designed as a    general duty Teletext creator/editor andfor creating and using�Communitel�pages.":�A(0,3,O$)
FbO$="The Telesys has been written in�BASIC�sothat you may modify if you require but":�A(0,7,O$)
P�O$="please take note of its structure and   the way it behaves. Any massive changes are liable to stop the program completly":�A(0,9,O$)
Z�O$="�A.�TeleSys Keystrip infomation":�A(3,14,O$):O$="�B.�TeleSys Functions":�A(3,15,O$):O$="�C.�Exit to main menu":�A(3,16,O$)
dP=�
n� P=65 � �key
x� P=97 � �key
�� P=66 � �fun
�� P=98 � �fun
�� P=67 � �"Menu"
�� P=99 � �"Menu"
�	�Dd@
��
�	��key
�I�28,0,24,39,0,12:�A=0�1:�132�157�131�141�6"Keystrip instructions":�A
�#O$="�Functions only":�A(0,3,O$)
��O$=" f0 normal height (140)":�A(0,6,O$):O$="�f1�double height (141)":�A(0,7,O$):O$="�f2�black background (156)":�A(0,8,O$):O$="�f3�new background (157)":�A(0,9,O$):O$="�f4�hold graphics (158)":�A(0,10,O$)
��O$="�f5�release graphics (159)":�A(0,11,O$):O$="�f6�AUTOMATIC DOUBLE HEIGHT":�A(0,12,O$):O$=" f7 AUTOMATIC NEW COLOURED BACKGROUNDS":�A(0,13,O$):O$=" f8 LOAD SCREEN":�A(0,14,O$):O$=" f9 SAVE SCREEN":�A(0,15,O$)
�+O$=" Syntax for functions:":�A(0,17,O$)
��O$="�f6<text/graphics>":�A(0,19,O$):O$="�f7<every press= new colour cycle>":�A(0,20,O$):O$="�f8<prompt for Y/N then title>":�A(0,21,O$):O$="�f9<prompt for Y/N then title>":�A(0,22,O$)
>�7,23)"Press space to continue":A=�:� A=32� �TNA � �TDA
j�28,0,24,39,0,12:�A=0�1:�132�157�131�141�6"Keystrip instructions":�A:O$="�Shift-functions":�A(0,3,O$)
�O$=" f0 AUTOREVEAL":�A(0,6,O$):O$="�f1�A.Red (text)":�A(0,7,O$):O$="�f2�A.Green (text)":�A(0,8,O$):O$="�f3�A.Yellow (text)":�A(0,9,O$):O$="�f4�A.blue (text)":�A(0,10,O$)
"�O$="�f5�A.Magenta (text)":�A(0,11,O$):O$="�f6�A.Cyan (text)":�A(0,12,O$):O$=" f7 A.White (text)":�A(0,13,O$):O$=" f8 Flash":�A(0,14,O$):O$=" f9 Steady":�A(0,15,O$)
,�O$=" Syntax for functions:":�A(0,17,O$):O$="�f0<revealing/press any key>":�A(0,19,O$):�7,23)"Press space to continue":A=�:� A=32� �TvA � �TlA
6i�28,0,24,39,0,12:�A=0�1:�132�157�131�141�6"Keystrip instructions":�A:O$="�Ctrl-functions":�A(0,3,O$)
@�O$=" f0 G.Red (graphic)":�A(0,6,O$):O$="�f1�G.Green (graphic)":�A(0,7,O$):O$="�f2�G.Yellow (graphic)":�A(0,8,O$):O$="�f3�G.Blue (graphic)":�A(0,9,O$):O$="�f4�G.Magenta (graphic)":�A(0,10,O$)
J�O$="�f5�G.Cyan (graphic)":�A(0,11,O$):O$="�f6�G.White (graphic)":�A(0,12,O$):O$=" f7 Conceal display":�A(0,13,O$):O$=" f8 Cont' Graphics":�A(0,14,O$):O$=" f9 Sept' Graphics":�A(0,15,O$)
T>�7,23)"Press space to continue":A=�:� A=32� �D^A � �DTA
^o�28,0,24,39,0,12:�A=0�1:�132�157�131�141�6"Keystrip instructions":�A:O$="�Shift/Ctrl-functions":�A(0,3,O$)
h�O$=" f0 Exchange codes":�A(0,6,O$):O$="�f1�Not used":�A(0,7,O$):O$="�f2�Not used":�A(0,8,O$):O$="�f3�Not used":�A(0,9,O$):O$="�f4�Not used":�A(0,10,O$):O$="�f5�Not used":�A(0,11,O$)
r�O$="�f6�Erase screen up":�A(0,12,O$):O$=" f7 Erase screen down":�A(0,13,O$):O$=" f8 Wipe entire screen":�A(0,14,O$):O$=" f9 OS cmd's":�A(0,15,O$)
|�O$=" Syntax for functions:":�A(0,17,O$):O$="�f0<old code><new code>":�A(0,19,O$):O$="�f6<Erase up Y/N from cursor X,Y>":�A(0,20,O$):O$="�f7<Erase down Y/N from cursor X,Y>":�A(0,21,O$):O$="�f8<Wipe YES/N>":�A(0,22,O$)
�=O$="�f9<OS Cmd (*TTX to exit>":�A(0,23,O$):A=�:� A=32� �b
��
�	��fun
�F�28,0,24,39,0,12:�A=0�1:�132�157�131�141�7"Keyboard functions":�A
��O$=" The editor has several functions that   are called from the keyboard using one  or more keys. This section will outline these keys.":�A(0,4,O$)
��O$="�Cursors�= move cursor                  �Shift/Cursors�= Copy in direction      �Ctrl/Cursors�= Move to corner direction�Sh/Ct/Cursors�= Erase line/column":�A(0,9,O$)
�{O$="�TAB�= Toggle�Charactor/QWASZX�modes    �COPY�= produce a���charactor           �RETURN�= cursor 00/00":�A(0,14,O$)
�7O$="�R�= Reverse Pixels in�QWASZX�mode":�A(0,17,O$)
�,O$="�QWASZX�= pixel definer":�A(0,18,O$)
�U�0,20)" To leave the Telesys program you just"'" press BREAK.":A=�:� A=32 � �b:�
��
�
00000000  0d 00 0a 59 eb 37 3a ef  32 33 3b 31 30 2c 31 3b  |...Y.7:.23;10,1;|
00000010  30 3b 30 3b 30 3b 32 33  3b 38 2c 31 34 34 2c 30  |0;0;0;23;8,144,0|
00000020  3b 30 3b 30 3b 32 33 3b  39 2c 39 2c 30 3b 30 3b  |;0;0;23;9,9,0;0;|
00000030  30 3b 32 33 3b 31 30 2c  26 36 39 2c 30 3b 30 3b  |0;23;10,&69,0;0;|
00000040  30 3b 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |0;23;8202;0;0;0;|
00000050  3a 2a 46 58 32 31 30 2c  31 0d 00 14 06 f2 62 0d  |:*FX210,1.....b.|
00000060  00 1e 05 e0 0d 00 28 63  dd f2 41 28 58 2c 59 2c  |......(c..A(X,Y,|
00000070  4f 24 29 3a f1 8a 58 2c  59 29 3b 3a e3 50 3d 31  |O$):..X,Y);:.P=1|
00000080  b8 a9 4f 24 3a ef 33 32  3a f1 c1 4f 24 2c 50 2c  |..O$:.32:..O$,P,|
00000090  31 29 3b 3a e3 52 3d 31  b8 31 32 30 3a ed 52 3a  |1);:.R=1.120:.R:|
000000a0  ef 38 2c 38 3a f1 c1 4f  24 2c 50 2c 31 29 3b 3a  |.8,8:..O$,P,1);:|
000000b0  d4 30 2c 2d 37 2c 32 35  33 2c 31 3a ed 50 3a ef  |.0,-7,253,1:.P:.|
000000c0  39 2c 31 32 37 3a e1 0d  00 32 8c dd f2 62 3a ef  |9,127:...2...b:.|
000000d0  32 38 2c 30 2c 32 33 2c  33 39 2c 30 2c 31 32 3a  |28,0,23,39,0,12:|
000000e0  e3 41 3d 30 b8 31 3a f1  bd 31 32 39 bd 31 35 37  |.A=0.1:..129.157|
000000f0  bd 31 33 31 bd 31 34 31  89 36 22 54 45 4c 45 53  |.131.141.6"TELES|
00000100  59 53 20 49 4e 53 54 52  55 43 54 49 4f 4e 53 22  |YS INSTRUCTIONS"|
00000110  3a ed 41 3a f1 8a 30 2c  32 33 29 bd 31 32 39 bd  |:.A:..0,23).129.|
00000120  31 35 37 bd 31 33 31 89  37 22 43 65 76 61 53 6f  |157.131.7"CevaSo|
00000130  66 74 20 53 6f 66 74 77  61 72 65 20 31 39 38 38  |ft Software 1988|
00000140  22 3b 3a ef 32 38 2c 30  2c 32 32 2c 33 39 2c 32  |";:.28,0,22,39,2|
00000150  2c 31 32 0d 00 3c 8c 4f  24 3d 22 54 65 6c 65 73  |,12..<.O$="Teles|
00000160  79 73 20 77 61 73 20 6f  72 69 67 69 6e 61 6c 6c  |ys was originall|
00000170  79 20 64 65 73 69 67 6e  65 64 20 61 73 20 61 20  |y designed as a |
00000180  20 20 20 67 65 6e 65 72  61 6c 20 64 75 74 79 20  |   general duty |
00000190  54 65 6c 65 74 65 78 74  20 63 72 65 61 74 6f 72  |Teletext creator|
000001a0  2f 65 64 69 74 6f 72 20  61 6e 64 66 6f 72 20 63  |/editor andfor c|
000001b0  72 65 61 74 69 6e 67 20  61 6e 64 20 75 73 69 6e  |reating and usin|
000001c0  67 83 43 6f 6d 6d 75 6e  69 74 65 6c 87 70 61 67  |g.Communitel.pag|
000001d0  65 73 2e 22 3a f2 41 28  30 2c 33 2c 4f 24 29 0d  |es.":.A(0,3,O$).|
000001e0  00 46 62 4f 24 3d 22 54  68 65 20 54 65 6c 65 73  |.FbO$="The Teles|
000001f0  79 73 20 68 61 73 20 62  65 65 6e 20 77 72 69 74  |ys has been writ|
00000200  74 65 6e 20 69 6e 83 42  41 53 49 43 87 73 6f 74  |ten in.BASIC.sot|
00000210  68 61 74 20 79 6f 75 20  6d 61 79 20 6d 6f 64 69  |hat you may modi|
00000220  66 79 20 69 66 20 79 6f  75 20 72 65 71 75 69 72  |fy if you requir|
00000230  65 20 62 75 74 22 3a f2  41 28 30 2c 37 2c 4f 24  |e but":.A(0,7,O$|
00000240  29 0d 00 50 8c 4f 24 3d  22 70 6c 65 61 73 65 20  |)..P.O$="please |
00000250  74 61 6b 65 20 6e 6f 74  65 20 6f 66 20 69 74 73  |take note of its|
00000260  20 73 74 72 75 63 74 75  72 65 20 61 6e 64 20 20  | structure and  |
00000270  20 74 68 65 20 77 61 79  20 69 74 20 62 65 68 61  | the way it beha|
00000280  76 65 73 2e 20 41 6e 79  20 6d 61 73 73 69 76 65  |ves. Any massive|
00000290  20 63 68 61 6e 67 65 73  20 61 72 65 20 6c 69 61  | changes are lia|
000002a0  62 6c 65 20 74 6f 20 73  74 6f 70 20 74 68 65 20  |ble to stop the |
000002b0  70 72 6f 67 72 61 6d 20  63 6f 6d 70 6c 65 74 6c  |program completl|
000002c0  79 22 3a f2 41 28 30 2c  39 2c 4f 24 29 0d 00 5a  |y":.A(0,9,O$)..Z|
000002d0  82 4f 24 3d 22 81 41 2e  87 54 65 6c 65 53 79 73  |.O$=".A..TeleSys|
000002e0  20 4b 65 79 73 74 72 69  70 20 69 6e 66 6f 6d 61  | Keystrip infoma|
000002f0  74 69 6f 6e 22 3a f2 41  28 33 2c 31 34 2c 4f 24  |tion":.A(3,14,O$|
00000300  29 3a 4f 24 3d 22 82 42  2e 87 54 65 6c 65 53 79  |):O$=".B..TeleSy|
00000310  73 20 46 75 6e 63 74 69  6f 6e 73 22 3a f2 41 28  |s Functions":.A(|
00000320  33 2c 31 35 2c 4f 24 29  3a 4f 24 3d 22 83 43 2e  |3,15,O$):O$=".C.|
00000330  87 45 78 69 74 20 74 6f  20 6d 61 69 6e 20 6d 65  |.Exit to main me|
00000340  6e 75 22 3a f2 41 28 33  2c 31 36 2c 4f 24 29 0d  |nu":.A(3,16,O$).|
00000350  00 64 07 50 3d a5 0d 00  6e 11 e7 20 50 3d 36 35  |.d.P=...n.. P=65|
00000360  20 8c 20 f2 6b 65 79 0d  00 78 11 e7 20 50 3d 39  | . .key..x.. P=9|
00000370  37 20 8c 20 f2 6b 65 79  0d 00 82 11 e7 20 50 3d  |7 . .key..... P=|
00000380  36 36 20 8c 20 f2 66 75  6e 0d 00 8c 11 e7 20 50  |66 . .fun..... P|
00000390  3d 39 38 20 8c 20 f2 66  75 6e 0d 00 96 14 e7 20  |=98 . .fun..... |
000003a0  50 3d 36 37 20 8c 20 d7  22 4d 65 6e 75 22 0d 00  |P=67 . ."Menu"..|
000003b0  a0 14 e7 20 50 3d 39 39  20 8c 20 d7 22 4d 65 6e  |... P=99 . ."Men|
000003c0  75 22 0d 00 aa 09 e5 8d  44 64 40 0d 00 b4 05 e0  |u"......Dd@.....|
000003d0  0d 00 be 09 dd f2 6b 65  79 0d 00 c8 49 ef 32 38  |......key...I.28|
000003e0  2c 30 2c 32 34 2c 33 39  2c 30 2c 31 32 3a e3 41  |,0,24,39,0,12:.A|
000003f0  3d 30 b8 31 3a f1 bd 31  33 32 bd 31 35 37 bd 31  |=0.1:..132.157.1|
00000400  33 31 bd 31 34 31 89 36  22 4b 65 79 73 74 72 69  |31.141.6"Keystri|
00000410  70 20 69 6e 73 74 72 75  63 74 69 6f 6e 73 22 3a  |p instructions":|
00000420  ed 41 0d 00 d2 23 4f 24  3d 22 83 46 75 6e 63 74  |.A...#O$=".Funct|
00000430  69 6f 6e 73 20 6f 6e 6c  79 22 3a f2 41 28 30 2c  |ions only":.A(0,|
00000440  33 2c 4f 24 29 0d 00 dc  d0 4f 24 3d 22 20 66 30  |3,O$)....O$=" f0|
00000450  20 6e 6f 72 6d 61 6c 20  68 65 69 67 68 74 20 28  | normal height (|
00000460  31 34 30 29 22 3a f2 41  28 30 2c 36 2c 4f 24 29  |140)":.A(0,6,O$)|
00000470  3a 4f 24 3d 22 81 66 31  87 64 6f 75 62 6c 65 20  |:O$=".f1.double |
00000480  68 65 69 67 68 74 20 28  31 34 31 29 22 3a f2 41  |height (141)":.A|
00000490  28 30 2c 37 2c 4f 24 29  3a 4f 24 3d 22 82 66 32  |(0,7,O$):O$=".f2|
000004a0  87 62 6c 61 63 6b 20 62  61 63 6b 67 72 6f 75 6e  |.black backgroun|
000004b0  64 20 28 31 35 36 29 22  3a f2 41 28 30 2c 38 2c  |d (156)":.A(0,8,|
000004c0  4f 24 29 3a 4f 24 3d 22  83 66 33 87 6e 65 77 20  |O$):O$=".f3.new |
000004d0  62 61 63 6b 67 72 6f 75  6e 64 20 28 31 35 37 29  |background (157)|
000004e0  22 3a f2 41 28 30 2c 39  2c 4f 24 29 3a 4f 24 3d  |":.A(0,9,O$):O$=|
000004f0  22 84 66 34 87 68 6f 6c  64 20 67 72 61 70 68 69  |".f4.hold graphi|
00000500  63 73 20 28 31 35 38 29  22 3a f2 41 28 30 2c 31  |cs (158)":.A(0,1|
00000510  30 2c 4f 24 29 0d 00 e6  d6 4f 24 3d 22 85 66 35  |0,O$)....O$=".f5|
00000520  87 72 65 6c 65 61 73 65  20 67 72 61 70 68 69 63  |.release graphic|
00000530  73 20 28 31 35 39 29 22  3a f2 41 28 30 2c 31 31  |s (159)":.A(0,11|
00000540  2c 4f 24 29 3a 4f 24 3d  22 86 66 36 87 41 55 54  |,O$):O$=".f6.AUT|
00000550  4f 4d 41 54 49 43 20 44  4f 55 42 4c 45 20 48 45  |OMATIC DOUBLE HE|
00000560  49 47 48 54 22 3a f2 41  28 30 2c 31 32 2c 4f 24  |IGHT":.A(0,12,O$|
00000570  29 3a 4f 24 3d 22 20 66  37 20 41 55 54 4f 4d 41  |):O$=" f7 AUTOMA|
00000580  54 49 43 20 4e 45 57 20  43 4f 4c 4f 55 52 45 44  |TIC NEW COLOURED|
00000590  20 42 41 43 4b 47 52 4f  55 4e 44 53 22 3a f2 41  | BACKGROUNDS":.A|
000005a0  28 30 2c 31 33 2c 4f 24  29 3a 4f 24 3d 22 20 66  |(0,13,O$):O$=" f|
000005b0  38 20 4c 4f 41 44 20 53  43 52 45 45 4e 22 3a f2  |8 LOAD SCREEN":.|
000005c0  41 28 30 2c 31 34 2c 4f  24 29 3a 4f 24 3d 22 20  |A(0,14,O$):O$=" |
000005d0  66 39 20 53 41 56 45 20  53 43 52 45 45 4e 22 3a  |f9 SAVE SCREEN":|
000005e0  f2 41 28 30 2c 31 35 2c  4f 24 29 0d 00 f0 2b 4f  |.A(0,15,O$)...+O|
000005f0  24 3d 22 20 53 79 6e 74  61 78 20 66 6f 72 20 66  |$=" Syntax for f|
00000600  75 6e 63 74 69 6f 6e 73  3a 22 3a f2 41 28 30 2c  |unctions:":.A(0,|
00000610  31 37 2c 4f 24 29 0d 00  fa bb 4f 24 3d 22 81 66  |17,O$)....O$=".f|
00000620  36 3c 74 65 78 74 2f 67  72 61 70 68 69 63 73 3e  |6<text/graphics>|
00000630  22 3a f2 41 28 30 2c 31  39 2c 4f 24 29 3a 4f 24  |":.A(0,19,O$):O$|
00000640  3d 22 81 66 37 3c 65 76  65 72 79 20 70 72 65 73  |=".f7<every pres|
00000650  73 3d 20 6e 65 77 20 63  6f 6c 6f 75 72 20 63 79  |s= new colour cy|
00000660  63 6c 65 3e 22 3a f2 41  28 30 2c 32 30 2c 4f 24  |cle>":.A(0,20,O$|
00000670  29 3a 4f 24 3d 22 82 66  38 3c 70 72 6f 6d 70 74  |):O$=".f8<prompt|
00000680  20 66 6f 72 20 59 2f 4e  20 74 68 65 6e 20 74 69  | for Y/N then ti|
00000690  74 6c 65 3e 22 3a f2 41  28 30 2c 32 31 2c 4f 24  |tle>":.A(0,21,O$|
000006a0  29 3a 4f 24 3d 22 82 66  39 3c 70 72 6f 6d 70 74  |):O$=".f9<prompt|
000006b0  20 66 6f 72 20 59 2f 4e  20 74 68 65 6e 20 74 69  | for Y/N then ti|
000006c0  74 6c 65 3e 22 3a f2 41  28 30 2c 32 32 2c 4f 24  |tle>":.A(0,22,O$|
000006d0  29 0d 01 04 3e f1 8a 37  2c 32 33 29 22 50 72 65  |)...>..7,23)"Pre|
000006e0  73 73 20 73 70 61 63 65  20 74 6f 20 63 6f 6e 74  |ss space to cont|
000006f0  69 6e 75 65 22 3a 41 3d  a5 3a e7 20 41 3d 33 32  |inue":A=.:. A=32|
00000700  8c 20 e5 8d 54 4e 41 20  8b 20 e5 8d 54 44 41 0d  |. ..TNA . ..TDA.|
00000710  01 0e 6a ef 32 38 2c 30  2c 32 34 2c 33 39 2c 30  |..j.28,0,24,39,0|
00000720  2c 31 32 3a e3 41 3d 30  b8 31 3a f1 bd 31 33 32  |,12:.A=0.1:..132|
00000730  bd 31 35 37 bd 31 33 31  bd 31 34 31 89 36 22 4b  |.157.131.141.6"K|
00000740  65 79 73 74 72 69 70 20  69 6e 73 74 72 75 63 74  |eystrip instruct|
00000750  69 6f 6e 73 22 3a ed 41  3a 4f 24 3d 22 83 53 68  |ions":.A:O$=".Sh|
00000760  69 66 74 2d 66 75 6e 63  74 69 6f 6e 73 22 3a f2  |ift-functions":.|
00000770  41 28 30 2c 33 2c 4f 24  29 0d 01 18 ad 4f 24 3d  |A(0,3,O$)....O$=|
00000780  22 20 66 30 20 41 55 54  4f 52 45 56 45 41 4c 22  |" f0 AUTOREVEAL"|
00000790  3a f2 41 28 30 2c 36 2c  4f 24 29 3a 4f 24 3d 22  |:.A(0,6,O$):O$="|
000007a0  81 66 31 87 41 2e 52 65  64 20 28 74 65 78 74 29  |.f1.A.Red (text)|
000007b0  22 3a f2 41 28 30 2c 37  2c 4f 24 29 3a 4f 24 3d  |":.A(0,7,O$):O$=|
000007c0  22 82 66 32 87 41 2e 47  72 65 65 6e 20 28 74 65  |".f2.A.Green (te|
000007d0  78 74 29 22 3a f2 41 28  30 2c 38 2c 4f 24 29 3a  |xt)":.A(0,8,O$):|
000007e0  4f 24 3d 22 83 66 33 87  41 2e 59 65 6c 6c 6f 77  |O$=".f3.A.Yellow|
000007f0  20 28 74 65 78 74 29 22  3a f2 41 28 30 2c 39 2c  | (text)":.A(0,9,|
00000800  4f 24 29 3a 4f 24 3d 22  84 66 34 87 41 2e 62 6c  |O$):O$=".f4.A.bl|
00000810  75 65 20 28 74 65 78 74  29 22 3a f2 41 28 30 2c  |ue (text)":.A(0,|
00000820  31 30 2c 4f 24 29 0d 01  22 a7 4f 24 3d 22 85 66  |10,O$)..".O$=".f|
00000830  35 87 41 2e 4d 61 67 65  6e 74 61 20 28 74 65 78  |5.A.Magenta (tex|
00000840  74 29 22 3a f2 41 28 30  2c 31 31 2c 4f 24 29 3a  |t)":.A(0,11,O$):|
00000850  4f 24 3d 22 86 66 36 87  41 2e 43 79 61 6e 20 28  |O$=".f6.A.Cyan (|
00000860  74 65 78 74 29 22 3a f2  41 28 30 2c 31 32 2c 4f  |text)":.A(0,12,O|
00000870  24 29 3a 4f 24 3d 22 20  66 37 20 41 2e 57 68 69  |$):O$=" f7 A.Whi|
00000880  74 65 20 28 74 65 78 74  29 22 3a f2 41 28 30 2c  |te (text)":.A(0,|
00000890  31 33 2c 4f 24 29 3a 4f  24 3d 22 20 66 38 20 46  |13,O$):O$=" f8 F|
000008a0  6c 61 73 68 22 3a f2 41  28 30 2c 31 34 2c 4f 24  |lash":.A(0,14,O$|
000008b0  29 3a 4f 24 3d 22 20 66  39 20 53 74 65 61 64 79  |):O$=" f9 Steady|
000008c0  22 3a f2 41 28 30 2c 31  35 2c 4f 24 29 0d 01 2c  |":.A(0,15,O$)..,|
000008d0  94 4f 24 3d 22 20 53 79  6e 74 61 78 20 66 6f 72  |.O$=" Syntax for|
000008e0  20 66 75 6e 63 74 69 6f  6e 73 3a 22 3a f2 41 28  | functions:":.A(|
000008f0  30 2c 31 37 2c 4f 24 29  3a 4f 24 3d 22 81 66 30  |0,17,O$):O$=".f0|
00000900  3c 72 65 76 65 61 6c 69  6e 67 2f 70 72 65 73 73  |<revealing/press|
00000910  20 61 6e 79 20 6b 65 79  3e 22 3a f2 41 28 30 2c  | any key>":.A(0,|
00000920  31 39 2c 4f 24 29 3a f1  8a 37 2c 32 33 29 22 50  |19,O$):..7,23)"P|
00000930  72 65 73 73 20 73 70 61  63 65 20 74 6f 20 63 6f  |ress space to co|
00000940  6e 74 69 6e 75 65 22 3a  41 3d a5 3a e7 20 41 3d  |ntinue":A=.:. A=|
00000950  33 32 8c 20 e5 8d 54 76  41 20 8b 20 e5 8d 54 6c  |32. ..TvA . ..Tl|
00000960  41 0d 01 36 69 ef 32 38  2c 30 2c 32 34 2c 33 39  |A..6i.28,0,24,39|
00000970  2c 30 2c 31 32 3a e3 41  3d 30 b8 31 3a f1 bd 31  |,0,12:.A=0.1:..1|
00000980  33 32 bd 31 35 37 bd 31  33 31 bd 31 34 31 89 36  |32.157.131.141.6|
00000990  22 4b 65 79 73 74 72 69  70 20 69 6e 73 74 72 75  |"Keystrip instru|
000009a0  63 74 69 6f 6e 73 22 3a  ed 41 3a 4f 24 3d 22 83  |ctions":.A:O$=".|
000009b0  43 74 72 6c 2d 66 75 6e  63 74 69 6f 6e 73 22 3a  |Ctrl-functions":|
000009c0  f2 41 28 30 2c 33 2c 4f  24 29 0d 01 40 c2 4f 24  |.A(0,3,O$)..@.O$|
000009d0  3d 22 20 66 30 20 47 2e  52 65 64 20 28 67 72 61  |=" f0 G.Red (gra|
000009e0  70 68 69 63 29 22 3a f2  41 28 30 2c 36 2c 4f 24  |phic)":.A(0,6,O$|
000009f0  29 3a 4f 24 3d 22 81 66  31 87 47 2e 47 72 65 65  |):O$=".f1.G.Gree|
00000a00  6e 20 28 67 72 61 70 68  69 63 29 22 3a f2 41 28  |n (graphic)":.A(|
00000a10  30 2c 37 2c 4f 24 29 3a  4f 24 3d 22 82 66 32 87  |0,7,O$):O$=".f2.|
00000a20  47 2e 59 65 6c 6c 6f 77  20 28 67 72 61 70 68 69  |G.Yellow (graphi|
00000a30  63 29 22 3a f2 41 28 30  2c 38 2c 4f 24 29 3a 4f  |c)":.A(0,8,O$):O|
00000a40  24 3d 22 83 66 33 87 47  2e 42 6c 75 65 20 28 67  |$=".f3.G.Blue (g|
00000a50  72 61 70 68 69 63 29 22  3a f2 41 28 30 2c 39 2c  |raphic)":.A(0,9,|
00000a60  4f 24 29 3a 4f 24 3d 22  84 66 34 87 47 2e 4d 61  |O$):O$=".f4.G.Ma|
00000a70  67 65 6e 74 61 20 28 67  72 61 70 68 69 63 29 22  |genta (graphic)"|
00000a80  3a f2 41 28 30 2c 31 30  2c 4f 24 29 0d 01 4a bd  |:.A(0,10,O$)..J.|
00000a90  4f 24 3d 22 85 66 35 87  47 2e 43 79 61 6e 20 28  |O$=".f5.G.Cyan (|
00000aa0  67 72 61 70 68 69 63 29  22 3a f2 41 28 30 2c 31  |graphic)":.A(0,1|
00000ab0  31 2c 4f 24 29 3a 4f 24  3d 22 86 66 36 87 47 2e  |1,O$):O$=".f6.G.|
00000ac0  57 68 69 74 65 20 28 67  72 61 70 68 69 63 29 22  |White (graphic)"|
00000ad0  3a f2 41 28 30 2c 31 32  2c 4f 24 29 3a 4f 24 3d  |:.A(0,12,O$):O$=|
00000ae0  22 20 66 37 20 43 6f 6e  63 65 61 6c 20 64 69 73  |" f7 Conceal dis|
00000af0  70 6c 61 79 22 3a f2 41  28 30 2c 31 33 2c 4f 24  |play":.A(0,13,O$|
00000b00  29 3a 4f 24 3d 22 20 66  38 20 43 6f 6e 74 27 20  |):O$=" f8 Cont' |
00000b10  47 72 61 70 68 69 63 73  22 3a f2 41 28 30 2c 31  |Graphics":.A(0,1|
00000b20  34 2c 4f 24 29 3a 4f 24  3d 22 20 66 39 20 53 65  |4,O$):O$=" f9 Se|
00000b30  70 74 27 20 47 72 61 70  68 69 63 73 22 3a f2 41  |pt' Graphics":.A|
00000b40  28 30 2c 31 35 2c 4f 24  29 0d 01 54 3e f1 8a 37  |(0,15,O$)..T>..7|
00000b50  2c 32 33 29 22 50 72 65  73 73 20 73 70 61 63 65  |,23)"Press space|
00000b60  20 74 6f 20 63 6f 6e 74  69 6e 75 65 22 3a 41 3d  | to continue":A=|
00000b70  a5 3a e7 20 41 3d 33 32  8c 20 e5 8d 44 5e 41 20  |.:. A=32. ..D^A |
00000b80  8b 20 e5 8d 44 54 41 0d  01 5e 6f ef 32 38 2c 30  |. ..DTA..^o.28,0|
00000b90  2c 32 34 2c 33 39 2c 30  2c 31 32 3a e3 41 3d 30  |,24,39,0,12:.A=0|
00000ba0  b8 31 3a f1 bd 31 33 32  bd 31 35 37 bd 31 33 31  |.1:..132.157.131|
00000bb0  bd 31 34 31 89 36 22 4b  65 79 73 74 72 69 70 20  |.141.6"Keystrip |
00000bc0  69 6e 73 74 72 75 63 74  69 6f 6e 73 22 3a ed 41  |instructions":.A|
00000bd0  3a 4f 24 3d 22 83 53 68  69 66 74 2f 43 74 72 6c  |:O$=".Shift/Ctrl|
00000be0  2d 66 75 6e 63 74 69 6f  6e 73 22 3a f2 41 28 30  |-functions":.A(0|
00000bf0  2c 33 2c 4f 24 29 0d 01  68 b9 4f 24 3d 22 20 66  |,3,O$)..h.O$=" f|
00000c00  30 20 45 78 63 68 61 6e  67 65 20 63 6f 64 65 73  |0 Exchange codes|
00000c10  22 3a f2 41 28 30 2c 36  2c 4f 24 29 3a 4f 24 3d  |":.A(0,6,O$):O$=|
00000c20  22 81 66 31 87 4e 6f 74  20 75 73 65 64 22 3a f2  |".f1.Not used":.|
00000c30  41 28 30 2c 37 2c 4f 24  29 3a 4f 24 3d 22 82 66  |A(0,7,O$):O$=".f|
00000c40  32 87 4e 6f 74 20 75 73  65 64 22 3a f2 41 28 30  |2.Not used":.A(0|
00000c50  2c 38 2c 4f 24 29 3a 4f  24 3d 22 83 66 33 87 4e  |,8,O$):O$=".f3.N|
00000c60  6f 74 20 75 73 65 64 22  3a f2 41 28 30 2c 39 2c  |ot used":.A(0,9,|
00000c70  4f 24 29 3a 4f 24 3d 22  84 66 34 87 4e 6f 74 20  |O$):O$=".f4.Not |
00000c80  75 73 65 64 22 3a f2 41  28 30 2c 31 30 2c 4f 24  |used":.A(0,10,O$|
00000c90  29 3a 4f 24 3d 22 85 66  35 87 4e 6f 74 20 75 73  |):O$=".f5.Not us|
00000ca0  65 64 22 3a f2 41 28 30  2c 31 31 2c 4f 24 29 0d  |ed":.A(0,11,O$).|
00000cb0  01 72 95 4f 24 3d 22 86  66 36 87 45 72 61 73 65  |.r.O$=".f6.Erase|
00000cc0  20 73 63 72 65 65 6e 20  75 70 22 3a f2 41 28 30  | screen up":.A(0|
00000cd0  2c 31 32 2c 4f 24 29 3a  4f 24 3d 22 20 66 37 20  |,12,O$):O$=" f7 |
00000ce0  45 72 61 73 65 20 73 63  72 65 65 6e 20 64 6f 77  |Erase screen dow|
00000cf0  6e 22 3a f2 41 28 30 2c  31 33 2c 4f 24 29 3a 4f  |n":.A(0,13,O$):O|
00000d00  24 3d 22 20 66 38 20 57  69 70 65 20 65 6e 74 69  |$=" f8 Wipe enti|
00000d10  72 65 20 73 63 72 65 65  6e 22 3a f2 41 28 30 2c  |re screen":.A(0,|
00000d20  31 34 2c 4f 24 29 3a 4f  24 3d 22 20 66 39 20 4f  |14,O$):O$=" f9 O|
00000d30  53 20 63 6d 64 27 73 22  3a f2 41 28 30 2c 31 35  |S cmd's":.A(0,15|
00000d40  2c 4f 24 29 0d 01 7c dd  4f 24 3d 22 20 53 79 6e  |,O$)..|.O$=" Syn|
00000d50  74 61 78 20 66 6f 72 20  66 75 6e 63 74 69 6f 6e  |tax for function|
00000d60  73 3a 22 3a f2 41 28 30  2c 31 37 2c 4f 24 29 3a  |s:":.A(0,17,O$):|
00000d70  4f 24 3d 22 81 66 30 3c  6f 6c 64 20 63 6f 64 65  |O$=".f0<old code|
00000d80  3e 3c 6e 65 77 20 63 6f  64 65 3e 22 3a f2 41 28  |><new code>":.A(|
00000d90  30 2c 31 39 2c 4f 24 29  3a 4f 24 3d 22 81 66 36  |0,19,O$):O$=".f6|
00000da0  3c 45 72 61 73 65 20 75  70 20 59 2f 4e 20 66 72  |<Erase up Y/N fr|
00000db0  6f 6d 20 63 75 72 73 6f  72 20 58 2c 59 3e 22 3a  |om cursor X,Y>":|
00000dc0  f2 41 28 30 2c 32 30 2c  4f 24 29 3a 4f 24 3d 22  |.A(0,20,O$):O$="|
00000dd0  81 66 37 3c 45 72 61 73  65 20 64 6f 77 6e 20 59  |.f7<Erase down Y|
00000de0  2f 4e 20 66 72 6f 6d 20  63 75 72 73 6f 72 20 58  |/N from cursor X|
00000df0  2c 59 3e 22 3a f2 41 28  30 2c 32 31 2c 4f 24 29  |,Y>":.A(0,21,O$)|
00000e00  3a 4f 24 3d 22 81 66 38  3c 57 69 70 65 20 59 45  |:O$=".f8<Wipe YE|
00000e10  53 2f 4e 3e 22 3a f2 41  28 30 2c 32 32 2c 4f 24  |S/N>":.A(0,22,O$|
00000e20  29 0d 01 86 3d 4f 24 3d  22 81 66 39 3c 4f 53 20  |)...=O$=".f9<OS |
00000e30  43 6d 64 20 28 2a 54 54  58 20 74 6f 20 65 78 69  |Cmd (*TTX to exi|
00000e40  74 3e 22 3a f2 41 28 30  2c 32 33 2c 4f 24 29 3a  |t>":.A(0,23,O$):|
00000e50  41 3d a5 3a e7 20 41 3d  33 32 8c 20 f2 62 0d 01  |A=.:. A=32. .b..|
00000e60  90 05 e1 0d 01 9a 09 dd  f2 66 75 6e 0d 01 a4 46  |.........fun...F|
00000e70  ef 32 38 2c 30 2c 32 34  2c 33 39 2c 30 2c 31 32  |.28,0,24,39,0,12|
00000e80  3a e3 41 3d 30 b8 31 3a  f1 bd 31 33 32 bd 31 35  |:.A=0.1:..132.15|
00000e90  37 bd 31 33 31 bd 31 34  31 89 37 22 4b 65 79 62  |7.131.141.7"Keyb|
00000ea0  6f 61 72 64 20 66 75 6e  63 74 69 6f 6e 73 22 3a  |oard functions":|
00000eb0  ed 41 0d 01 ae 98 4f 24  3d 22 20 54 68 65 20 65  |.A....O$=" The e|
00000ec0  64 69 74 6f 72 20 68 61  73 20 73 65 76 65 72 61  |ditor has severa|
00000ed0  6c 20 66 75 6e 63 74 69  6f 6e 73 20 74 68 61 74  |l functions that|
00000ee0  20 20 20 61 72 65 20 63  61 6c 6c 65 64 20 66 72  |   are called fr|
00000ef0  6f 6d 20 74 68 65 20 6b  65 79 62 6f 61 72 64 20  |om the keyboard |
00000f00  75 73 69 6e 67 20 6f 6e  65 20 20 6f 72 20 6d 6f  |using one  or mo|
00000f10  72 65 20 6b 65 79 73 2e  20 54 68 69 73 20 73 65  |re keys. This se|
00000f20  63 74 69 6f 6e 20 77 69  6c 6c 20 6f 75 74 6c 69  |ction will outli|
00000f30  6e 65 20 74 68 65 73 65  20 6b 65 79 73 2e 22 3a  |ne these keys.":|
00000f40  f2 41 28 30 2c 34 2c 4f  24 29 0d 01 b8 ae 4f 24  |.A(0,4,O$)....O$|
00000f50  3d 22 82 43 75 72 73 6f  72 73 87 3d 20 6d 6f 76  |=".Cursors.= mov|
00000f60  65 20 63 75 72 73 6f 72  20 20 20 20 20 20 20 20  |e cursor        |
00000f70  20 20 20 20 20 20 20 20  20 20 82 53 68 69 66 74  |          .Shift|
00000f80  2f 43 75 72 73 6f 72 73  87 3d 20 43 6f 70 79 20  |/Cursors.= Copy |
00000f90  69 6e 20 64 69 72 65 63  74 69 6f 6e 20 20 20 20  |in direction    |
00000fa0  20 20 82 43 74 72 6c 2f  43 75 72 73 6f 72 73 87  |  .Ctrl/Cursors.|
00000fb0  3d 20 4d 6f 76 65 20 74  6f 20 63 6f 72 6e 65 72  |= Move to corner|
00000fc0  20 64 69 72 65 63 74 69  6f 6e 82 53 68 2f 43 74  | direction.Sh/Ct|
00000fd0  2f 43 75 72 73 6f 72 73  87 3d 20 45 72 61 73 65  |/Cursors.= Erase|
00000fe0  20 6c 69 6e 65 2f 63 6f  6c 75 6d 6e 22 3a f2 41  | line/column":.A|
00000ff0  28 30 2c 39 2c 4f 24 29  0d 01 c2 7b 4f 24 3d 22  |(0,9,O$)...{O$="|
00001000  82 54 41 42 87 3d 20 54  6f 67 67 6c 65 85 43 68  |.TAB.= Toggle.Ch|
00001010  61 72 61 63 74 6f 72 2f  51 57 41 53 5a 58 87 6d  |aractor/QWASZX.m|
00001020  6f 64 65 73 20 20 20 20  82 43 4f 50 59 87 3d 20  |odes    .COPY.= |
00001030  70 72 6f 64 75 63 65 20  61 85 ff 87 63 68 61 72  |produce a...char|
00001040  61 63 74 6f 72 20 20 20  20 20 20 20 20 20 20 20  |actor           |
00001050  82 52 45 54 55 52 4e 87  3d 20 63 75 72 73 6f 72  |.RETURN.= cursor|
00001060  20 30 30 2f 30 30 22 3a  f2 41 28 30 2c 31 34 2c  | 00/00":.A(0,14,|
00001070  4f 24 29 0d 01 cc 37 4f  24 3d 22 82 52 87 3d 20  |O$)...7O$=".R.= |
00001080  52 65 76 65 72 73 65 20  50 69 78 65 6c 73 20 69  |Reverse Pixels i|
00001090  6e 85 51 57 41 53 5a 58  87 6d 6f 64 65 22 3a f2  |n.QWASZX.mode":.|
000010a0  41 28 30 2c 31 37 2c 4f  24 29 0d 01 d6 2c 4f 24  |A(0,17,O$)...,O$|
000010b0  3d 22 82 51 57 41 53 5a  58 87 3d 20 70 69 78 65  |=".QWASZX.= pixe|
000010c0  6c 20 64 65 66 69 6e 65  72 22 3a f2 41 28 30 2c  |l definer":.A(0,|
000010d0  31 38 2c 4f 24 29 0d 01  e0 55 f1 8a 30 2c 32 30  |18,O$)...U..0,20|
000010e0  29 22 20 54 6f 20 6c 65  61 76 65 20 74 68 65 20  |)" To leave the |
000010f0  54 65 6c 65 73 79 73 20  70 72 6f 67 72 61 6d 20  |Telesys program |
00001100  79 6f 75 20 6a 75 73 74  22 27 22 20 70 72 65 73  |you just"'" pres|
00001110  73 20 42 52 45 41 4b 2e  22 3a 41 3d a5 3a e7 20  |s BREAK.":A=.:. |
00001120  41 3d 33 32 20 8c 20 f2  62 3a e1 0d 01 ea 05 e1  |A=32 . .b:......|
00001130  0d ff                                             |..|
00001132
12-03-89/Instr.m0
12-03-89/Instr.m1
12-03-89/Instr.m2
12-03-89/Instr.m4
12-03-89/Instr.m5