8bitDisc/TURBO

Home » Archimedes archive » Micro User » MU 1991-12.adf » Listings » 8bitDisc/TURBO

8bitDisc/TURBO

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 » Archimedes archive » Micro User » MU 1991-12.adf » Listings
Filename:	8bitDisc/TURBO
Read OK:	✔
File size:	17D9 bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Micro User » MU 1991-12.adf » Listings » 8bitDisc/TURBO
AEW website » mu » mu_5_25_discs_Micro_User_09_10_D-MU09_10.ssd » TURBO

File contents

   10REM *****************************
   20REM **    Turbo Publisher      **
   30REM **                         **
   40REM **  Written by Neil Gorin  **
   41REM **                         **
   42REM **  4 Rookwood Drive       **
   43REM **  Stevenage              **
   44REM **  Herts SG2 8PJ          **
   45REM **                         **
   46REM **  Always interested in   **
   47REM **  any comments about     **
   48REM **  my software            **
   50REM **                         **
   60REM *****************************
   70MODE1:VDU23,1,0,0,0,0,0,0,0,0:*FX4,2
   80ONERROR IF ERR=254 REPORT:Q=GET:GOTO1220 ELSE IF ERR=17 GOTO 1220 ELSE REPORT:PRINTERL:END
   90*LOAD DUMPCOD
  100*FX200,1
  110GOTO1220
  120VDU23,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
  130X=0:Y=0
  140PROCGETXY
  150PROCINPUT(X,Y):GOTO1650
  160VDU23,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
  170PROCGENERAL:GOTO1650
  180VDU23,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
  190PROCLINES:GOTO1650
  200DEFPROCINPUT(X,P)
  210COLOUR1:PRINTTAB(0,30);"Please type line and press RETURN       when complete.                         ";:COLOUR3
  220REPEAT X=X+1:IF X>39 X=39
  230A$=GET$:IF A$=CHR$(13) THEN ENDPROC
  240IF A$=CHR$(127) AND X>1 X=X-1:A$=" ":BS=TRUE ELSE BS=FALSE
  250PROCX8(A$)
  260IF BS THEN X=X-1
  270UNTIL FALSE
  280DEFPROCX8(X$)
  290I=1:PROCDOUBLE(X$)
  300I=2:PROCDOUBLE(CHR$(231))
  310I=3:PROCDOUBLE(CHR$(241))
  320I=4:PROCDOUBLE(CHR$(232))
  330I=5:PROCDOUBLE(CHR$(242))
  340I=6:PROCDOUBLE(CHR$(233))
  350I=7:PROCDOUBLE(CHR$(243))
  360PRINTTAB((X-1),P);CHR$(234)
  370PRINTTAB((X-1),P+1);CHR$(244)
  380PRINTTAB((X-1),P+2);CHR$(235)
  390PRINTTAB((X-1),P+3);CHR$(245)
  400PRINTTAB((X-1),P+4);CHR$(236)
  410PRINTTAB((X-1),P+5);CHR$(246)
  420PRINTTAB((X-1),P+6);CHR$(237)
  430PRINTTAB((X-1),P+7);CHR$(247)
  440ENDPROC
  450DEFPROCDOUBLE(A$)
  460?&70=ASC(A$)
  470A%=10:X%=&70:Y%=0:CALL &FFF1
  480VDU23,230+I,?&71,?&71,?&72,?&72,?&73,?&73,?&74,?&74
  490VDU23,240+I,?&75,?&75,?&76,?&76,?&77,?&77,?&78,?&78
  500ENDPROC
  510DEFPROCGETXY
  520PRINTTAB(X,Y);"X";
  530IF INKEY-106 PRINTTAB(X,Y);" ";:OSCLI"*FX21,0":ENDPROC
  540OX=X:OY=Y:TIME=0:REPEATUNTILTIME>5
  550X=X-INKEY-122+INKEY-26
  560Y=Y+INKEY-58-INKEY-42
  570IF X<0 X=0
  580IF X>38 X=38
  590IF Y<0 Y=0
  600IF Y>28 Y=28
  610PRINTTAB(OX,OY);" ";
  620GOTO520
  630DEFPROCGENERAL:VDU23,1,1,0,0,0,0,0,0,0
  640X=0:Y=0
  650TIME=0:REPEAT UNTIL TIME>5
  660X=X-INKEY-122+INKEY-26
  670Y=Y+INKEY-58-INKEY-42
  680IF X<0 X=0
  690IF X>38 X=38
  700IF Y<0 Y=0
  710IF Y>28 Y=28
  720PRINTTAB(X,Y);
  730A=INKEY-97:A$=INKEY$(0)
  740IF A$=CHR$(13) THEN Y=Y+1:X=0:GOTO680
  750IF A$=CHR$(127) AND X>0 X=X-1:PRINTTAB(X,Y);" ";:GOTO650
  760IF A$=CHR$(9) THEN 730
  770IF INKEY-33 ENDPROC
  780IF A$<>"" AND A I=1:PROCDOUBLE(A$):PRINTTAB(X,Y);CHR$(231):PRINTTAB(X,Y+1);CHR$(241):X=X+1:GOTO690
  790IF A$<>"" PRINTTAB(X,Y);A$:X=X+1:GOTO690
  800GOTO650
  810DEFPROCLINES
  820X=0:Y=0
  830FLAG=0
  840OX=0:OY=0
  850NX=0:NY=0
  860REPEAT
  870IF INKEY-33 ENDPROC
  880CL=POINT(X,Y)
  890GCOL0,2
  900MOVE X,Y
  910DRAW X,Y
  920OX=X:OY=Y
  930X=X-INKEY-122+INKEY-26:Y=Y-INKEY-58+INKEY-42
  940IF INKEY-1 THEN X=X-((INKEY-122)*10)+((INKEY-26)*10):Y=Y-((INKEY-58)*10)+((INKEY-42)*10)
  950GCOL0,CL:DRAWOX,OY
  960IF X<0 X=0
  970IF X>1278 X=1278
  980IF Y<0 Y=0
  990IF Y>1023 Y=1023
 1000PROCGETCOPY
 1010UNTIL FALSE
 1020DEFPROCGETCOPY
 1030A=INKEY-106:B=INKEY-90
 1040IF A GOTO 1070
 1050IF B GOTO 1090
 1060ENDPROC
 1070IF FLAG=0 FLAG=1:NX=X:NY=Y:CL=3:SOUND1,-15,100,1:ENDPROC
 1080ENDPROC
 1090IF FLAG=1 FLAG=0:MOVE NX,NY:GCOL0,CL%:DRAWX,Y:SOUND1,-15,150,1:ENDPROC
 1100ENDPROC
 1110DEFPROCSAVE(X$)
 1120OSCLI"*SAVE "+X$+" 2800 8000 FF5800"
 1130ENDPROC
 1140REM LOAD ROUTINE
 1150CLS:VDU23,1,0,0,0,0,0,0,0,0
 1160OSCLI"*CAT"
 1170*FX21
 1180INPUT'"Enter filename for screen:"X$
 1190CLS
 1200OSCLI"*LOAD "+X$
 1210RETURN
 1220MODE7
 1230VDU23,1,0,0,0,0,0,0,0,0
 1240FORI=1TO2:PRINTSTRING$(6," ")CHR$(141);CHR$(129);CHR$(157);CHR$(131);"Turbo Publisher ";CHR$(156):NEXTI
 1250PRINT'''CHR$(131);"     ";CHR$(129);"Design new page     "CHR$(156)
 1260PRINT'CHR$(131);"     ";CHR$(129);"Edit saved screen     "CHR$(156)
 1270PRINT'CHR$(131);"     ";CHR$(129);"Display saved screen  "CHR$(156)
 1280PRINT'CHR$(131);"     ";CHR$(129);"Print saved screen    "CHR$(156)
 1290PRINT'CHR$(131);"     ";CHR$(129);"Issue star command    "CHR$(156)
 1300PRINT'CHR$(131);"     ";CHR$(129);"Quit application      "CHR$(156)
 1310PRINT''CHR$(129);CHR$(157);CHR$(131);"Please select option using cursor"'CHR$(129);CHR$(157);CHR$(131);"keys and press RETURN to confirm."
 1320*FX21,0
 1330*FX4,2
 1340PS=5
 1350PRINTTAB(5,PS);CHR$(157)
 1360TIME=0:REPEATUNTILTIME>5:*FX21
 1370IF INKEY-74 THEN 1430
 1380IF INKEY-42 PRINTTAB(5,PS);" ":PS=PS+2
 1390IF INKEY-58 PRINTTAB(5,PS);" ":PS=PS-2
 1400IF PS<5 PS=15
 1410IF PS>15 PS=5
 1420GOTO1350
 1430*FX4,2
 1440IF PS=7 MODE1:VDU23,1,0,0,0,0,0,0,0,0:GOSUB1150:GOTO1650
 1450IF PS=11 MODE1:VDU23,1,0,0,0,0,0,0,0,0:GOTO1520
 1460IF PS=9 MODE1:VDU23,1,0,0,0,0,0,0,0,0:GOSUB1150:COLOUR1:PRINTTAB(0,31);"Press space for menu...";:X$=GET$:COLOUR3:GOTO1220
 1470IF PS=5 MODE1:VDU23,1,0,0,0,0,0,0,0,0:PROCSAVE("WORKS"):GOTO1660
 1480IF PS=15 CLS:VDU23,1,1,0,0,0,0,0,0,0:END
 1490IF PS=13 VDU23,1,1,0,0,0,0,0,0,0:PROCSTAR
 1500GOTO1220
 1510REM Dump
 1520CLEAR
 1530CLS:VDU23,1,0,0,0,0,0,0,0,0:PRINT"Print Screen"':GOSUB1160
 1540VDU2:CALL&A00:VDU3
 1550CLEAR:GOTO1220
 1560DEFPROCSTAR
 1570CLS
 1580Q=INKEY(50):*FX21
 1590PRINTCHR$(130);"Issue star command - Press RETURN"'CHR$(130);"on its own for the menu."''
 1600INPUTLINE"*"STAR$
 1610IF STAR$="" ENDPROC
 1620OSCLI(STAR$)
 1630GOTO1600
 1640REM MENU ROUTINE
 1650PROCSAVE("WORKS")
 1660COLOUR129
 1670VDU23,1,0,0,0,0,0,0,0,0
 1680PRINTTAB(10,5);"********************"
 1690PRINTTAB(10,6);"*                  *"
 1700PRINTTAB(10,7);"*   Headline text  *"
 1710PRINTTAB(10,8);"*   Normal input   *"
 1720PRINTTAB(10,9);"*   Graphics on    *"
 1730PRINTTAB(10,10);"*   Graphics off   *"
 1740PRINTTAB(10,11);"*   Spray can      *"
 1750PRINTTAB(10,12);"*   Save Screen    *"
 1760PRINTTAB(10,13);"*                  *"
 1770PRINTTAB(10,14);"* Use cursor keys  *"
 1780PRINTTAB(10,15);"* then RETURN      *"
 1790PRINTTAB(10,16);"********************"
 1800*FX21
 1810A=7
 1820REPEAT
 1830PRINTTAB(12,A);">":PRINTTAB(27,A);"<";
 1840TIME=0:REPEATUNTILTIME>5
 1850OA=A
 1860A=A+INKEY-58-INKEY-42
 1870IF A<7 A=12
 1880IF A>12 A=7
 1890IF A<>OA PRINTTAB(12,OA);" ":PRINTTAB(27,OA);" ":OA=A
 1900UNTIL INKEY-74
 1910COLOUR128
 1920IF A=7 PROCLS:GOTO120
 1930IF A=8 PROCLS:GOTO160
 1940IF A=9 PROCLS:CL%=3:GOTO180
 1950IF A=10 PROCLS:CL%=0:GOTO180
 1960IF A=11 PROCLS:PROCSPRAYCAN:GOTO1650
 1970IF A=12 PROCSS:RUN
 1980VDU7:GOTO1810
 1990DEFPROCSS
 2000CLS:VDU23,1,0,0,0,0,0,0,0,0
 2010PRINT"Prepare to save screen"
 2020PRINT''
 2030*CAT
 2040*FX21
 2050INPUT'"Enter filename:"X$
 2060CLS:VDU23,1,0,0,0,0,0,0,0,0
 2070*LOAD WORKS
 2080COLOUR1:PRINTTAB(0,30);STRING$(79," ");:COLOUR3
 2090PROCSAVE(X$)
 2100ENDPROC
 2110DEFPROCLS
 2120CLS:VDU23,1,0,0,0,0,0,0,0,0
 2130*LOAD WORKS
 2140ENDPROC
 2150DEFPROCSPRAYCAN:VDU23,1,0,0,0,0,0,0,0,0
 2160COLOUR1:PRINTTAB(0,30);"Use cursor keys to move RETURN to spray Press f0 to return to menu.           ";:COLOUR3
 2170X=0:Y=0
 2180OX=0:OY=0
 2190REPEAT
 2200IF INKEY-33 ENDPROC
 2210CL=POINT(X,Y)
 2220GCOL0,2
 2230MOVE X,Y
 2240DRAW X,Y
 2250OX=X:OY=Y
 2260X=X-INKEY-122+INKEY-26:Y=Y-INKEY-58+INKEY-42
 2270IF INKEY-1 THEN X=X-((INKEY-122)*10)+((INKEY-26)*10):Y=Y-((INKEY-58)*10)+((INKEY-42)*10)
 2280GCOL0,CL:DRAWOX,OY
 2290IF X<0 X=0
 2300IF X>1278 X=1278
 2310IF Y<0 Y=0
 2320IF Y>1023 Y=1023
 2330IF INKEY-74 PROCSPRAY
 2340UNTIL FALSE
 2350DEFPROCSPRAY
 2360OY=Y:OX=X:X=X-50:Y=Y-60
 2370Q=RND(100):W=RND(100)
 2380R=RND(2)
 2390IF R=1 Q=Q+Y:W=W+X ELSE Q=Q-Y:W=W-X
 2400MOVEW,Q
 2410GCOL0,3
 2420DRAWW,Q
 2430Y=OY:X=OX
 2440ENDPROC


#� *****************************
#� **    Turbo Publisher      **
#� **                         **
(#� **  Written by Neil Gorin  **
)#� **                         **
*#� **  4 Rookwood Drive       **
+#� **  Stevenage              **
,#� **  Herts SG2 8PJ          **
-#� **                         **
.#� **  Always interested in   **
/#� **  any comments about     **
0#� **  my software            **
2#� **                         **
<#� *****************************
F#�1:�23,1,0,0,0,0,0,0,0,0:*FX4,2
P3� � �=254 �:Q=�:�dDD � � �=17 � �dDD � �:�:�
Z*LOAD DUMPCOD
d*FX200,1
n	�dDD
xz�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):�DrF
�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:�DrF
�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:�DrF
���INPUT(X,P)
�d�1:�0,30);"Please type line and press RETURN       when complete.                         ";:�3
�� X=X+1:� X>39 X=39
�A$=�:� A$=�(13) � �
�.� A$=�(127) � X>1 X=X-1:A$=" ":BS=� � BS=�
��X8(A$)
� BS � X=X-1
� �
��X8(X$)
"I=1:�DOUBLE(X$)
,I=2:�DOUBLE(�(231))
6I=3:�DOUBLE(�(241))
@I=4:�DOUBLE(�(232))
JI=5:�DOUBLE(�(242))
TI=6:�DOUBLE(�(233))
^I=7:�DOUBLE(�(243))
h�(X-1),P);�(234)
r�(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
�5�23,230+I,?&71,?&71,?&72,?&72,?&73,?&73,?&74,?&74
�5�23,240+I,?&75,?&75,?&76,?&76,?&77,?&77,?&78,?&78
��
���GETXY
�X,Y);"X";
$� �-106 �X,Y);" ";:�"*FX21,0":�
OX=X:OY=Y:�=0:���>5
&X=X-�-122+�-26
0Y=Y+�-58-�-42
:
� X<0 X=0
D� X>38 X=38
N
� Y<0 Y=0
X� Y>28 Y=28
b�OX,OY);" ";
l	�THB
v#��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)
� � A$=�(13) � Y=Y+1:X=0:�thB
�-� A$=�(127) � X>0 X=X-1:�X,Y);" ";:�tJB
�� A$=�(9) � �dZB
� �-33 �
J� A$<>"" � A I=1:�DOUBLE(A$):�X,Y);�(231):�X,Y+1);�(241):X=X+1:�trB
"� A$<>"" �X,Y);A$:X=X+1:�trB
 	�tJB
*��LINES
4X=0:Y=0
>
FLAG=0
H
OX=0:OY=0
R
NX=0:NY=0
\�
f� �-33 �
pCL=�X,Y)
z�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
��GETCOPY
�� �
�
��GETCOPY
A=�-106:B=�-90
� A � �TnD
� B � �DBD
$�
.1� FLAG=0 FLAG=1:NX=X:NY=Y:CL=3:�1,-15,100,1:�
8�
B6� FLAG=1 FLAG=0:� NX,NY:�0,CL%:�X,Y:�1,-15,150,1:�
L�
V��SAVE(X$)
`$�"*SAVE "+X$+" 2800 8000 FF5800"
j�
t� LOAD ROUTINE
~�:�23,1,0,0,0,0,0,0,0,0
��"*CAT"
�	*FX21
�$�'"Enter filename for screen:"X$
��
��"*LOAD "+X$
��
��7
��23,1,0,0,0,0,0,0,0,0
�K�I=1�2:��6," ")�(141);�(129);�(157);�(131);"Turbo Publisher ";�(156):�I
�:�'''�(131);"     ";�(129);"Design new page     "�(156)
�:�'�(131);"     ";�(129);"Edit saved screen     "�(156)
�:�'�(131);"     ";�(129);"Display saved screen  "�(156)
:�'�(131);"     ";�(129);"Print saved screen    "�(156)

