Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape34b_acorn_eu_1992_may.wav » TP3
TP3
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 » Personal collection » Acorn tapes » Electron_User » Electron_User_tape34b_acorn_eu_1992_may.wav |
| Filename: | TP3 |
| Read OK: | ✔ |
| File size: | 129C bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
Duplicates
There are 3 duplicate copies of this file in the archive:
- AEW website » bbc_pd » bbc_pd_5_25_discs_d-bbc140_D-BBC140.dsd » G.TP3
- AEW website » mu » mu_5_25_discs_Micro_User_10_03_D-MU10_03.ssd » TP3
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape34a_acorn_eu_1992_may.wav » TP3
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape34b_acorn_eu_1992_may.wav » TP3
File contents
10REM *****************************
20REM ** Turbo Publisher **
30REM ** **
40REM ** Written by Neil Gorin **
50REM ** **
60REM ** 4 Rookwood Drive **
70REM ** Stevenage **
80REM ** Herts SG2 8PJ **
90REM ** **
100REM ** Always interested in **
110REM ** any comments about **
120REM ** my software **
130REM ** **
140REM *****************************
145HIMEM =&3000
150X=0:Y=0
160VDU23,1,0,0,0,0,0,0,0,0:*FX4,2
170ONERROR REPORT:PRINTERL:PRINT''"Current work file saved under WORKS":END
180*FX200,1
190GOTO1220
200VDU23,1,0,0,0,0,0,0,0,0:COLOUR1:PRINTTAB(0,30);"Position X to top left hand corner of headline and press Copy. ";:COLOUR3
210X=0:Y=0
220PROCGETXY
230PROCINPUT(X,Y):GOTO1220
240VDU23,1,1,0,0,0,0,0,0,0:COLOUR1:PRINTTAB(0,30);"Press TAB with character for double height - press f0 for sub-menu ";:COLOUR3
250PROCGENERAL:GOTO1220
260VDU23,1,0,0,0,0,0,0,0,0:COLOUR1:PRINTTAB(0,30);"Draw lines. Position cursor and press Copy to select Del to draw. f0 sub-menu";:COLOUR3
270PROCLINES:GOTO1220
280DEFPROCINPUT(X,P)
290COLOUR1:PRINTTAB(0,30);"Please type line and press RETURN when complete. ";:COLOUR3
300REPEAT X=X+1:IF X>39 X=39
310A$=GET$:IF A$=CHR$(13) THEN ENDPROC
320IF A$=CHR$(127) AND X>1 X=X-1:A$=" ":BS=TRUE ELSE BS=FALSE
330PROCX8(A$)
340IF BS THEN X=X-1
350UNTIL FALSE
360DEFPROCX8(X$)
370I=1:PROCDOUBLE(X$)
380I=2:PROCDOUBLE(CHR$(231))
390I=3:PROCDOUBLE(CHR$(241))
400I=4:PROCDOUBLE(CHR$(232))
410I=5:PROCDOUBLE(CHR$(242))
420I=6:PROCDOUBLE(CHR$(233))
430I=7:PROCDOUBLE(CHR$(243))
440PRINTTAB((X-1),P);CHR$(234)
450PRINTTAB((X-1),P+1);CHR$(244)
460PRINTTAB((X-1),P+2);CHR$(235)
470PRINTTAB((X-1),P+3);CHR$(245)
480PRINTTAB((X-1),P+4);CHR$(236)
490PRINTTAB((X-1),P+5);CHR$(246)
500PRINTTAB((X-1),P+6);CHR$(237)
510PRINTTAB((X-1),P+7);CHR$(247)
520ENDPROC
530DEFPROCDOUBLE(A$)
540?&70=ASC(A$)
550A%=10:X%=&70:Y%=0:CALL &FFF1
560VDU23,230+I,?&71,?&71,?&72,?&72,?&73,?&73,?&74,?&74
570VDU23,240+I,?&75,?&75,?&76,?&76,?&77,?&77,?&78,?&78
580ENDPROC
590DEFPROCGETXY
600PRINTTAB(X,Y);"X";
610IF INKEY-106 PRINTTAB(X,Y);" ";:OSCLI"*FX21,0":ENDPROC
620OX=X:OY=Y:TIME=0:REPEATUNTILTIME>5
630X=X-INKEY-122+INKEY-26
640Y=Y+INKEY-58-INKEY-42
650IF X<0 X=0
660IF X>38 X=38
670IF Y<0 Y=0
680IF Y>28 Y=28
690PRINTTAB(OX,OY);" ";
700GOTO600
710DEFPROCGENERAL:VDU23,1,1,0,0,0,0,0,0,0
720X=0:Y=0
730TIME=0:REPEAT UNTIL TIME>5
740X=X-INKEY-122+INKEY-26
750Y=Y+INKEY-58-INKEY-42
760IF X<0 X=0
770IF X>38 X=38
780IF Y<0 Y=0
790IF Y>28 Y=28
800PRINTTAB(X,Y);
810A=INKEY-97:A$=INKEY$(0)
820IF A$=CHR$(13) THEN Y=Y+1:X=0:GOTO760
830IF A$=CHR$(127) AND X>0 X=X-1:PRINTTAB(X,Y);" ";:GOTO730
840IF A$=CHR$(9) THEN 810
850IF INKEY-33 ENDPROC
860IF A$<>"" AND A I=1:PROCDOUBLE(A$):PRINTTAB(X,Y);CHR$(231):PRINTTAB(X,Y+1);CHR$(241):X=X+1:GOTO770
870IF A$<>"" AND A$<>CHR$(127) PRINTTAB(X,Y);A$:X=X+1:GOTO770
880GOTO730
890DEFPROCLINES
900X=0:Y=0
910FLAG=0
920OX=0:OY=0
930NX=0:NY=0
940REPEAT
950IF INKEY-33 ENDPROC
960CL=POINT(X,Y)
970GCOL0,2
980MOVE X,Y
990DRAW X,Y
1000OX=X:OY=Y
1010X=X-INKEY-122+INKEY-26:Y=Y-INKEY-58+INKEY-42
1020IF INKEY-1 THEN X=X-((INKEY-122)*10)+((INKEY-26)*10):Y=Y-((INKEY-58)*10)+((INKEY-42)*10)
1030GCOL0,CL:DRAWOX,OY
1040IF X<0 X=0
1050IF X>1278 X=1278
1060IF Y<0 Y=0
1070IF Y>1023 Y=1023
1080PROCGETCOPY
1090UNTIL FALSE
1100DEFPROCGETCOPY
1110A=INKEY-106:B=INKEY-90
1120IF A GOTO 1150
1130IF B GOTO 1170
1140ENDPROC
1150IF FLAG=0 FLAG=1:NX=X:NY=Y:CL=3:SOUND1,-15,100,1:ENDPROC
1160ENDPROC
1170IF FLAG=1 FLAG=0:MOVE NX,NY:GCOL0,CR:DRAWX,Y:SOUND1,-15,150,1:ENDPROC
1180ENDPROC
1190DEFPROCSAVE(R$)
1200OSCLI"*SAVE "+R$+" FF3000 +5000"
1210ENDPROC
1220PROCSAVE("WORKS")
1230COLOUR129
1240VDU23,1,0,0,0,0,0,0,0,0
1250PRINTTAB(10,5);"********************"
1260PRINTTAB(10,6);"* *"
1270PRINTTAB(10,7);"* Headline text *"
1280PRINTTAB(10,8);"* Normal input *"
1290PRINTTAB(10,9);"* Graphics on *"
1300PRINTTAB(10,10);"* Graphics off *"
1310PRINTTAB(10,11);"* Spray can *"
1320PRINTTAB(10,12);"* Bubble Text *"
1330PRINTTAB(10,13);"* Save document *"
1340PRINTTAB(10,14);"* *"
1350PRINTTAB(10,15);"* Use cursor keys *"
1360PRINTTAB(10,16);"* then RETURN *"
1370PRINTTAB(10,17);"********************"
1380*FX21
1390A=7
1400REPEAT
1410PRINTTAB(12,A);">":PRINTTAB(27,A);"<";
1420TIME=0:REPEATUNTILTIME>5
1430OA=A
1440A=A+INKEY-58-INKEY-42
1450IF A<7 A=13
1460IF A>13 A=7
1470IF A<>OA PRINTTAB(12,OA);" ":PRINTTAB(27,OA);" ":OA=A
1480UNTIL INKEY-74
1490COLOUR128
1500IF A=7 PROCLS:GOTO200
1510IF A=8 PROCLS:GOTO240
1520IF A=9 PROCLS:CR=3:GOTO260
1530IF A=10 PROCLS:CR=0:GOTO260
1540IF A=11 PROCLS:PROCSPRAYCAN:GOTO1220
1550IF A=13 PROCSS:CHAIN"TP2"
1560IF A=12 THEN CHAIN"TP8"
1570VDU7:GOTO1390
1580DEFPROCSS
1590CLS:VDU23,1,0,0,0,0,0,0,0,0
1600PRINT"Prepare to save document"
1610PRINT''
1620*CAT
1630PRINT'"Please press a key...."
1640*FX21
1650A=GET
1660CLS:VDU23,1,0,0,0,0,0,0,0,0
1670*LOAD WORKS
1680COLOUR1:PRINTTAB(0,30);STRING$(79," ");:COLOUR3
1690PRINTTAB(0,30);:INPUT"Filename:"X$
1700COLOUR1:PRINTTAB(0,30);STRING$(79," ");:COLOUR3
1710R$=X$
1720PROCSAVE(X$)
1730ENDPROC
1740DEFPROCLS
1750CLS:VDU23,1,0,0,0,0,0,0,0,0
1760*LOAD WORKS
1770ENDPROC
1780DEFPROCSPRAYCAN:VDU23,1,0,0,0,0,0,0,0,0
1790COLOUR1:PRINTTAB(0,30);"Use cursor keys to move RETURN to spray Press f0 to return to menu. ";:COLOUR3
1800X=0:Y=0
1810OX=0:OY=0
1820REPEAT
1830IF INKEY-33 ENDPROC
1840CL=POINT(X,Y)
1850GCOL0,2
1860MOVE X,Y
1870DRAW X,Y
1880OX=X:OY=Y
1890X=X-INKEY-122+INKEY-26:Y=Y-INKEY-58+INKEY-42
1900IF INKEY-1 THEN X=X-((INKEY-122)*10)+((INKEY-26)*10):Y=Y-((INKEY-58)*10)+((INKEY-42)*10)
1910GCOL0,CL:DRAWOX,OY
1920IF X<0 X=0
1930IF X>1278 X=1278
1940IF Y<0 Y=0
1950IF Y>1023 Y=1023
1960IF INKEY-74 PROCSPRAY
1970UNTIL FALSE
1980DEFPROCSPRAY
1990FORSPR=1TO7
2000OY=Y:OX=X
2010Q=RND(20):W=RND(20)
2020R=RND(2)
2030IF R=1 Q=Q+Y:W=W+X ELSE Q=Q-Y:W=W-X
2040MOVEW,Q
2050GCOL0,3
2060DRAWW,Q
2070Y=OY:X=OX
2080NEXTSPR
2090ENDPROC
#� *****************************
#� ** Turbo Publisher **
#� ** **
(#� ** Written by Neil Gorin **
2#� ** **
<#� ** 4 Rookwood Drive **
F#� ** Stevenage **
P#� ** Herts SG2 8PJ **
Z#� ** **
d#� ** Always interested in **
n#� ** any comments about **
x#� ** my software **
�#� ** **
�#� *****************************
� � =&3000
� X=0:Y=0
� �23,1,0,0,0,0,0,0,0,0:*FX4,2
�6� �:�:�''"Current work file saved under WORKS":�
� *FX200,1
� �dDD
�z�23,1,0,0,0,0,0,0,0,0:�1:�0,30);"Position X to top left hand corner of headline and press Copy. ";:�3
� X=0:Y=0
�
�GETXY
��INPUT(X,Y):�dDD
�z�23,1,1,0,0,0,0,0,0,0:�1:�0,30);"Press TAB with character for double height - press f0 for sub-menu ";:�3
��GENERAL:�dDD
z�23,1,0,0,0,0,0,0,0,0:�1:�0,30);"Draw lines. Position cursor and press Copy to select Del to draw. f0 sub-menu";:�3
�LINES:�dDD
��INPUT(X,P)
"d�1:�0,30);"Please type line and press RETURN when complete. ";:�3
,� X=X+1:� X>39 X=39
6A$=�:� A$=�(13) � �
@.� A$=�(127) � X>1 X=X-1:A$=" ":BS=� � BS=�
J �X8(A$)
T� BS � X=X-1
^� �
h ��X8(X$)
rI=1:�DOUBLE(X$)
|I=2:�DOUBLE(�(231))
�I=3:�DOUBLE(�(241))
�I=4:�DOUBLE(�(232))
�I=5:�DOUBLE(�(242))
�I=6:�DOUBLE(�(233))
�I=7:�DOUBLE(�(243))
��(X-1),P);�(234)
��(X-1),P+1);�(244)
��(X-1),P+2);�(235)
��(X-1),P+3);�(245)
��(X-1),P+4);�(236)
��(X-1),P+5);�(246)
��(X-1),P+6);�(237)
��(X-1),P+7);�(247)
�
��DOUBLE(A$)
?&70=�(A$)
& A%=10:X%=&70:Y%=0:� &FFF1
05�23,230+I,?&71,?&71,?&72,?&72,?&73,?&73,?&74,?&74
:5�23,240+I,?&75,?&75,?&76,?&76,?&77,?&77,?&78,?&78
D�
N ��GETXY
X�X,Y);"X";
b$� �-106 �X,Y);" ";:�"*FX21,0":�
lOX=X:OY=Y:�=0:���>5
vX=X-�-122+�-26
�Y=Y+�-58-�-42
�
� X<0 X=0
�� X>38 X=38
�
� Y<0 Y=0
�� Y>28 Y=28
��OX,OY);" ";
� �DXB
�#��GENERAL:�23,1,1,0,0,0,0,0,0,0
� X=0:Y=0
��=0:� � �>5
�X=X-�-122+�-26
�Y=Y+�-58-�-42
�
� X<0 X=0
� X>38 X=38
� Y<0 Y=0
� Y>28 Y=28
�X,Y);
*A=�-97:A$=�(0)
4 � A$=�(13) � Y=Y+1:X=0:�dxB
>-� A$=�(127) � X>0 X=X-1:�X,Y);" ";:�dZB
H� A$=�(9) � �TjC
R � �-33 �
\J� A$<>"" � A I=1:�DOUBLE(A$):�X,Y);�(231):�X,Y+1);�(241):X=X+1:�TBC
f/� A$<>"" � A$<>�(127) �X,Y);A$:X=X+1:�TBC
p �dZB
z ��LINES
� X=0:Y=0
�
FLAG=0
�
OX=0:OY=0
�
NX=0:NY=0
��
� � �-33 �
� CL=�X,Y)
��0,2
� � X,Y
� � X,Y
�
OX=X:OY=Y
� X=X-�-122+�-26:Y=Y-�-58+�-42
�D� �-1 � X=X-((�-122)*10)+((�-26)*10):Y=Y-((�-58)*10)+((�-42)*10)
�0,CL:�OX,OY
� X<0 X=0
� X>1278 X=1278
$
� Y<0 Y=0
.� Y>1023 Y=1023
8 �GETCOPY
B� �
L
��GETCOPY
VA=�-106:B=�-90
`� A � �D~D
j� B � �tRD
t�
~1� FLAG=0 FLAG=1:NX=X:NY=Y:CL=3:�1,-15,100,1:�
��
�5� FLAG=1 FLAG=0:� NX,NY:�0,CR:�X,Y:�1,-15,150,1:�
��
���SAVE(R$)
� �"*SAVE "+R$+" FF3000 +5000"
��
��SAVE("WORKS")
��129
��23,1,0,0,0,0,0,0,0,0
�"�10,5);"********************"
�"�10,6);"* *"
�"�10,7);"* Headline text *"
"�10,8);"* Normal input *"
"�10,9);"* Graphics on *"
#�10,10);"* Graphics off *"
#�10,11);"* Spray can *"
(#�10,12);"* Bubble Text *"
2#�10,13);"* Save document *"
<#�10,14);"* *"
F#�10,15);"* Use cursor keys *"
P#�10,16);"* then RETURN *"
Z#�10,17);"********************"
d *FX21
nA=7
x�
� �12,A);">":�27,A);"<";
�
�=0:���>5
�OA=A
�A=A+�-58-�-42
�� A<7 A=13
�� A>13 A=7
�*� A<>OA �12,OA);" ":�27,OA);" ":OA=A
�
� �-74
��128
�� A=7 �LS:�dH@
�� A=8 �LS:�dp@
�� A=9 �LS:CR=3:�TDA
�� A=10 �LS:CR=0:�TDA
� A=11 �LS:�SPRAYCAN:�dDD
� A=13 �SS:�"TP2"
� A=12 � �"TP8"
" �7:�DnE
,��SS
6�:�23,1,0,0,0,0,0,0,0,0
@ �"Prepare to save document"
J�''
T*CAT
^ �'"Please press a key...."
h *FX21
rA=�
|�:�23,1,0,0,0,0,0,0,0,0
�*LOAD WORKS
��1:�0,30);�79," ");:�3
��0,30);:�"Filename:"X$
��1:�0,30);�79," ");:�3
� R$=X$
�
�SAVE(X$)
��
���LS
��:�23,1,0,0,0,0,0,0,0,0
�*LOAD WORKS
��
�$��SPRAYCAN:�23,1,0,0,0,0,0,0,0,0
�c�1:�0,30);"Use cursor keys to move RETURN to spray Press f0 to return to menu. ";:�3
X=0:Y=0
OX=0:OY=0
�
& � �-33 �
0 CL=�X,Y)
:�0,2
D � X,Y
N � X,Y
X
OX=X:OY=Y
b X=X-�-122+�-26:Y=Y-�-58+�-42
lD� �-1 � X=X-((�-122)*10)+((�-26)*10):Y=Y-((�-58)*10)+((�-42)*10)
v�0,CL:�OX,OY
�
� X<0 X=0
�� X>1278 X=1278
�
� Y<0 Y=0
�� Y>1023 Y=1023
�� �-74 �SPRAY
�� �
� ��SPRAY
� �SPR=1�7
�
OY=Y:OX=X
�Q=�(20):W=�(20)
�
R=�(2)
�#� R=1 Q=Q+Y:W=W+X � Q=Q-Y:W=W-X
��W,Q
�0,3
�W,Q
Y=OY:X=OX
�SPR
*�
� 00000000 0d 00 0a 23 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |...#. **********|
00000010 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000020 2a 2a 2a 0d 00 14 23 f4 20 2a 2a 20 20 20 20 54 |***...#. ** T|
00000030 75 72 62 6f 20 50 75 62 6c 69 73 68 65 72 20 20 |urbo Publisher |
00000040 20 20 20 20 2a 2a 0d 00 1e 23 f4 20 2a 2a 20 20 | **...#. ** |
00000050 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060 20 20 20 20 20 20 20 2a 2a 0d 00 28 23 f4 20 2a | **..(#. *|
00000070 2a 20 20 57 72 69 74 74 65 6e 20 62 79 20 4e 65 |* Written by Ne|
00000080 69 6c 20 47 6f 72 69 6e 20 20 2a 2a 0d 00 32 23 |il Gorin **..2#|
00000090 f4 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 |. ** |
000000a0 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d | **.|
000000b0 00 3c 23 f4 20 2a 2a 20 20 34 20 52 6f 6f 6b 77 |.<#. ** 4 Rookw|
000000c0 6f 6f 64 20 44 72 69 76 65 20 20 20 20 20 20 20 |ood Drive |
000000d0 2a 2a 0d 00 46 23 f4 20 2a 2a 20 20 53 74 65 76 |**..F#. ** Stev|
000000e0 65 6e 61 67 65 20 20 20 20 20 20 20 20 20 20 20 |enage |
000000f0 20 20 20 2a 2a 0d 00 50 23 f4 20 2a 2a 20 20 48 | **..P#. ** H|
00000100 65 72 74 73 20 53 47 32 20 38 50 4a 20 20 20 20 |erts SG2 8PJ |
00000110 20 20 20 20 20 20 2a 2a 0d 00 5a 23 f4 20 2a 2a | **..Z#. **|
00000120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130 20 20 20 20 20 20 20 20 20 2a 2a 0d 00 64 23 f4 | **..d#.|
00000140 20 2a 2a 20 20 41 6c 77 61 79 73 20 69 6e 74 65 | ** Always inte|
00000150 72 65 73 74 65 64 20 69 6e 20 20 20 2a 2a 0d 00 |rested in **..|
00000160 6e 23 f4 20 2a 2a 20 20 61 6e 79 20 63 6f 6d 6d |n#. ** any comm|
00000170 65 6e 74 73 20 61 62 6f 75 74 20 20 20 20 20 2a |ents about *|
00000180 2a 0d 00 78 23 f4 20 2a 2a 20 20 6d 79 20 73 6f |*..x#. ** my so|
00000190 66 74 77 61 72 65 20 20 20 20 20 20 20 20 20 20 |ftware |
000001a0 20 20 2a 2a 0d 00 82 23 f4 20 2a 2a 20 20 20 20 | **...#. ** |
000001b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001c0 20 20 20 20 20 2a 2a 0d 00 8c 23 f4 20 2a 2a 2a | **...#. ***|
000001d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
000001e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 91 0c d3 20 |**********..... |
000001f0 3d 26 33 30 30 30 0d 00 96 0b 58 3d 30 3a 59 3d |=&3000....X=0:Y=|
00000200 30 0d 00 a0 20 ef 32 33 2c 31 2c 30 2c 30 2c 30 |0... .23,1,0,0,0|
00000210 2c 30 2c 30 2c 30 2c 30 2c 30 3a 2a 46 58 34 2c |,0,0,0,0,0:*FX4,|
00000220 32 0d 00 aa 36 ee 85 20 f6 3a f1 9e 3a f1 27 27 |2...6.. .:..:.''|
00000230 22 43 75 72 72 65 6e 74 20 77 6f 72 6b 20 66 69 |"Current work fi|
00000240 6c 65 20 73 61 76 65 64 20 75 6e 64 65 72 20 57 |le saved under W|
00000250 4f 52 4b 53 22 3a e0 0d 00 b4 0c 2a 46 58 32 30 |ORKS":.....*FX20|
00000260 30 2c 31 0d 00 be 09 e5 8d 64 44 44 0d 00 c8 7a |0,1......dDD...z|
00000270 ef 32 33 2c 31 2c 30 2c 30 2c 30 2c 30 2c 30 2c |.23,1,0,0,0,0,0,|
00000280 30 2c 30 2c 30 3a fb 31 3a f1 8a 30 2c 33 30 29 |0,0,0:.1:..0,30)|
00000290 3b 22 50 6f 73 69 74 69 6f 6e 20 58 20 74 6f 20 |;"Position X to |
000002a0 74 6f 70 20 6c 65 66 74 20 68 61 6e 64 20 63 6f |top left hand co|
000002b0 72 6e 65 72 20 6f 66 20 20 20 68 65 61 64 6c 69 |rner of headli|
000002c0 6e 65 20 61 6e 64 20 70 72 65 73 73 20 43 6f 70 |ne and press Cop|
000002d0 79 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |y. |
000002e0 20 22 3b 3a fb 33 0d 00 d2 0b 58 3d 30 3a 59 3d | ";:.3....X=0:Y=|
000002f0 30 0d 00 dc 0a f2 47 45 54 58 59 0d 00 e6 15 f2 |0.....GETXY.....|
00000300 49 4e 50 55 54 28 58 2c 59 29 3a e5 8d 64 44 44 |INPUT(X,Y):..dDD|
00000310 0d 00 f0 7a ef 32 33 2c 31 2c 31 2c 30 2c 30 2c |...z.23,1,1,0,0,|
00000320 30 2c 30 2c 30 2c 30 2c 30 3a fb 31 3a f1 8a 30 |0,0,0,0,0:.1:..0|
00000330 2c 33 30 29 3b 22 50 72 65 73 73 20 54 41 42 20 |,30);"Press TAB |
00000340 77 69 74 68 20 63 68 61 72 61 63 74 65 72 20 66 |with character f|
00000350 6f 72 20 64 6f 75 62 6c 65 20 20 20 20 20 68 65 |or double he|
00000360 69 67 68 74 20 2d 20 70 72 65 73 73 20 66 30 20 |ight - press f0 |
00000370 66 6f 72 20 73 75 62 2d 6d 65 6e 75 20 20 20 20 |for sub-menu |
00000380 20 20 20 20 20 22 3b 3a fb 33 0d 00 fa 12 f2 47 | ";:.3.....G|
00000390 45 4e 45 52 41 4c 3a e5 8d 64 44 44 0d 01 04 7a |ENERAL:..dDD...z|
000003a0 ef 32 33 2c 31 2c 30 2c 30 2c 30 2c 30 2c 30 2c |.23,1,0,0,0,0,0,|
000003b0 30 2c 30 2c 30 3a fb 31 3a f1 8a 30 2c 33 30 29 |0,0,0:.1:..0,30)|
000003c0 3b 22 44 72 61 77 20 6c 69 6e 65 73 2e 20 50 6f |;"Draw lines. Po|
000003d0 73 69 74 69 6f 6e 20 63 75 72 73 6f 72 20 61 6e |sition cursor an|
000003e0 64 20 70 72 65 73 73 20 20 20 43 6f 70 79 20 74 |d press Copy t|
000003f0 6f 20 73 65 6c 65 63 74 20 44 65 6c 20 74 6f 20 |o select Del to |
00000400 64 72 61 77 2e 20 66 30 20 73 75 62 2d 6d 65 6e |draw. f0 sub-men|
00000410 75 22 3b 3a fb 33 0d 01 0e 10 f2 4c 49 4e 45 53 |u";:.3.....LINES|
00000420 3a e5 8d 64 44 44 0d 01 18 10 dd f2 49 4e 50 55 |:..dDD......INPU|
00000430 54 28 58 2c 50 29 0d 01 22 64 fb 31 3a f1 8a 30 |T(X,P).."d.1:..0|
00000440 2c 33 30 29 3b 22 50 6c 65 61 73 65 20 74 79 70 |,30);"Please typ|
00000450 65 20 6c 69 6e 65 20 61 6e 64 20 70 72 65 73 73 |e line and press|
00000460 20 52 45 54 55 52 4e 20 20 20 20 20 20 20 77 68 | RETURN wh|
00000470 65 6e 20 63 6f 6d 70 6c 65 74 65 2e 20 20 20 20 |en complete. |
00000480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490 20 20 20 20 20 22 3b 3a fb 33 0d 01 2c 17 f5 20 | ";:.3..,.. |
000004a0 58 3d 58 2b 31 3a e7 20 58 3e 33 39 20 58 3d 33 |X=X+1:. X>39 X=3|
000004b0 39 0d 01 36 17 41 24 3d be 3a e7 20 41 24 3d bd |9..6.A$=.:. A$=.|
000004c0 28 31 33 29 20 8c 20 e1 0d 01 40 2e e7 20 41 24 |(13) . ...@.. A$|
000004d0 3d bd 28 31 32 37 29 20 80 20 58 3e 31 20 58 3d |=.(127) . X>1 X=|
000004e0 58 2d 31 3a 41 24 3d 22 20 22 3a 42 53 3d b9 20 |X-1:A$=" ":BS=. |
000004f0 8b 20 42 53 3d a3 0d 01 4a 0b f2 58 38 28 41 24 |. BS=...J..X8(A$|
00000500 29 0d 01 54 10 e7 20 42 53 20 8c 20 58 3d 58 2d |)..T.. BS . X=X-|
00000510 31 0d 01 5e 07 fd 20 a3 0d 01 68 0c dd f2 58 38 |1..^.. ...h...X8|
00000520 28 58 24 29 0d 01 72 13 49 3d 31 3a f2 44 4f 55 |(X$)..r.I=1:.DOU|
00000530 42 4c 45 28 58 24 29 0d 01 7c 17 49 3d 32 3a f2 |BLE(X$)..|.I=2:.|
00000540 44 4f 55 42 4c 45 28 bd 28 32 33 31 29 29 0d 01 |DOUBLE(.(231))..|
00000550 86 17 49 3d 33 3a f2 44 4f 55 42 4c 45 28 bd 28 |..I=3:.DOUBLE(.(|
00000560 32 34 31 29 29 0d 01 90 17 49 3d 34 3a f2 44 4f |241))....I=4:.DO|
00000570 55 42 4c 45 28 bd 28 32 33 32 29 29 0d 01 9a 17 |UBLE(.(232))....|
00000580 49 3d 35 3a f2 44 4f 55 42 4c 45 28 bd 28 32 34 |I=5:.DOUBLE(.(24|
00000590 32 29 29 0d 01 a4 17 49 3d 36 3a f2 44 4f 55 42 |2))....I=6:.DOUB|
000005a0 4c 45 28 bd 28 32 33 33 29 29 0d 01 ae 17 49 3d |LE(.(233))....I=|
000005b0 37 3a f2 44 4f 55 42 4c 45 28 bd 28 32 34 33 29 |7:.DOUBLE(.(243)|
000005c0 29 0d 01 b8 15 f1 8a 28 58 2d 31 29 2c 50 29 3b |)......(X-1),P);|
000005d0 bd 28 32 33 34 29 0d 01 c2 17 f1 8a 28 58 2d 31 |.(234)......(X-1|
000005e0 29 2c 50 2b 31 29 3b bd 28 32 34 34 29 0d 01 cc |),P+1);.(244)...|
000005f0 17 f1 8a 28 58 2d 31 29 2c 50 2b 32 29 3b bd 28 |...(X-1),P+2);.(|
00000600 32 33 35 29 0d 01 d6 17 f1 8a 28 58 2d 31 29 2c |235)......(X-1),|
00000610 50 2b 33 29 3b bd 28 32 34 35 29 0d 01 e0 17 f1 |P+3);.(245).....|
00000620 8a 28 58 2d 31 29 2c 50 2b 34 29 3b bd 28 32 33 |.(X-1),P+4);.(23|
00000630 36 29 0d 01 ea 17 f1 8a 28 58 2d 31 29 2c 50 2b |6)......(X-1),P+|
00000640 35 29 3b bd 28 32 34 36 29 0d 01 f4 17 f1 8a 28 |5);.(246)......(|
00000650 58 2d 31 29 2c 50 2b 36 29 3b bd 28 32 33 37 29 |X-1),P+6);.(237)|
00000660 0d 01 fe 17 f1 8a 28 58 2d 31 29 2c 50 2b 37 29 |......(X-1),P+7)|
00000670 3b bd 28 32 34 37 29 0d 02 08 05 e1 0d 02 12 10 |;.(247).........|
00000680 dd f2 44 4f 55 42 4c 45 28 41 24 29 0d 02 1c 0e |..DOUBLE(A$)....|
00000690 3f 26 37 30 3d 97 28 41 24 29 0d 02 26 1d 41 25 |?&70=.(A$)..&.A%|
000006a0 3d 31 30 3a 58 25 3d 26 37 30 3a 59 25 3d 30 3a |=10:X%=&70:Y%=0:|
000006b0 d6 20 26 46 46 46 31 0d 02 30 35 ef 32 33 2c 32 |. &FFF1..05.23,2|
000006c0 33 30 2b 49 2c 3f 26 37 31 2c 3f 26 37 31 2c 3f |30+I,?&71,?&71,?|
000006d0 26 37 32 2c 3f 26 37 32 2c 3f 26 37 33 2c 3f 26 |&72,?&72,?&73,?&|
000006e0 37 33 2c 3f 26 37 34 2c 3f 26 37 34 0d 02 3a 35 |73,?&74,?&74..:5|
000006f0 ef 32 33 2c 32 34 30 2b 49 2c 3f 26 37 35 2c 3f |.23,240+I,?&75,?|
00000700 26 37 35 2c 3f 26 37 36 2c 3f 26 37 36 2c 3f 26 |&75,?&76,?&76,?&|
00000710 37 37 2c 3f 26 37 37 2c 3f 26 37 38 2c 3f 26 37 |77,?&77,?&78,?&7|
00000720 38 0d 02 44 05 e1 0d 02 4e 0b dd f2 47 45 54 58 |8..D....N...GETX|
00000730 59 0d 02 58 0f f1 8a 58 2c 59 29 3b 22 58 22 3b |Y..X...X,Y);"X";|
00000740 0d 02 62 24 e7 20 a6 2d 31 30 36 20 f1 8a 58 2c |..b$. .-106 ..X,|
00000750 59 29 3b 22 20 22 3b 3a ff 22 2a 46 58 32 31 2c |Y);" ";:."*FX21,|
00000760 30 22 3a e1 0d 02 6c 17 4f 58 3d 58 3a 4f 59 3d |0":...l.OX=X:OY=|
00000770 59 3a d1 3d 30 3a f5 fd 91 3e 35 0d 02 76 12 58 |Y:.=0:...>5..v.X|
00000780 3d 58 2d a6 2d 31 32 32 2b a6 2d 32 36 0d 02 80 |=X-.-122+.-26...|
00000790 11 59 3d 59 2b a6 2d 35 38 2d a6 2d 34 32 0d 02 |.Y=Y+.-58-.-42..|
000007a0 8a 0d e7 20 58 3c 30 20 58 3d 30 0d 02 94 0f e7 |... X<0 X=0.....|
000007b0 20 58 3e 33 38 20 58 3d 33 38 0d 02 9e 0d e7 20 | X>38 X=38..... |
000007c0 59 3c 30 20 59 3d 30 0d 02 a8 0f e7 20 59 3e 32 |Y<0 Y=0..... Y>2|
000007d0 38 20 59 3d 32 38 0d 02 b2 11 f1 8a 4f 58 2c 4f |8 Y=28......OX,O|
000007e0 59 29 3b 22 20 22 3b 0d 02 bc 09 e5 8d 44 58 42 |Y);" ";......DXB|
000007f0 0d 02 c6 23 dd f2 47 45 4e 45 52 41 4c 3a ef 32 |...#..GENERAL:.2|
00000800 33 2c 31 2c 31 2c 30 2c 30 2c 30 2c 30 2c 30 2c |3,1,1,0,0,0,0,0,|
00000810 30 2c 30 0d 02 d0 0b 58 3d 30 3a 59 3d 30 0d 02 |0,0....X=0:Y=0..|
00000820 da 0f d1 3d 30 3a f5 20 fd 20 91 3e 35 0d 02 e4 |...=0:. . .>5...|
00000830 12 58 3d 58 2d a6 2d 31 32 32 2b a6 2d 32 36 0d |.X=X-.-122+.-26.|
00000840 02 ee 11 59 3d 59 2b a6 2d 35 38 2d a6 2d 34 32 |...Y=Y+.-58-.-42|
00000850 0d 02 f8 0d e7 20 58 3c 30 20 58 3d 30 0d 03 02 |..... X<0 X=0...|
00000860 0f e7 20 58 3e 33 38 20 58 3d 33 38 0d 03 0c 0d |.. X>38 X=38....|
00000870 e7 20 59 3c 30 20 59 3d 30 0d 03 16 0f e7 20 59 |. Y<0 Y=0..... Y|
00000880 3e 32 38 20 59 3d 32 38 0d 03 20 0b f1 8a 58 2c |>28 Y=28.. ...X,|
00000890 59 29 3b 0d 03 2a 12 41 3d a6 2d 39 37 3a 41 24 |Y);..*.A=.-97:A$|
000008a0 3d bf 28 30 29 0d 03 34 20 e7 20 41 24 3d bd 28 |=.(0)..4 . A$=.(|
000008b0 31 33 29 20 8c 20 59 3d 59 2b 31 3a 58 3d 30 3a |13) . Y=Y+1:X=0:|
000008c0 e5 8d 64 78 42 0d 03 3e 2d e7 20 41 24 3d bd 28 |..dxB..>-. A$=.(|
000008d0 31 32 37 29 20 80 20 58 3e 30 20 58 3d 58 2d 31 |127) . X>0 X=X-1|
000008e0 3a f1 8a 58 2c 59 29 3b 22 20 22 3b 3a e5 8d 64 |:..X,Y);" ";:..d|
000008f0 5a 42 0d 03 48 14 e7 20 41 24 3d bd 28 39 29 20 |ZB..H.. A$=.(9) |
00000900 8c 20 8d 54 6a 43 0d 03 52 0c e7 20 a6 2d 33 33 |. .TjC..R.. .-33|
00000910 20 e1 0d 03 5c 4a e7 20 41 24 3c 3e 22 22 20 80 | ...\J. A$<>"" .|
00000920 20 41 20 49 3d 31 3a f2 44 4f 55 42 4c 45 28 41 | A I=1:.DOUBLE(A|
00000930 24 29 3a f1 8a 58 2c 59 29 3b bd 28 32 33 31 29 |$):..X,Y);.(231)|
00000940 3a f1 8a 58 2c 59 2b 31 29 3b bd 28 32 34 31 29 |:..X,Y+1);.(241)|
00000950 3a 58 3d 58 2b 31 3a e5 8d 54 42 43 0d 03 66 2f |:X=X+1:..TBC..f/|
00000960 e7 20 41 24 3c 3e 22 22 20 80 20 41 24 3c 3e bd |. A$<>"" . A$<>.|
00000970 28 31 32 37 29 20 f1 8a 58 2c 59 29 3b 41 24 3a |(127) ..X,Y);A$:|
00000980 58 3d 58 2b 31 3a e5 8d 54 42 43 0d 03 70 09 e5 |X=X+1:..TBC..p..|
00000990 8d 64 5a 42 0d 03 7a 0b dd f2 4c 49 4e 45 53 0d |.dZB..z...LINES.|
000009a0 03 84 0b 58 3d 30 3a 59 3d 30 0d 03 8e 0a 46 4c |...X=0:Y=0....FL|
000009b0 41 47 3d 30 0d 03 98 0d 4f 58 3d 30 3a 4f 59 3d |AG=0....OX=0:OY=|
000009c0 30 0d 03 a2 0d 4e 58 3d 30 3a 4e 59 3d 30 0d 03 |0....NX=0:NY=0..|
000009d0 ac 05 f5 0d 03 b6 0c e7 20 a6 2d 33 33 20 e1 0d |........ .-33 ..|
000009e0 03 c0 0c 43 4c 3d b0 58 2c 59 29 0d 03 ca 08 e6 |...CL=.X,Y).....|
000009f0 30 2c 32 0d 03 d4 09 ec 20 58 2c 59 0d 03 de 09 |0,2..... X,Y....|
00000a00 df 20 58 2c 59 0d 03 e8 0d 4f 58 3d 58 3a 4f 59 |. X,Y....OX=X:OY|
00000a10 3d 59 0d 03 f2 20 58 3d 58 2d a6 2d 31 32 32 2b |=Y... X=X-.-122+|
00000a20 a6 2d 32 36 3a 59 3d 59 2d a6 2d 35 38 2b a6 2d |.-26:Y=Y-.-58+.-|
00000a30 34 32 0d 03 fc 44 e7 20 a6 2d 31 20 8c 20 58 3d |42...D. .-1 . X=|
00000a40 58 2d 28 28 a6 2d 31 32 32 29 2a 31 30 29 2b 28 |X-((.-122)*10)+(|
00000a50 28 a6 2d 32 36 29 2a 31 30 29 3a 59 3d 59 2d 28 |(.-26)*10):Y=Y-(|
00000a60 28 a6 2d 35 38 29 2a 31 30 29 2b 28 28 a6 2d 34 |(.-58)*10)+((.-4|
00000a70 32 29 2a 31 30 29 0d 04 06 10 e6 30 2c 43 4c 3a |2)*10).....0,CL:|
00000a80 df 4f 58 2c 4f 59 0d 04 10 0d e7 20 58 3c 30 20 |.OX,OY..... X<0 |
00000a90 58 3d 30 0d 04 1a 13 e7 20 58 3e 31 32 37 38 20 |X=0..... X>1278 |
00000aa0 58 3d 31 32 37 38 0d 04 24 0d e7 20 59 3c 30 20 |X=1278..$.. Y<0 |
00000ab0 59 3d 30 0d 04 2e 13 e7 20 59 3e 31 30 32 33 20 |Y=0..... Y>1023 |
00000ac0 59 3d 31 30 32 33 0d 04 38 0c f2 47 45 54 43 4f |Y=1023..8..GETCO|
00000ad0 50 59 0d 04 42 07 fd 20 a3 0d 04 4c 0d dd f2 47 |PY..B.. ...L...G|
00000ae0 45 54 43 4f 50 59 0d 04 56 12 41 3d a6 2d 31 30 |ETCOPY..V.A=.-10|
00000af0 36 3a 42 3d a6 2d 39 30 0d 04 60 0e e7 20 41 20 |6:B=.-90..`.. A |
00000b00 e5 20 8d 44 7e 44 0d 04 6a 0e e7 20 42 20 e5 20 |. .D~D..j.. B . |
00000b10 8d 74 52 44 0d 04 74 05 e1 0d 04 7e 31 e7 20 46 |.tRD..t....~1. F|
00000b20 4c 41 47 3d 30 20 46 4c 41 47 3d 31 3a 4e 58 3d |LAG=0 FLAG=1:NX=|
00000b30 58 3a 4e 59 3d 59 3a 43 4c 3d 33 3a d4 31 2c 2d |X:NY=Y:CL=3:.1,-|
00000b40 31 35 2c 31 30 30 2c 31 3a e1 0d 04 88 05 e1 0d |15,100,1:.......|
00000b50 04 92 35 e7 20 46 4c 41 47 3d 31 20 46 4c 41 47 |..5. FLAG=1 FLAG|
00000b60 3d 30 3a ec 20 4e 58 2c 4e 59 3a e6 30 2c 43 52 |=0:. NX,NY:.0,CR|
00000b70 3a df 58 2c 59 3a d4 31 2c 2d 31 35 2c 31 35 30 |:.X,Y:.1,-15,150|
00000b80 2c 31 3a e1 0d 04 9c 05 e1 0d 04 a6 0e dd f2 53 |,1:............S|
00000b90 41 56 45 28 52 24 29 0d 04 b0 20 ff 22 2a 53 41 |AVE(R$)... ."*SA|
00000ba0 56 45 20 22 2b 52 24 2b 22 20 46 46 33 30 30 30 |VE "+R$+" FF3000|
00000bb0 20 2b 35 30 30 30 22 0d 04 ba 05 e1 0d 04 c4 12 | +5000".........|
00000bc0 f2 53 41 56 45 28 22 57 4f 52 4b 53 22 29 0d 04 |.SAVE("WORKS")..|
00000bd0 ce 08 fb 31 32 39 0d 04 d8 19 ef 32 33 2c 31 2c |...129.....23,1,|
00000be0 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d |0,0,0,0,0,0,0,0.|
00000bf0 04 e2 22 f1 8a 31 30 2c 35 29 3b 22 2a 2a 2a 2a |.."..10,5);"****|
00000c00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000c10 22 0d 04 ec 22 f1 8a 31 30 2c 36 29 3b 22 2a 20 |"..."..10,6);"* |
00000c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000c30 20 2a 22 0d 04 f6 22 f1 8a 31 30 2c 37 29 3b 22 | *"..."..10,7);"|
00000c40 2a 20 20 20 48 65 61 64 6c 69 6e 65 20 74 65 78 |* Headline tex|
00000c50 74 20 20 2a 22 0d 05 00 22 f1 8a 31 30 2c 38 29 |t *"..."..10,8)|
00000c60 3b 22 2a 20 20 20 4e 6f 72 6d 61 6c 20 69 6e 70 |;"* Normal inp|
00000c70 75 74 20 20 20 2a 22 0d 05 0a 22 f1 8a 31 30 2c |ut *"..."..10,|
00000c80 39 29 3b 22 2a 20 20 20 47 72 61 70 68 69 63 73 |9);"* Graphics|
00000c90 20 6f 6e 20 20 20 20 2a 22 0d 05 14 23 f1 8a 31 | on *"...#..1|
00000ca0 30 2c 31 30 29 3b 22 2a 20 20 20 47 72 61 70 68 |0,10);"* Graph|
00000cb0 69 63 73 20 6f 66 66 20 20 20 2a 22 0d 05 1e 23 |ics off *"...#|
00000cc0 f1 8a 31 30 2c 31 31 29 3b 22 2a 20 20 20 53 70 |..10,11);"* Sp|
00000cd0 72 61 79 20 63 61 6e 20 20 20 20 20 20 2a 22 0d |ray can *".|
00000ce0 05 28 23 f1 8a 31 30 2c 31 32 29 3b 22 2a 20 20 |.(#..10,12);"* |
00000cf0 20 42 75 62 62 6c 65 20 54 65 78 74 20 20 20 20 | Bubble Text |
00000d00 2a 22 0d 05 32 23 f1 8a 31 30 2c 31 33 29 3b 22 |*"..2#..10,13);"|
00000d10 2a 20 20 20 53 61 76 65 20 64 6f 63 75 6d 65 6e |* Save documen|
00000d20 74 20 20 2a 22 0d 05 3c 23 f1 8a 31 30 2c 31 34 |t *"..<#..10,14|
00000d30 29 3b 22 2a 20 20 20 20 20 20 20 20 20 20 20 20 |);"* |
00000d40 20 20 20 20 20 20 2a 22 0d 05 46 23 f1 8a 31 30 | *"..F#..10|
00000d50 2c 31 35 29 3b 22 2a 20 55 73 65 20 63 75 72 73 |,15);"* Use curs|
00000d60 6f 72 20 6b 65 79 73 20 20 2a 22 0d 05 50 23 f1 |or keys *"..P#.|
00000d70 8a 31 30 2c 31 36 29 3b 22 2a 20 74 68 65 6e 20 |.10,16);"* then |
00000d80 52 45 54 55 52 4e 20 20 20 20 20 20 2a 22 0d 05 |RETURN *"..|
00000d90 5a 23 f1 8a 31 30 2c 31 37 29 3b 22 2a 2a 2a 2a |Z#..10,17);"****|
00000da0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000db0 22 0d 05 64 09 2a 46 58 32 31 0d 05 6e 07 41 3d |"..d.*FX21..n.A=|
00000dc0 37 0d 05 78 05 f5 0d 05 82 1c f1 8a 31 32 2c 41 |7..x........12,A|
00000dd0 29 3b 22 3e 22 3a f1 8a 32 37 2c 41 29 3b 22 3c |);">":..27,A);"<|
00000de0 22 3b 0d 05 8c 0d d1 3d 30 3a f5 fd 91 3e 35 0d |";.....=0:...>5.|
00000df0 05 96 08 4f 41 3d 41 0d 05 a0 11 41 3d 41 2b a6 |...OA=A....A=A+.|
00000e00 2d 35 38 2d a6 2d 34 32 0d 05 aa 0e e7 20 41 3c |-58-.-42..... A<|
00000e10 37 20 41 3d 31 33 0d 05 b4 0e e7 20 41 3e 31 33 |7 A=13..... A>13|
00000e20 20 41 3d 37 0d 05 be 2a e7 20 41 3c 3e 4f 41 20 | A=7...*. A<>OA |
00000e30 f1 8a 31 32 2c 4f 41 29 3b 22 20 22 3a f1 8a 32 |..12,OA);" ":..2|
00000e40 37 2c 4f 41 29 3b 22 20 22 3a 4f 41 3d 41 0d 05 |7,OA);" ":OA=A..|
00000e50 c8 0a fd 20 a6 2d 37 34 0d 05 d2 08 fb 31 32 38 |... .-74.....128|
00000e60 0d 05 dc 13 e7 20 41 3d 37 20 f2 4c 53 3a e5 8d |..... A=7 .LS:..|
00000e70 64 48 40 0d 05 e6 13 e7 20 41 3d 38 20 f2 4c 53 |dH@..... A=8 .LS|
00000e80 3a e5 8d 64 70 40 0d 05 f0 18 e7 20 41 3d 39 20 |:..dp@..... A=9 |
00000e90 f2 4c 53 3a 43 52 3d 33 3a e5 8d 54 44 41 0d 05 |.LS:CR=3:..TDA..|
00000ea0 fa 19 e7 20 41 3d 31 30 20 f2 4c 53 3a 43 52 3d |... A=10 .LS:CR=|
00000eb0 30 3a e5 8d 54 44 41 0d 06 04 1e e7 20 41 3d 31 |0:..TDA..... A=1|
00000ec0 31 20 f2 4c 53 3a f2 53 50 52 41 59 43 41 4e 3a |1 .LS:.SPRAYCAN:|
00000ed0 e5 8d 64 44 44 0d 06 0e 15 e7 20 41 3d 31 33 20 |..dDD..... A=13 |
00000ee0 f2 53 53 3a d7 22 54 50 32 22 0d 06 18 13 e7 20 |.SS:."TP2"..... |
00000ef0 41 3d 31 32 20 8c 20 d7 22 54 50 38 22 0d 06 22 |A=12 . ."TP8".."|
00000f00 0c ef 37 3a e5 8d 44 6e 45 0d 06 2c 08 dd f2 53 |..7:..DnE..,...S|
00000f10 53 0d 06 36 1b db 3a ef 32 33 2c 31 2c 30 2c 30 |S..6..:.23,1,0,0|
00000f20 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 06 40 1f |,0,0,0,0,0,0..@.|
00000f30 f1 22 50 72 65 70 61 72 65 20 74 6f 20 73 61 76 |."Prepare to sav|
00000f40 65 20 64 6f 63 75 6d 65 6e 74 22 0d 06 4a 07 f1 |e document"..J..|
00000f50 27 27 0d 06 54 08 2a 43 41 54 0d 06 5e 1e f1 27 |''..T.*CAT..^..'|
00000f60 22 50 6c 65 61 73 65 20 70 72 65 73 73 20 61 20 |"Please press a |
00000f70 6b 65 79 2e 2e 2e 2e 22 0d 06 68 09 2a 46 58 32 |key...."..h.*FX2|
00000f80 31 0d 06 72 07 41 3d a5 0d 06 7c 1b db 3a ef 32 |1..r.A=...|..:.2|
00000f90 33 2c 31 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c |3,1,0,0,0,0,0,0,|
00000fa0 30 2c 30 0d 06 86 0f 2a 4c 4f 41 44 20 57 4f 52 |0,0....*LOAD WOR|
00000fb0 4b 53 0d 06 90 1b fb 31 3a f1 8a 30 2c 33 30 29 |KS.....1:..0,30)|
00000fc0 3b c4 37 39 2c 22 20 22 29 3b 3a fb 33 0d 06 9a |;.79," ");:.3...|
00000fd0 1b f1 8a 30 2c 33 30 29 3b 3a e8 22 46 69 6c 65 |...0,30);:."File|
00000fe0 6e 61 6d 65 3a 22 58 24 0d 06 a4 1b fb 31 3a f1 |name:"X$.....1:.|
00000ff0 8a 30 2c 33 30 29 3b c4 37 39 2c 22 20 22 29 3b |.0,30);.79," ");|
00001000 3a fb 33 0d 06 ae 09 52 24 3d 58 24 0d 06 b8 0d |:.3....R$=X$....|
00001010 f2 53 41 56 45 28 58 24 29 0d 06 c2 05 e1 0d 06 |.SAVE(X$).......|
00001020 cc 08 dd f2 4c 53 0d 06 d6 1b db 3a ef 32 33 2c |....LS.....:.23,|
00001030 31 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c |1,0,0,0,0,0,0,0,|
00001040 30 0d 06 e0 0f 2a 4c 4f 41 44 20 57 4f 52 4b 53 |0....*LOAD WORKS|
00001050 0d 06 ea 05 e1 0d 06 f4 24 dd f2 53 50 52 41 59 |........$..SPRAY|
00001060 43 41 4e 3a ef 32 33 2c 31 2c 30 2c 30 2c 30 2c |CAN:.23,1,0,0,0,|
00001070 30 2c 30 2c 30 2c 30 2c 30 0d 06 fe 63 fb 31 3a |0,0,0,0,0...c.1:|
00001080 f1 8a 30 2c 33 30 29 3b 22 55 73 65 20 63 75 72 |..0,30);"Use cur|
00001090 73 6f 72 20 6b 65 79 73 20 74 6f 20 6d 6f 76 65 |sor keys to move|
000010a0 20 52 45 54 55 52 4e 20 74 6f 20 73 70 72 61 79 | RETURN to spray|
000010b0 20 50 72 65 73 73 20 66 30 20 74 6f 20 72 65 74 | Press f0 to ret|
000010c0 75 72 6e 20 74 6f 20 6d 65 6e 75 2e 20 20 20 20 |urn to menu. |
000010d0 20 20 20 20 20 20 20 22 3b 3a fb 33 0d 07 08 0b | ";:.3....|
000010e0 58 3d 30 3a 59 3d 30 0d 07 12 0d 4f 58 3d 30 3a |X=0:Y=0....OX=0:|
000010f0 4f 59 3d 30 0d 07 1c 05 f5 0d 07 26 0c e7 20 a6 |OY=0.......&.. .|
00001100 2d 33 33 20 e1 0d 07 30 0c 43 4c 3d b0 58 2c 59 |-33 ...0.CL=.X,Y|
00001110 29 0d 07 3a 08 e6 30 2c 32 0d 07 44 09 ec 20 58 |)..:..0,2..D.. X|
00001120 2c 59 0d 07 4e 09 df 20 58 2c 59 0d 07 58 0d 4f |,Y..N.. X,Y..X.O|
00001130 58 3d 58 3a 4f 59 3d 59 0d 07 62 20 58 3d 58 2d |X=X:OY=Y..b X=X-|
00001140 a6 2d 31 32 32 2b a6 2d 32 36 3a 59 3d 59 2d a6 |.-122+.-26:Y=Y-.|
00001150 2d 35 38 2b a6 2d 34 32 0d 07 6c 44 e7 20 a6 2d |-58+.-42..lD. .-|
00001160 31 20 8c 20 58 3d 58 2d 28 28 a6 2d 31 32 32 29 |1 . X=X-((.-122)|
00001170 2a 31 30 29 2b 28 28 a6 2d 32 36 29 2a 31 30 29 |*10)+((.-26)*10)|
00001180 3a 59 3d 59 2d 28 28 a6 2d 35 38 29 2a 31 30 29 |:Y=Y-((.-58)*10)|
00001190 2b 28 28 a6 2d 34 32 29 2a 31 30 29 0d 07 76 10 |+((.-42)*10)..v.|
000011a0 e6 30 2c 43 4c 3a df 4f 58 2c 4f 59 0d 07 80 0d |.0,CL:.OX,OY....|
000011b0 e7 20 58 3c 30 20 58 3d 30 0d 07 8a 13 e7 20 58 |. X<0 X=0..... X|
000011c0 3e 31 32 37 38 20 58 3d 31 32 37 38 0d 07 94 0d |>1278 X=1278....|
000011d0 e7 20 59 3c 30 20 59 3d 30 0d 07 9e 13 e7 20 59 |. Y<0 Y=0..... Y|
000011e0 3e 31 30 32 33 20 59 3d 31 30 32 33 0d 07 a8 11 |>1023 Y=1023....|
000011f0 e7 20 a6 2d 37 34 20 f2 53 50 52 41 59 0d 07 b2 |. .-74 .SPRAY...|
00001200 07 fd 20 a3 0d 07 bc 0b dd f2 53 50 52 41 59 0d |.. .......SPRAY.|
00001210 07 c6 0c e3 53 50 52 3d 31 b8 37 0d 07 d0 0d 4f |....SPR=1.7....O|
00001220 59 3d 59 3a 4f 58 3d 58 0d 07 da 13 51 3d b3 28 |Y=Y:OX=X....Q=.(|
00001230 32 30 29 3a 57 3d b3 28 32 30 29 0d 07 e4 0a 52 |20):W=.(20)....R|
00001240 3d b3 28 32 29 0d 07 ee 23 e7 20 52 3d 31 20 51 |=.(2)...#. R=1 Q|
00001250 3d 51 2b 59 3a 57 3d 57 2b 58 20 8b 20 51 3d 51 |=Q+Y:W=W+X . Q=Q|
00001260 2d 59 3a 57 3d 57 2d 58 0d 07 f8 08 ec 57 2c 51 |-Y:W=W-X.....W,Q|
00001270 0d 08 02 08 e6 30 2c 33 0d 08 0c 08 df 57 2c 51 |.....0,3.....W,Q|
00001280 0d 08 16 0d 59 3d 4f 59 3a 58 3d 4f 58 0d 08 20 |....Y=OY:X=OX.. |
00001290 08 ed 53 50 52 0d 08 2a 05 e1 0d ff |..SPR..*....|
0000129c 
TP3.m0
TP3.m1
TP3.m2
TP3.m4
TP3.m5
.