:�'�(131);"     ";�(129);"Issue star command    "�(156)
:�'�(131);"     ";�(129);"Quit application      "�(156)
x�''�(129);�(157);�(131);"Please select option using cursor"'�(129);�(157);�(131);"keys and press RETURN to confirm."
(*FX21,0
2
*FX4,2
<PS=5
F�5,PS);�(157)
P�=0:���>5:*FX21
Z� �-74 � �tVE
d� �-42 �5,PS);" ":PS=PS+2
n� �-58 �5,PS);" ":PS=PS-2
x� PS<5 PS=15
�� PS>15 PS=5
�	�DFE
�
*FX4,2
�/� PS=7 �1:�23,1,0,0,0,0,0,0,0,0:�D~D:�DrF
�*� PS=11 �1:�23,1,0,0,0,0,0,0,0,0:�dpE
�]� PS=9 �1:�23,1,0,0,0,0,0,0,0,0:�D~D:�1:�0,31);"Press space for menu...";:X$=�:�3:�dDD
�8� PS=5 �1:�23,1,0,0,0,0,0,0,0,0:�SAVE("WORKS"):�D|F
�%� PS=15 �:�23,1,1,0,0,0,0,0,0,0:�
�'� PS=13 �23,1,1,0,0,0,0,0,0,0:�STAR
�	�dDD
�
� Dump
��
�2�:�23,1,0,0,0,0,0,0,0,0:�"Print Screen"':�tHD
�2:�&A00:�3
�:�dDD

��STAR
"�
,Q=�(50):*FX21
6S�(130);"Issue star command - Press RETURN"'�(130);"on its own for the menu."''
@�"*"STAR$
J� STAR$="" �
T�(STAR$)
^	�D@F
h� MENU ROUTINE
r�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);"*   Save Screen    *"
�#�10,13);"*                  *"
�#�10,14);"* Use cursor keys  *"
�#�10,15);"* then RETURN      *"
�#�10,16);"********************"
	*FX21
A=7
�
&�12,A);">":�27,A);"<";
0
�=0:���>5
:OA=A
DA=A+�-58-�-42
N� A<7 A=12
X� A>12 A=7
b*� A<>OA �12,OA);" ":�27,OA);" ":OA=A
l
� �-74
v�128
�� A=7 �LS:�Dx@
�� A=8 �LS:�t`@
�� A=9 �LS:CL%=3:�tt@
�� A=10 �LS:CL%=0:�tt@
�� A=11 �LS:�SPRAYCAN:�DrF
�� A=12 �SS:�
��7:�TRG
���SS
��:�23,1,0,0,0,0,0,0,0,0
��"Prepare to save screen"
��''
�*CAT
�	*FX21
�'"Enter filename:"X$
�:�23,1,0,0,0,0,0,0,0,0
*LOAD WORKS
 �1:�0,30);�79," ");:�3
*
�SAVE(X$)
4�
>��LS
H�:�23,1,0,0,0,0,0,0,0,0
R*LOAD WORKS
\�
f$��SPRAYCAN:�23,1,0,0,0,0,0,0,0,0
pc�1:�0,30);"Use cursor keys to move RETURN to spray Press f0 to return to menu.           ";:�3
zX=0:Y=0
�
OX=0:OY=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
	� �-74 �SPRAY
	$� �
	.��SPRAY
	8OY=Y:OX=X:X=X-50:Y=Y-60
	BQ=�(100):W=�(100)
	L
R=�(2)
	V#� R=1 Q=Q+Y:W=W+X � Q=Q-Y:W=W-X
	`�W,Q
	j�0,3
	t�W,Q
	~
Y=OY:X=OX
	��
�

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 29 23  |il Gorin  **..)#|
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 2a 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 2b 23 f4 20  2a 2a 20 20 53 74 65 76  |**..+#. **  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 2c  23 f4 20 2a 2a 20 20 48  |   **..,#. **  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 2d 23 f4 20 2a 2a  |      **..-#. **|
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 2e 23 f4  |         **...#.|
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  2f 23 f4 20 2a 2a 20 20  61 6e 79 20 63 6f 6d 6d  |/#. **  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 30 23 f4 20 2a  2a 20 20 6d 79 20 73 6f  |*..0#. **  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 32 23  f4 20 2a 2a 20 20 20 20  |  **..2#. **    |
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 3c 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 46 23 eb 31  |**********..F#.1|
000001f0  3a ef 32 33 2c 31 2c 30  2c 30 2c 30 2c 30 2c 30  |:.23,1,0,0,0,0,0|
00000200  2c 30 2c 30 2c 30 3a 2a  46 58 34 2c 32 0d 00 50  |,0,0,0:*FX4,2..P|
00000210  33 ee 85 20 e7 20 9f 3d  32 35 34 20 f6 3a 51 3d  |3.. . .=254 .:Q=|
00000220  a5 3a e5 8d 64 44 44 20  8b 20 e7 20 9f 3d 31 37  |.:..dDD . . .=17|
00000230  20 e5 20 8d 64 44 44 20  8b 20 f6 3a f1 9e 3a e0  | . .dDD . .:..:.|
00000240  0d 00 5a 11 2a 4c 4f 41  44 20 44 55 4d 50 43 4f  |..Z.*LOAD DUMPCO|
00000250  44 0d 00 64 0c 2a 46 58  32 30 30 2c 31 0d 00 6e  |D..d.*FX200,1..n|
00000260  09 e5 8d 64 44 44 0d 00  78 7a ef 32 33 2c 31 2c  |...dDD..xz.23,1,|
00000270  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 3a  |0,0,0,0,0,0,0,0:|
00000280  fb 31 3a f1 8a 30 2c 33  30 29 3b 22 50 6f 73 69  |.1:..0,30);"Posi|
00000290  74 69 6f 6e 20 58 20 74  6f 20 74 6f 70 20 6c 65  |tion X to top le|
000002a0  66 74 20 68 61 6e 64 20  63 6f 72 6e 65 72 20 6f  |ft hand corner o|
000002b0  66 20 20 20 68 65 61 64  6c 69 6e 65 20 61 6e 64  |f   headline and|
000002c0  20 70 72 65 73 73 20 43  6f 70 79 2e 20 20 20 20  | press Copy.    |
000002d0  20 20 20 20 20 20 20 20  20 20 20 22 3b 3a fb 33  |           ";:.3|
000002e0  0d 00 82 0b 58 3d 30 3a  59 3d 30 0d 00 8c 0a f2  |....X=0:Y=0.....|
000002f0  47 45 54 58 59 0d 00 96  15 f2 49 4e 50 55 54 28  |GETXY.....INPUT(|
00000300  58 2c 59 29 3a e5 8d 44  72 46 0d 00 a0 7a ef 32  |X,Y):..DrF...z.2|
00000310  33 2c 31 2c 31 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |3,1,1,0,0,0,0,0,|
00000320  30 2c 30 3a fb 31 3a f1  8a 30 2c 33 30 29 3b 22  |0,0:.1:..0,30);"|
00000330  50 72 65 73 73 20 54 41  42 20 77 69 74 68 20 63  |Press TAB with c|
00000340  68 61 72 61 63 74 65 72  20 66 6f 72 20 64 6f 75  |haracter for dou|
00000350  62 6c 65 20 20 20 20 20  68 65 69 67 68 74 20 2d  |ble     height -|
00000360  20 70 72 65 73 73 20 66  30 20 66 6f 72 20 73 75  | press f0 for su|
00000370  62 2d 6d 65 6e 75 20 20  20 20 20 20 20 20 20 22  |b-menu         "|
00000380  3b 3a fb 33 0d 00 aa 12  f2 47 45 4e 45 52 41 4c  |;:.3.....GENERAL|
00000390  3a e5 8d 44 72 46 0d 00  b4 7a ef 32 33 2c 31 2c  |:..DrF...z.23,1,|
000003a0  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 3a  |0,0,0,0,0,0,0,0:|
000003b0  fb 31 3a f1 8a 30 2c 33  30 29 3b 22 44 72 61 77  |.1:..0,30);"Draw|
000003c0  20 6c 69 6e 65 73 2e 20  50 6f 73 69 74 69 6f 6e  | lines. Position|
000003d0  20 63 75 72 73 6f 72 20  61 6e 64 20 70 72 65 73  | cursor and pres|
000003e0  73 20 20 20 43 6f 70 79  20 74 6f 20 73 65 6c 65  |s   Copy to sele|
000003f0  63 74 20 44 65 6c 20 74  6f 20 64 72 61 77 2e 20  |ct Del to draw. |
00000400  66 30 20 73 75 62 2d 6d  65 6e 75 22 3b 3a fb 33  |f0 sub-menu";:.3|
00000410  0d 00 be 10 f2 4c 49 4e  45 53 3a e5 8d 44 72 46  |.....LINES:..DrF|
00000420  0d 00 c8 10 dd f2 49 4e  50 55 54 28 58 2c 50 29  |......INPUT(X,P)|
00000430  0d 00 d2 64 fb 31 3a f1  8a 30 2c 33 30 29 3b 22  |...d.1:..0,30);"|
00000440  50 6c 65 61 73 65 20 74  79 70 65 20 6c 69 6e 65  |Please type line|
00000450  20 61 6e 64 20 70 72 65  73 73 20 52 45 54 55 52  | and press RETUR|
00000460  4e 20 20 20 20 20 20 20  77 68 65 6e 20 63 6f 6d  |N       when com|
00000470  70 6c 65 74 65 2e 20 20  20 20 20 20 20 20 20 20  |plete.          |
00000480  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00000490  3b 3a fb 33 0d 00 dc 17  f5 20 58 3d 58 2b 31 3a  |;:.3..... X=X+1:|
000004a0  e7 20 58 3e 33 39 20 58  3d 33 39 0d 00 e6 17 41  |. X>39 X=39....A|
000004b0  24 3d be 3a e7 20 41 24  3d bd 28 31 33 29 20 8c  |$=.:. A$=.(13) .|
000004c0  20 e1 0d 00 f0 2e e7 20  41 24 3d bd 28 31 32 37  | ...... A$=.(127|
000004d0  29 20 80 20 58 3e 31 20  58 3d 58 2d 31 3a 41 24  |) . X>1 X=X-1:A$|
000004e0  3d 22 20 22 3a 42 53 3d  b9 20 8b 20 42 53 3d a3  |=" ":BS=. . BS=.|
000004f0  0d 00 fa 0b f2 58 38 28  41 24 29 0d 01 04 10 e7  |.....X8(A$).....|
00000500  20 42 53 20 8c 20 58 3d  58 2d 31 0d 01 0e 07 fd  | BS . X=X-1.....|
00000510  20 a3 0d 01 18 0c dd f2  58 38 28 58 24 29 0d 01  | .......X8(X$)..|
00000520  22 13 49 3d 31 3a f2 44  4f 55 42 4c 45 28 58 24  |".I=1:.DOUBLE(X$|
00000530  29 0d 01 2c 17 49 3d 32  3a f2 44 4f 55 42 4c 45  |)..,.I=2:.DOUBLE|
00000540  28 bd 28 32 33 31 29 29  0d 01 36 17 49 3d 33 3a  |(.(231))..6.I=3:|
00000550  f2 44 4f 55 42 4c 45 28  bd 28 32 34 31 29 29 0d  |.DOUBLE(.(241)).|
00000560  01 40 17 49 3d 34 3a f2  44 4f 55 42 4c 45 28 bd  |.@.I=4:.DOUBLE(.|
00000570  28 32 33 32 29 29 0d 01  4a 17 49 3d 35 3a f2 44  |(232))..J.I=5:.D|
00000580  4f 55 42 4c 45 28 bd 28  32 34 32 29 29 0d 01 54  |OUBLE(.(242))..T|
00000590  17 49 3d 36 3a f2 44 4f  55 42 4c 45 28 bd 28 32  |.I=6:.DOUBLE(.(2|
000005a0  33 33 29 29 0d 01 5e 17  49 3d 37 3a f2 44 4f 55  |33))..^.I=7:.DOU|
000005b0  42 4c 45 28 bd 28 32 34  33 29 29 0d 01 68 15 f1  |BLE(.(243))..h..|
000005c0  8a 28 58 2d 31 29 2c 50  29 3b bd 28 32 33 34 29  |.(X-1),P);.(234)|
000005d0  0d 01 72 17 f1 8a 28 58  2d 31 29 2c 50 2b 31 29  |..r...(X-1),P+1)|
000005e0  3b bd 28 32 34 34 29 0d  01 7c 17 f1 8a 28 58 2d  |;.(244)..|...(X-|
000005f0  31 29 2c 50 2b 32 29 3b  bd 28 32 33 35 29 0d 01  |1),P+2);.(235)..|
00000600  86 17 f1 8a 28 58 2d 31  29 2c 50 2b 33 29 3b bd  |....(X-1),P+3);.|
00000610  28 32 34 35 29 0d 01 90  17 f1 8a 28 58 2d 31 29  |(245)......(X-1)|
00000620  2c 50 2b 34 29 3b bd 28  32 33 36 29 0d 01 9a 17  |,P+4);.(236)....|
00000630  f1 8a 28 58 2d 31 29 2c  50 2b 35 29 3b bd 28 32  |..(X-1),P+5);.(2|
00000640  34 36 29 0d 01 a4 17 f1  8a 28 58 2d 31 29 2c 50  |46)......(X-1),P|
00000650  2b 36 29 3b bd 28 32 33  37 29 0d 01 ae 17 f1 8a  |+6);.(237)......|
00000660  28 58 2d 31 29 2c 50 2b  37 29 3b bd 28 32 34 37  |(X-1),P+7);.(247|
00000670  29 0d 01 b8 05 e1 0d 01  c2 10 dd f2 44 4f 55 42  |)...........DOUB|
00000680  4c 45 28 41 24 29 0d 01  cc 0e 3f 26 37 30 3d 97  |LE(A$)....?&70=.|
00000690  28 41 24 29 0d 01 d6 1d  41 25 3d 31 30 3a 58 25  |(A$)....A%=10:X%|
000006a0  3d 26 37 30 3a 59 25 3d  30 3a d6 20 26 46 46 46  |=&70:Y%=0:. &FFF|
000006b0  31 0d 01 e0 35 ef 32 33  2c 32 33 30 2b 49 2c 3f  |1...5.23,230+I,?|
000006c0  26 37 31 2c 3f 26 37 31  2c 3f 26 37 32 2c 3f 26  |&71,?&71,?&72,?&|
000006d0  37 32 2c 3f 26 37 33 2c  3f 26 37 33 2c 3f 26 37  |72,?&73,?&73,?&7|
000006e0  34 2c 3f 26 37 34 0d 01  ea 35 ef 32 33 2c 32 34  |4,?&74...5.23,24|
000006f0  30 2b 49 2c 3f 26 37 35  2c 3f 26 37 35 2c 3f 26  |0+I,?&75,?&75,?&|
00000700  37 36 2c 3f 26 37 36 2c  3f 26 37 37 2c 3f 26 37  |76,?&76,?&77,?&7|
00000710  37 2c 3f 26 37 38 2c 3f  26 37 38 0d 01 f4 05 e1  |7,?&78,?&78.....|
00000720  0d 01 fe 0b dd f2 47 45  54 58 59 0d 02 08 0f f1  |......GETXY.....|
00000730  8a 58 2c 59 29 3b 22 58  22 3b 0d 02 12 24 e7 20  |.X,Y);"X";...$. |
00000740  a6 2d 31 30 36 20 f1 8a  58 2c 59 29 3b 22 20 22  |.-106 ..X,Y);" "|
00000750  3b 3a ff 22 2a 46 58 32  31 2c 30 22 3a e1 0d 02  |;:."*FX21,0":...|
00000760  1c 17 4f 58 3d 58 3a 4f  59 3d 59 3a d1 3d 30 3a  |..OX=X:OY=Y:.=0:|
00000770  f5 fd 91 3e 35 0d 02 26  12 58 3d 58 2d a6 2d 31  |...>5..&.X=X-.-1|
00000780  32 32 2b a6 2d 32 36 0d  02 30 11 59 3d 59 2b a6  |22+.-26..0.Y=Y+.|
00000790  2d 35 38 2d a6 2d 34 32  0d 02 3a 0d e7 20 58 3c  |-58-.-42..:.. X<|
000007a0  30 20 58 3d 30 0d 02 44  0f e7 20 58 3e 33 38 20  |0 X=0..D.. X>38 |
000007b0  58 3d 33 38 0d 02 4e 0d  e7 20 59 3c 30 20 59 3d  |X=38..N.. Y<0 Y=|
000007c0  30 0d 02 58 0f e7 20 59  3e 32 38 20 59 3d 32 38  |0..X.. Y>28 Y=28|
000007d0  0d 02 62 11 f1 8a 4f 58  2c 4f 59 29 3b 22 20 22  |..b...OX,OY);" "|
000007e0  3b 0d 02 6c 09 e5 8d 54  48 42 0d 02 76 23 dd f2  |;..l...THB..v#..|
000007f0  47 45 4e 45 52 41 4c 3a  ef 32 33 2c 31 2c 31 2c  |GENERAL:.23,1,1,|
00000800  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 0d 02 80  |0,0,0,0,0,0,0...|
00000810  0b 58 3d 30 3a 59 3d 30  0d 02 8a 0f d1 3d 30 3a  |.X=0:Y=0.....=0:|
00000820  f5 20 fd 20 91 3e 35 0d  02 94 12 58 3d 58 2d a6  |. . .>5....X=X-.|
00000830  2d 31 32 32 2b a6 2d 32  36 0d 02 9e 11 59 3d 59  |-122+.-26....Y=Y|
00000840  2b a6 2d 35 38 2d a6 2d  34 32 0d 02 a8 0d e7 20  |+.-58-.-42..... |
00000850  58 3c 30 20 58 3d 30 0d  02 b2 0f e7 20 58 3e 33  |X<0 X=0..... X>3|
00000860  38 20 58 3d 33 38 0d 02  bc 0d e7 20 59 3c 30 20  |8 X=38..... Y<0 |
00000870  59 3d 30 0d 02 c6 0f e7  20 59 3e 32 38 20 59 3d  |Y=0..... Y>28 Y=|
00000880  32 38 0d 02 d0 0b f1 8a  58 2c 59 29 3b 0d 02 da  |28......X,Y);...|
00000890  12 41 3d a6 2d 39 37 3a  41 24 3d bf 28 30 29 0d  |.A=.-97:A$=.(0).|
000008a0  02 e4 20 e7 20 41 24 3d  bd 28 31 33 29 20 8c 20  |.. . A$=.(13) . |
000008b0  59 3d 59 2b 31 3a 58 3d  30 3a e5 8d 74 68 42 0d  |Y=Y+1:X=0:..thB.|
000008c0  02 ee 2d e7 20 41 24 3d  bd 28 31 32 37 29 20 80  |..-. A$=.(127) .|
000008d0  20 58 3e 30 20 58 3d 58  2d 31 3a f1 8a 58 2c 59  | X>0 X=X-1:..X,Y|
000008e0  29 3b 22 20 22 3b 3a e5  8d 74 4a 42 0d 02 f8 14  |);" ";:..tJB....|
000008f0  e7 20 41 24 3d bd 28 39  29 20 8c 20 8d 64 5a 42  |. A$=.(9) . .dZB|
00000900  0d 03 02 0c e7 20 a6 2d  33 33 20 e1 0d 03 0c 4a  |..... .-33 ....J|
00000910  e7 20 41 24 3c 3e 22 22  20 80 20 41 20 49 3d 31  |. A$<>"" . A I=1|
00000920  3a f2 44 4f 55 42 4c 45  28 41 24 29 3a f1 8a 58  |:.DOUBLE(A$):..X|
00000930  2c 59 29 3b bd 28 32 33  31 29 3a f1 8a 58 2c 59  |,Y);.(231):..X,Y|
00000940  2b 31 29 3b bd 28 32 34  31 29 3a 58 3d 58 2b 31  |+1);.(241):X=X+1|
00000950  3a e5 8d 74 72 42 0d 03  16 22 e7 20 41 24 3c 3e  |:..trB...". A$<>|
00000960  22 22 20 f1 8a 58 2c 59  29 3b 41 24 3a 58 3d 58  |"" ..X,Y);A$:X=X|
00000970  2b 31 3a e5 8d 74 72 42  0d 03 20 09 e5 8d 74 4a  |+1:..trB.. ...tJ|
00000980  42 0d 03 2a 0b dd f2 4c  49 4e 45 53 0d 03 34 0b  |B..*...LINES..4.|
00000990  58 3d 30 3a 59 3d 30 0d  03 3e 0a 46 4c 41 47 3d  |X=0:Y=0..>.FLAG=|
000009a0  30 0d 03 48 0d 4f 58 3d  30 3a 4f 59 3d 30 0d 03  |0..H.OX=0:OY=0..|
000009b0  52 0d 4e 58 3d 30 3a 4e  59 3d 30 0d 03 5c 05 f5  |R.NX=0:NY=0..\..|
000009c0  0d 03 66 0c e7 20 a6 2d  33 33 20 e1 0d 03 70 0c  |..f.. .-33 ...p.|
000009d0  43 4c 3d b0 58 2c 59 29  0d 03 7a 08 e6 30 2c 32  |CL=.X,Y)..z..0,2|
000009e0  0d 03 84 09 ec 20 58 2c  59 0d 03 8e 09 df 20 58  |..... X,Y..... X|
000009f0  2c 59 0d 03 98 0d 4f 58  3d 58 3a 4f 59 3d 59 0d  |,Y....OX=X:OY=Y.|
00000a00  03 a2 20 58 3d 58 2d a6  2d 31 32 32 2b a6 2d 32  |.. X=X-.-122+.-2|
00000a10  36 3a 59 3d 59 2d a6 2d  35 38 2b a6 2d 34 32 0d  |6:Y=Y-.-58+.-42.|
00000a20  03 ac 44 e7 20 a6 2d 31  20 8c 20 58 3d 58 2d 28  |..D. .-1 . X=X-(|
00000a30  28 a6 2d 31 32 32 29 2a  31 30 29 2b 28 28 a6 2d  |(.-122)*10)+((.-|
00000a40  32 36 29 2a 31 30 29 3a  59 3d 59 2d 28 28 a6 2d  |26)*10):Y=Y-((.-|
00000a50  35 38 29 2a 31 30 29 2b  28 28 a6 2d 34 32 29 2a  |58)*10)+((.-42)*|
00000a60  31 30 29 0d 03 b6 10 e6  30 2c 43 4c 3a df 4f 58  |10).....0,CL:.OX|
00000a70  2c 4f 59 0d 03 c0 0d e7  20 58 3c 30 20 58 3d 30  |,OY..... X<0 X=0|
00000a80  0d 03 ca 13 e7 20 58 3e  31 32 37 38 20 58 3d 31  |..... X>1278 X=1|
00000a90  32 37 38 0d 03 d4 0d e7  20 59 3c 30 20 59 3d 30  |278..... Y<0 Y=0|
00000aa0  0d 03 de 13 e7 20 59 3e  31 30 32 33 20 59 3d 31  |..... Y>1023 Y=1|
00000ab0  30 32 33 0d 03 e8 0c f2  47 45 54 43 4f 50 59 0d  |023.....GETCOPY.|
00000ac0  03 f2 07 fd 20 a3 0d 03  fc 0d dd f2 47 45 54 43  |.... .......GETC|
00000ad0  4f 50 59 0d 04 06 12 41  3d a6 2d 31 30 36 3a 42  |OPY....A=.-106:B|
00000ae0  3d a6 2d 39 30 0d 04 10  0e e7 20 41 20 e5 20 8d  |=.-90..... A . .|
00000af0  54 6e 44 0d 04 1a 0e e7  20 42 20 e5 20 8d 44 42  |TnD..... B . .DB|
00000b00  44 0d 04 24 05 e1 0d 04  2e 31 e7 20 46 4c 41 47  |D..$.....1. FLAG|
00000b10  3d 30 20 46 4c 41 47 3d  31 3a 4e 58 3d 58 3a 4e  |=0 FLAG=1:NX=X:N|
00000b20  59 3d 59 3a 43 4c 3d 33  3a d4 31 2c 2d 31 35 2c  |Y=Y:CL=3:.1,-15,|
00000b30  31 30 30 2c 31 3a e1 0d  04 38 05 e1 0d 04 42 36  |100,1:...8....B6|
00000b40  e7 20 46 4c 41 47 3d 31  20 46 4c 41 47 3d 30 3a  |. FLAG=1 FLAG=0:|
00000b50  ec 20 4e 58 2c 4e 59 3a  e6 30 2c 43 4c 25 3a df  |. NX,NY:.0,CL%:.|
00000b60  58 2c 59 3a d4 31 2c 2d  31 35 2c 31 35 30 2c 31  |X,Y:.1,-15,150,1|
00000b70  3a e1 0d 04 4c 05 e1 0d  04 56 0e dd f2 53 41 56  |:...L....V...SAV|
00000b80  45 28 58 24 29 0d 04 60  24 ff 22 2a 53 41 56 45  |E(X$)..`$."*SAVE|
00000b90  20 22 2b 58 24 2b 22 20  32 38 30 30 20 38 30 30  | "+X$+" 2800 800|
00000ba0  30 20 46 46 35 38 30 30  22 0d 04 6a 05 e1 0d 04  |0 FF5800"..j....|
00000bb0  74 12 f4 20 4c 4f 41 44  20 52 4f 55 54 49 4e 45  |t.. LOAD ROUTINE|
00000bc0  0d 04 7e 1b db 3a ef 32  33 2c 31 2c 30 2c 30 2c  |..~..:.23,1,0,0,|
00000bd0  30 2c 30 2c 30 2c 30 2c  30 2c 30 0d 04 88 0b ff  |0,0,0,0,0,0.....|
00000be0  22 2a 43 41 54 22 0d 04  92 09 2a 46 58 32 31 0d  |"*CAT"....*FX21.|
00000bf0  04 9c 24 e8 27 22 45 6e  74 65 72 20 66 69 6c 65  |..$.'"Enter file|
00000c00  6e 61 6d 65 20 66 6f 72  20 73 63 72 65 65 6e 3a  |name for screen:|
00000c10  22 58 24 0d 04 a6 05 db  0d 04 b0 10 ff 22 2a 4c  |"X$.........."*L|
00000c20  4f 41 44 20 22 2b 58 24  0d 04 ba 05 f8 0d 04 c4  |OAD "+X$........|
00000c30  06 eb 37 0d 04 ce 19 ef  32 33 2c 31 2c 30 2c 30  |..7.....23,1,0,0|
00000c40  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 0d 04 d8 4b  |,0,0,0,0,0,0...K|
00000c50  e3 49 3d 31 b8 32 3a f1  c4 36 2c 22 20 22 29 bd  |.I=1.2:..6," ").|
00000c60  28 31 34 31 29 3b bd 28  31 32 39 29 3b bd 28 31  |(141);.(129);.(1|
00000c70  35 37 29 3b bd 28 31 33  31 29 3b 22 54 75 72 62  |57);.(131);"Turb|
00000c80  6f 20 50 75 62 6c 69 73  68 65 72 20 22 3b bd 28  |o Publisher ";.(|
00000c90  31 35 36 29 3a ed 49 0d  04 e2 3a f1 27 27 27 bd  |156):.I...:.'''.|
00000ca0  28 31 33 31 29 3b 22 20  20 20 20 20 22 3b bd 28  |(131);"     ";.(|
00000cb0  31 32 39 29 3b 22 44 65  73 69 67 6e 20 6e 65 77  |129);"Design new|
00000cc0  20 70 61 67 65 20 20 20  20 20 22 bd 28 31 35 36  | page     ".(156|
00000cd0  29 0d 04 ec 3a f1 27 bd  28 31 33 31 29 3b 22 20  |)...:.'.(131);" |
00000ce0  20 20 20 20 22 3b bd 28  31 32 39 29 3b 22 45 64  |    ";.(129);"Ed|
00000cf0  69 74 20 73 61 76 65 64  20 73 63 72 65 65 6e 20  |it saved screen |
00000d00  20 20 20 20 22 bd 28 31  35 36 29 0d 04 f6 3a f1  |    ".(156)...:.|
00000d10  27 bd 28 31 33 31 29 3b  22 20 20 20 20 20 22 3b  |'.(131);"     ";|
00000d20  bd 28 31 32 39 29 3b 22  44 69 73 70 6c 61 79 20  |.(129);"Display |
00000d30  73 61 76 65 64 20 73 63  72 65 65 6e 20 20 22 bd  |saved screen  ".|
00000d40  28 31 35 36 29 0d 05 00  3a f1 27 bd 28 31 33 31  |(156)...:.'.(131|
00000d50  29 3b 22 20 20 20 20 20  22 3b bd 28 31 32 39 29  |);"     ";.(129)|
00000d60  3b 22 50 72 69 6e 74 20  73 61 76 65 64 20 73 63  |;"Print saved sc|
00000d70  72 65 65 6e 20 20 20 20  22 bd 28 31 35 36 29 0d  |reen    ".(156).|
00000d80  05 0a 3a f1 27 bd 28 31  33 31 29 3b 22 20 20 20  |..:.'.(131);"   |
00000d90  20 20 22 3b bd 28 31 32  39 29 3b 22 49 73 73 75  |  ";.(129);"Issu|
00000da0  65 20 73 74 61 72 20 63  6f 6d 6d 61 6e 64 20 20  |e star command  |
00000db0  20 20 22 bd 28 31 35 36  29 0d 05 14 3a f1 27 bd  |  ".(156)...:.'.|
00000dc0  28 31 33 31 29 3b 22 20  20 20 20 20 22 3b bd 28  |(131);"     ";.(|
00000dd0  31 32 39 29 3b 22 51 75  69 74 20 61 70 70 6c 69  |129);"Quit appli|
00000de0  63 61 74 69 6f 6e 20 20  20 20 20 20 22 bd 28 31  |cation      ".(1|
00000df0  35 36 29 0d 05 1e 78 f1  27 27 bd 28 31 32 39 29  |56)...x.''.(129)|
00000e00  3b bd 28 31 35 37 29 3b  bd 28 31 33 31 29 3b 22  |;.(157);.(131);"|
00000e10  50 6c 65 61 73 65 20 73  65 6c 65 63 74 20 6f 70  |Please select op|
00000e20  74 69 6f 6e 20 75 73 69  6e 67 20 63 75 72 73 6f  |tion using curso|
00000e30  72 22 27 bd 28 31 32 39  29 3b bd 28 31 35 37 29  |r"'.(129);.(157)|
00000e40  3b bd 28 31 33 31 29 3b  22 6b 65 79 73 20 61 6e  |;.(131);"keys an|
00000e50  64 20 70 72 65 73 73 20  52 45 54 55 52 4e 20 74  |d press RETURN t|
00000e60  6f 20 63 6f 6e 66 69 72  6d 2e 22 0d 05 28 0b 2a  |o confirm."..(.*|
00000e70  46 58 32 31 2c 30 0d 05  32 0a 2a 46 58 34 2c 32  |FX21,0..2.*FX4,2|
00000e80  0d 05 3c 08 50 53 3d 35  0d 05 46 12 f1 8a 35 2c  |..<.PS=5..F...5,|
00000e90  50 53 29 3b bd 28 31 35  37 29 0d 05 50 13 d1 3d  |PS);.(157)..P..=|
00000ea0  30 3a f5 fd 91 3e 35 3a  2a 46 58 32 31 0d 05 5a  |0:...>5:*FX21..Z|
00000eb0  11 e7 20 a6 2d 37 34 20  8c 20 8d 74 56 45 0d 05  |.. .-74 . .tVE..|
00000ec0  64 1e e7 20 a6 2d 34 32  20 f1 8a 35 2c 50 53 29  |d.. .-42 ..5,PS)|
00000ed0  3b 22 20 22 3a 50 53 3d  50 53 2b 32 0d 05 6e 1e  |;" ":PS=PS+2..n.|
00000ee0  e7 20 a6 2d 35 38 20 f1  8a 35 2c 50 53 29 3b 22  |. .-58 ..5,PS);"|
00000ef0  20 22 3a 50 53 3d 50 53  2d 32 0d 05 78 10 e7 20  | ":PS=PS-2..x.. |
00000f00  50 53 3c 35 20 50 53 3d  31 35 0d 05 82 10 e7 20  |PS<5 PS=15..... |
00000f10  50 53 3e 31 35 20 50 53  3d 35 0d 05 8c 09 e5 8d  |PS>15 PS=5......|
00000f20  44 46 45 0d 05 96 0a 2a  46 58 34 2c 32 0d 05 a0  |DFE....*FX4,2...|
00000f30  2f e7 20 50 53 3d 37 20  eb 31 3a ef 32 33 2c 31  |/. PS=7 .1:.23,1|
00000f40  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00000f50  3a e4 8d 44 7e 44 3a e5  8d 44 72 46 0d 05 aa 2a  |:..D~D:..DrF...*|
00000f60  e7 20 50 53 3d 31 31 20  eb 31 3a ef 32 33 2c 31  |. PS=11 .1:.23,1|
00000f70  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00000f80  3a e5 8d 64 70 45 0d 05  b4 5d e7 20 50 53 3d 39  |:..dpE...]. PS=9|
00000f90  20 eb 31 3a ef 32 33 2c  31 2c 30 2c 30 2c 30 2c  | .1:.23,1,0,0,0,|
00000fa0  30 2c 30 2c 30 2c 30 2c  30 3a e4 8d 44 7e 44 3a  |0,0,0,0,0:..D~D:|
00000fb0  fb 31 3a f1 8a 30 2c 33  31 29 3b 22 50 72 65 73  |.1:..0,31);"Pres|
00000fc0  73 20 73 70 61 63 65 20  66 6f 72 20 6d 65 6e 75  |s space for menu|
00000fd0  2e 2e 2e 22 3b 3a 58 24  3d be 3a fb 33 3a e5 8d  |...";:X$=.:.3:..|
00000fe0  64 44 44 0d 05 be 38 e7  20 50 53 3d 35 20 eb 31  |dDD...8. PS=5 .1|
00000ff0  3a ef 32 33 2c 31 2c 30  2c 30 2c 30 2c 30 2c 30  |:.23,1,0,0,0,0,0|
00001000  2c 30 2c 30 2c 30 3a f2  53 41 56 45 28 22 57 4f  |,0,0,0:.SAVE("WO|
00001010  52 4b 53 22 29 3a e5 8d  44 7c 46 0d 05 c8 25 e7  |RKS"):..D|F...%.|
00001020  20 50 53 3d 31 35 20 db  3a ef 32 33 2c 31 2c 31  | PS=15 .:.23,1,1|
00001030  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 3a e0  |,0,0,0,0,0,0,0:.|
00001040  0d 05 d2 27 e7 20 50 53  3d 31 33 20 ef 32 33 2c  |...'. PS=13 .23,|
00001050  31 2c 31 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |1,1,0,0,0,0,0,0,|
00001060  30 3a f2 53 54 41 52 0d  05 dc 09 e5 8d 64 44 44  |0:.STAR......dDD|
00001070  0d 05 e6 0a f4 20 44 75  6d 70 0d 05 f0 05 d8 0d  |..... Dump......|
00001080  05 fa 32 db 3a ef 32 33  2c 31 2c 30 2c 30 2c 30  |..2.:.23,1,0,0,0|
00001090  2c 30 2c 30 2c 30 2c 30  2c 30 3a f1 22 50 72 69  |,0,0,0,0,0:."Pri|
000010a0  6e 74 20 53 63 72 65 65  6e 22 27 3a e4 8d 74 48  |nt Screen"':..tH|
000010b0  44 0d 06 04 0f ef 32 3a  d6 26 41 30 30 3a ef 33  |D.....2:.&A00:.3|
000010c0  0d 06 0e 0b d8 3a e5 8d  64 44 44 0d 06 18 0a dd  |.....:..dDD.....|
000010d0  f2 53 54 41 52 0d 06 22  05 db 0d 06 2c 11 51 3d  |.STAR.."....,.Q=|
000010e0  a6 28 35 30 29 3a 2a 46  58 32 31 0d 06 36 53 f1  |.(50):*FX21..6S.|
000010f0  bd 28 31 33 30 29 3b 22  49 73 73 75 65 20 73 74  |.(130);"Issue st|
00001100  61 72 20 63 6f 6d 6d 61  6e 64 20 2d 20 50 72 65  |ar command - Pre|
00001110  73 73 20 52 45 54 55 52  4e 22 27 bd 28 31 33 30  |ss RETURN"'.(130|
00001120  29 3b 22 6f 6e 20 69 74  73 20 6f 77 6e 20 66 6f  |);"on its own fo|
00001130  72 20 74 68 65 20 6d 65  6e 75 2e 22 27 27 0d 06  |r the menu."''..|
00001140  40 0e e8 86 22 2a 22 53  54 41 52 24 0d 06 4a 10  |@..."*"STAR$..J.|
00001150  e7 20 53 54 41 52 24 3d  22 22 20 e1 0d 06 54 0c  |. STAR$="" ...T.|
00001160  ff 28 53 54 41 52 24 29  0d 06 5e 09 e5 8d 44 40  |.(STAR$)..^...D@|
00001170  46 0d 06 68 12 f4 20 4d  45 4e 55 20 52 4f 55 54  |F..h.. MENU ROUT|
00001180  49 4e 45 0d 06 72 12 f2  53 41 56 45 28 22 57 4f  |INE..r..SAVE("WO|
00001190  52 4b 53 22 29 0d 06 7c  08 fb 31 32 39 0d 06 86  |RKS")..|..129...|
000011a0  19 ef 32 33 2c 31 2c 30  2c 30 2c 30 2c 30 2c 30  |..23,1,0,0,0,0,0|
000011b0  2c 30 2c 30 2c 30 0d 06  90 22 f1 8a 31 30 2c 35  |,0,0,0..."..10,5|
000011c0  29 3b 22 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |);"*************|
000011d0  2a 2a 2a 2a 2a 2a 2a 22  0d 06 9a 22 f1 8a 31 30  |*******"..."..10|
000011e0  2c 36 29 3b 22 2a 20 20  20 20 20 20 20 20 20 20  |,6);"*          |
000011f0  20 20 20 20 20 20 20 20  2a 22 0d 06 a4 22 f1 8a  |        *"..."..|
00001200  31 30 2c 37 29 3b 22 2a  20 20 20 48 65 61 64 6c  |10,7);"*   Headl|
00001210  69 6e 65 20 74 65 78 74  20 20 2a 22 0d 06 ae 22  |ine text  *"..."|
00001220  f1 8a 31 30 2c 38 29 3b  22 2a 20 20 20 4e 6f 72  |..10,8);"*   Nor|
00001230  6d 61 6c 20 69 6e 70 75  74 20 20 20 2a 22 0d 06  |mal input   *"..|
00001240  b8 22 f1 8a 31 30 2c 39  29 3b 22 2a 20 20 20 47  |."..10,9);"*   G|
00001250  72 61 70 68 69 63 73 20  6f 6e 20 20 20 20 2a 22  |raphics on    *"|
00001260  0d 06 c2 23 f1 8a 31 30  2c 31 30 29 3b 22 2a 20  |...#..10,10);"* |
00001270  20 20 47 72 61 70 68 69  63 73 20 6f 66 66 20 20  |  Graphics off  |
00001280  20 2a 22 0d 06 cc 23 f1  8a 31 30 2c 31 31 29 3b  | *"...#..10,11);|
00001290  22 2a 20 20 20 53 70 72  61 79 20 63 61 6e 20 20  |"*   Spray can  |
000012a0  20 20 20 20 2a 22 0d 06  d6 23 f1 8a 31 30 2c 31  |    *"...#..10,1|
000012b0  32 29 3b 22 2a 20 20 20  53 61 76 65 20 53 63 72  |2);"*   Save Scr|
000012c0  65 65 6e 20 20 20 20 2a  22 0d 06 e0 23 f1 8a 31  |een    *"...#..1|
000012d0  30 2c 31 33 29 3b 22 2a  20 20 20 20 20 20 20 20  |0,13);"*        |
000012e0  20 20 20 20 20 20 20 20  20 20 2a 22 0d 06 ea 23  |          *"...#|
000012f0  f1 8a 31 30 2c 31 34 29  3b 22 2a 20 55 73 65 20  |..10,14);"* Use |
00001300  63 75 72 73 6f 72 20 6b  65 79 73 20 20 2a 22 0d  |cursor keys  *".|
00001310  06 f4 23 f1 8a 31 30 2c  31 35 29 3b 22 2a 20 74  |..#..10,15);"* t|
00001320  68 65 6e 20 52 45 54 55  52 4e 20 20 20 20 20 20  |hen RETURN      |
00001330  2a 22 0d 06 fe 23 f1 8a  31 30 2c 31 36 29 3b 22  |*"...#..10,16);"|
00001340  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001350  2a 2a 2a 2a 22 0d 07 08  09 2a 46 58 32 31 0d 07  |****"....*FX21..|
00001360  12 07 41 3d 37 0d 07 1c  05 f5 0d 07 26 1c f1 8a  |..A=7.......&...|
00001370  31 32 2c 41 29 3b 22 3e  22 3a f1 8a 32 37 2c 41  |12,A);">":..27,A|
00001380  29 3b 22 3c 22 3b 0d 07  30 0d d1 3d 30 3a f5 fd  |);"<";..0..=0:..|
00001390  91 3e 35 0d 07 3a 08 4f  41 3d 41 0d 07 44 11 41  |.>5..:.OA=A..D.A|
000013a0  3d 41 2b a6 2d 35 38 2d  a6 2d 34 32 0d 07 4e 0e  |=A+.-58-.-42..N.|
000013b0  e7 20 41 3c 37 20 41 3d  31 32 0d 07 58 0e e7 20  |. A<7 A=12..X.. |
000013c0  41 3e 31 32 20 41 3d 37  0d 07 62 2a e7 20 41 3c  |A>12 A=7..b*. A<|
000013d0  3e 4f 41 20 f1 8a 31 32  2c 4f 41 29 3b 22 20 22  |>OA ..12,OA);" "|
000013e0  3a f1 8a 32 37 2c 4f 41  29 3b 22 20 22 3a 4f 41  |:..27,OA);" ":OA|
000013f0  3d 41 0d 07 6c 0a fd 20  a6 2d 37 34 0d 07 76 08  |=A..l.. .-74..v.|
00001400  fb 31 32 38 0d 07 80 13  e7 20 41 3d 37 20 f2 4c  |.128..... A=7 .L|
00001410  53 3a e5 8d 44 78 40 0d  07 8a 13 e7 20 41 3d 38  |S:..Dx@..... A=8|
00001420  20 f2 4c 53 3a e5 8d 74  60 40 0d 07 94 19 e7 20  | .LS:..t`@..... |
00001430  41 3d 39 20 f2 4c 53 3a  43 4c 25 3d 33 3a e5 8d  |A=9 .LS:CL%=3:..|
00001440  74 74 40 0d 07 9e 1a e7  20 41 3d 31 30 20 f2 4c  |tt@..... A=10 .L|
00001450  53 3a 43 4c 25 3d 30 3a  e5 8d 74 74 40 0d 07 a8  |S:CL%=0:..tt@...|
00001460  1e e7 20 41 3d 31 31 20  f2 4c 53 3a f2 53 50 52  |.. A=11 .LS:.SPR|
00001470  41 59 43 41 4e 3a e5 8d  44 72 46 0d 07 b2 10 e7  |AYCAN:..DrF.....|
00001480  20 41 3d 31 32 20 f2 53  53 3a f9 0d 07 bc 0c ef  | A=12 .SS:......|
00001490  37 3a e5 8d 54 52 47 0d  07 c6 08 dd f2 53 53 0d  |7:..TRG......SS.|
000014a0  07 d0 1b db 3a ef 32 33  2c 31 2c 30 2c 30 2c 30  |....:.23,1,0,0,0|
000014b0  2c 30 2c 30 2c 30 2c 30  2c 30 0d 07 da 1d f1 22  |,0,0,0,0,0....."|
000014c0  50 72 65 70 61 72 65 20  74 6f 20 73 61 76 65 20  |Prepare to save |
000014d0  73 63 72 65 65 6e 22 0d  07 e4 07 f1 27 27 0d 07  |screen".....''..|
000014e0  ee 08 2a 43 41 54 0d 07  f8 09 2a 46 58 32 31 0d  |..*CAT....*FX21.|
000014f0  08 02 19 e8 27 22 45 6e  74 65 72 20 66 69 6c 65  |....'"Enter file|
00001500  6e 61 6d 65 3a 22 58 24  0d 08 0c 1b db 3a ef 32  |name:"X$.....:.2|
00001510  33 2c 31 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |3,1,0,0,0,0,0,0,|
00001520  30 2c 30 0d 08 16 0f 2a  4c 4f 41 44 20 57 4f 52  |0,0....*LOAD WOR|
00001530  4b 53 0d 08 20 1b fb 31  3a f1 8a 30 2c 33 30 29  |KS.. ..1:..0,30)|
00001540  3b c4 37 39 2c 22 20 22  29 3b 3a fb 33 0d 08 2a  |;.79," ");:.3..*|
00001550  0d f2 53 41 56 45 28 58  24 29 0d 08 34 05 e1 0d  |..SAVE(X$)..4...|
00001560  08 3e 08 dd f2 4c 53 0d  08 48 1b db 3a ef 32 33  |.>...LS..H..:.23|
00001570  2c 31 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,1,0,0,0,0,0,0,0|
00001580  2c 30 0d 08 52 0f 2a 4c  4f 41 44 20 57 4f 52 4b  |,0..R.*LOAD WORK|
00001590  53 0d 08 5c 05 e1 0d 08  66 24 dd f2 53 50 52 41  |S..\....f$..SPRA|
000015a0  59 43 41 4e 3a ef 32 33  2c 31 2c 30 2c 30 2c 30  |YCAN:.23,1,0,0,0|
000015b0  2c 30 2c 30 2c 30 2c 30  2c 30 0d 08 70 63 fb 31  |,0,0,0,0,0..pc.1|
000015c0  3a f1 8a 30 2c 33 30 29  3b 22 55 73 65 20 63 75  |:..0,30);"Use cu|
000015d0  72 73 6f 72 20 6b 65 79  73 20 74 6f 20 6d 6f 76  |rsor keys to mov|
000015e0  65 20 52 45 54 55 52 4e  20 74 6f 20 73 70 72 61  |e RETURN to spra|
000015f0  79 20 50 72 65 73 73 20  66 30 20 74 6f 20 72 65  |y Press f0 to re|
00001600  74 75 72 6e 20 74 6f 20  6d 65 6e 75 2e 20 20 20  |turn to menu.   |
00001610  20 20 20 20 20 20 20 20  22 3b 3a fb 33 0d 08 7a  |        ";:.3..z|
00001620  0b 58 3d 30 3a 59 3d 30  0d 08 84 0d 4f 58 3d 30  |.X=0:Y=0....OX=0|
00001630  3a 4f 59 3d 30 0d 08 8e  05 f5 0d 08 98 0c e7 20  |:OY=0.......... |
00001640  a6 2d 33 33 20 e1 0d 08  a2 0c 43 4c 3d b0 58 2c  |.-33 .....CL=.X,|
00001650  59 29 0d 08 ac 08 e6 30  2c 32 0d 08 b6 09 ec 20  |Y).....0,2..... |
00001660  58 2c 59 0d 08 c0 09 df  20 58 2c 59 0d 08 ca 0d  |X,Y..... X,Y....|
00001670  4f 58 3d 58 3a 4f 59 3d  59 0d 08 d4 20 58 3d 58  |OX=X:OY=Y... X=X|
00001680  2d a6 2d 31 32 32 2b a6  2d 32 36 3a 59 3d 59 2d  |-.-122+.-26:Y=Y-|
00001690  a6 2d 35 38 2b a6 2d 34  32 0d 08 de 44 e7 20 a6  |.-58+.-42...D. .|
000016a0  2d 31 20 8c 20 58 3d 58  2d 28 28 a6 2d 31 32 32  |-1 . X=X-((.-122|
000016b0  29 2a 31 30 29 2b 28 28  a6 2d 32 36 29 2a 31 30  |)*10)+((.-26)*10|
000016c0  29 3a 59 3d 59 2d 28 28  a6 2d 35 38 29 2a 31 30  |):Y=Y-((.-58)*10|
000016d0  29 2b 28 28 a6 2d 34 32  29 2a 31 30 29 0d 08 e8  |)+((.-42)*10)...|
000016e0  10 e6 30 2c 43 4c 3a df  4f 58 2c 4f 59 0d 08 f2  |..0,CL:.OX,OY...|
000016f0  0d e7 20 58 3c 30 20 58  3d 30 0d 08 fc 13 e7 20  |.. X<0 X=0..... |
00001700  58 3e 31 32 37 38 20 58  3d 31 32 37 38 0d 09 06  |X>1278 X=1278...|
00001710  0d e7 20 59 3c 30 20 59  3d 30 0d 09 10 13 e7 20  |.. Y<0 Y=0..... |
00001720  59 3e 31 30 32 33 20 59  3d 31 30 32 33 0d 09 1a  |Y>1023 Y=1023...|
00001730  11 e7 20 a6 2d 37 34 20  f2 53 50 52 41 59 0d 09  |.. .-74 .SPRAY..|
00001740  24 07 fd 20 a3 0d 09 2e  0b dd f2 53 50 52 41 59  |$.. .......SPRAY|
00001750  0d 09 38 1b 4f 59 3d 59  3a 4f 58 3d 58 3a 58 3d  |..8.OY=Y:OX=X:X=|
00001760  58 2d 35 30 3a 59 3d 59  2d 36 30 0d 09 42 15 51  |X-50:Y=Y-60..B.Q|
00001770  3d b3 28 31 30 30 29 3a  57 3d b3 28 31 30 30 29  |=.(100):W=.(100)|
00001780  0d 09 4c 0a 52 3d b3 28  32 29 0d 09 56 23 e7 20  |..L.R=.(2)..V#. |
00001790  52 3d 31 20 51 3d 51 2b  59 3a 57 3d 57 2b 58 20  |R=1 Q=Q+Y:W=W+X |
000017a0  8b 20 51 3d 51 2d 59 3a  57 3d 57 2d 58 0d 09 60  |. Q=Q-Y:W=W-X..`|
000017b0  08 ec 57 2c 51 0d 09 6a  08 e6 30 2c 33 0d 09 74  |..W,Q..j..0,3..t|
000017c0  08 df 57 2c 51 0d 09 7e  0d 59 3d 4f 59 3a 58 3d  |..W,Q..~.Y=OY:X=|
000017d0  4f 58 0d 09 88 05 e1 0d  ff                       |OX.......|
000017d9

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .