Home » Archimedes archive » Zipped Apps » 1st Word Plus » WP/PDGEditor/PDG
WP/PDGEditor/PDG
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 » Zipped Apps » 1st Word Plus |
| Filename: | WP/PDGEditor/PDG |
| Read OK: | ✔ |
| File size: | 7081 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
� >PDG
"� ****************************
"� * *
("� * Printer Driver Generator *
2"� * for 1st Word Plus *
<"� * *
F"� ****************************
P�
Z� (C) 1988, John Smith
d�
nK� 11-Sep-88 PDG_1WP2 Add code to cater for "PRINTER CHARACTERISTICS"
x?� 11-Sep-88 PDG_1WP3 CONTINUE AFTER FUNNY BUG IN GETCODE
�I� 17-Sep-88 PDG_1WP4 Tidy up screen handling in char. translation.
�I� 17-Sep-88 PDG_1WP5 Added default processing all-round. Get ready
�=� for reading an existing HEX file.
�?� 20-Sep-88 PDG_1WP6 Getcode replaced. Process HEX file.
�A� 21-Sep-88 PDG_1WP7 Almost there. All input from HEX file
�D� accepted. Default Y/N processing. Output
�%� comments.
�C� 21-Sep-88 PDG_1WP8 Correct SYST bugs: default on filename,
�3� recatalogue after save,
�D� Correct UTST problems: Allow the REMOVAL
�>� of a characteristic with <sp><cr>.
�K� Make input easier in getcode. Allow "-" as well
�*� as hex values.
G� 22-Sep-88 PDG_1WP9 Swirly intro added. Redundant code removed.
� 12
�intro
"� 5
,6� " Printer Driver Generator"
65� " for 1st Word Plus"'''
@� 6
J� 28,0,31,79,3
T"*Set Orig$FilePath <File$Path>
^)*Set File$Path <File$Path>,&.1WP.hex.
h(� config(6), char$(&34), trans$(256)
r5�"Do you want to use an existing printer driver";
|� �yes_no �
�force_hex=�
��load_hexfile
��
�
�defaults
�force_hex=�
��
�:
��6
�;�''"Enter The Name of the Printer (max. 32 characters)"
�horiz=�:vert=�
� escape=�
��
��31,horiz,vert
6Printer_name$=�getstring(32,Printer_name$, escape)
#� � escape � Printer_name$ <>""
@� Infile$="" � Infile$=�Printer_name$,�Printer_name$," ")-1)
&� 26,31,47,1
0� 2
:�Printer_name$;
D� 28,0,31,79,3
N:
X�
b �config
l�character
v�translation
�ȗ �
��
��:�0,10);
�� 6
� *FX15
�'�"Do you want to change any input";
�� �(�yes_no)
��output(escape)
��chain(escape)
��
�:
�C***************************************************************
�C***************************************************************
:
� �config
�
�5
*%�"Configuration Variables";�(10);
4�3:�"Decimal Entry":�5
> �"======================="''
H�6
R1�"Is this a microspacing daisywheel printer";
\&config(1)=�(�yes_no_d(-config(1)))
f'� config(1) = 1 � daisy=� � daisy=�
p
� daisy �
zM�''"What is the width of one character in the printer's own width units?"
�$config(2)=�get_number(config(2))
��
�J�''"Should each pixel be printed twice in graphics mode to double the"
��"width of output";
�;� �yes_no_d(-config(2) � 2) � config(2)=2 � config(2)=0
��
�:
�G�''"Enter the size of a linefeed in the printer's own height units"
�$config(3)=�get_number(config(3))
�:
�
� daisy �
�L�''"Enter the position, in printer units from the left margin, to which"
�F�"the print head should be moved when feeding paper (usually the "
�"middle of the carriage)"
�
>�''"Enter the printer's graphic resolution in pixels/inch"
$�
.$config(4)=�get_number(config(4))
8:
B
� daisy �
LK�''"Enter the carriage shift for bold. A larger number means that bold"
V7�"characters will be printed with a bigger shadow."
`$config(5)=�get_number(config(5))
j�
tconfig(5)=0
~�
�:
�G�''"Should '1st Word Plus' pause between pages to allow for manual"
� �"single-sheet feeding";
�&config(6)=�(�yes_no_d(-config(6)))
�:
�.T%=�:� � �>= T%+100 :� pause for 1 sec.
��
�:
�C***************************************************************
�C***************************************************************
�:
�
� �yes_no
G� Returns TRUE if the user answers positively. FALSE if negatively.
3� Will wait until either YES or NO is intended.
:
� Ans$
(�1
2
�"? ";
<�
F
Ans$=�
P� �"YyNn",Ans$) > 0
Z� 3
d� Ans$="Y" � Ans$="y" �
n � "Yes"
x� 6
�=�
��
�
� "No"
�� 6
�=�
��
�:
�C***************************************************************
�C***************************************************************
�:
�� �yes_no_d(default)
�L� ---> Returns TRUE if the user answers positively. FALSE if negatively.
�8� ---> Will wait until either YES or NO is intended.
/� ---> **This version will give a default**
:
� Ans$
"�1
,
�"? ";
6�2
@Ȏ default �
J� � : �"Yes";:� 8,8,8
T� � : �"No";:� 8,8
^ : �"No";:� 8,8:default=�
h�
r�
|
Ans$=�
�� �"YyNn"+�13,Ans$) > 0
�%� Ans$=�13 � default=� � Ans$="Y"
�%� Ans$=�13 � default=� � Ans$="N"
�� 3
�� Ans$="Y" � Ans$="y" �
� � "Yes "
�� 6
�=�
��
� � "No "
�� 6
�=�
��
:
C***************************************************************
C***************************************************************
&:
0� �get_number(default)
:8� ---> Returns a number containing the user's input.
DF� ---> Equivalent to an INPUT with prohibit of non-integer numbers
N:
X>� length, string$, number%, finished, horiz, vert, firstch
b�1
l
�"===> ";
v�2
�@%=0
� �default;ĩ(�(default)),�8);
��3
�finished=�
�
firstch=�
�string$=""
�horiz=�:vert=�
�:
��
�ch=�
� � �(string$) = 0 � ch=13 �
� number%=default:finished=�
��
(� �(string$) = 0 � (ch=127 � ch=8) �
� 7
�
'� firstch � ��72," ");�horiz,vert);
*+� ch=13 � number%=�(string$):finished=�
4-� ch=127 � ch=8 � string$=�string$):� 127
>0� �"0123456789",�ch) >0 � string$+=�ch: � ch
H�
R�
\
firstch=�
f� finished
p:
z@%=0
��horiz,vert);number%;
�� 6
� =number%
�:
�C***************************************************************
�C***************************************************************
�:
�� �character
�4� ---> Define section 2, printer characteristics
��
��5
� �"Printer Characteristics"
� �"======================="''
�6
� force_hex �
hex=�
$�
.(�"Do you want to input data in Hex";
8�3
Bhex=�yes_no_d(�)
L�
V:
` � hex �
j�26,31,65,0
t�3
~�"Hex Entry"
��
�� 26,31,65,0
��3
��"Decimal Entry"
��
�� :� force_hex
�� 28,0,31,79,3,12
�:
�3� daisy � �getcode(0,"Set character width [P]")
��getcode(1,"Line Feed")
�)� daisy � �getcode(2,"Forward print")
�*� daisy � �getcode(3,"Backward print")
"�getcode(4,"Vertical tab [P]")
9� � daisy � �getcode(5,"Absolute horizontal tab [P]")
�getcode(6,"Draft Bold On")
�getcode(7,"Draft Bold Off")
(
� daisy �
2 nlq=�
<�
F<�'"Do you want to include commands for printing in NLQ";
P"� �yes_no_d(�) � nlq=� � nlq=�
Z�
d�
n%� nlq � �getcode(8,"NLQ Bold On")
x&� nlq � �getcode(9,"NLQ Bold Off")
��
�"�getcode(&A,"Draft Italic on")
�#�getcode(&B,"Draft Italic off")
�(� nlq � �getcode(&C,"NLQ Italic On")
�)� nlq � �getcode(&D,"NLQ Italic Off")
��
�!�getcode(&E,"Draft Light on")
�"�getcode(&F,"Draft Light off")
�(� nlq � �getcode(&10,"NLQ Light On")
�)� nlq � �getcode(&11,"NLQ Light Off")
��
�(�getcode(&12,"Draft Superscript on")
�)�getcode(&13,"Draft Superscript off")
.� nlq � �getcode(&14,"NLQ Superscript On")
/� nlq � �getcode(&15,"NLQ Superscript Off")
�
"&�getcode(&16,"Draft Subscript on")
,'�getcode(&17,"Draft Subscript off")
6,� nlq � �getcode(&18,"NLQ Subscript On")
@-� nlq � �getcode(&19,"NLQ Subscript Off")
J�
T&�getcode(&1A,"Draft Underline on")
^'�getcode(&1B,"Draft Underline off")
h,� nlq � �getcode(&1C,"NLQ Underline On")
r-� nlq � �getcode(&1D,"NLQ Underline Off")
|�
� �getcode(&1E,"Formfeed")
�1�getcode(&1F,"Horizontal initialisation [P]")
�/�getcode(&20,"Vertical initialisation [P]")
�!�getcode(&21,"Printer Reset")
�)� � daisy � �getcode(&22,"Backspace")
�+�getcode(&23,"Carriage return (no LF)")
�*�getcode(&24,"Form length (in lines)")
�-�getcode(&25,"Set linefeed distance [P]")
��
�.� � daisy � �getcode(&26,"Print Graphics")
� � Command &27 is reserved.
�
� daisy �
�1�getcode(&28,"Define character width - Pica")
2�getcode(&2A,"Define character width - Elite")
6�getcode(&2C,"Define character width - Condensed")
5�getcode(&2E,"Define character width - Expanded")
&�
0"�getcode(&28,"Set Draft Pica")
:(� nlq � �getcode(&29,"Set NLQ Pica")
D#�getcode(&2A,"Set Draft Elite")
N)� nlq � �getcode(&2B,"Set NLQ Elite")
X'�getcode(&2C,"Set Draft Condensed")
b-� nlq � �getcode(&2D,"Set NLQ Condensed")
l&�getcode(&2E,"Set Draft Expanded")
v,� nlq � �getcode(&2F,"Set NLQ Expanded")
��
��
� �getcode(&30,"Black ink")
� �getcode(&31,"Magenta ink")
� �getcode(&32,"Cyan ink")
� �getcode(&33,"Yellow ink")
��
�:
�C***************************************************************
�C***************************************************************
�:
�� �translation
�3� ---> Define section 3, character translation.
�
�5
�"Character Translation"
�"====================="'
*�3
4�"Yellow";�10);
>�6
H-�"- Print this character";�60);"<SELECT>"
R�2
\�"Green";�10);
f�6
p/�"- Use a translation string";�60);"<MENU>"
z�1
��"Red";�10);
��6
�0�"- Ignore this character";�60);"<ADJUST>"''
��6
�:
�
�mouse
��
�:
�C***************************************************************
�C***************************************************************
�:
� � �mouse
�0� ---> Allow the mouse to select characters.
:
� x,y,b
*POINTER 1
$ȗ �
.�
8ȗ ȓ 0,480,1015,190
B�draw_grid
L:
V�
` ȗ x,y,b
j @%=10
tcx=(x+8) � 32
~cy=6-((y-480) � 32)
�� cy >= 4 � cy+=1
�ch=cx+(32*cy)
�� ch<>127 �
�'� b=4 � trans$(ch)=�(ch):�draw_grid
�0� b=2 � trans$(ch)=�get_trans(ch):�draw_grid
�$� b=1 � trans$(ch)="":�draw_grid
��
�� ch=127 � b<>0
��
�:
�C***************************************************************
�C***************************************************************
:
� �draw_grid
� ----> Draw mouse selector
� 31, 0,8
(
� y=0 � 6
2� x=0 � 31
<:
F� y=3 � y=4
P:
Zch=32+(32*y)+x
d:
n� trans$(ch)="" �
x�1
��
�� trans$(ch)=�(ch) �
��3
��
��2
��
��
�:
�� 32+(32*y)+x, 32
��
��
��
��5
�31,62,10
�"End";
�
":
,C***************************************************************
6C***************************************************************
@:
J� �get_trans(ch)
T:� ---> Get the character translation for character ch.
^:
hȗ �
r�
| �0,20);
��3
�-� hex � �"Hex Entry." � �"Decimal Entry."
� *FX15
�char$(&34)=trans$(ch)
�=�getcode(-1,"Character String for "+�ch+" ("""+�ch+""")")
�ȗ �
��
��0,20);�(200);
�=char$(&34)
�:
�C***************************************************************
�C***************************************************************
�:
"� �translate_output(instring$)
@� ---> Translate a string (decimal or hex) ready for output.
:
&� outstring$,decimal$
0� �
:6� � � � � �:�"SPOOL":�6:� �, �$+" at line "+�(�):�
Doutstring$=""
Nȕ �(instring$) > 0
Xoutstring$+=", "
b � hex �
l&hex$=�instring$,�instring$," ")-1)
v:
�� �hex$,"P")=1 �
�� �(hex$)=1 �
�
hex$="80"
��
� hex$=�~(128+�("&"+�hex$,2)))
��
�:
��
�outstring$+=hex$
��
�*decimal$=�instring$,�instring$," ")-1)
�:
�� �decimal$,"P")=1 �
� �decimal$=1 �
hex$="80"
�
hex$=�~(128+�(�decimal$,2)))
*�
4�
>� �decimal$=1 �
H
hex$="80"
R�
\hex$=�~(�(decimal$))
f�
p�
z:
�outstring$+=hex$
��
�&� �instring$," ")=0 � instring$=""
�+instring$=�instring$,�instring$," ")+1)
��
�=outstring$
�:
�C***************************************************************
�C***************************************************************
�:
�� �output(� escape)
�)� ---> Output the HEX printer driver.
�:
� loop, lf$
�open_output(escape)
'� escape � �2:�'"Save Abandoned.":�
$ lf$=�10
.�"* >";filename$;lf$;
8(�"* Printer driver created ";�$;lf$;
BG�"***********************************************************";lf$;
LG�"* *";lf$;
VG�"* 1st Word Plus Printer Driver *";lf$;
`G�"* ---------------------------- *";lf$;
jG�"* *";lf$;
tG�"* This printer driver is for the printer named below. *";lf$;
~G�"* It was created by '1wp_PDG' written by John Smith *";lf$;
�G�"* Program Copyright (C) 1988. *";lf$;
�G�"* *";lf$;
�G�"* It may be edited directly, or by re-running '1wp_PDG' *";lf$;
�G�"* *";lf$;
�G�"***********************************************************";lf$;
�G�"* *";lf$;
�G�"* *** IMPORTANT NOTE *** *";lf$;
�G�"* *";lf$;
�G�"* Read the chapter PRINTER CONFIGURATION in the First *";lf$;
�G�"* Word Plus manual - THOROUGHLY. *";lf$;
�G�"* *";lf$;
�G�"* If this file is edited using First Word Plus, ensure *";lf$;
G�"* that 'WP MODE' is turned OFF. *";lf$;
G�"* *";lf$;
G�"* If this file is edited by re-running '1wp-PDG', note *";lf$;
G�"* that it can only be edited in HEX. *";lf$;
(G�"* *";lf$;
2G�"***********************************************************";lf$;
<
�lf$;lf$;
F
�"*";lf$;
PH�"* The following line contains the name of the printer.";lf$;lf$;
Z � Printer_name$;lf$;lf$;
d
�"*";lf$;
nJ�"* The following line contains the configuration options.";lf$;lf$;
x@%=0
�c�~config(1) ", " config(2) ", " config(3) ", " config(4) ", " config(5) ", " config(6);lf$;lf$;
�
�"*";lf$;
�7�"* Now comes the PRINTER CHARACTERISTICS";lf$;lf$;
�� loop=0 � &33
�D� char$(loop) <>"" � � ~loop;�translate_output(char$(loop));lf$;
��
�#�"0 * Null byte";lf$;lf$;
�
�"*";lf$;
�6�"* Now comes the CHARACTER TRANSLATIONS";lf$;lf$;
�� loop=33 � 126
�:� �(trans$(loop)) = 0 � �~loop;�(30);"* ";�(loop);lf$;
�Z� �(trans$(loop)) > 1 � �~loop;�translate_output(trans$(loop));�(30);"* ";�(loop);lf$;
��
:
� loop=160 � 255
:� �(trans$(loop)) = 0 � �~loop;�(30);"* ";�(loop);lf$;
"Z� �(trans$(loop)) > 1 � �~loop;�translate_output(trans$(loop));�(30);"* ";�(loop);lf$;
,�
6:
@ �"0 * Null byte";lf$;
J�close_output
T�
^:
hC***************************************************************
rC***************************************************************
|:
� � �open_output(� escape)
�F� ---> Get a filename from the user. If it does not already exist,
�<� ---> or the user gives permission, open a *SPOOL file.
�:
�(� ok, filename$, file_length%, found
��
��cat
�ok=�
�� :� until NOT ERROR
�� :� until OK
��6
�C�'"Enter the filename to save. Press <Escape> to abandon save."
�,filename$=�getstring(32,Infile$, escape)
� escape � �
�
<� �filename$,".") = 0 � filename$="&.1WP.hex."+filename$
&:
02�find_file(filename$,file_length%,found,error)
::
D
� found �
N?� "File """;filename$;""" already exists. Ok to overwrite";
Xok=�yes_no
b�
l'� File not found, so maybe in error
vok=�
��
�� ok
�:
�� Test for error
�
� � error
�� ok, so go ahead
�/�"Writing output file: """;filename$;""".";
�� 21 :� disable screen.
�� "SPOOL "+filename$
��
�:
�C***************************************************************
�C***************************************************************
:
� �close_output
7� ---> Close the spool file, and re-enable the VDU.
:
*
*SPOOL
4
� 6,12
>� 26
H�''
R�cat
\�
f:
pC***************************************************************
zC***************************************************************
�:
�� �defaults
�:� ---> initialise the deafult values for the character
� � ---> translation table.
�:
� � loop%
�Infile$=""
�trans$(33)=�(33)
�trans$(34)=�(34)
�� loop%=36 � 127
�trans$(loop%)=�(loop%)
��
�trans$(96)=""
:
config(1)=0
config(2)=0
$config(3)=0
.config(4)=0
8config(5)=0
Bconfig(6)=0
L:
Vȗ �
`�
j�
t:
~C***************************************************************
�C***************************************************************
�:
�� �load_hexfile
�?� ---> Load a hex file previously created - either manually
� � ---> or with this program!
�:
��cat
�� :� UNTIL FOUND
�� :� UNTIL NOT ERROR
��6
�5�'"Do you still want to load an existing driver";
�� �yes_no �
�6
"�'"Enter the filename to load"
&filename$=�getstring(32,"",escape)
T� escape � �2:�"Escape - Load abandoned"':�defaults:force_hex=�:� 28,0,31,79,3:�
(�
2:
<2�find_file(filename$,file_length%,found,error)
F
� � error
P:
Z
� found �
d � filestore% file_length%
n'�"Load "+filename$+" "+�~filestore%
xInfile$=filename$
��
��2
��"File not found."
�Infile$=""
�� :� FILE NOT FOUND
�:
� � found
� �process_hexfile(filestore%)
��
�� Not loading after all
�
�defaults
�force_hex=�
� � :� Don'T WANT TO LOAD....
� 28,0,31,79,3
�
:
"C***************************************************************
,C***************************************************************
6:
@ � �process_hexfile(address%)
J:� ---> Process the hex file loaded at address address%
T:
^!� char$, char_sub%, char_val$
hA%=address%
r �"Reading Printer Name";�11
|,Printer_name$=�process_hexline(address%)
�&�"Reading Configuration";�(20);�11
�+config_line$=�process_hexline(address%)
�!�process_config(config_line$)
�:
�(�"Reading Characteristics";�(20);�11
�$char$=�process_hexline(address%)
�2ȕ (�first(char$) <> 0) � (�rest(char$) <> "")
�char_sub%=�first(char$)
�(char_val$=�strip_comma(�rest(char$))
� char$(char_sub%) = char_val$
�$char$=�process_hexline(address%)
��
�:
0� setup default translation - no translation
� trans_sub%=1 � 255
"trans$(trans_sub%)=�trans_sub%
&�
0:
:/�"Reading Character translations";�(20);�11
D5� Now read in the translations from the HEX file.
N%trans$=�process_hexline(address%)
X:
bȕ �first(trans$) <> 0
l trans_sub%=�first(trans$)
v*trans_val$=�strip_comma(�rest(trans$))
�:
�� trans_val$="" �
�4� character is to be ignored - clear table entry
�trans$(trans_sub%) = ""
��
�'� We have a translation - store it.
�#trans$(trans_sub%) = trans_val$
��
�:
�� Read-ahead
�%trans$=�process_hexline(address%)
��
�
�(70)
�
:
C***************************************************************
C***************************************************************
*:
4 � �process_hexline(� a%)
>?� ---> Process the hex file in memory from address address%
HG� ---> onwards to retrieve a non-null string with all comment lines
R� ---> ignored.
\:
f
� char
p�
z'� Read a line up to ASCII 10 (eoln)
� line$=""
�:
�char=�getbyte(a%)
�ȕ char<>10
�line$+=�char
�char=�getbyte(a%)
��
�:
�)� Strip leading spaces, and comments.
��strip_leading(line$)
��strip_comment(line$)
�:
�� ignore blank lines
� line$<>""
=�tidy_string(line$)
:
$C***************************************************************
.C***************************************************************
8:
B� �getbyte(� a%)
L+� ---> Returns the next byte in memory.
V:
` a%+=1
j
=a%?-1
t:
~C***************************************************************
�C***************************************************************
�:
� � �strip_leading(� string$)
� � ---> Strips leading spaces
�:
�ȕ �string$,1) = " "
�string$=�string$,2)
��
��
�:
�C***************************************************************
�C***************************************************************
:
� �strip_comment(� string$)
0� ---> Strip *s and any following characters
:
(
� posn
2posn=�string$,"*")
< string$=�string$,posn-1)
F�
P:
ZC***************************************************************
dC***************************************************************
n:
x.� �find_file(F$, � ext%, � found, � error)
�0� ---> Check file exists and get it's length
�6� ---> Set filepath to allow easy reading of file.
�:
�� �
� error=�
�%� � � found=�:error=�:�2:� �$;: �
� found=�
�handle%=�(F$)
�� handle%<>0 �
�ext%=�#handle%
�
�#handle%
�
found = �
��
�
�
:
"C***************************************************************
,C***************************************************************
6:
@
� �cat
J/� ---> Catalogue the hex files on the disk.
T:
^� �
h6� � � �2:�$;" - Can't catalogue ""&.1WP.hex"".":�
r�6
|#�'"Contents of ""&.1WP.hex"":"'
��2
�*CAT &.1WP.HEX
��
�� 28,0,31,79,�+3
��
�:
�C***************************************************************
�C***************************************************************
�:
�� �first(string$)
�F� ---> Like the LISP function (CAR ...), FNfirst returns the first
�>� ---> Integer in the comma-separated list given as input.
�8� ---> But it converts it from hex to decimal first!
:
� posn, out$
posn=�string$,",")
&� posn=0 �
0out$ = string$
:�
Dout$ = �string$,posn-1)
N�
X:
b � convert out$ into decimal
l=�("&"+out$)
v:
�C***************************************************************
�C***************************************************************
�:
�� �rest(string$)
�D� ---> Like the LISP function (CDR ...), FNrest returns the rest
�J� ---> of the comma-separated list given as input (I.E. everything but
�1� ---> the first element and following comma.
�:
�
� posn
�posn=�string$,",")
�� posn=0 �
�=""
��
! string$=�string$,posn+1)
! �strip_leading(string$)
! =string$
! �
!*:
!4C***************************************************************
!>C***************************************************************
!H:
!R� �strip_comma(string$)
!\-� ---> Replace all ','s by ' ' in string.
!f:
!p� out$, loop
!z out$=""
!�:
!�� loop = 1 � �string$
!�?� �string$,loop,1)="," � out$+=" " � out$+=�string$,loop,1)
!��
!�=�tidy_string(out$)
!�:
!�C***************************************************************
!�C***************************************************************
!�:
!�� �tidy_string(string$)
!�<� ---> Ensure that string$ is in the preferred format...
!�A� ---> NO leading OR TRAILING spaces, and only a single space
!�D� ---> between constituents. This is vital, because an input HEX
" � ---> file is free-format.
":
"� out$, allowsp, ch$
"$�strip_leading(string$)
".:
"8 � Now for the hard bit...
"B out$=""
"L
allowsp=�
"V:
"`� loop = 1 � �string$
"jch$=�string$,loop,1)
"t� ch$=" " �
"~� allowsp �
"�
out$+=" "
"�
allowsp=�
"��
"��
"�
out$+=ch$
"�
allowsp=�
"��
"��
"�:
"�E� Now, there is only 1 space between elements, but there may be a
"�'� Single trailing space. remove it.
"� � �out$) = " " � out$=�out$)
# =out$
#
:
#C***************************************************************
# C***************************************************************
#(:
#2 � �process_config(line$)
#<B� ---> Takes as input the line of 6 configuration options, and
#F1� ---> places the values obtained in config()
#P:
#Z
� loop
#d� loop = 1 � 6
#n config(loop) = �first(line$)
#xline$=�rest(line$)
#��
#��
#�:
#�C***************************************************************
#�C***************************************************************
#�:
#�� �chain(escape)
#�8� ---> Chains execution to the "1stInstall" program.
#�:
#�� ext, found
#�� � escape �
#�1�find_file("%.1stInstall", ext, found, error)
#�� error � �tPd
$�6
$
� found �
$�
$"/�0,5);"Do you want to run ""1stInstall""";
$,$� �yes_no � � "RUN %.1stInstall"
$6�
$@�
$JB�0,5);"To install your new printer driver, you must run the "
$TI�"Printer driver installation program, ""1stInstall"". However, this"
$^@�"Program is not present in the current library directory."'
$hF�"Consult your 1st Word Plus manual for details of how to run it."
$r�
$|� :� not escape
$�:
$��6
$�/�''"Do you want to run this program again";
$�� �yes_no � �
$��7
$��
$��"Program finished."
$�� 26,31,0,20
$�"*Set File$Path <Orig$FilePath>
$�*Unset Orig$FilePath
$��
$�:
$�C***************************************************************
%C***************************************************************
%:
% � �getcode(code%,prompt$)
%&@� ---> gets a string from the user validated only to contain
%0:� ---> " ", "0"-"9" AND "A"-"F" (if hex was selected).
%:4� ---> leading and multiple spaces are stripped.
%D7� ---> Also, ASCII characters within single quotes.
%N
� --->
%X=� ---> If code% is -1 on entry, treat this as a character
%bD� ---> retranslation string, and prompt accordingly, storing the
%l � ---> result in code(&34).
%v:
%�2� ch$, a_string$, string$, lastspace, default$
%�� Prompting.
%��6
%�@%=0
%� � code%<&10 � code%>=0 �" ";
%�+� code%>=0 � ~code%; " - "; � code%=&34
%�default$=char$(code%)
%�:
%�� prompt$;�40,�);
%��1
%�
�"===> ";
%�charlist$="0123456789P"
%�%� hex � charlist$+="ABCDEFabcdef"
&�2
& �default$;ĩdefault$,�8);
&�3
& finished=�
&*
firstch=�
&4
allowsp=�
&>string$=""
&Hhoriz=�:vert=�
&R:
&\�
&fch=�
&p(� �(string$) = 0 � ch=13 � firstch �
&z string$=default$:finished=�
&��
&�(� �(string$) = 0 � (ch=127 � ch=8) �
&�� 7
&��
&�'� firstch � ��30," ");�horiz,vert);
&�:
&�� ch=�"'" � � allowsp �
&�#� OK-- this is the funny stuff.
&� �"'";
&� ch$=�
&� � hex �
&�string$+=�~(�ch$)
&�� �127;�~(�ch$);
'�
'string$+=�(�ch$)
'� �127;�(�ch$);
'$�
'.%&C*****************D� xt�1("Co"Co""�"�":e}(strimem�t � �oun=�wan�F�F�..w�.
$�)
#�)
#�)� em� f."�C%.%.% �weeretu� f"beLioioie(ama-ma-m,Pm61 j all all 4
a4
a4� firll" to tadbet:�
�j j jxxx"1loolool�d l&.1W2�comm27n s the rips6�xxxxx
o:
#�B�
un i."", ig$ig$ig:
�:
�WP.0)
!�******************
� Can Can rroMMMRU de= find=� � weerUCI" �" �"1 �apng,ng,nas :
"--> fou string$
)
�e)ut$= the u' �f�f� �corupn) p�$,lyou lowsp:
!�� ouramchguou $=�gu;
;
; muP.Or**$^$^$ip_lplele%,0;
;le **********************************Or*no omma.omma.o�DR
$�St="lnsl+=" wag !4!4!� ' ' ************************rm
$T�capestrippstripps�s_ op =� � far�g>
sn= finfinf f rc ne 1 p�$,lyou lowsp:
!�� ouramchow k 4ou w)�***********************************fig(b�lid<ring$�ion guou -�6
%t tt tt� fan
%D� -� *C*C*�ou G �LiLiL�
+=� f"!4pleplep8� LiL<>0proprop>�rrorrorln�atioD� -�" "bylnslnsln sem�&4&4&wag�"'�"'�unLiL<��3 �finished=�
(�un i.rstch=�
(�string$=""
(�h rc =�:vert=� � �� �ch=�
(�� fan� � �(string$) = 0 � ch=13 �
) � empty string - default
) string$=nsln:finished=�
)�
)" � not:
!��ault entry - RUBO�o�
),(� �(string$) = 0 � (ch=� f.� ch=8) �
)6� 7
)@�
)J1� firstch � ��32," ");� � w,vert);:firstch=�
)T:
)^,=�w%.%� ch=�27 all ring$=�string$)"bLi)houn= ch=�F� rroMd=�
)r� �string$=$,ly% �
)|�7
)��
)�� e (ch>31) � (ch<>127) � string$+=rips6� ch
)��
)��
)��
)� Can finished
)� =� rc ,vert);string$;�(D� x)
)��6
)��
)� =string$
)�:
)�C***************************************************************
)�C_sub%)�c*******************
*:
* � �intro
* +� ---> Program introduction and credits
*&>� ---> Set Pallete, draw screen with high-bit-set colours.
*0?� ---> Then do a pattern to unset the high bits [AND %0111]
*::
*D
� loop
*N�:�
*Xȑ 640,512
*b� Setup Pallete
*l� loop = %.%� 15
*v ng,nloop,0
*��
*��4,0,0,150
*�:
*�� Now do the screen.
*� � 1+("*�ȓ Ȑ -310,-310,620,620
*� � 4+(
*�ȓ Ȑ -305,-305,610,610
*� �'''''''
*��5+(
*� n4+8+128
*�'�centre("Printer Driver Generator")
*�"�centre("for First Word*C*lus")
+�'
+ �2+(
+�centre("Version 1.00")
+ �'
+*�3+(
+42�centre("Copyright "+�169+" 1988, John Smith")
+>�''
+H�6+(
+R5�centre("This software is in the Publstripps Domain.")
+\/�centre("You are given permission to copy")
+f4�centre("this program as you please, providing")
+p1�centre("that this copyright notstrippse remains")
+z �centre("on all copies.")
+� �31,0,31
+��2+(
+�(�centre("Press any key to continue")
+��1+(
+�:
+�,� Now draw circles "to open the window".
+�.� 2,7 :� AND the circle to unset high bit.
+�� loopwan� � 600 � 3
+�ȏ Ȑ 0,0,loop
+��
+��6
+�EI=�(1000)
+�:
,�26:�128:�:�
,�
,:
,$C***************************************************************
,.C************************************************** 00000000 0d 00 0a 0a f4 20 3e 50 44 47 0d 00 14 22 f4 20 |..... >PDG...". |
00000010 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000020 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 1e 22 |************..."|
00000030 f4 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * |
00000040 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 00 | *..|
00000050 28 22 f4 20 2a 20 50 72 69 6e 74 65 72 20 44 72 |(". * Printer Dr|
00000060 69 76 65 72 20 47 65 6e 65 72 61 74 6f 72 20 2a |iver Generator *|
00000070 0d 00 32 22 f4 20 2a 20 20 20 20 66 6f 72 20 31 |..2". * for 1|
00000080 73 74 20 57 6f 72 64 20 50 6c 75 73 20 20 20 20 |st Word Plus |
00000090 20 2a 0d 00 3c 22 f4 20 2a 20 20 20 20 20 20 20 | *..<". * |
000000a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000b0 20 20 20 2a 0d 00 46 22 f4 20 2a 2a 2a 2a 2a 2a | *..F". ******|
000000c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
000000d0 2a 2a 2a 2a 2a 2a 0d 00 50 05 f4 0d 00 5a 1a f4 |******..P....Z..|
000000e0 20 28 43 29 20 31 39 38 38 2c 20 4a 6f 68 6e 20 | (C) 1988, John |
000000f0 53 6d 69 74 68 0d 00 64 05 f4 0d 00 6e 4b f4 20 |Smith..d....nK. |
00000100 31 31 2d 53 65 70 2d 38 38 20 50 44 47 5f 31 57 |11-Sep-88 PDG_1W|
00000110 50 32 20 20 20 20 41 64 64 20 63 6f 64 65 20 74 |P2 Add code t|
00000120 6f 20 63 61 74 65 72 20 66 6f 72 20 22 50 52 49 |o cater for "PRI|
00000130 4e 54 45 52 20 43 48 41 52 41 43 54 45 52 49 53 |NTER CHARACTERIS|
00000140 54 49 43 53 22 0d 00 78 3f f4 20 31 31 2d 53 65 |TICS"..x?. 11-Se|
00000150 70 2d 38 38 20 50 44 47 5f 31 57 50 33 20 20 20 |p-88 PDG_1WP3 |
00000160 20 43 4f 4e 54 49 4e 55 45 20 41 46 54 45 52 20 | CONTINUE AFTER |
00000170 46 55 4e 4e 59 20 42 55 47 20 49 4e 20 47 45 54 |FUNNY BUG IN GET|
00000180 43 4f 44 45 0d 00 82 49 f4 20 31 37 2d 53 65 70 |CODE...I. 17-Sep|
00000190 2d 38 38 20 50 44 47 5f 31 57 50 34 20 20 20 20 |-88 PDG_1WP4 |
000001a0 54 69 64 79 20 75 70 20 73 63 72 65 65 6e 20 68 |Tidy up screen h|
000001b0 61 6e 64 6c 69 6e 67 20 69 6e 20 63 68 61 72 2e |andling in char.|
000001c0 20 74 72 61 6e 73 6c 61 74 69 6f 6e 2e 0d 00 8c | translation....|
000001d0 49 f4 20 31 37 2d 53 65 70 2d 38 38 20 50 44 47 |I. 17-Sep-88 PDG|
000001e0 5f 31 57 50 35 20 20 20 20 41 64 64 65 64 20 64 |_1WP5 Added d|
000001f0 65 66 61 75 6c 74 20 70 72 6f 63 65 73 73 69 6e |efault processin|
00000200 67 20 61 6c 6c 2d 72 6f 75 6e 64 2e 20 47 65 74 |g all-round. Get|
00000210 20 72 65 61 64 79 0d 00 96 3d f4 20 20 20 20 20 | ready...=. |
00000220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230 20 20 66 6f 72 20 72 65 61 64 69 6e 67 20 61 6e | for reading an|
00000240 20 65 78 69 73 74 69 6e 67 20 48 45 58 20 66 69 | existing HEX fi|
00000250 6c 65 2e 0d 00 a0 3f f4 20 32 30 2d 53 65 70 2d |le....?. 20-Sep-|
00000260 38 38 20 50 44 47 5f 31 57 50 36 20 20 20 20 47 |88 PDG_1WP6 G|
00000270 65 74 63 6f 64 65 20 72 65 70 6c 61 63 65 64 2e |etcode replaced.|
00000280 20 50 72 6f 63 65 73 73 20 48 45 58 20 66 69 6c | Process HEX fil|
00000290 65 2e 0d 00 aa 41 f4 20 32 31 2d 53 65 70 2d 38 |e....A. 21-Sep-8|
000002a0 38 20 50 44 47 5f 31 57 50 37 20 20 20 20 41 6c |8 PDG_1WP7 Al|
000002b0 6d 6f 73 74 20 74 68 65 72 65 2e 20 41 6c 6c 20 |most there. All |
000002c0 69 6e 70 75 74 20 66 72 6f 6d 20 48 45 58 20 66 |input from HEX f|
000002d0 69 6c 65 0d 00 b4 44 f4 20 20 20 20 20 20 20 20 |ile...D. |
000002e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 | a|
000002f0 63 63 65 70 74 65 64 2e 20 44 65 66 61 75 6c 74 |ccepted. Default|
00000300 20 59 2f 4e 20 70 72 6f 63 65 73 73 69 6e 67 2e | Y/N processing.|
00000310 20 4f 75 74 70 75 74 0d 00 be 25 f4 20 20 20 20 | Output...%. |
00000320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000330 20 20 20 63 6f 6d 6d 65 6e 74 73 2e 0d 00 c8 43 | comments....C|
00000340 f4 20 32 31 2d 53 65 70 2d 38 38 20 50 44 47 5f |. 21-Sep-88 PDG_|
00000350 31 57 50 38 20 20 20 20 43 6f 72 72 65 63 74 20 |1WP8 Correct |
00000360 53 59 53 54 20 62 75 67 73 3a 20 64 65 66 61 75 |SYST bugs: defau|
00000370 6c 74 20 6f 6e 20 66 69 6c 65 6e 61 6d 65 2c 0d |lt on filename,.|
00000380 00 d2 33 f4 20 20 20 20 20 20 20 20 20 20 20 20 |..3. |
00000390 20 20 20 20 20 20 20 20 20 20 20 72 65 63 61 74 | recat|
000003a0 61 6c 6f 67 75 65 20 61 66 74 65 72 20 73 61 76 |alogue after sav|
000003b0 65 2c 0d 00 dc 44 f4 20 20 20 20 20 20 20 20 20 |e,...D. |
000003c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6f | Co|
000003d0 72 72 65 63 74 20 55 54 53 54 20 70 72 6f 62 6c |rrect UTST probl|
000003e0 65 6d 73 3a 20 41 6c 6c 6f 77 20 74 68 65 20 52 |ems: Allow the R|
000003f0 45 4d 4f 56 41 4c 0d 00 e6 3e f4 20 20 20 20 20 |EMOVAL...>. |
00000400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410 20 20 6f 66 20 61 20 63 68 61 72 61 63 74 65 72 | of a character|
00000420 69 73 74 69 63 20 77 69 74 68 20 3c 73 70 3e 3c |istic with <sp><|
00000430 63 72 3e 2e 0d 00 f0 4b f4 20 20 20 20 20 20 20 |cr>....K. |
00000440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450 4d 61 6b 65 20 69 6e 70 75 74 20 65 61 73 69 65 |Make input easie|
00000460 72 20 69 6e 20 67 65 74 63 6f 64 65 2e 20 41 6c |r in getcode. Al|
00000470 6c 6f 77 20 22 2d 22 20 61 73 20 77 65 6c 6c 0d |low "-" as well.|
00000480 00 fa 2a f4 20 20 20 20 20 20 20 20 20 20 20 20 |..*. |
00000490 20 20 20 20 20 20 20 20 20 20 20 61 73 20 68 65 | as he|
000004a0 78 20 76 61 6c 75 65 73 2e 0d 01 04 47 f4 20 32 |x values....G. 2|
000004b0 32 2d 53 65 70 2d 38 38 20 50 44 47 5f 31 57 50 |2-Sep-88 PDG_1WP|
000004c0 39 20 20 20 20 53 77 69 72 6c 79 20 69 6e 74 72 |9 Swirly intr|
000004d0 6f 20 61 64 64 65 64 2e 20 52 65 64 75 6e 64 61 |o added. Redunda|
000004e0 6e 74 20 63 6f 64 65 20 72 65 6d 6f 76 65 64 2e |nt code removed.|
000004f0 0d 01 0e 08 eb 20 31 32 0d 01 18 0a f2 69 6e 74 |..... 12.....int|
00000500 72 6f 0d 01 22 07 fb 20 35 0d 01 2c 36 f1 20 22 |ro..".. 5..,6. "|
00000510 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520 20 20 20 20 20 20 50 72 69 6e 74 65 72 20 44 72 | Printer Dr|
00000530 69 76 65 72 20 47 65 6e 65 72 61 74 6f 72 22 0d |iver Generator".|
00000540 01 36 35 f1 20 22 20 20 20 20 20 20 20 20 20 20 |.65. " |
00000550 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 | f|
00000560 6f 72 20 31 73 74 20 57 6f 72 64 20 50 6c 75 73 |or 1st Word Plus|
00000570 22 27 27 27 0d 01 40 07 fb 20 36 0d 01 4a 12 ef |"'''..@.. 6..J..|
00000580 20 32 38 2c 30 2c 33 31 2c 37 39 2c 33 0d 01 54 | 28,0,31,79,3..T|
00000590 22 2a 53 65 74 20 4f 72 69 67 24 46 69 6c 65 50 |"*Set Orig$FileP|
000005a0 61 74 68 20 3c 46 69 6c 65 24 50 61 74 68 3e 0d |ath <File$Path>.|
000005b0 01 5e 29 2a 53 65 74 20 46 69 6c 65 24 50 61 74 |.^)*Set File$Pat|
000005c0 68 20 3c 46 69 6c 65 24 50 61 74 68 3e 2c 26 2e |h <File$Path>,&.|
000005d0 31 57 50 2e 68 65 78 2e 0d 01 68 28 de 20 63 6f |1WP.hex...h(. co|
000005e0 6e 66 69 67 28 36 29 2c 20 63 68 61 72 24 28 26 |nfig(6), char$(&|
000005f0 33 34 29 2c 20 74 72 61 6e 73 24 28 32 35 36 29 |34), trans$(256)|
00000600 0d 01 72 35 f1 22 44 6f 20 79 6f 75 20 77 61 6e |..r5."Do you wan|
00000610 74 20 74 6f 20 75 73 65 20 61 6e 20 65 78 69 73 |t to use an exis|
00000620 74 69 6e 67 20 70 72 69 6e 74 65 72 20 64 72 69 |ting printer dri|
00000630 76 65 72 22 3b 0d 01 7c 0f e7 20 a4 79 65 73 5f |ver";..|.. .yes_|
00000640 6e 6f 20 8c 0d 01 86 0f 66 6f 72 63 65 5f 68 65 |no .....force_he|
00000650 78 3d b9 0d 01 90 11 f2 6c 6f 61 64 5f 68 65 78 |x=......load_hex|
00000660 66 69 6c 65 0d 01 9a 05 cc 0d 01 a4 0d f2 64 65 |file..........de|
00000670 66 61 75 6c 74 73 0d 01 ae 0f 66 6f 72 63 65 5f |faults....force_|
00000680 68 65 78 3d a3 0d 01 b8 05 cd 0d 01 c2 05 3a 0d |hex=..........:.|
00000690 01 cc 06 fb 36 0d 01 d6 3b f1 27 27 22 45 6e 74 |....6...;.''"Ent|
000006a0 65 72 20 54 68 65 20 4e 61 6d 65 20 6f 66 20 74 |er The Name of t|
000006b0 68 65 20 50 72 69 6e 74 65 72 20 28 6d 61 78 2e |he Printer (max.|
000006c0 20 33 32 20 63 68 61 72 61 63 74 65 72 73 29 22 | 32 characters)"|
000006d0 0d 01 e0 12 68 6f 72 69 7a 3d b1 3a 76 65 72 74 |....horiz=.:vert|
000006e0 3d bc 0d 01 ea 0c 65 73 63 61 70 65 3d a3 0d 01 |=.....escape=...|
000006f0 f4 05 f5 0d 01 fe 12 ef 33 31 2c 68 6f 72 69 7a |........31,horiz|
00000700 2c 76 65 72 74 0d 02 08 36 50 72 69 6e 74 65 72 |,vert...6Printer|
00000710 5f 6e 61 6d 65 24 3d a4 67 65 74 73 74 72 69 6e |_name$=.getstrin|
00000720 67 28 33 32 2c 50 72 69 6e 74 65 72 5f 6e 61 6d |g(32,Printer_nam|
00000730 65 24 2c 20 65 73 63 61 70 65 29 0d 02 12 23 fd |e$, escape)...#.|
00000740 20 ac 20 65 73 63 61 70 65 20 80 20 50 72 69 6e | . escape . Prin|
00000750 74 65 72 5f 6e 61 6d 65 24 20 3c 3e 22 22 0d 02 |ter_name$ <>""..|
00000760 1c 40 e7 20 49 6e 66 69 6c 65 24 3d 22 22 20 8c |.@. Infile$="" .|
00000770 20 49 6e 66 69 6c 65 24 3d c0 50 72 69 6e 74 65 | Infile$=.Printe|
00000780 72 5f 6e 61 6d 65 24 2c a7 50 72 69 6e 74 65 72 |r_name$,.Printer|
00000790 5f 6e 61 6d 65 24 2c 22 20 22 29 2d 31 29 0d 02 |_name$," ")-1)..|
000007a0 26 10 ef 20 32 36 2c 33 31 2c 34 37 2c 31 0d 02 |&.. 26,31,47,1..|
000007b0 30 07 fb 20 32 0d 02 3a 13 f1 50 72 69 6e 74 65 |0.. 2..:..Printe|
000007c0 72 5f 6e 61 6d 65 24 3b 0d 02 44 12 ef 20 32 38 |r_name$;..D.. 28|
000007d0 2c 30 2c 33 31 2c 37 39 2c 33 0d 02 4e 05 3a 0d |,0,31,79,3..N.:.|
000007e0 02 58 05 f5 0d 02 62 0b f2 63 6f 6e 66 69 67 0d |.X....b..config.|
000007f0 02 6c 0e f2 63 68 61 72 61 63 74 65 72 0d 02 76 |.l..character..v|
00000800 10 f2 74 72 61 6e 73 6c 61 74 69 6f 6e 0d 02 80 |..translation...|
00000810 08 c8 97 20 87 0d 02 8a 05 ee 0d 02 94 0e db 3a |... ...........:|
00000820 f1 8a 30 2c 31 30 29 3b 0d 02 9e 07 fb 20 36 0d |..0,10);..... 6.|
00000830 02 a8 09 2a 46 58 31 35 0d 02 b2 27 f1 22 44 6f |...*FX15...'."Do|
00000840 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 63 68 61 | you want to cha|
00000850 6e 67 65 20 61 6e 79 20 69 6e 70 75 74 22 3b 0d |nge any input";.|
00000860 02 bc 10 fd 20 ac 28 a4 79 65 73 5f 6e 6f 29 0d |.... .(.yes_no).|
00000870 02 c6 13 f2 6f 75 74 70 75 74 28 65 73 63 61 70 |....output(escap|
00000880 65 29 0d 02 d0 12 f2 63 68 61 69 6e 28 65 73 63 |e).....chain(esc|
00000890 61 70 65 29 0d 02 da 05 e0 0d 02 e4 05 3a 0d 02 |ape).........:..|
000008a0 ee 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.C**************|
000008b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000008e0 2a 0d 02 f8 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |*...C***********|
000008f0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00000920 2a 2a 2a 2a 0d 03 02 05 3a 0d 03 0c 0d dd 20 f2 |****....:..... .|
00000930 63 6f 6e 66 69 67 0d 03 16 05 db 0d 03 20 06 fb |config....... ..|
00000940 35 0d 03 2a 25 f1 22 43 6f 6e 66 69 67 75 72 61 |5..*%."Configura|
00000950 74 69 6f 6e 20 56 61 72 69 61 62 6c 65 73 22 3b |tion Variables";|
00000960 89 28 31 30 29 3b 0d 03 34 1a fb 33 3a f1 22 44 |.(10);..4..3:."D|
00000970 65 63 69 6d 61 6c 20 45 6e 74 72 79 22 3a fb 35 |ecimal Entry":.5|
00000980 0d 03 3e 20 f1 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |..> ."==========|
00000990 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 27 27 |============="''|
000009a0 0d 03 48 06 fb 36 0d 03 52 31 f1 22 49 73 20 74 |..H..6..R1."Is t|
000009b0 68 69 73 20 61 20 6d 69 63 72 6f 73 70 61 63 69 |his a microspaci|
000009c0 6e 67 20 64 61 69 73 79 77 68 65 65 6c 20 70 72 |ng daisywheel pr|
000009d0 69 6e 74 65 72 22 3b 0d 03 5c 26 63 6f 6e 66 69 |inter";..\&confi|
000009e0 67 28 31 29 3d 94 28 a4 79 65 73 5f 6e 6f 5f 64 |g(1)=.(.yes_no_d|
000009f0 28 2d 63 6f 6e 66 69 67 28 31 29 29 29 0d 03 66 |(-config(1)))..f|
00000a00 27 e7 20 63 6f 6e 66 69 67 28 31 29 20 3d 20 31 |'. config(1) = 1|
00000a10 20 8c 20 64 61 69 73 79 3d b9 20 8b 20 64 61 69 | . daisy=. . dai|
00000a20 73 79 3d a3 0d 03 70 0d e7 20 64 61 69 73 79 20 |sy=...p.. daisy |
00000a30 8c 0d 03 7a 4d f1 27 27 22 57 68 61 74 20 69 73 |...zM.''"What is|
00000a40 20 74 68 65 20 77 69 64 74 68 20 6f 66 20 6f 6e | the width of on|
00000a50 65 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 74 |e character in t|
00000a60 68 65 20 70 72 69 6e 74 65 72 27 73 20 6f 77 6e |he printer's own|
00000a70 20 77 69 64 74 68 20 75 6e 69 74 73 3f 22 0d 03 | width units?"..|
00000a80 84 24 63 6f 6e 66 69 67 28 32 29 3d a4 67 65 74 |.$config(2)=.get|
00000a90 5f 6e 75 6d 62 65 72 28 63 6f 6e 66 69 67 28 32 |_number(config(2|
00000aa0 29 29 0d 03 8e 05 cc 0d 03 98 4a f1 27 27 22 53 |))........J.''"S|
00000ab0 68 6f 75 6c 64 20 65 61 63 68 20 70 69 78 65 6c |hould each pixel|
00000ac0 20 62 65 20 70 72 69 6e 74 65 64 20 74 77 69 63 | be printed twic|
00000ad0 65 20 69 6e 20 67 72 61 70 68 69 63 73 20 6d 6f |e in graphics mo|
00000ae0 64 65 20 74 6f 20 64 6f 75 62 6c 65 20 74 68 65 |de to double the|
00000af0 22 0d 03 a2 17 f1 22 77 69 64 74 68 20 6f 66 20 |"....."width of |
00000b00 6f 75 74 70 75 74 22 3b 0d 03 ac 3b e7 20 a4 79 |output";...;. .y|
00000b10 65 73 5f 6e 6f 5f 64 28 2d 63 6f 6e 66 69 67 28 |es_no_d(-config(|
00000b20 32 29 20 81 20 32 29 20 8c 20 63 6f 6e 66 69 67 |2) . 2) . config|
00000b30 28 32 29 3d 32 20 8b 20 63 6f 6e 66 69 67 28 32 |(2)=2 . config(2|
00000b40 29 3d 30 0d 03 b6 05 cd 0d 03 c0 05 3a 0d 03 ca |)=0.........:...|
00000b50 47 f1 27 27 22 45 6e 74 65 72 20 74 68 65 20 73 |G.''"Enter the s|
00000b60 69 7a 65 20 6f 66 20 61 20 6c 69 6e 65 66 65 65 |ize of a linefee|
00000b70 64 20 69 6e 20 74 68 65 20 70 72 69 6e 74 65 72 |d in the printer|
00000b80 27 73 20 6f 77 6e 20 68 65 69 67 68 74 20 75 6e |'s own height un|
00000b90 69 74 73 22 0d 03 d4 24 63 6f 6e 66 69 67 28 33 |its"...$config(3|
00000ba0 29 3d a4 67 65 74 5f 6e 75 6d 62 65 72 28 63 6f |)=.get_number(co|
00000bb0 6e 66 69 67 28 33 29 29 0d 03 de 05 3a 0d 03 e8 |nfig(3))....:...|
00000bc0 0d e7 20 64 61 69 73 79 20 8c 0d 03 f2 4c f1 27 |.. daisy ....L.'|
00000bd0 27 22 45 6e 74 65 72 20 74 68 65 20 70 6f 73 69 |'"Enter the posi|
00000be0 74 69 6f 6e 2c 20 69 6e 20 70 72 69 6e 74 65 72 |tion, in printer|
00000bf0 20 75 6e 69 74 73 20 66 72 6f 6d 20 74 68 65 20 | units from the |
00000c00 6c 65 66 74 20 6d 61 72 67 69 6e 2c 20 74 6f 20 |left margin, to |
00000c10 77 68 69 63 68 22 0d 03 fc 46 f1 22 74 68 65 20 |which"...F."the |
00000c20 70 72 69 6e 74 20 68 65 61 64 20 73 68 6f 75 6c |print head shoul|
00000c30 64 20 62 65 20 6d 6f 76 65 64 20 77 68 65 6e 20 |d be moved when |
00000c40 66 65 65 64 69 6e 67 20 70 61 70 65 72 20 28 75 |feeding paper (u|
00000c50 73 75 61 6c 6c 79 20 74 68 65 20 22 0d 04 06 1e |sually the "....|
00000c60 f1 22 6d 69 64 64 6c 65 20 6f 66 20 74 68 65 20 |."middle of the |
00000c70 63 61 72 72 69 61 67 65 29 22 0d 04 10 05 cc 0d |carriage)"......|
00000c80 04 1a 3e f1 27 27 22 45 6e 74 65 72 20 74 68 65 |..>.''"Enter the|
00000c90 20 70 72 69 6e 74 65 72 27 73 20 67 72 61 70 68 | printer's graph|
00000ca0 69 63 20 72 65 73 6f 6c 75 74 69 6f 6e 20 69 6e |ic resolution in|
00000cb0 20 70 69 78 65 6c 73 2f 69 6e 63 68 22 0d 04 24 | pixels/inch"..$|
00000cc0 05 cd 0d 04 2e 24 63 6f 6e 66 69 67 28 34 29 3d |.....$config(4)=|
00000cd0 a4 67 65 74 5f 6e 75 6d 62 65 72 28 63 6f 6e 66 |.get_number(conf|
00000ce0 69 67 28 34 29 29 0d 04 38 05 3a 0d 04 42 0d e7 |ig(4))..8.:..B..|
00000cf0 20 64 61 69 73 79 20 8c 0d 04 4c 4b f1 27 27 22 | daisy ...LK.''"|
00000d00 45 6e 74 65 72 20 74 68 65 20 63 61 72 72 69 61 |Enter the carria|
00000d10 67 65 20 73 68 69 66 74 20 66 6f 72 20 62 6f 6c |ge shift for bol|
00000d20 64 2e 20 41 20 6c 61 72 67 65 72 20 6e 75 6d 62 |d. A larger numb|
00000d30 65 72 20 6d 65 61 6e 73 20 74 68 61 74 20 62 6f |er means that bo|
00000d40 6c 64 22 0d 04 56 37 f1 22 63 68 61 72 61 63 74 |ld"..V7."charact|
00000d50 65 72 73 20 77 69 6c 6c 20 62 65 20 70 72 69 6e |ers will be prin|
00000d60 74 65 64 20 77 69 74 68 20 61 20 62 69 67 67 65 |ted with a bigge|
00000d70 72 20 73 68 61 64 6f 77 2e 22 0d 04 60 24 63 6f |r shadow."..`$co|
00000d80 6e 66 69 67 28 35 29 3d a4 67 65 74 5f 6e 75 6d |nfig(5)=.get_num|
00000d90 62 65 72 28 63 6f 6e 66 69 67 28 35 29 29 0d 04 |ber(config(5))..|
00000da0 6a 05 cc 0d 04 74 0f 63 6f 6e 66 69 67 28 35 29 |j....t.config(5)|
00000db0 3d 30 0d 04 7e 05 cd 0d 04 88 05 3a 0d 04 92 47 |=0..~......:...G|
00000dc0 f1 27 27 22 53 68 6f 75 6c 64 20 27 31 73 74 20 |.''"Should '1st |
00000dd0 57 6f 72 64 20 50 6c 75 73 27 20 70 61 75 73 65 |Word Plus' pause|
00000de0 20 62 65 74 77 65 65 6e 20 70 61 67 65 73 20 74 | between pages t|
00000df0 6f 20 61 6c 6c 6f 77 20 66 6f 72 20 6d 61 6e 75 |o allow for manu|
00000e00 61 6c 22 0d 04 9c 1c f1 22 73 69 6e 67 6c 65 2d |al"....."single-|
00000e10 73 68 65 65 74 20 66 65 65 64 69 6e 67 22 3b 0d |sheet feeding";.|
00000e20 04 a6 26 63 6f 6e 66 69 67 28 36 29 3d 94 28 a4 |..&config(6)=.(.|
00000e30 79 65 73 5f 6e 6f 5f 64 28 2d 63 6f 6e 66 69 67 |yes_no_d(-config|
00000e40 28 36 29 29 29 0d 04 b0 05 3a 0d 04 ba 2e 54 25 |(6)))....:....T%|
00000e50 3d 91 3a f5 20 fd 20 91 3e 3d 20 54 25 2b 31 30 |=.:. . .>= T%+10|
00000e60 30 20 20 20 20 3a f4 20 70 61 75 73 65 20 66 6f |0 :. pause fo|
00000e70 72 20 31 20 73 65 63 2e 0d 04 c4 05 e1 0d 04 ce |r 1 sec.........|
00000e80 05 3a 0d 04 d8 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.:...C**********|
00000e90 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00000ec0 2a 2a 2a 2a 2a 0d 04 e2 43 2a 2a 2a 2a 2a 2a 2a |*****...C*******|
00000ed0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00000f00 2a 2a 2a 2a 2a 2a 2a 2a 0d 04 ec 05 3a 0d 04 f6 |********....:...|
00000f10 0d dd 20 a4 79 65 73 5f 6e 6f 0d 05 00 47 f4 20 |.. .yes_no...G. |
00000f20 52 65 74 75 72 6e 73 20 54 52 55 45 20 69 66 20 |Returns TRUE if |
00000f30 74 68 65 20 75 73 65 72 20 61 6e 73 77 65 72 73 |the user answers|
00000f40 20 70 6f 73 69 74 69 76 65 6c 79 2e 20 46 41 4c | positively. FAL|
00000f50 53 45 20 69 66 20 6e 65 67 61 74 69 76 65 6c 79 |SE if negatively|
00000f60 2e 0d 05 0a 33 f4 20 57 69 6c 6c 20 77 61 69 74 |....3. Will wait|
00000f70 20 75 6e 74 69 6c 20 65 69 74 68 65 72 20 59 45 | until either YE|
00000f80 53 20 6f 72 20 4e 4f 20 69 73 20 69 6e 74 65 6e |S or NO is inten|
00000f90 64 65 64 2e 0d 05 14 05 3a 0d 05 1e 0a ea 20 41 |ded.....:..... A|
00000fa0 6e 73 24 0d 05 28 06 fb 31 0d 05 32 0a f1 22 3f |ns$..(..1..2.."?|
00000fb0 20 22 3b 0d 05 3c 05 f5 0d 05 46 0a 41 6e 73 24 | ";..<....F.Ans$|
00000fc0 3d be 0d 05 50 17 fd 20 a7 22 59 79 4e 6e 22 2c |=...P.. ."YyNn",|
00000fd0 41 6e 73 24 29 20 3e 20 30 0d 05 5a 07 fb 20 33 |Ans$) > 0..Z.. 3|
00000fe0 0d 05 64 1b e7 20 41 6e 73 24 3d 22 59 22 20 84 |..d.. Ans$="Y" .|
00000ff0 20 41 6e 73 24 3d 22 79 22 20 8c 0d 05 6e 0b f1 | Ans$="y" ...n..|
00001000 20 22 59 65 73 22 0d 05 78 07 fb 20 36 0d 05 82 | "Yes"..x.. 6...|
00001010 06 3d b9 0d 05 8c 05 cc 0d 05 96 0a f1 20 22 4e |.=........... "N|
00001020 6f 22 0d 05 a0 07 fb 20 36 0d 05 aa 06 3d a3 0d |o"..... 6....=..|
00001030 05 b4 05 cd 0d 05 be 05 3a 0d 05 c8 43 2a 2a 2a |........:...C***|
00001040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001070 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 05 d2 43 |************...C|
00001080 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000010b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d |***************.|
000010c0 05 dc 05 3a 0d 05 e6 18 dd 20 a4 79 65 73 5f 6e |...:..... .yes_n|
000010d0 6f 5f 64 28 64 65 66 61 75 6c 74 29 0d 05 f0 4c |o_d(default)...L|
000010e0 f4 20 2d 2d 2d 3e 20 52 65 74 75 72 6e 73 20 54 |. ---> Returns T|
000010f0 52 55 45 20 69 66 20 74 68 65 20 75 73 65 72 20 |RUE if the user |
00001100 61 6e 73 77 65 72 73 20 70 6f 73 69 74 69 76 65 |answers positive|
00001110 6c 79 2e 20 46 41 4c 53 45 20 69 66 20 6e 65 67 |ly. FALSE if neg|
00001120 61 74 69 76 65 6c 79 2e 0d 05 fa 38 f4 20 2d 2d |atively....8. --|
00001130 2d 3e 20 57 69 6c 6c 20 77 61 69 74 20 75 6e 74 |-> Will wait unt|
00001140 69 6c 20 65 69 74 68 65 72 20 59 45 53 20 6f 72 |il either YES or|
00001150 20 4e 4f 20 69 73 20 69 6e 74 65 6e 64 65 64 2e | NO is intended.|
00001160 0d 06 04 2f f4 20 2d 2d 2d 3e 20 2a 2a 54 68 69 |.../. ---> **Thi|
00001170 73 20 76 65 72 73 69 6f 6e 20 77 69 6c 6c 20 67 |s version will g|
00001180 69 76 65 20 61 20 64 65 66 61 75 6c 74 2a 2a 0d |ive a default**.|
00001190 06 0e 05 3a 0d 06 18 0a ea 20 41 6e 73 24 0d 06 |...:..... Ans$..|
000011a0 22 06 fb 31 0d 06 2c 0a f1 22 3f 20 22 3b 0d 06 |"..1..,.."? ";..|
000011b0 36 06 fb 32 0d 06 40 10 c8 8e 20 64 65 66 61 75 |6..2..@... defau|
000011c0 6c 74 20 ca 0d 06 4a 1b c9 20 b9 20 20 3a 20 20 |lt ...J.. . : |
000011d0 f1 22 59 65 73 22 3b 3a ef 20 38 2c 38 2c 38 0d |."Yes";:. 8,8,8.|
000011e0 06 54 17 c9 20 a3 20 3a 20 20 f1 22 4e 6f 22 3b |.T.. . : ."No";|
000011f0 3a ef 20 38 2c 38 0d 06 5e 20 7f 20 20 3a 20 20 |:. 8,8..^ . : |
00001200 f1 22 4e 6f 22 3b 3a ef 20 38 2c 38 3a 64 65 66 |."No";:. 8,8:def|
00001210 61 75 6c 74 3d a3 0d 06 68 05 cb 0d 06 72 05 f5 |ault=...h....r..|
00001220 0d 06 7c 0a 41 6e 73 24 3d be 0d 06 86 1b fd 20 |..|.Ans$=...... |
00001230 a7 22 59 79 4e 6e 22 2b bd 31 33 2c 41 6e 73 24 |."YyNn"+.13,Ans$|
00001240 29 20 3e 20 30 0d 06 90 25 e7 20 41 6e 73 24 3d |) > 0...%. Ans$=|
00001250 bd 31 33 20 80 20 64 65 66 61 75 6c 74 3d b9 20 |.13 . default=. |
00001260 8c 20 41 6e 73 24 3d 22 59 22 0d 06 9a 25 e7 20 |. Ans$="Y"...%. |
00001270 41 6e 73 24 3d bd 31 33 20 80 20 64 65 66 61 75 |Ans$=.13 . defau|
00001280 6c 74 3d a3 20 8c 20 41 6e 73 24 3d 22 4e 22 0d |lt=. . Ans$="N".|
00001290 06 a4 07 fb 20 33 0d 06 ae 1b e7 20 41 6e 73 24 |.... 3..... Ans$|
000012a0 3d 22 59 22 20 84 20 41 6e 73 24 3d 22 79 22 20 |="Y" . Ans$="y" |
000012b0 8c 0d 06 b8 0c f1 20 22 59 65 73 20 22 0d 06 c2 |...... "Yes "...|
000012c0 07 fb 20 36 0d 06 cc 06 3d b9 0d 06 d6 05 cc 0d |.. 6....=.......|
000012d0 06 e0 0c f1 20 22 4e 6f 20 20 22 0d 06 ea 07 fb |.... "No ".....|
000012e0 20 36 0d 06 f4 06 3d a3 0d 06 fe 05 cd 0d 07 08 | 6....=.........|
000012f0 05 3a 0d 07 12 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.:...C**********|
00001300 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001330 2a 2a 2a 2a 2a 0d 07 1c 43 2a 2a 2a 2a 2a 2a 2a |*****...C*******|
00001340 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001370 2a 2a 2a 2a 2a 2a 2a 2a 0d 07 26 05 3a 0d 07 30 |********..&.:..0|
00001380 1a dd 20 a4 67 65 74 5f 6e 75 6d 62 65 72 28 64 |.. .get_number(d|
00001390 65 66 61 75 6c 74 29 0d 07 3a 38 f4 20 2d 2d 2d |efault)..:8. ---|
000013a0 3e 20 52 65 74 75 72 6e 73 20 61 20 6e 75 6d 62 |> Returns a numb|
000013b0 65 72 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 |er containing th|
000013c0 65 20 75 73 65 72 27 73 20 69 6e 70 75 74 2e 0d |e user's input..|
000013d0 07 44 46 f4 20 2d 2d 2d 3e 20 45 71 75 69 76 61 |.DF. ---> Equiva|
000013e0 6c 65 6e 74 20 74 6f 20 61 6e 20 49 4e 50 55 54 |lent to an INPUT|
000013f0 20 77 69 74 68 20 70 72 6f 68 69 62 69 74 20 6f | with prohibit o|
00001400 66 20 6e 6f 6e 2d 69 6e 74 65 67 65 72 20 6e 75 |f non-integer nu|
00001410 6d 62 65 72 73 0d 07 4e 05 3a 0d 07 58 3e ea 20 |mbers..N.:..X>. |
00001420 6c 65 6e 67 74 68 2c 20 73 74 72 69 6e 67 24 2c |length, string$,|
00001430 20 6e 75 6d 62 65 72 25 2c 20 66 69 6e 69 73 68 | number%, finish|
00001440 65 64 2c 20 68 6f 72 69 7a 2c 20 76 65 72 74 2c |ed, horiz, vert,|
00001450 20 66 69 72 73 74 63 68 0d 07 62 06 fb 31 0d 07 | firstch..b..1..|
00001460 6c 0d f1 22 3d 3d 3d 3e 20 22 3b 0d 07 76 06 fb |l.."===> ";..v..|
00001470 32 0d 07 80 08 40 25 3d 30 0d 07 8a 20 f1 64 65 |2....@%=0... .de|
00001480 66 61 75 6c 74 3b c4 a9 28 c3 28 64 65 66 61 75 |fault;..(.(defau|
00001490 6c 74 29 29 2c bd 38 29 3b 0d 07 94 06 fb 33 0d |lt)),.8);.....3.|
000014a0 07 9e 0e 66 69 6e 69 73 68 65 64 3d a3 0d 07 a8 |...finished=....|
000014b0 0d 66 69 72 73 74 63 68 3d b9 0d 07 b2 0e 73 74 |.firstch=.....st|
000014c0 72 69 6e 67 24 3d 22 22 0d 07 bc 12 68 6f 72 69 |ring$=""....hori|
000014d0 7a 3d b1 3a 76 65 72 74 3d bc 0d 07 c6 05 3a 0d |z=.:vert=.....:.|
000014e0 07 d0 05 f5 0d 07 da 08 63 68 3d a5 0d 07 e4 1e |........ch=.....|
000014f0 e7 20 a9 28 73 74 72 69 6e 67 24 29 20 3d 20 30 |. .(string$) = 0|
00001500 20 80 20 63 68 3d 31 33 20 8c 0d 07 ee 1e 6e 75 | . ch=13 .....nu|
00001510 6d 62 65 72 25 3d 64 65 66 61 75 6c 74 3a 66 69 |mber%=default:fi|
00001520 6e 69 73 68 65 64 3d b9 0d 07 f8 05 cc 0d 08 02 |nished=.........|
00001530 28 e7 20 a9 28 73 74 72 69 6e 67 24 29 20 3d 20 |(. .(string$) = |
00001540 30 20 80 20 28 63 68 3d 31 32 37 20 84 20 63 68 |0 . (ch=127 . ch|
00001550 3d 38 29 20 8c 0d 08 0c 07 ef 20 37 0d 08 16 05 |=8) ...... 7....|
00001560 cc 0d 08 20 27 e7 20 66 69 72 73 74 63 68 20 8c |... '. firstch .|
00001570 20 f1 c4 37 32 2c 22 20 22 29 3b 8a 68 6f 72 69 | ..72," ");.hori|
00001580 7a 2c 76 65 72 74 29 3b 0d 08 2a 2b e7 20 63 68 |z,vert);..*+. ch|
00001590 3d 31 33 20 8c 20 6e 75 6d 62 65 72 25 3d bb 28 |=13 . number%=.(|
000015a0 73 74 72 69 6e 67 24 29 3a 66 69 6e 69 73 68 65 |string$):finishe|
000015b0 64 3d b9 0d 08 34 2d e7 20 63 68 3d 31 32 37 20 |d=...4-. ch=127 |
000015c0 84 20 63 68 3d 38 20 8c 20 73 74 72 69 6e 67 24 |. ch=8 . string$|
000015d0 3d c0 73 74 72 69 6e 67 24 29 3a ef 20 31 32 37 |=.string$):. 127|
000015e0 0d 08 3e 30 e7 20 a7 22 30 31 32 33 34 35 36 37 |..>0. ."01234567|
000015f0 38 39 22 2c bd 63 68 29 20 3e 30 20 8c 20 73 74 |89",.ch) >0 . st|
00001600 72 69 6e 67 24 2b 3d bd 63 68 3a 20 ef 20 63 68 |ring$+=.ch: . ch|
00001610 0d 08 48 05 cd 0d 08 52 05 cd 0d 08 5c 0d 66 69 |..H....R....\.fi|
00001620 72 73 74 63 68 3d a3 0d 08 66 0e fd 20 66 69 6e |rstch=...f.. fin|
00001630 69 73 68 65 64 0d 08 70 05 3a 0d 08 7a 08 40 25 |ished..p.:..z.@%|
00001640 3d 30 0d 08 84 1a f1 8a 68 6f 72 69 7a 2c 76 65 |=0......horiz,ve|
00001650 72 74 29 3b 6e 75 6d 62 65 72 25 3b 0d 08 8e 07 |rt);number%;....|
00001660 fb 20 36 0d 08 98 0c 3d 6e 75 6d 62 65 72 25 0d |. 6....=number%.|
00001670 08 a2 05 3a 0d 08 ac 43 2a 2a 2a 2a 2a 2a 2a 2a |...:...C********|
00001680 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000016b0 2a 2a 2a 2a 2a 2a 2a 0d 08 b6 43 2a 2a 2a 2a 2a |*******...C*****|
000016c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000016f0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 08 c0 05 3a 0d |**********....:.|
00001700 08 ca 10 dd 20 f2 63 68 61 72 61 63 74 65 72 0d |.... .character.|
00001710 08 d4 34 f4 20 2d 2d 2d 3e 20 44 65 66 69 6e 65 |..4. ---> Define|
00001720 20 73 65 63 74 69 6f 6e 20 32 2c 20 70 72 69 6e | section 2, prin|
00001730 74 65 72 20 63 68 61 72 61 63 74 65 72 69 73 74 |ter characterist|
00001740 69 63 73 0d 08 de 05 db 0d 08 e8 06 fb 35 0d 08 |ics..........5..|
00001750 f2 1e f1 22 50 72 69 6e 74 65 72 20 43 68 61 72 |..."Printer Char|
00001760 61 63 74 65 72 69 73 74 69 63 73 22 0d 08 fc 20 |acteristics"... |
00001770 f1 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |."==============|
00001780 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 27 27 0d 09 06 06 |========="''....|
00001790 fb 36 0d 09 10 11 e7 20 66 6f 72 63 65 5f 68 65 |.6..... force_he|
000017a0 78 20 8c 0d 09 1a 09 68 65 78 3d b9 0d 09 24 05 |x .....hex=...$.|
000017b0 cc 0d 09 2e 28 f1 22 44 6f 20 79 6f 75 20 77 61 |....(."Do you wa|
000017c0 6e 74 20 74 6f 20 69 6e 70 75 74 20 64 61 74 61 |nt to input data|
000017d0 20 69 6e 20 48 65 78 22 3b 0d 09 38 06 fb 33 0d | in Hex";..8..3.|
000017e0 09 42 14 68 65 78 3d a4 79 65 73 5f 6e 6f 5f 64 |.B.hex=.yes_no_d|
000017f0 28 a3 29 0d 09 4c 05 cd 0d 09 56 05 3a 0d 09 60 |(.)..L....V.:..`|
00001800 0b e7 20 68 65 78 20 8c 0d 09 6a 0f ef 32 36 2c |.. hex ...j..26,|
00001810 33 31 2c 36 35 2c 30 0d 09 74 06 fb 33 0d 09 7e |31,65,0..t..3..~|
00001820 10 f1 22 48 65 78 20 45 6e 74 72 79 22 0d 09 88 |.."Hex Entry"...|
00001830 05 cc 0d 09 92 10 ef 20 32 36 2c 33 31 2c 36 35 |....... 26,31,65|
00001840 2c 30 0d 09 9c 06 fb 33 0d 09 a6 14 f1 22 44 65 |,0.....3....."De|
00001850 63 69 6d 61 6c 20 45 6e 74 72 79 22 0d 09 b0 05 |cimal Entry"....|
00001860 cd 0d 09 ba 12 cd 20 3a f4 20 66 6f 72 63 65 5f |...... :. force_|
00001870 68 65 78 0d 09 c4 15 ef 20 32 38 2c 30 2c 33 31 |hex..... 28,0,31|
00001880 2c 37 39 2c 33 2c 31 32 0d 09 ce 05 3a 0d 09 d8 |,79,3,12....:...|
00001890 33 e7 20 64 61 69 73 79 20 8c 20 f2 67 65 74 63 |3. daisy . .getc|
000018a0 6f 64 65 28 30 2c 22 53 65 74 20 63 68 61 72 61 |ode(0,"Set chara|
000018b0 63 74 65 72 20 77 69 64 74 68 20 5b 50 5d 22 29 |cter width [P]")|
000018c0 0d 09 e2 1b f2 67 65 74 63 6f 64 65 28 31 2c 22 |.....getcode(1,"|
000018d0 4c 69 6e 65 20 46 65 65 64 22 29 0d 09 ec 29 e7 |Line Feed")...).|
000018e0 20 64 61 69 73 79 20 8c 20 f2 67 65 74 63 6f 64 | daisy . .getcod|
000018f0 65 28 32 2c 22 46 6f 72 77 61 72 64 20 70 72 69 |e(2,"Forward pri|
00001900 6e 74 22 29 0d 09 f6 2a e7 20 64 61 69 73 79 20 |nt")...*. daisy |
00001910 8c 20 f2 67 65 74 63 6f 64 65 28 33 2c 22 42 61 |. .getcode(3,"Ba|
00001920 63 6b 77 61 72 64 20 70 72 69 6e 74 22 29 0d 0a |ckward print")..|
00001930 00 22 f2 67 65 74 63 6f 64 65 28 34 2c 22 56 65 |.".getcode(4,"Ve|
00001940 72 74 69 63 61 6c 20 74 61 62 20 5b 50 5d 22 29 |rtical tab [P]")|
00001950 0d 0a 0a 39 e7 20 ac 20 64 61 69 73 79 20 8c 20 |...9. . daisy . |
00001960 f2 67 65 74 63 6f 64 65 28 35 2c 22 41 62 73 6f |.getcode(5,"Abso|
00001970 6c 75 74 65 20 68 6f 72 69 7a 6f 6e 74 61 6c 20 |lute horizontal |
00001980 74 61 62 20 5b 50 5d 22 29 0d 0a 14 1f f2 67 65 |tab [P]").....ge|
00001990 74 63 6f 64 65 28 36 2c 22 44 72 61 66 74 20 42 |tcode(6,"Draft B|
000019a0 6f 6c 64 20 4f 6e 22 29 0d 0a 1e 20 f2 67 65 74 |old On")... .get|
000019b0 63 6f 64 65 28 37 2c 22 44 72 61 66 74 20 42 6f |code(7,"Draft Bo|
000019c0 6c 64 20 4f 66 66 22 29 0d 0a 28 0d e7 20 64 61 |ld Off")..(.. da|
000019d0 69 73 79 20 8c 0d 0a 32 09 6e 6c 71 3d a3 0d 0a |isy ...2.nlq=...|
000019e0 3c 05 cc 0d 0a 46 3c f1 27 22 44 6f 20 79 6f 75 |<....F<.'"Do you|
000019f0 20 77 61 6e 74 20 74 6f 20 69 6e 63 6c 75 64 65 | want to include|
00001a00 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 70 72 | commands for pr|
00001a10 69 6e 74 69 6e 67 20 69 6e 20 4e 4c 51 22 3b 0d |inting in NLQ";.|
00001a20 0a 50 22 e7 20 a4 79 65 73 5f 6e 6f 5f 64 28 b9 |.P". .yes_no_d(.|
00001a30 29 20 8c 20 6e 6c 71 3d b9 20 8b 20 6e 6c 71 3d |) . nlq=. . nlq=|
00001a40 a3 0d 0a 5a 05 f1 0d 0a 64 05 cd 0d 0a 6e 25 e7 |...Z....d....n%.|
00001a50 20 6e 6c 71 20 8c 20 f2 67 65 74 63 6f 64 65 28 | nlq . .getcode(|
00001a60 38 2c 22 4e 4c 51 20 42 6f 6c 64 20 4f 6e 22 29 |8,"NLQ Bold On")|
00001a70 0d 0a 78 26 e7 20 6e 6c 71 20 8c 20 f2 67 65 74 |..x&. nlq . .get|
00001a80 63 6f 64 65 28 39 2c 22 4e 4c 51 20 42 6f 6c 64 |code(9,"NLQ Bold|
00001a90 20 4f 66 66 22 29 0d 0a 82 05 f1 0d 0a 8c 22 f2 | Off")........".|
00001aa0 67 65 74 63 6f 64 65 28 26 41 2c 22 44 72 61 66 |getcode(&A,"Draf|
00001ab0 74 20 49 74 61 6c 69 63 20 6f 6e 22 29 0d 0a 96 |t Italic on")...|
00001ac0 23 f2 67 65 74 63 6f 64 65 28 26 42 2c 22 44 72 |#.getcode(&B,"Dr|
00001ad0 61 66 74 20 49 74 61 6c 69 63 20 6f 66 66 22 29 |aft Italic off")|
00001ae0 0d 0a a0 28 e7 20 6e 6c 71 20 8c 20 f2 67 65 74 |...(. nlq . .get|
00001af0 63 6f 64 65 28 26 43 2c 22 4e 4c 51 20 49 74 61 |code(&C,"NLQ Ita|
00001b00 6c 69 63 20 4f 6e 22 29 0d 0a aa 29 e7 20 6e 6c |lic On")...). nl|
00001b10 71 20 8c 20 f2 67 65 74 63 6f 64 65 28 26 44 2c |q . .getcode(&D,|
00001b20 22 4e 4c 51 20 49 74 61 6c 69 63 20 4f 66 66 22 |"NLQ Italic Off"|
00001b30 29 0d 0a b4 05 f1 0d 0a be 21 f2 67 65 74 63 6f |)........!.getco|
00001b40 64 65 28 26 45 2c 22 44 72 61 66 74 20 4c 69 67 |de(&E,"Draft Lig|
00001b50 68 74 20 6f 6e 22 29 0d 0a c8 22 f2 67 65 74 63 |ht on")...".getc|
00001b60 6f 64 65 28 26 46 2c 22 44 72 61 66 74 20 4c 69 |ode(&F,"Draft Li|
00001b70 67 68 74 20 6f 66 66 22 29 0d 0a d2 28 e7 20 6e |ght off")...(. n|
00001b80 6c 71 20 8c 20 f2 67 65 74 63 6f 64 65 28 26 31 |lq . .getcode(&1|
00001b90 30 2c 22 4e 4c 51 20 4c 69 67 68 74 20 4f 6e 22 |0,"NLQ Light On"|
00001ba0 29 0d 0a dc 29 e7 20 6e 6c 71 20 8c 20 f2 67 65 |)...). nlq . .ge|
00001bb0 74 63 6f 64 65 28 26 31 31 2c 22 4e 4c 51 20 4c |tcode(&11,"NLQ L|
00001bc0 69 67 68 74 20 4f 66 66 22 29 0d 0a e6 05 f1 0d |ight Off")......|
00001bd0 0a f0 28 f2 67 65 74 63 6f 64 65 28 26 31 32 2c |..(.getcode(&12,|
00001be0 22 44 72 61 66 74 20 53 75 70 65 72 73 63 72 69 |"Draft Superscri|
00001bf0 70 74 20 6f 6e 22 29 0d 0a fa 29 f2 67 65 74 63 |pt on")...).getc|
00001c00 6f 64 65 28 26 31 33 2c 22 44 72 61 66 74 20 53 |ode(&13,"Draft S|
00001c10 75 70 65 72 73 63 72 69 70 74 20 6f 66 66 22 29 |uperscript off")|
00001c20 0d 0b 04 2e e7 20 6e 6c 71 20 8c 20 f2 67 65 74 |..... nlq . .get|
00001c30 63 6f 64 65 28 26 31 34 2c 22 4e 4c 51 20 53 75 |code(&14,"NLQ Su|
00001c40 70 65 72 73 63 72 69 70 74 20 4f 6e 22 29 0d 0b |perscript On")..|
00001c50 0e 2f e7 20 6e 6c 71 20 8c 20 f2 67 65 74 63 6f |./. nlq . .getco|
00001c60 64 65 28 26 31 35 2c 22 4e 4c 51 20 53 75 70 65 |de(&15,"NLQ Supe|
00001c70 72 73 63 72 69 70 74 20 4f 66 66 22 29 0d 0b 18 |rscript Off")...|
00001c80 05 f1 0d 0b 22 26 f2 67 65 74 63 6f 64 65 28 26 |...."&.getcode(&|
00001c90 31 36 2c 22 44 72 61 66 74 20 53 75 62 73 63 72 |16,"Draft Subscr|
00001ca0 69 70 74 20 6f 6e 22 29 0d 0b 2c 27 f2 67 65 74 |ipt on")..,'.get|
00001cb0 63 6f 64 65 28 26 31 37 2c 22 44 72 61 66 74 20 |code(&17,"Draft |
00001cc0 53 75 62 73 63 72 69 70 74 20 6f 66 66 22 29 0d |Subscript off").|
00001cd0 0b 36 2c e7 20 6e 6c 71 20 8c 20 f2 67 65 74 63 |.6,. nlq . .getc|
00001ce0 6f 64 65 28 26 31 38 2c 22 4e 4c 51 20 53 75 62 |ode(&18,"NLQ Sub|
00001cf0 73 63 72 69 70 74 20 4f 6e 22 29 0d 0b 40 2d e7 |script On")..@-.|
00001d00 20 6e 6c 71 20 8c 20 f2 67 65 74 63 6f 64 65 28 | nlq . .getcode(|
00001d10 26 31 39 2c 22 4e 4c 51 20 53 75 62 73 63 72 69 |&19,"NLQ Subscri|
00001d20 70 74 20 4f 66 66 22 29 0d 0b 4a 05 f1 0d 0b 54 |pt Off")..J....T|
00001d30 26 f2 67 65 74 63 6f 64 65 28 26 31 41 2c 22 44 |&.getcode(&1A,"D|
00001d40 72 61 66 74 20 55 6e 64 65 72 6c 69 6e 65 20 6f |raft Underline o|
00001d50 6e 22 29 0d 0b 5e 27 f2 67 65 74 63 6f 64 65 28 |n")..^'.getcode(|
00001d60 26 31 42 2c 22 44 72 61 66 74 20 55 6e 64 65 72 |&1B,"Draft Under|
00001d70 6c 69 6e 65 20 6f 66 66 22 29 0d 0b 68 2c e7 20 |line off")..h,. |
00001d80 6e 6c 71 20 8c 20 f2 67 65 74 63 6f 64 65 28 26 |nlq . .getcode(&|
00001d90 31 43 2c 22 4e 4c 51 20 55 6e 64 65 72 6c 69 6e |1C,"NLQ Underlin|
00001da0 65 20 4f 6e 22 29 0d 0b 72 2d e7 20 6e 6c 71 20 |e On")..r-. nlq |
00001db0 8c 20 f2 67 65 74 63 6f 64 65 28 26 31 44 2c 22 |. .getcode(&1D,"|
00001dc0 4e 4c 51 20 55 6e 64 65 72 6c 69 6e 65 20 4f 66 |NLQ Underline Of|
00001dd0 66 22 29 0d 0b 7c 05 f1 0d 0b 86 1c f2 67 65 74 |f")..|.......get|
00001de0 63 6f 64 65 28 26 31 45 2c 22 46 6f 72 6d 66 65 |code(&1E,"Formfe|
00001df0 65 64 22 29 0d 0b 90 31 f2 67 65 74 63 6f 64 65 |ed")...1.getcode|
00001e00 28 26 31 46 2c 22 48 6f 72 69 7a 6f 6e 74 61 6c |(&1F,"Horizontal|
00001e10 20 69 6e 69 74 69 61 6c 69 73 61 74 69 6f 6e 20 | initialisation |
00001e20 5b 50 5d 22 29 0d 0b 9a 2f f2 67 65 74 63 6f 64 |[P]").../.getcod|
00001e30 65 28 26 32 30 2c 22 56 65 72 74 69 63 61 6c 20 |e(&20,"Vertical |
00001e40 69 6e 69 74 69 61 6c 69 73 61 74 69 6f 6e 20 5b |initialisation [|
00001e50 50 5d 22 29 0d 0b a4 21 f2 67 65 74 63 6f 64 65 |P]")...!.getcode|
00001e60 28 26 32 31 2c 22 50 72 69 6e 74 65 72 20 52 65 |(&21,"Printer Re|
00001e70 73 65 74 22 29 0d 0b ae 29 e7 20 ac 20 64 61 69 |set")...). . dai|
00001e80 73 79 20 8c 20 f2 67 65 74 63 6f 64 65 28 26 32 |sy . .getcode(&2|
00001e90 32 2c 22 42 61 63 6b 73 70 61 63 65 22 29 0d 0b |2,"Backspace")..|
00001ea0 b8 2b f2 67 65 74 63 6f 64 65 28 26 32 33 2c 22 |.+.getcode(&23,"|
00001eb0 43 61 72 72 69 61 67 65 20 72 65 74 75 72 6e 20 |Carriage return |
00001ec0 28 6e 6f 20 4c 46 29 22 29 0d 0b c2 2a f2 67 65 |(no LF)")...*.ge|
00001ed0 74 63 6f 64 65 28 26 32 34 2c 22 46 6f 72 6d 20 |tcode(&24,"Form |
00001ee0 6c 65 6e 67 74 68 20 28 69 6e 20 6c 69 6e 65 73 |length (in lines|
00001ef0 29 22 29 0d 0b cc 2d f2 67 65 74 63 6f 64 65 28 |)")...-.getcode(|
00001f00 26 32 35 2c 22 53 65 74 20 6c 69 6e 65 66 65 65 |&25,"Set linefee|
00001f10 64 20 64 69 73 74 61 6e 63 65 20 5b 50 5d 22 29 |d distance [P]")|
00001f20 0d 0b d6 05 f1 0d 0b e0 2e e7 20 ac 20 64 61 69 |.......... . dai|
00001f30 73 79 20 8c 20 f2 67 65 74 63 6f 64 65 28 26 32 |sy . .getcode(&2|
00001f40 36 2c 22 50 72 69 6e 74 20 47 72 61 70 68 69 63 |6,"Print Graphic|
00001f50 73 22 29 0d 0b ea 1e f4 20 43 6f 6d 6d 61 6e 64 |s")..... Command|
00001f60 20 26 32 37 20 69 73 20 72 65 73 65 72 76 65 64 | &27 is reserved|
00001f70 2e 0d 0b f4 0d e7 20 64 61 69 73 79 20 8c 0d 0b |...... daisy ...|
00001f80 fe 31 f2 67 65 74 63 6f 64 65 28 26 32 38 2c 22 |.1.getcode(&28,"|
00001f90 44 65 66 69 6e 65 20 63 68 61 72 61 63 74 65 72 |Define character|
00001fa0 20 77 69 64 74 68 20 2d 20 50 69 63 61 22 29 0d | width - Pica").|
00001fb0 0c 08 32 f2 67 65 74 63 6f 64 65 28 26 32 41 2c |..2.getcode(&2A,|
00001fc0 22 44 65 66 69 6e 65 20 63 68 61 72 61 63 74 65 |"Define characte|
00001fd0 72 20 77 69 64 74 68 20 2d 20 45 6c 69 74 65 22 |r width - Elite"|
00001fe0 29 0d 0c 12 36 f2 67 65 74 63 6f 64 65 28 26 32 |)...6.getcode(&2|
00001ff0 43 2c 22 44 65 66 69 6e 65 20 63 68 61 72 61 63 |C,"Define charac|
00002000 74 65 72 20 77 69 64 74 68 20 2d 20 43 6f 6e 64 |ter width - Cond|
00002010 65 6e 73 65 64 22 29 0d 0c 1c 35 f2 67 65 74 63 |ensed")...5.getc|
00002020 6f 64 65 28 26 32 45 2c 22 44 65 66 69 6e 65 20 |ode(&2E,"Define |
00002030 63 68 61 72 61 63 74 65 72 20 77 69 64 74 68 20 |character width |
00002040 2d 20 45 78 70 61 6e 64 65 64 22 29 0d 0c 26 05 |- Expanded")..&.|
00002050 cc 0d 0c 30 22 f2 67 65 74 63 6f 64 65 28 26 32 |...0".getcode(&2|
00002060 38 2c 22 53 65 74 20 44 72 61 66 74 20 50 69 63 |8,"Set Draft Pic|
00002070 61 22 29 0d 0c 3a 28 e7 20 6e 6c 71 20 8c 20 f2 |a")..:(. nlq . .|
00002080 67 65 74 63 6f 64 65 28 26 32 39 2c 22 53 65 74 |getcode(&29,"Set|
00002090 20 4e 4c 51 20 50 69 63 61 22 29 0d 0c 44 23 f2 | NLQ Pica")..D#.|
000020a0 67 65 74 63 6f 64 65 28 26 32 41 2c 22 53 65 74 |getcode(&2A,"Set|
000020b0 20 44 72 61 66 74 20 45 6c 69 74 65 22 29 0d 0c | Draft Elite")..|
000020c0 4e 29 e7 20 6e 6c 71 20 8c 20 f2 67 65 74 63 6f |N). nlq . .getco|
000020d0 64 65 28 26 32 42 2c 22 53 65 74 20 4e 4c 51 20 |de(&2B,"Set NLQ |
000020e0 45 6c 69 74 65 22 29 0d 0c 58 27 f2 67 65 74 63 |Elite")..X'.getc|
000020f0 6f 64 65 28 26 32 43 2c 22 53 65 74 20 44 72 61 |ode(&2C,"Set Dra|
00002100 66 74 20 43 6f 6e 64 65 6e 73 65 64 22 29 0d 0c |ft Condensed")..|
00002110 62 2d e7 20 6e 6c 71 20 8c 20 f2 67 65 74 63 6f |b-. nlq . .getco|
00002120 64 65 28 26 32 44 2c 22 53 65 74 20 4e 4c 51 20 |de(&2D,"Set NLQ |
00002130 43 6f 6e 64 65 6e 73 65 64 22 29 0d 0c 6c 26 f2 |Condensed")..l&.|
00002140 67 65 74 63 6f 64 65 28 26 32 45 2c 22 53 65 74 |getcode(&2E,"Set|
00002150 20 44 72 61 66 74 20 45 78 70 61 6e 64 65 64 22 | Draft Expanded"|
00002160 29 0d 0c 76 2c e7 20 6e 6c 71 20 8c 20 f2 67 65 |)..v,. nlq . .ge|
00002170 74 63 6f 64 65 28 26 32 46 2c 22 53 65 74 20 4e |tcode(&2F,"Set N|
00002180 4c 51 20 45 78 70 61 6e 64 65 64 22 29 0d 0c 80 |LQ Expanded")...|
00002190 05 cd 0d 0c 8a 05 f1 0d 0c 94 1d f2 67 65 74 63 |............getc|
000021a0 6f 64 65 28 26 33 30 2c 22 42 6c 61 63 6b 20 69 |ode(&30,"Black i|
000021b0 6e 6b 22 29 0d 0c 9e 1f f2 67 65 74 63 6f 64 65 |nk").....getcode|
000021c0 28 26 33 31 2c 22 4d 61 67 65 6e 74 61 20 69 6e |(&31,"Magenta in|
000021d0 6b 22 29 0d 0c a8 1c f2 67 65 74 63 6f 64 65 28 |k").....getcode(|
000021e0 26 33 32 2c 22 43 79 61 6e 20 69 6e 6b 22 29 0d |&32,"Cyan ink").|
000021f0 0c b2 1e f2 67 65 74 63 6f 64 65 28 26 33 33 2c |....getcode(&33,|
00002200 22 59 65 6c 6c 6f 77 20 69 6e 6b 22 29 0d 0c bc |"Yellow ink")...|
00002210 05 e1 0d 0c c6 05 3a 0d 0c d0 43 2a 2a 2a 2a 2a |......:...C*****|
00002220 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00002250 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0c da 43 2a 2a |**********...C**|
00002260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00002290 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0c e4 |*************...|
000022a0 05 3a 0d 0c ee 12 dd 20 f2 74 72 61 6e 73 6c 61 |.:..... .transla|
000022b0 74 69 6f 6e 0d 0c f8 33 f4 20 2d 2d 2d 3e 20 44 |tion...3. ---> D|
000022c0 65 66 69 6e 65 20 73 65 63 74 69 6f 6e 20 33 2c |efine section 3,|
000022d0 20 63 68 61 72 61 63 74 65 72 20 74 72 61 6e 73 | character trans|
000022e0 6c 61 74 69 6f 6e 2e 0d 0d 02 05 db 0d 0d 0c 06 |lation..........|
000022f0 fb 35 0d 0d 16 1c f1 22 43 68 61 72 61 63 74 65 |.5....."Characte|
00002300 72 20 54 72 61 6e 73 6c 61 74 69 6f 6e 22 0d 0d |r Translation"..|
00002310 20 1d f1 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | .."============|
00002320 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 27 0d 0d 2a 06 fb |========="'..*..|
00002330 33 0d 0d 34 13 f1 22 59 65 6c 6c 6f 77 22 3b 8a |3..4.."Yellow";.|
00002340 31 30 29 3b 0d 0d 3e 06 fb 36 0d 0d 48 2d f1 22 |10);..>..6..H-."|
00002350 2d 20 50 72 69 6e 74 20 74 68 69 73 20 63 68 61 |- Print this cha|
00002360 72 61 63 74 65 72 22 3b 8a 36 30 29 3b 22 3c 53 |racter";.60);"<S|
00002370 45 4c 45 43 54 3e 22 0d 0d 52 06 fb 32 0d 0d 5c |ELECT>"..R..2..\|
00002380 12 f1 22 47 72 65 65 6e 22 3b 8a 31 30 29 3b 0d |.."Green";.10);.|
00002390 0d 66 06 fb 36 0d 0d 70 2f f1 22 2d 20 55 73 65 |.f..6..p/."- Use|
000023a0 20 61 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 73 | a translation s|
000023b0 74 72 69 6e 67 22 3b 8a 36 30 29 3b 22 3c 4d 45 |tring";.60);"<ME|
000023c0 4e 55 3e 22 0d 0d 7a 06 fb 31 0d 0d 84 10 f1 22 |NU>"..z..1....."|
000023d0 52 65 64 22 3b 8a 31 30 29 3b 0d 0d 8e 06 fb 36 |Red";.10);.....6|
000023e0 0d 0d 98 30 f1 22 2d 20 49 67 6e 6f 72 65 20 74 |...0."- Ignore t|
000023f0 68 69 73 20 63 68 61 72 61 63 74 65 72 22 3b 8a |his character";.|
00002400 36 30 29 3b 22 3c 41 44 4a 55 53 54 3e 22 27 27 |60);"<ADJUST>"''|
00002410 0d 0d a2 06 fb 36 0d 0d ac 05 3a 0d 0d b6 0a f2 |.....6....:.....|
00002420 6d 6f 75 73 65 0d 0d c0 05 e1 0d 0d ca 05 3a 0d |mouse.........:.|
00002430 0d d4 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |..C*************|
00002440 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00002470 2a 2a 0d 0d de 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |**...C**********|
00002480 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000024b0 2a 2a 2a 2a 2a 0d 0d e8 05 3a 0d 0d f2 0c dd 20 |*****....:..... |
000024c0 f2 6d 6f 75 73 65 0d 0d fc 30 f4 20 2d 2d 2d 3e |.mouse...0. --->|
000024d0 20 41 6c 6c 6f 77 20 74 68 65 20 6d 6f 75 73 65 | Allow the mouse|
000024e0 20 74 6f 20 73 65 6c 65 63 74 20 63 68 61 72 61 | to select chara|
000024f0 63 74 65 72 73 2e 0d 0e 06 05 3a 0d 0e 10 0b ea |cters.....:.....|
00002500 20 78 2c 79 2c 62 0d 0e 1a 0e 2a 50 4f 49 4e 54 | x,y,b....*POINT|
00002510 45 52 20 31 0d 0e 24 08 c8 97 20 ee 0d 0e 2e 05 |ER 1..$... .....|
00002520 87 0d 0e 38 18 c8 97 20 c8 93 20 30 2c 34 38 30 |...8... .. 0,480|
00002530 2c 31 30 31 35 2c 31 39 30 0d 0e 42 0e f2 64 72 |,1015,190..B..dr|
00002540 61 77 5f 67 72 69 64 0d 0e 4c 05 3a 0d 0e 56 05 |aw_grid..L.:..V.|
00002550 f5 0d 0e 60 0c c8 97 20 78 2c 79 2c 62 0d 0e 6a |...`... x,y,b..j|
00002560 09 40 25 3d 31 30 0d 0e 74 11 63 78 3d 28 78 2b |.@%=10..t.cx=(x+|
00002570 38 29 20 81 20 33 32 0d 0e 7e 17 63 79 3d 36 2d |8) . 32..~.cy=6-|
00002580 28 28 79 2d 34 38 30 29 20 81 20 33 32 29 0d 0e |((y-480) . 32)..|
00002590 88 15 e7 20 63 79 20 3e 3d 20 34 20 8c 20 63 79 |... cy >= 4 . cy|
000025a0 2b 3d 31 0d 0e 92 11 63 68 3d 63 78 2b 28 33 32 |+=1....ch=cx+(32|
000025b0 2a 63 79 29 0d 0e 9c 0f e7 20 63 68 3c 3e 31 32 |*cy)..... ch<>12|
000025c0 37 20 8c 0d 0e a6 27 e7 20 62 3d 34 20 8c 20 74 |7 ....'. b=4 . t|
000025d0 72 61 6e 73 24 28 63 68 29 3d bd 28 63 68 29 3a |rans$(ch)=.(ch):|
000025e0 f2 64 72 61 77 5f 67 72 69 64 0d 0e b0 30 e7 20 |.draw_grid...0. |
000025f0 62 3d 32 20 8c 20 74 72 61 6e 73 24 28 63 68 29 |b=2 . trans$(ch)|
00002600 3d a4 67 65 74 5f 74 72 61 6e 73 28 63 68 29 3a |=.get_trans(ch):|
00002610 f2 64 72 61 77 5f 67 72 69 64 0d 0e ba 24 e7 20 |.draw_grid...$. |
00002620 62 3d 31 20 8c 20 74 72 61 6e 73 24 28 63 68 29 |b=1 . trans$(ch)|
00002630 3d 22 22 3a f2 64 72 61 77 5f 67 72 69 64 0d 0e |="":.draw_grid..|
00002640 c4 05 cd 0d 0e ce 13 fd 20 63 68 3d 31 32 37 20 |........ ch=127 |
00002650 80 20 62 3c 3e 30 0d 0e d8 05 e1 0d 0e e2 05 3a |. b<>0.........:|
00002660 0d 0e ec 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |...C************|
00002670 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000026a0 2a 2a 2a 0d 0e f6 43 2a 2a 2a 2a 2a 2a 2a 2a 2a |***...C*********|
000026b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000026e0 2a 2a 2a 2a 2a 2a 0d 0f 00 05 3a 0d 0f 0a 10 dd |******....:.....|
000026f0 20 f2 64 72 61 77 5f 67 72 69 64 0d 0f 14 1f f4 | .draw_grid.....|
00002700 20 2d 2d 2d 2d 3e 20 44 72 61 77 20 6d 6f 75 73 | ----> Draw mous|
00002710 65 20 73 65 6c 65 63 74 6f 72 0d 0f 1e 0d ef 20 |e selector..... |
00002720 33 31 2c 20 30 2c 38 0d 0f 28 0d e3 20 79 3d 30 |31, 0,8..(.. y=0|
00002730 20 b8 20 36 0d 0f 32 0e e3 20 78 3d 30 20 b8 20 | . 6..2.. x=0 . |
00002740 33 31 0d 0f 3c 05 3a 0d 0f 46 0f e7 20 79 3d 33 |31..<.:..F.. y=3|
00002750 20 8c 20 79 3d 34 0d 0f 50 05 3a 0d 0f 5a 12 63 | . y=4..P.:..Z.c|
00002760 68 3d 33 32 2b 28 33 32 2a 79 29 2b 78 0d 0f 64 |h=32+(32*y)+x..d|
00002770 05 3a 0d 0f 6e 15 e7 20 74 72 61 6e 73 24 28 63 |.:..n.. trans$(c|
00002780 68 29 3d 22 22 20 8c 0d 0f 78 06 fb 31 0d 0f 82 |h)="" ...x..1...|
00002790 05 cc 0d 0f 8c 18 e7 20 74 72 61 6e 73 24 28 63 |....... trans$(c|
000027a0 68 29 3d bd 28 63 68 29 20 8c 0d 0f 96 06 fb 33 |h)=.(ch) ......3|
000027b0 0d 0f a0 05 cc 0d 0f aa 06 fb 32 0d 0f b4 05 cd |..........2.....|
000027c0 0d 0f be 05 cd 0d 0f c8 05 3a 0d 0f d2 15 ef 20 |.........:..... |
000027d0 33 32 2b 28 33 32 2a 79 29 2b 78 2c 20 33 32 0d |32+(32*y)+x, 32.|
000027e0 0f dc 05 ed 0d 0f e6 05 f1 0d 0f f0 05 ed 0d 0f |................|
000027f0 fa 06 fb 35 0d 10 04 0d ef 33 31 2c 36 32 2c 31 |...5.....31,62,1|
00002800 30 0d 10 0e 0b f1 22 45 6e 64 22 3b 0d 10 18 05 |0....."End";....|
00002810 e1 0d 10 22 05 3a 0d 10 2c 43 2a 2a 2a 2a 2a 2a |...".:..,C******|
00002820 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00002850 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 10 36 43 2a 2a 2a |*********..6C***|
00002860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00002890 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 10 40 05 |************..@.|
000028a0 3a 0d 10 4a 14 dd 20 a4 67 65 74 5f 74 72 61 6e |:..J.. .get_tran|
000028b0 73 28 63 68 29 0d 10 54 3a f4 20 2d 2d 2d 3e 20 |s(ch)..T:. ---> |
000028c0 47 65 74 20 74 68 65 20 63 68 61 72 61 63 74 65 |Get the characte|
000028d0 72 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 66 6f |r translation fo|
000028e0 72 20 63 68 61 72 61 63 74 65 72 20 63 68 2e 0d |r character ch..|
000028f0 10 5e 05 3a 0d 10 68 08 c8 97 20 87 0d 10 72 05 |.^.:..h... ...r.|
00002900 ee 0d 10 7c 0c f1 8a 30 2c 32 30 29 3b 0d 10 86 |...|...0,20);...|
00002910 06 fb 33 0d 10 90 2d e7 20 68 65 78 20 8c 20 f1 |..3...-. hex . .|
00002920 22 48 65 78 20 45 6e 74 72 79 2e 22 20 8b 20 f1 |"Hex Entry." . .|
00002930 22 44 65 63 69 6d 61 6c 20 45 6e 74 72 79 2e 22 |"Decimal Entry."|
00002940 0d 10 9a 09 2a 46 58 31 35 0d 10 a4 19 63 68 61 |....*FX15....cha|
00002950 72 24 28 26 33 34 29 3d 74 72 61 6e 73 24 28 63 |r$(&34)=trans$(c|
00002960 68 29 0d 10 ae 3d f2 67 65 74 63 6f 64 65 28 2d |h)...=.getcode(-|
00002970 31 2c 22 43 68 61 72 61 63 74 65 72 20 53 74 72 |1,"Character Str|
00002980 69 6e 67 20 66 6f 72 20 22 2b c3 63 68 2b 22 20 |ing for "+.ch+" |
00002990 28 22 22 22 2b bd 63 68 2b 22 22 22 29 22 29 0d |("""+.ch+""")").|
000029a0 10 b8 08 c8 97 20 ee 0d 10 c2 05 87 0d 10 cc 13 |..... ..........|
000029b0 f1 8a 30 2c 32 30 29 3b 89 28 32 30 30 29 3b 0d |..0,20);.(200);.|
000029c0 10 d6 0f 3d 63 68 61 72 24 28 26 33 34 29 0d 10 |...=char$(&34)..|
000029d0 e0 05 3a 0d 10 ea 43 2a 2a 2a 2a 2a 2a 2a 2a 2a |..:...C*********|
000029e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00002a10 2a 2a 2a 2a 2a 2a 0d 10 f4 43 2a 2a 2a 2a 2a 2a |******...C******|
00002a20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00002a50 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 10 fe 05 3a 0d 11 |*********....:..|
00002a60 08 22 dd 20 a4 74 72 61 6e 73 6c 61 74 65 5f 6f |.". .translate_o|
00002a70 75 74 70 75 74 28 69 6e 73 74 72 69 6e 67 24 29 |utput(instring$)|
00002a80 0d 11 12 40 f4 20 2d 2d 2d 3e 20 54 72 61 6e 73 |...@. ---> Trans|
00002a90 6c 61 74 65 20 61 20 73 74 72 69 6e 67 20 28 64 |late a string (d|
00002aa0 65 63 69 6d 61 6c 20 6f 72 20 68 65 78 29 20 72 |ecimal or hex) r|
00002ab0 65 61 64 79 20 66 6f 72 20 6f 75 74 70 75 74 2e |eady for output.|
00002ac0 0d 11 1c 05 3a 0d 11 26 19 ea 20 6f 75 74 73 74 |....:..&.. outst|
00002ad0 72 69 6e 67 24 2c 64 65 63 69 6d 61 6c 24 0d 11 |ring$,decimal$..|
00002ae0 30 07 ea 20 85 0d 11 3a 36 ee 20 85 20 ea 20 ee |0.. ...:6. . . .|
00002af0 20 85 20 87 3a ff 22 53 50 4f 4f 4c 22 3a ef 36 | . .:."SPOOL":.6|
00002b00 3a 85 20 9f 2c 20 f6 24 2b 22 20 61 74 20 6c 69 |:. ., .$+" at li|
00002b10 6e 65 20 22 2b c3 28 9e 29 3a fa 0d 11 44 11 6f |ne "+.(.):...D.o|
00002b20 75 74 73 74 72 69 6e 67 24 3d 22 22 0d 11 4e 17 |utstring$=""..N.|
00002b30 c8 95 20 a9 28 69 6e 73 74 72 69 6e 67 24 29 20 |.. .(instring$) |
00002b40 3e 20 30 0d 11 58 14 6f 75 74 73 74 72 69 6e 67 |> 0..X.outstring|
00002b50 24 2b 3d 22 2c 20 22 0d 11 62 0b e7 20 68 65 78 |$+=", "..b.. hex|
00002b60 20 8c 0d 11 6c 26 68 65 78 24 3d c0 69 6e 73 74 | ...l&hex$=.inst|
00002b70 72 69 6e 67 24 2c a7 69 6e 73 74 72 69 6e 67 24 |ring$,.instring$|
00002b80 2c 22 20 22 29 2d 31 29 0d 11 76 05 3a 0d 11 80 |," ")-1)..v.:...|
00002b90 14 e7 20 a7 68 65 78 24 2c 22 50 22 29 3d 31 20 |.. .hex$,"P")=1 |
00002ba0 8c 0d 11 8a 11 e7 20 a9 28 68 65 78 24 29 3d 31 |...... .(hex$)=1|
00002bb0 20 8c 0d 11 94 0d 68 65 78 24 3d 22 38 30 22 0d | .....hex$="80".|
00002bc0 11 9e 05 cc 0d 11 a8 20 68 65 78 24 3d c3 7e 28 |....... hex$=.~(|
00002bd0 31 32 38 2b a0 28 22 26 22 2b c1 68 65 78 24 2c |128+.("&"+.hex$,|
00002be0 32 29 29 29 0d 11 b2 05 cd 0d 11 bc 05 3a 0d 11 |2))).........:..|
00002bf0 c6 05 cd 0d 11 d0 14 6f 75 74 73 74 72 69 6e 67 |.......outstring|
00002c00 24 2b 3d 68 65 78 24 0d 11 da 05 cc 0d 11 e4 2a |$+=hex$........*|
00002c10 64 65 63 69 6d 61 6c 24 3d c0 69 6e 73 74 72 69 |decimal$=.instri|
00002c20 6e 67 24 2c a7 69 6e 73 74 72 69 6e 67 24 2c 22 |ng$,.instring$,"|
00002c30 20 22 29 2d 31 29 0d 11 ee 05 3a 0d 11 f8 18 e7 | ")-1)....:.....|
00002c40 20 a7 64 65 63 69 6d 61 6c 24 2c 22 50 22 29 3d | .decimal$,"P")=|
00002c50 31 20 8c 0d 12 02 13 e7 20 a9 64 65 63 69 6d 61 |1 ...... .decima|
00002c60 6c 24 3d 31 20 8c 0d 12 0c 0d 68 65 78 24 3d 22 |l$=1 .....hex$="|
00002c70 38 30 22 0d 12 16 05 cc 0d 12 20 20 68 65 78 24 |80"....... hex$|
00002c80 3d c3 7e 28 31 32 38 2b a0 28 c1 64 65 63 69 6d |=.~(128+.(.decim|
00002c90 61 6c 24 2c 32 29 29 29 0d 12 2a 05 cd 0d 12 34 |al$,2)))..*....4|
00002ca0 05 cc 0d 12 3e 13 e7 20 a9 64 65 63 69 6d 61 6c |....>.. .decimal|
00002cb0 24 3d 31 20 8c 0d 12 48 0d 68 65 78 24 3d 22 38 |$=1 ...H.hex$="8|
00002cc0 30 22 0d 12 52 05 cc 0d 12 5c 18 68 65 78 24 3d |0"..R....\.hex$=|
00002cd0 c3 7e 28 bb 28 64 65 63 69 6d 61 6c 24 29 29 0d |.~(.(decimal$)).|
00002ce0 12 66 05 cd 0d 12 70 05 cd 0d 12 7a 05 3a 0d 12 |.f....p....z.:..|
00002cf0 84 14 6f 75 74 73 74 72 69 6e 67 24 2b 3d 68 65 |..outstring$+=he|
00002d00 78 24 0d 12 8e 05 cd 0d 12 98 26 e7 20 a7 69 6e |x$........&. .in|
00002d10 73 74 72 69 6e 67 24 2c 22 20 22 29 3d 30 20 8c |string$," ")=0 .|
00002d20 20 69 6e 73 74 72 69 6e 67 24 3d 22 22 0d 12 a2 | instring$=""...|
00002d30 2b 69 6e 73 74 72 69 6e 67 24 3d c1 69 6e 73 74 |+instring$=.inst|
00002d40 72 69 6e 67 24 2c a7 69 6e 73 74 72 69 6e 67 24 |ring$,.instring$|
00002d50 2c 22 20 22 29 2b 31 29 0d 12 ac 05 ce 0d 12 b6 |," ")+1)........|
00002d60 0f 3d 6f 75 74 73 74 72 69 6e 67 24 0d 12 c0 05 |.=outstring$....|
00002d70 3a 0d 12 ca 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |:...C***********|
00002d80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00002db0 2a 2a 2a 2a 0d 12 d4 43 2a 2a 2a 2a 2a 2a 2a 2a |****...C********|
00002dc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00002df0 2a 2a 2a 2a 2a 2a 2a 0d 12 de 05 3a 0d 12 e8 17 |*******....:....|
00002e00 dd 20 f2 6f 75 74 70 75 74 28 f8 20 65 73 63 61 |. .output(. esca|
00002e10 70 65 29 0d 12 f2 29 f4 20 2d 2d 2d 3e 20 4f 75 |pe)...). ---> Ou|
00002e20 74 70 75 74 20 74 68 65 20 48 45 58 20 70 72 69 |tput the HEX pri|
00002e30 6e 74 65 72 20 64 72 69 76 65 72 2e 0d 12 fc 05 |nter driver.....|
00002e40 3a 0d 13 06 0f ea 20 6c 6f 6f 70 2c 20 6c 66 24 |:..... loop, lf$|
00002e50 0d 13 10 18 f2 6f 70 65 6e 5f 6f 75 74 70 75 74 |.....open_output|
00002e60 28 65 73 63 61 70 65 29 0d 13 1a 27 e7 20 65 73 |(escape)...'. es|
00002e70 63 61 70 65 20 8c 20 fb 32 3a f1 27 22 53 61 76 |cape . .2:.'"Sav|
00002e80 65 20 41 62 61 6e 64 6f 6e 65 64 2e 22 3a e1 0d |e Abandoned.":..|
00002e90 13 24 0b 6c 66 24 3d bd 31 30 0d 13 2e 1b f1 22 |.$.lf$=.10....."|
00002ea0 2a 20 20 20 3e 22 3b 66 69 6c 65 6e 61 6d 65 24 |* >";filename$|
00002eb0 3b 6c 66 24 3b 0d 13 38 28 f1 22 2a 20 50 72 69 |;lf$;..8(."* Pri|
00002ec0 6e 74 65 72 20 64 72 69 76 65 72 20 63 72 65 61 |nter driver crea|
00002ed0 74 65 64 20 22 3b 91 24 3b 6c 66 24 3b 0d 13 42 |ted ";.$;lf$;..B|
00002ee0 47 f1 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |G."*************|
00002ef0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00002f10 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 3b |**************";|
00002f20 6c 66 24 3b 0d 13 4c 47 f1 22 2a 20 20 20 20 20 |lf$;..LG."* |
00002f30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00002f60 20 20 20 20 2a 22 3b 6c 66 24 3b 0d 13 56 47 f1 | *";lf$;..VG.|
00002f70 22 2a 20 20 20 20 20 20 20 20 20 20 20 31 73 74 |"* 1st|
00002f80 20 57 6f 72 64 20 50 6c 75 73 20 50 72 69 6e 74 | Word Plus Print|
00002f90 65 72 20 44 72 69 76 65 72 20 20 20 20 20 20 20 |er Driver |
00002fa0 20 20 20 20 20 20 20 20 20 20 20 2a 22 3b 6c 66 | *";lf|
00002fb0 24 3b 0d 13 60 47 f1 22 2a 20 20 20 20 20 20 20 |$;..`G."* |
00002fc0 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ------------|
00002fd0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00002fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002ff0 20 20 2a 22 3b 6c 66 24 3b 0d 13 6a 47 f1 22 2a | *";lf$;..jG."*|
00003000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00003030 20 20 20 20 20 20 20 20 20 2a 22 3b 6c 66 24 3b | *";lf$;|
00003040 0d 13 74 47 f1 22 2a 20 20 54 68 69 73 20 70 72 |..tG."* This pr|
00003050 69 6e 74 65 72 20 64 72 69 76 65 72 20 69 73 20 |inter driver is |
00003060 66 6f 72 20 74 68 65 20 70 72 69 6e 74 65 72 20 |for the printer |
00003070 6e 61 6d 65 64 20 62 65 6c 6f 77 2e 20 20 20 20 |named below. |
00003080 2a 22 3b 6c 66 24 3b 0d 13 7e 47 f1 22 2a 20 20 |*";lf$;..~G."* |
00003090 49 74 20 77 61 73 20 63 72 65 61 74 65 64 20 62 |It was created b|
000030a0 79 20 27 31 77 70 5f 50 44 47 27 20 77 72 69 74 |y '1wp_PDG' writ|
000030b0 74 65 6e 20 62 79 20 4a 6f 68 6e 20 53 6d 69 74 |ten by John Smit|
000030c0 68 20 20 20 20 20 20 2a 22 3b 6c 66 24 3b 0d 13 |h *";lf$;..|
000030d0 88 47 f1 22 2a 20 20 50 72 6f 67 72 61 6d 20 43 |.G."* Program C|
000030e0 6f 70 79 72 69 67 68 74 20 28 43 29 20 31 39 38 |opyright (C) 198|
000030f0 38 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |8. |
00003100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 22 | *"|
00003110 3b 6c 66 24 3b 0d 13 92 47 f1 22 2a 20 20 20 20 |;lf$;...G."* |
00003120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00003150 20 20 20 20 20 2a 22 3b 6c 66 24 3b 0d 13 9c 47 | *";lf$;...G|
00003160 f1 22 2a 20 20 49 74 20 6d 61 79 20 62 65 20 65 |."* It may be e|
00003170 64 69 74 65 64 20 64 69 72 65 63 74 6c 79 2c 20 |dited directly, |
00003180 6f 72 20 62 79 20 72 65 2d 72 75 6e 6e 69 6e 67 |or by re-running|
00003190 20 27 31 77 70 5f 50 44 47 27 20 20 2a 22 3b 6c | '1wp_PDG' *";l|
000031a0 66 24 3b 0d 13 a6 47 f1 22 2a 20 20 20 20 20 20 |f$;...G."* |
000031b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
000031e0 20 20 20 2a 22 3b 6c 66 24 3b 0d 13 b0 47 f1 22 | *";lf$;...G."|
000031f0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00003220 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 3b 6c 66 24 |***********";lf$|
00003230 3b 0d 13 ba 47 f1 22 2a 20 20 20 20 20 20 20 20 |;...G."* |
00003240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00003270 20 2a 22 3b 6c 66 24 3b 0d 13 c4 47 f1 22 2a 20 | *";lf$;...G."* |
00003280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a | *|
00003290 2a 2a 20 49 4d 50 4f 52 54 41 4e 54 20 4e 4f 54 |** IMPORTANT NOT|
000032a0 45 20 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 |E *** |
000032b0 20 20 20 20 20 20 20 20 2a 22 3b 6c 66 24 3b 0d | *";lf$;.|
000032c0 13 ce 47 f1 22 2a 20 20 20 20 20 20 20 20 20 20 |..G."* |
000032d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
000032f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a | *|
00003300 22 3b 6c 66 24 3b 0d 13 d8 47 f1 22 2a 20 20 20 |";lf$;...G."* |
00003310 52 65 61 64 20 74 68 65 20 63 68 61 70 74 65 72 |Read the chapter|
00003320 20 50 52 49 4e 54 45 52 20 43 4f 4e 46 49 47 55 | PRINTER CONFIGU|
00003330 52 41 54 49 4f 4e 20 69 6e 20 74 68 65 20 46 69 |RATION in the Fi|
00003340 72 73 74 20 20 20 2a 22 3b 6c 66 24 3b 0d 13 e2 |rst *";lf$;...|
00003350 47 f1 22 2a 20 20 20 57 6f 72 64 20 50 6c 75 73 |G."* Word Plus|
00003360 20 6d 61 6e 75 61 6c 20 2d 20 54 48 4f 52 4f 55 | manual - THOROU|
00003370 47 48 4c 59 2e 20 20 20 20 20 20 20 20 20 20 20 |GHLY. |
00003380 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 22 3b | *";|
00003390 6c 66 24 3b 0d 13 ec 47 f1 22 2a 20 20 20 20 20 |lf$;...G."* |
000033a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
000033d0 20 20 20 20 2a 22 3b 6c 66 24 3b 0d 13 f6 47 f1 | *";lf$;...G.|
000033e0 22 2a 20 20 20 49 66 20 74 68 69 73 20 66 69 6c |"* If this fil|
000033f0 65 20 69 73 20 65 64 69 74 65 64 20 75 73 69 6e |e is edited usin|
00003400 67 20 46 69 72 73 74 20 57 6f 72 64 20 50 6c 75 |g First Word Plu|
00003410 73 2c 20 65 6e 73 75 72 65 20 20 2a 22 3b 6c 66 |s, ensure *";lf|
00003420 24 3b 0d 14 00 47 f1 22 2a 20 20 20 74 68 61 74 |$;...G."* that|
00003430 20 27 57 50 20 4d 4f 44 45 27 20 69 73 20 74 75 | 'WP MODE' is tu|
00003440 72 6e 65 64 20 4f 46 46 2e 20 20 20 20 20 20 20 |rned OFF. |
00003450 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003460 20 20 2a 22 3b 6c 66 24 3b 0d 14 0a 47 f1 22 2a | *";lf$;...G."*|
00003470 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
000034a0 20 20 20 20 20 20 20 20 20 2a 22 3b 6c 66 24 3b | *";lf$;|
000034b0 0d 14 14 47 f1 22 2a 20 20 20 49 66 20 74 68 69 |...G."* If thi|
000034c0 73 20 66 69 6c 65 20 69 73 20 65 64 69 74 65 64 |s file is edited|
000034d0 20 62 79 20 72 65 2d 72 75 6e 6e 69 6e 67 20 27 | by re-running '|
000034e0 31 77 70 2d 50 44 47 27 2c 20 6e 6f 74 65 20 20 |1wp-PDG', note |
000034f0 2a 22 3b 6c 66 24 3b 0d 14 1e 47 f1 22 2a 20 20 |*";lf$;...G."* |
00003500 20 74 68 61 74 20 69 74 20 63 61 6e 20 6f 6e 6c | that it can onl|
00003510 79 20 62 65 20 65 64 69 74 65 64 20 69 6e 20 48 |y be edited in H|
00003520 45 58 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 |EX. |
00003530 20 20 20 20 20 20 20 2a 22 3b 6c 66 24 3b 0d 14 | *";lf$;..|
00003540 28 47 f1 22 2a 20 20 20 20 20 20 20 20 20 20 20 |(G."* |
00003550 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00003570 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 22 | *"|
00003580 3b 6c 66 24 3b 0d 14 32 47 f1 22 2a 2a 2a 2a 2a |;lf$;..2G."*****|
00003590 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000035c0 2a 2a 2a 2a 2a 2a 22 3b 6c 66 24 3b 0d 14 3c 0d |******";lf$;..<.|
000035d0 f1 6c 66 24 3b 6c 66 24 3b 0d 14 46 0d f1 22 2a |.lf$;lf$;..F.."*|
000035e0 22 3b 6c 66 24 3b 0d 14 50 48 f1 22 2a 20 20 20 |";lf$;..PH."* |
000035f0 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 |The following li|
00003600 6e 65 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 |ne contains the |
00003610 6e 61 6d 65 20 6f 66 20 74 68 65 20 70 72 69 6e |name of the prin|
00003620 74 65 72 2e 22 3b 6c 66 24 3b 6c 66 24 3b 0d 14 |ter.";lf$;lf$;..|
00003630 5a 1c f1 20 50 72 69 6e 74 65 72 5f 6e 61 6d 65 |Z.. Printer_name|
00003640 24 3b 6c 66 24 3b 6c 66 24 3b 0d 14 64 0d f1 22 |$;lf$;lf$;..d.."|
00003650 2a 22 3b 6c 66 24 3b 0d 14 6e 4a f1 22 2a 20 20 |*";lf$;..nJ."* |
00003660 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c | The following l|
00003670 69 6e 65 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 |ine contains the|
00003680 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 6f | configuration o|
00003690 70 74 69 6f 6e 73 2e 22 3b 6c 66 24 3b 6c 66 24 |ptions.";lf$;lf$|
000036a0 3b 0d 14 78 08 40 25 3d 30 0d 14 82 63 f1 7e 63 |;..x.@%=0...c.~c|
000036b0 6f 6e 66 69 67 28 31 29 20 22 2c 20 22 20 63 6f |onfig(1) ", " co|
000036c0 6e 66 69 67 28 32 29 20 22 2c 20 22 20 63 6f 6e |nfig(2) ", " con|
000036d0 66 69 67 28 33 29 20 22 2c 20 22 20 63 6f 6e 66 |fig(3) ", " conf|
000036e0 69 67 28 34 29 20 22 2c 20 22 20 63 6f 6e 66 69 |ig(4) ", " confi|
000036f0 67 28 35 29 20 22 2c 20 22 20 63 6f 6e 66 69 67 |g(5) ", " config|
00003700 28 36 29 3b 6c 66 24 3b 6c 66 24 3b 0d 14 8c 0d |(6);lf$;lf$;....|
00003710 f1 22 2a 22 3b 6c 66 24 3b 0d 14 96 37 f1 22 2a |."*";lf$;...7."*|
00003720 20 4e 6f 77 20 63 6f 6d 65 73 20 74 68 65 20 50 | Now comes the P|
00003730 52 49 4e 54 45 52 20 43 48 41 52 41 43 54 45 52 |RINTER CHARACTER|
00003740 49 53 54 49 43 53 22 3b 6c 66 24 3b 6c 66 24 3b |ISTICS";lf$;lf$;|
00003750 0d 14 a0 12 e3 20 6c 6f 6f 70 3d 30 20 b8 20 26 |..... loop=0 . &|
00003760 33 33 0d 14 aa 44 e7 20 63 68 61 72 24 28 6c 6f |33...D. char$(lo|
00003770 6f 70 29 20 3c 3e 22 22 20 8c 20 f1 20 7e 6c 6f |op) <>"" . . ~lo|
00003780 6f 70 3b a4 74 72 61 6e 73 6c 61 74 65 5f 6f 75 |op;.translate_ou|
00003790 74 70 75 74 28 63 68 61 72 24 28 6c 6f 6f 70 29 |tput(char$(loop)|
000037a0 29 3b 6c 66 24 3b 0d 14 b4 05 ed 0d 14 be 23 f1 |);lf$;........#.|
000037b0 22 30 20 20 20 20 20 20 20 2a 20 4e 75 6c 6c 20 |"0 * Null |
000037c0 62 79 74 65 22 3b 6c 66 24 3b 6c 66 24 3b 0d 14 |byte";lf$;lf$;..|
000037d0 c8 0d f1 22 2a 22 3b 6c 66 24 3b 0d 14 d2 36 f1 |..."*";lf$;...6.|
000037e0 22 2a 20 4e 6f 77 20 63 6f 6d 65 73 20 74 68 65 |"* Now comes the|
000037f0 20 43 48 41 52 41 43 54 45 52 20 54 52 41 4e 53 | CHARACTER TRANS|
00003800 4c 41 54 49 4f 4e 53 22 3b 6c 66 24 3b 6c 66 24 |LATIONS";lf$;lf$|
00003810 3b 0d 14 dc 13 e3 20 6c 6f 6f 70 3d 33 33 20 b8 |;..... loop=33 .|
00003820 20 31 32 36 0d 14 e6 3a e7 20 a9 28 74 72 61 6e | 126...:. .(tran|
00003830 73 24 28 6c 6f 6f 70 29 29 20 3d 20 30 20 8c 20 |s$(loop)) = 0 . |
00003840 f1 7e 6c 6f 6f 70 3b 89 28 33 30 29 3b 22 2a 20 |.~loop;.(30);"* |
00003850 22 3b bd 28 6c 6f 6f 70 29 3b 6c 66 24 3b 0d 14 |";.(loop);lf$;..|
00003860 f0 5a e7 20 a9 28 74 72 61 6e 73 24 28 6c 6f 6f |.Z. .(trans$(loo|
00003870 70 29 29 20 3e 20 31 20 8c 20 f1 7e 6c 6f 6f 70 |p)) > 1 . .~loop|
00003880 3b a4 74 72 61 6e 73 6c 61 74 65 5f 6f 75 74 70 |;.translate_outp|
00003890 75 74 28 74 72 61 6e 73 24 28 6c 6f 6f 70 29 29 |ut(trans$(loop))|
000038a0 3b 89 28 33 30 29 3b 22 2a 20 22 3b bd 28 6c 6f |;.(30);"* ";.(lo|
000038b0 6f 70 29 3b 6c 66 24 3b 0d 14 fa 05 ed 0d 15 04 |op);lf$;........|
000038c0 05 3a 0d 15 0e 14 e3 20 6c 6f 6f 70 3d 31 36 30 |.:..... loop=160|
000038d0 20 b8 20 32 35 35 0d 15 18 3a e7 20 a9 28 74 72 | . 255...:. .(tr|
000038e0 61 6e 73 24 28 6c 6f 6f 70 29 29 20 3d 20 30 20 |ans$(loop)) = 0 |
000038f0 8c 20 f1 7e 6c 6f 6f 70 3b 89 28 33 30 29 3b 22 |. .~loop;.(30);"|
00003900 2a 20 22 3b bd 28 6c 6f 6f 70 29 3b 6c 66 24 3b |* ";.(loop);lf$;|
00003910 0d 15 22 5a e7 20 a9 28 74 72 61 6e 73 24 28 6c |.."Z. .(trans$(l|
00003920 6f 6f 70 29 29 20 3e 20 31 20 8c 20 f1 7e 6c 6f |oop)) > 1 . .~lo|
00003930 6f 70 3b a4 74 72 61 6e 73 6c 61 74 65 5f 6f 75 |op;.translate_ou|
00003940 74 70 75 74 28 74 72 61 6e 73 24 28 6c 6f 6f 70 |tput(trans$(loop|
00003950 29 29 3b 89 28 33 30 29 3b 22 2a 20 22 3b bd 28 |));.(30);"* ";.(|
00003960 6c 6f 6f 70 29 3b 6c 66 24 3b 0d 15 2c 05 ed 0d |loop);lf$;..,...|
00003970 15 36 05 3a 0d 15 40 1f f1 22 30 20 20 20 20 20 |.6.:..@.."0 |
00003980 20 20 2a 20 4e 75 6c 6c 20 62 79 74 65 22 3b 6c | * Null byte";l|
00003990 66 24 3b 0d 15 4a 11 f2 63 6c 6f 73 65 5f 6f 75 |f$;..J..close_ou|
000039a0 74 70 75 74 0d 15 54 05 e1 0d 15 5e 05 3a 0d 15 |tput..T....^.:..|
000039b0 68 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |hC**************|
000039c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000039f0 2a 0d 15 72 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |*..rC***********|
00003a00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00003a30 2a 2a 2a 2a 0d 15 7c 05 3a 0d 15 86 1c dd 20 f2 |****..|.:..... .|
00003a40 6f 70 65 6e 5f 6f 75 74 70 75 74 28 f8 20 65 73 |open_output(. es|
00003a50 63 61 70 65 29 0d 15 90 46 f4 20 2d 2d 2d 3e 20 |cape)...F. ---> |
00003a60 47 65 74 20 61 20 66 69 6c 65 6e 61 6d 65 20 66 |Get a filename f|
00003a70 72 6f 6d 20 74 68 65 20 75 73 65 72 2e 20 49 66 |rom the user. If|
00003a80 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 61 6c 72 | it does not alr|
00003a90 65 61 64 79 20 65 78 69 73 74 2c 0d 15 9a 3c f4 |eady exist,...<.|
00003aa0 20 2d 2d 2d 3e 20 6f 72 20 74 68 65 20 75 73 65 | ---> or the use|
00003ab0 72 20 67 69 76 65 73 20 70 65 72 6d 69 73 73 69 |r gives permissi|
00003ac0 6f 6e 2c 20 6f 70 65 6e 20 61 20 2a 53 50 4f 4f |on, open a *SPOO|
00003ad0 4c 20 66 69 6c 65 2e 0d 15 a4 05 3a 0d 15 ae 28 |L file.....:...(|
00003ae0 ea 20 6f 6b 2c 20 66 69 6c 65 6e 61 6d 65 24 2c |. ok, filename$,|
00003af0 20 66 69 6c 65 5f 6c 65 6e 67 74 68 25 2c 20 66 | file_length%, f|
00003b00 6f 75 6e 64 0d 15 b8 05 db 0d 15 c2 08 f2 63 61 |ound..........ca|
00003b10 74 0d 15 cc 08 6f 6b 3d a3 0d 15 d6 18 f5 20 3a |t....ok=...... :|
00003b20 f4 20 75 6e 74 69 6c 20 4e 4f 54 20 45 52 52 4f |. until NOT ERRO|
00003b30 52 0d 15 e0 11 f5 20 3a f4 20 75 6e 74 69 6c 20 |R..... :. until |
00003b40 4f 4b 0d 15 ea 06 fb 36 0d 15 f4 43 f1 27 22 45 |OK.....6...C.'"E|
00003b50 6e 74 65 72 20 74 68 65 20 66 69 6c 65 6e 61 6d |nter the filenam|
00003b60 65 20 74 6f 20 73 61 76 65 2e 20 50 72 65 73 73 |e to save. Press|
00003b70 20 3c 45 73 63 61 70 65 3e 20 74 6f 20 61 62 61 | <Escape> to aba|
00003b80 6e 64 6f 6e 20 73 61 76 65 2e 22 0d 15 fe 2c 66 |ndon save."...,f|
00003b90 69 6c 65 6e 61 6d 65 24 3d a4 67 65 74 73 74 72 |ilename$=.getstr|
00003ba0 69 6e 67 28 33 32 2c 49 6e 66 69 6c 65 24 2c 20 |ing(32,Infile$, |
00003bb0 65 73 63 61 70 65 29 0d 16 08 10 e7 20 65 73 63 |escape)..... esc|
00003bc0 61 70 65 20 8c 20 e1 0d 16 12 05 f1 0d 16 1c 3c |ape . .........<|
00003bd0 e7 20 a7 66 69 6c 65 6e 61 6d 65 24 2c 22 2e 22 |. .filename$,"."|
00003be0 29 20 3d 20 30 20 8c 20 66 69 6c 65 6e 61 6d 65 |) = 0 . filename|
00003bf0 24 3d 22 26 2e 31 57 50 2e 68 65 78 2e 22 2b 66 |$="&.1WP.hex."+f|
00003c00 69 6c 65 6e 61 6d 65 24 0d 16 26 05 3a 0d 16 30 |ilename$..&.:..0|
00003c10 32 f2 66 69 6e 64 5f 66 69 6c 65 28 66 69 6c 65 |2.find_file(file|
00003c20 6e 61 6d 65 24 2c 66 69 6c 65 5f 6c 65 6e 67 74 |name$,file_lengt|
00003c30 68 25 2c 66 6f 75 6e 64 2c 65 72 72 6f 72 29 0d |h%,found,error).|
00003c40 16 3a 05 3a 0d 16 44 0d e7 20 66 6f 75 6e 64 20 |.:.:..D.. found |
00003c50 8c 0d 16 4e 3f f1 20 22 46 69 6c 65 20 22 22 22 |...N?. "File """|
00003c60 3b 66 69 6c 65 6e 61 6d 65 24 3b 22 22 22 20 61 |;filename$;""" a|
00003c70 6c 72 65 61 64 79 20 65 78 69 73 74 73 2e 20 4f |lready exists. O|
00003c80 6b 20 74 6f 20 6f 76 65 72 77 72 69 74 65 22 3b |k to overwrite";|
00003c90 0d 16 58 0e 6f 6b 3d a4 79 65 73 5f 6e 6f 0d 16 |..X.ok=.yes_no..|
00003ca0 62 05 cc 0d 16 6c 27 f4 20 46 69 6c 65 20 6e 6f |b....l'. File no|
00003cb0 74 20 66 6f 75 6e 64 2c 20 73 6f 20 6d 61 79 62 |t found, so mayb|
00003cc0 65 20 69 6e 20 65 72 72 6f 72 0d 16 76 08 6f 6b |e in error..v.ok|
00003cd0 3d b9 0d 16 80 05 cd 0d 16 8a 08 fd 20 6f 6b 0d |=........... ok.|
00003ce0 16 94 05 3a 0d 16 9e 14 f4 20 54 65 73 74 20 66 |...:..... Test f|
00003cf0 6f 72 20 65 72 72 6f 72 0d 16 a8 0d fd 20 ac 20 |or error..... . |
00003d00 65 72 72 6f 72 0d 16 b2 15 f4 20 6f 6b 2c 20 73 |error..... ok, s|
00003d10 6f 20 67 6f 20 61 68 65 61 64 0d 16 bc 2f f1 22 |o go ahead.../."|
00003d20 57 72 69 74 69 6e 67 20 6f 75 74 70 75 74 20 66 |Writing output f|
00003d30 69 6c 65 3a 20 22 22 22 3b 66 69 6c 65 6e 61 6d |ile: """;filenam|
00003d40 65 24 3b 22 22 22 2e 22 3b 0d 16 c6 1b ef 20 32 |e$;""".";..... 2|
00003d50 31 20 3a f4 20 64 69 73 61 62 6c 65 20 73 63 72 |1 :. disable scr|
00003d60 65 65 6e 2e 0d 16 d0 18 ff 20 22 53 50 4f 4f 4c |een...... "SPOOL|
00003d70 20 22 2b 66 69 6c 65 6e 61 6d 65 24 0d 16 da 05 | "+filename$....|
00003d80 e1 0d 16 e4 05 3a 0d 16 ee 43 2a 2a 2a 2a 2a 2a |.....:...C******|
00003d90 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00003dc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 16 f8 43 2a 2a 2a |*********...C***|
00003dd0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00003e00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 17 02 05 |************....|
00003e10 3a 0d 17 0c 13 dd 20 f2 63 6c 6f 73 65 5f 6f 75 |:..... .close_ou|
00003e20 74 70 75 74 0d 17 16 37 f4 20 2d 2d 2d 3e 20 43 |tput...7. ---> C|
00003e30 6c 6f 73 65 20 74 68 65 20 73 70 6f 6f 6c 20 66 |lose the spool f|
00003e40 69 6c 65 2c 20 61 6e 64 20 72 65 2d 65 6e 61 62 |ile, and re-enab|
00003e50 6c 65 20 74 68 65 20 56 44 55 2e 0d 17 20 05 3a |le the VDU... .:|
00003e60 0d 17 2a 0a 2a 53 50 4f 4f 4c 0d 17 34 0a ef 20 |..*.*SPOOL..4.. |
00003e70 36 2c 31 32 0d 17 3e 08 ef 20 32 36 0d 17 48 07 |6,12..>.. 26..H.|
00003e80 f1 27 27 0d 17 52 08 f2 63 61 74 0d 17 5c 05 e1 |.''..R..cat..\..|
00003e90 0d 17 66 05 3a 0d 17 70 43 2a 2a 2a 2a 2a 2a 2a |..f.:..pC*******|
00003ea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00003ed0 2a 2a 2a 2a 2a 2a 2a 2a 0d 17 7a 43 2a 2a 2a 2a |********..zC****|
00003ee0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00003f10 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 17 84 05 3a |***********....:|
00003f20 0d 17 8e 0f dd 20 f2 64 65 66 61 75 6c 74 73 0d |..... .defaults.|
00003f30 17 98 3a f4 20 2d 2d 2d 3e 20 69 6e 69 74 69 61 |..:. ---> initia|
00003f40 6c 69 73 65 20 74 68 65 20 64 65 61 66 75 6c 74 |lise the deafult|
00003f50 20 76 61 6c 75 65 73 20 66 6f 72 20 74 68 65 20 | values for the |
00003f60 63 68 61 72 61 63 74 65 72 0d 17 a2 1d f4 20 2d |character..... -|
00003f70 2d 2d 3e 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 |--> translation |
00003f80 74 61 62 6c 65 2e 0d 17 ac 05 3a 0d 17 b6 0b ea |table.....:.....|
00003f90 20 6c 6f 6f 70 25 0d 17 c0 0e 49 6e 66 69 6c 65 | loop%....Infile|
00003fa0 24 3d 22 22 0d 17 ca 14 74 72 61 6e 73 24 28 33 |$=""....trans$(3|
00003fb0 33 29 3d bd 28 33 33 29 0d 17 d4 14 74 72 61 6e |3)=.(33)....tran|
00003fc0 73 24 28 33 34 29 3d bd 28 33 34 29 0d 17 de 14 |s$(34)=.(34)....|
00003fd0 e3 20 6c 6f 6f 70 25 3d 33 36 20 b8 20 31 32 37 |. loop%=36 . 127|
00003fe0 0d 17 e8 1a 74 72 61 6e 73 24 28 6c 6f 6f 70 25 |....trans$(loop%|
00003ff0 29 3d bd 28 6c 6f 6f 70 25 29 0d 17 f2 05 ed 0d |)=.(loop%)......|
00004000 17 fc 11 74 72 61 6e 73 24 28 39 36 29 3d 22 22 |...trans$(96)=""|
00004010 0d 18 06 05 3a 0d 18 10 0f 63 6f 6e 66 69 67 28 |....:....config(|
00004020 31 29 3d 30 0d 18 1a 0f 63 6f 6e 66 69 67 28 32 |1)=0....config(2|
00004030 29 3d 30 0d 18 24 0f 63 6f 6e 66 69 67 28 33 29 |)=0..$.config(3)|
00004040 3d 30 0d 18 2e 0f 63 6f 6e 66 69 67 28 34 29 3d |=0....config(4)=|
00004050 30 0d 18 38 0f 63 6f 6e 66 69 67 28 35 29 3d 30 |0..8.config(5)=0|
00004060 0d 18 42 0f 63 6f 6e 66 69 67 28 36 29 3d 30 0d |..B.config(6)=0.|
00004070 18 4c 05 3a 0d 18 56 08 c8 97 20 87 0d 18 60 05 |.L.:..V... ...`.|
00004080 ee 0d 18 6a 05 e1 0d 18 74 05 3a 0d 18 7e 43 2a |...j....t.:..~C*|
00004090 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000040c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 18 |**************..|
000040d0 88 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.C**************|
000040e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004110 2a 0d 18 92 05 3a 0d 18 9c 13 dd 20 f2 6c 6f 61 |*....:..... .loa|
00004120 64 5f 68 65 78 66 69 6c 65 0d 18 a6 3f f4 20 2d |d_hexfile...?. -|
00004130 2d 2d 3e 20 4c 6f 61 64 20 61 20 68 65 78 20 66 |--> Load a hex f|
00004140 69 6c 65 20 70 72 65 76 69 6f 75 73 6c 79 20 63 |ile previously c|
00004150 72 65 61 74 65 64 20 2d 20 65 69 74 68 65 72 20 |reated - either |
00004160 6d 61 6e 75 61 6c 6c 79 0d 18 b0 20 f4 20 2d 2d |manually... . --|
00004170 2d 3e 20 6f 72 20 77 69 74 68 20 74 68 69 73 20 |-> or with this |
00004180 70 72 6f 67 72 61 6d 21 0d 18 ba 05 3a 0d 18 c4 |program!....:...|
00004190 08 f2 63 61 74 0d 18 ce 14 f5 20 3a f4 20 55 4e |..cat..... :. UN|
000041a0 54 49 4c 20 46 4f 55 4e 44 0d 18 d8 18 f5 20 3a |TIL FOUND..... :|
000041b0 f4 20 55 4e 54 49 4c 20 4e 4f 54 20 45 52 52 4f |. UNTIL NOT ERRO|
000041c0 52 0d 18 e2 06 fb 36 0d 18 ec 35 f1 27 22 44 6f |R.....6...5.'"Do|
000041d0 20 79 6f 75 20 73 74 69 6c 6c 20 77 61 6e 74 20 | you still want |
000041e0 74 6f 20 6c 6f 61 64 20 61 6e 20 65 78 69 73 74 |to load an exist|
000041f0 69 6e 67 20 64 72 69 76 65 72 22 3b 0d 18 f6 0f |ing driver";....|
00004200 e7 20 a4 79 65 73 5f 6e 6f 20 8c 0d 19 00 06 fb |. .yes_no ......|
00004210 36 0d 19 0a 22 f1 27 22 45 6e 74 65 72 20 74 68 |6...".'"Enter th|
00004220 65 20 66 69 6c 65 6e 61 6d 65 20 74 6f 20 6c 6f |e filename to lo|
00004230 61 64 22 0d 19 14 26 66 69 6c 65 6e 61 6d 65 24 |ad"...&filename$|
00004240 3d a4 67 65 74 73 74 72 69 6e 67 28 33 32 2c 22 |=.getstring(32,"|
00004250 22 2c 65 73 63 61 70 65 29 0d 19 1e 54 e7 20 65 |",escape)...T. e|
00004260 73 63 61 70 65 20 8c 20 fb 32 3a f1 22 45 73 63 |scape . .2:."Esc|
00004270 61 70 65 20 2d 20 4c 6f 61 64 20 61 62 61 6e 64 |ape - Load aband|
00004280 6f 6e 65 64 22 27 3a f2 64 65 66 61 75 6c 74 73 |oned"':.defaults|
00004290 3a 66 6f 72 63 65 5f 68 65 78 3d a3 3a ef 20 32 |:force_hex=.:. 2|
000042a0 38 2c 30 2c 33 31 2c 37 39 2c 33 3a e1 0d 19 28 |8,0,31,79,3:...(|
000042b0 05 f1 0d 19 32 05 3a 0d 19 3c 32 f2 66 69 6e 64 |....2.:..<2.find|
000042c0 5f 66 69 6c 65 28 66 69 6c 65 6e 61 6d 65 24 2c |_file(filename$,|
000042d0 66 69 6c 65 5f 6c 65 6e 67 74 68 25 2c 66 6f 75 |file_length%,fou|
000042e0 6e 64 2c 65 72 72 6f 72 29 0d 19 46 0d fd 20 ac |nd,error)..F.. .|
000042f0 20 65 72 72 6f 72 0d 19 50 05 3a 0d 19 5a 0d e7 | error..P.:..Z..|
00004300 20 66 6f 75 6e 64 20 8c 0d 19 64 1d de 20 66 69 | found ...d.. fi|
00004310 6c 65 73 74 6f 72 65 25 20 66 69 6c 65 5f 6c 65 |lestore% file_le|
00004320 6e 67 74 68 25 0d 19 6e 27 ff 22 4c 6f 61 64 20 |ngth%..n'."Load |
00004330 22 2b 66 69 6c 65 6e 61 6d 65 24 2b 22 20 22 2b |"+filename$+" "+|
00004340 c3 7e 66 69 6c 65 73 74 6f 72 65 25 0d 19 78 15 |.~filestore%..x.|
00004350 49 6e 66 69 6c 65 24 3d 66 69 6c 65 6e 61 6d 65 |Infile$=filename|
00004360 24 0d 19 82 05 cc 0d 19 8c 06 fb 32 0d 19 96 16 |$..........2....|
00004370 f1 22 46 69 6c 65 20 6e 6f 74 20 66 6f 75 6e 64 |."File not found|
00004380 2e 22 0d 19 a0 0e 49 6e 66 69 6c 65 24 3d 22 22 |."....Infile$=""|
00004390 0d 19 aa 17 cd 20 3a f4 20 46 49 4c 45 20 4e 4f |..... :. FILE NO|
000043a0 54 20 46 4f 55 4e 44 0d 19 b4 05 3a 0d 19 be 0b |T FOUND....:....|
000043b0 fd 20 66 6f 75 6e 64 0d 19 c8 20 f2 70 72 6f 63 |. found... .proc|
000043c0 65 73 73 5f 68 65 78 66 69 6c 65 28 66 69 6c 65 |ess_hexfile(file|
000043d0 73 74 6f 72 65 25 29 0d 19 d2 05 cc 0d 19 dc 1b |store%).........|
000043e0 f4 20 4e 6f 74 20 6c 6f 61 64 69 6e 67 20 61 66 |. Not loading af|
000043f0 74 65 72 20 61 6c 6c 0d 19 e6 0d f2 64 65 66 61 |ter all.....defa|
00004400 75 6c 74 73 0d 19 f0 0f 66 6f 72 63 65 5f 68 65 |ults....force_he|
00004410 78 3d a3 0d 19 fa 1f cd 20 3a f4 20 44 6f 6e 27 |x=...... :. Don'|
00004420 54 20 57 41 4e 54 20 54 4f 20 4c 4f 41 44 2e 2e |T WANT TO LOAD..|
00004430 2e 2e 0d 1a 04 12 ef 20 32 38 2c 30 2c 33 31 2c |....... 28,0,31,|
00004440 37 39 2c 33 0d 1a 0e 05 e1 0d 1a 18 05 3a 0d 1a |79,3.........:..|
00004450 22 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |"C**************|
00004460 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004490 2a 0d 1a 2c 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |*..,C***********|
000044a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000044d0 2a 2a 2a 2a 0d 1a 36 05 3a 0d 1a 40 20 dd 20 f2 |****..6.:..@ . .|
000044e0 70 72 6f 63 65 73 73 5f 68 65 78 66 69 6c 65 28 |process_hexfile(|
000044f0 61 64 64 72 65 73 73 25 29 0d 1a 4a 3a f4 20 2d |address%)..J:. -|
00004500 2d 2d 3e 20 50 72 6f 63 65 73 73 20 74 68 65 20 |--> Process the |
00004510 68 65 78 20 66 69 6c 65 20 6c 6f 61 64 65 64 20 |hex file loaded |
00004520 61 74 20 61 64 64 72 65 73 73 20 61 64 64 72 65 |at address addre|
00004530 73 73 25 0d 1a 54 05 3a 0d 1a 5e 21 ea 20 63 68 |ss%..T.:..^!. ch|
00004540 61 72 24 2c 20 63 68 61 72 5f 73 75 62 25 2c 20 |ar$, char_sub%, |
00004550 63 68 61 72 5f 76 61 6c 24 0d 1a 68 0f 41 25 3d |char_val$..h.A%=|
00004560 61 64 64 72 65 73 73 25 0d 1a 72 1f f1 22 52 65 |address%..r.."Re|
00004570 61 64 69 6e 67 20 50 72 69 6e 74 65 72 20 4e 61 |ading Printer Na|
00004580 6d 65 22 3b bd 31 31 0d 1a 7c 2c 50 72 69 6e 74 |me";.11..|,Print|
00004590 65 72 5f 6e 61 6d 65 24 3d a4 70 72 6f 63 65 73 |er_name$=.proces|
000045a0 73 5f 68 65 78 6c 69 6e 65 28 61 64 64 72 65 73 |s_hexline(addres|
000045b0 73 25 29 0d 1a 86 26 f1 22 52 65 61 64 69 6e 67 |s%)...&."Reading|
000045c0 20 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 3b | Configuration";|
000045d0 89 28 32 30 29 3b bd 31 31 0d 1a 90 2b 63 6f 6e |.(20);.11...+con|
000045e0 66 69 67 5f 6c 69 6e 65 24 3d a4 70 72 6f 63 65 |fig_line$=.proce|
000045f0 73 73 5f 68 65 78 6c 69 6e 65 28 61 64 64 72 65 |ss_hexline(addre|
00004600 73 73 25 29 0d 1a 9a 21 f2 70 72 6f 63 65 73 73 |ss%)...!.process|
00004610 5f 63 6f 6e 66 69 67 28 63 6f 6e 66 69 67 5f 6c |_config(config_l|
00004620 69 6e 65 24 29 0d 1a a4 05 3a 0d 1a ae 28 f1 22 |ine$)....:...(."|
00004630 52 65 61 64 69 6e 67 20 43 68 61 72 61 63 74 65 |Reading Characte|
00004640 72 69 73 74 69 63 73 22 3b 89 28 32 30 29 3b bd |ristics";.(20);.|
00004650 31 31 0d 1a b8 24 63 68 61 72 24 3d a4 70 72 6f |11...$char$=.pro|
00004660 63 65 73 73 5f 68 65 78 6c 69 6e 65 28 61 64 64 |cess_hexline(add|
00004670 72 65 73 73 25 29 0d 1a c2 32 c8 95 20 28 a4 66 |ress%)...2.. (.f|
00004680 69 72 73 74 28 63 68 61 72 24 29 20 3c 3e 20 30 |irst(char$) <> 0|
00004690 29 20 84 20 28 a4 72 65 73 74 28 63 68 61 72 24 |) . (.rest(char$|
000046a0 29 20 3c 3e 20 22 22 29 0d 1a cc 1b 63 68 61 72 |) <> "")....char|
000046b0 5f 73 75 62 25 3d a4 66 69 72 73 74 28 63 68 61 |_sub%=.first(cha|
000046c0 72 24 29 0d 1a d6 28 63 68 61 72 5f 76 61 6c 24 |r$)...(char_val$|
000046d0 3d a4 73 74 72 69 70 5f 63 6f 6d 6d 61 28 a4 72 |=.strip_comma(.r|
000046e0 65 73 74 28 63 68 61 72 24 29 29 0d 1a e0 20 63 |est(char$))... c|
000046f0 68 61 72 24 28 63 68 61 72 5f 73 75 62 25 29 20 |har$(char_sub%) |
00004700 3d 20 63 68 61 72 5f 76 61 6c 24 0d 1a ea 24 63 |= char_val$...$c|
00004710 68 61 72 24 3d a4 70 72 6f 63 65 73 73 5f 68 65 |har$=.process_he|
00004720 78 6c 69 6e 65 28 61 64 64 72 65 73 73 25 29 0d |xline(address%).|
00004730 1a f4 05 ce 0d 1a fe 05 3a 0d 1b 08 30 f4 20 73 |........:...0. s|
00004740 65 74 75 70 20 64 65 66 61 75 6c 74 20 74 72 61 |etup default tra|
00004750 6e 73 6c 61 74 69 6f 6e 20 2d 20 6e 6f 20 74 72 |nslation - no tr|
00004760 61 6e 73 6c 61 74 69 6f 6e 0d 1b 12 18 e3 20 74 |anslation..... t|
00004770 72 61 6e 73 5f 73 75 62 25 3d 31 20 b8 20 32 35 |rans_sub%=1 . 25|
00004780 35 0d 1b 1c 22 74 72 61 6e 73 24 28 74 72 61 6e |5..."trans$(tran|
00004790 73 5f 73 75 62 25 29 3d bd 74 72 61 6e 73 5f 73 |s_sub%)=.trans_s|
000047a0 75 62 25 0d 1b 26 05 ed 0d 1b 30 05 3a 0d 1b 3a |ub%..&....0.:..:|
000047b0 2f f1 22 52 65 61 64 69 6e 67 20 43 68 61 72 61 |/."Reading Chara|
000047c0 63 74 65 72 20 74 72 61 6e 73 6c 61 74 69 6f 6e |cter translation|
000047d0 73 22 3b 89 28 32 30 29 3b bd 31 31 0d 1b 44 35 |s";.(20);.11..D5|
000047e0 f4 20 4e 6f 77 20 72 65 61 64 20 69 6e 20 74 68 |. Now read in th|
000047f0 65 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 66 |e translations f|
00004800 72 6f 6d 20 74 68 65 20 48 45 58 20 66 69 6c 65 |rom the HEX file|
00004810 2e 0d 1b 4e 25 74 72 61 6e 73 24 3d a4 70 72 6f |...N%trans$=.pro|
00004820 63 65 73 73 5f 68 65 78 6c 69 6e 65 28 61 64 64 |cess_hexline(add|
00004830 72 65 73 73 25 29 0d 1b 58 05 3a 0d 1b 62 1a c8 |ress%)..X.:..b..|
00004840 95 20 a4 66 69 72 73 74 28 74 72 61 6e 73 24 29 |. .first(trans$)|
00004850 20 3c 3e 20 30 0d 1b 6c 1d 74 72 61 6e 73 5f 73 | <> 0..l.trans_s|
00004860 75 62 25 3d a4 66 69 72 73 74 28 74 72 61 6e 73 |ub%=.first(trans|
00004870 24 29 0d 1b 76 2a 74 72 61 6e 73 5f 76 61 6c 24 |$)..v*trans_val$|
00004880 3d a4 73 74 72 69 70 5f 63 6f 6d 6d 61 28 a4 72 |=.strip_comma(.r|
00004890 65 73 74 28 74 72 61 6e 73 24 29 29 0d 1b 80 05 |est(trans$))....|
000048a0 3a 0d 1b 8a 15 e7 20 74 72 61 6e 73 5f 76 61 6c |:..... trans_val|
000048b0 24 3d 22 22 20 8c 0d 1b 94 34 f4 20 63 68 61 72 |$="" ....4. char|
000048c0 61 63 74 65 72 20 69 73 20 74 6f 20 62 65 20 69 |acter is to be i|
000048d0 67 6e 6f 72 65 64 20 2d 20 63 6c 65 61 72 20 74 |gnored - clear t|
000048e0 61 62 6c 65 20 65 6e 74 72 79 0d 1b 9e 1b 74 72 |able entry....tr|
000048f0 61 6e 73 24 28 74 72 61 6e 73 5f 73 75 62 25 29 |ans$(trans_sub%)|
00004900 20 3d 20 22 22 0d 1b a8 05 cc 0d 1b b2 27 f4 20 | = ""........'. |
00004910 57 65 20 68 61 76 65 20 61 20 74 72 61 6e 73 6c |We have a transl|
00004920 61 74 69 6f 6e 20 2d 20 73 74 6f 72 65 20 69 74 |ation - store it|
00004930 2e 0d 1b bc 23 74 72 61 6e 73 24 28 74 72 61 6e |....#trans$(tran|
00004940 73 5f 73 75 62 25 29 20 3d 20 74 72 61 6e 73 5f |s_sub%) = trans_|
00004950 76 61 6c 24 0d 1b c6 05 cd 0d 1b d0 05 3a 0d 1b |val$.........:..|
00004960 da 10 f4 20 52 65 61 64 2d 61 68 65 61 64 0d 1b |... Read-ahead..|
00004970 e4 25 74 72 61 6e 73 24 3d a4 70 72 6f 63 65 73 |.%trans$=.proces|
00004980 73 5f 68 65 78 6c 69 6e 65 28 61 64 64 72 65 73 |s_hexline(addres|
00004990 73 25 29 0d 1b ee 05 ce 0d 1b f8 0a f1 89 28 37 |s%)...........(7|
000049a0 30 29 0d 1c 02 05 e1 0d 1c 0c 05 3a 0d 1c 16 43 |0).........:...C|
000049b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000049e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d |***************.|
000049f0 1c 20 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |. C*************|
00004a00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004a30 2a 2a 0d 1c 2a 05 3a 0d 1c 34 1c dd 20 a4 70 72 |**..*.:..4.. .pr|
00004a40 6f 63 65 73 73 5f 68 65 78 6c 69 6e 65 28 f8 20 |ocess_hexline(. |
00004a50 61 25 29 0d 1c 3e 3f f4 20 2d 2d 2d 3e 20 50 72 |a%)..>?. ---> Pr|
00004a60 6f 63 65 73 73 20 74 68 65 20 68 65 78 20 66 69 |ocess the hex fi|
00004a70 6c 65 20 69 6e 20 6d 65 6d 6f 72 79 20 66 72 6f |le in memory fro|
00004a80 6d 20 61 64 64 72 65 73 73 20 61 64 64 72 65 73 |m address addres|
00004a90 73 25 0d 1c 48 47 f4 20 2d 2d 2d 3e 20 6f 6e 77 |s%..HG. ---> onw|
00004aa0 61 72 64 73 20 74 6f 20 72 65 74 72 69 65 76 65 |ards to retrieve|
00004ab0 20 61 20 6e 6f 6e 2d 6e 75 6c 6c 20 73 74 72 69 | a non-null stri|
00004ac0 6e 67 20 77 69 74 68 20 61 6c 6c 20 63 6f 6d 6d |ng with all comm|
00004ad0 65 6e 74 20 6c 69 6e 65 73 0d 1c 52 13 f4 20 2d |ent lines..R.. -|
00004ae0 2d 2d 3e 20 69 67 6e 6f 72 65 64 2e 0d 1c 5c 05 |--> ignored...\.|
00004af0 3a 0d 1c 66 0a ea 20 63 68 61 72 0d 1c 70 05 f5 |:..f.. char..p..|
00004b00 0d 1c 7a 27 f4 20 52 65 61 64 20 61 20 6c 69 6e |..z'. Read a lin|
00004b10 65 20 75 70 20 74 6f 20 41 53 43 49 49 20 31 30 |e up to ASCII 10|
00004b20 20 28 65 6f 6c 6e 29 0d 1c 84 0c 6c 69 6e 65 24 | (eoln)....line$|
00004b30 3d 22 22 0d 1c 8e 05 3a 0d 1c 98 15 63 68 61 72 |=""....:....char|
00004b40 3d a4 67 65 74 62 79 74 65 28 61 25 29 0d 1c a2 |=.getbyte(a%)...|
00004b50 0f c8 95 20 63 68 61 72 3c 3e 31 30 0d 1c ac 10 |... char<>10....|
00004b60 6c 69 6e 65 24 2b 3d bd 63 68 61 72 0d 1c b6 15 |line$+=.char....|
00004b70 63 68 61 72 3d a4 67 65 74 62 79 74 65 28 61 25 |char=.getbyte(a%|
00004b80 29 0d 1c c0 05 ce 0d 1c ca 05 3a 0d 1c d4 29 f4 |).........:...).|
00004b90 20 53 74 72 69 70 20 6c 65 61 64 69 6e 67 20 73 | Strip leading s|
00004ba0 70 61 63 65 73 2c 20 61 6e 64 20 63 6f 6d 6d 65 |paces, and comme|
00004bb0 6e 74 73 2e 0d 1c de 19 f2 73 74 72 69 70 5f 6c |nts......strip_l|
00004bc0 65 61 64 69 6e 67 28 6c 69 6e 65 24 29 0d 1c e8 |eading(line$)...|
00004bd0 19 f2 73 74 72 69 70 5f 63 6f 6d 6d 65 6e 74 28 |..strip_comment(|
00004be0 6c 69 6e 65 24 29 0d 1c f2 05 3a 0d 1c fc 18 f4 |line$)....:.....|
00004bf0 20 69 67 6e 6f 72 65 20 62 6c 61 6e 6b 20 6c 69 | ignore blank li|
00004c00 6e 65 73 0d 1d 06 0f fd 20 6c 69 6e 65 24 3c 3e |nes..... line$<>|
00004c10 22 22 0d 1d 10 18 3d a4 74 69 64 79 5f 73 74 72 |""....=.tidy_str|
00004c20 69 6e 67 28 6c 69 6e 65 24 29 0d 1d 1a 05 3a 0d |ing(line$)....:.|
00004c30 1d 24 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.$C*************|
00004c40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004c70 2a 2a 0d 1d 2e 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |**...C**********|
00004c80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004cb0 2a 2a 2a 2a 2a 0d 1d 38 05 3a 0d 1d 42 14 dd 20 |*****..8.:..B.. |
00004cc0 a4 67 65 74 62 79 74 65 28 f8 20 61 25 29 0d 1d |.getbyte(. a%)..|
00004cd0 4c 2b f4 20 2d 2d 2d 3e 20 52 65 74 75 72 6e 73 |L+. ---> Returns|
00004ce0 20 74 68 65 20 6e 65 78 74 20 62 79 74 65 20 69 | the next byte i|
00004cf0 6e 20 6d 65 6d 6f 72 79 2e 0d 1d 56 05 3a 0d 1d |n memory...V.:..|
00004d00 60 09 61 25 2b 3d 31 0d 1d 6a 0a 3d 61 25 3f 2d |`.a%+=1..j.=a%?-|
00004d10 31 0d 1d 74 05 3a 0d 1d 7e 43 2a 2a 2a 2a 2a 2a |1..t.:..~C******|
00004d20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004d50 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 1d 88 43 2a 2a 2a |*********...C***|
00004d60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004d90 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 1d 92 05 |************....|
00004da0 3a 0d 1d 9c 1f dd 20 f2 73 74 72 69 70 5f 6c 65 |:..... .strip_le|
00004db0 61 64 69 6e 67 28 f8 20 73 74 72 69 6e 67 24 29 |ading(. string$)|
00004dc0 0d 1d a6 20 f4 20 2d 2d 2d 3e 20 53 74 72 69 70 |... . ---> Strip|
00004dd0 73 20 6c 65 61 64 69 6e 67 20 73 70 61 63 65 73 |s leading spaces|
00004de0 0d 1d b0 05 3a 0d 1d ba 18 c8 95 20 c0 73 74 72 |....:...... .str|
00004df0 69 6e 67 24 2c 31 29 20 3d 20 22 20 22 0d 1d c4 |ing$,1) = " "...|
00004e00 17 73 74 72 69 6e 67 24 3d c1 73 74 72 69 6e 67 |.string$=.string|
00004e10 24 2c 32 29 0d 1d ce 05 ce 0d 1d d8 05 e1 0d 1d |$,2)............|
00004e20 e2 05 3a 0d 1d ec 43 2a 2a 2a 2a 2a 2a 2a 2a 2a |..:...C*********|
00004e30 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004e60 2a 2a 2a 2a 2a 2a 0d 1d f6 43 2a 2a 2a 2a 2a 2a |******...C******|
00004e70 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004ea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 1e 00 05 3a 0d 1e |*********....:..|
00004eb0 0a 1f dd 20 f2 73 74 72 69 70 5f 63 6f 6d 6d 65 |... .strip_comme|
00004ec0 6e 74 28 f8 20 73 74 72 69 6e 67 24 29 0d 1e 14 |nt(. string$)...|
00004ed0 30 f4 20 2d 2d 2d 3e 20 53 74 72 69 70 20 2a 73 |0. ---> Strip *s|
00004ee0 20 61 6e 64 20 61 6e 79 20 66 6f 6c 6c 6f 77 69 | and any followi|
00004ef0 6e 67 20 63 68 61 72 61 63 74 65 72 73 0d 1e 1e |ng characters...|
00004f00 05 3a 0d 1e 28 0a ea 20 70 6f 73 6e 0d 1e 32 16 |.:..(.. posn..2.|
00004f10 70 6f 73 6e 3d a7 73 74 72 69 6e 67 24 2c 22 2a |posn=.string$,"*|
00004f20 22 29 0d 1e 3c 1c 73 74 72 69 6e 67 24 3d c0 73 |")..<.string$=.s|
00004f30 74 72 69 6e 67 24 2c 70 6f 73 6e 2d 31 29 0d 1e |tring$,posn-1)..|
00004f40 46 05 e1 0d 1e 50 05 3a 0d 1e 5a 43 2a 2a 2a 2a |F....P.:..ZC****|
00004f50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004f80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 1e 64 43 2a |***********..dC*|
00004f90 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004fc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 1e |**************..|
00004fd0 6e 05 3a 0d 1e 78 2e dd 20 f2 66 69 6e 64 5f 66 |n.:..x.. .find_f|
00004fe0 69 6c 65 28 46 24 2c 20 f8 20 65 78 74 25 2c 20 |ile(F$, . ext%, |
00004ff0 f8 20 66 6f 75 6e 64 2c 20 f8 20 65 72 72 6f 72 |. found, . error|
00005000 29 0d 1e 82 30 f4 20 2d 2d 2d 3e 20 43 68 65 63 |)...0. ---> Chec|
00005010 6b 20 66 69 6c 65 20 65 78 69 73 74 73 20 61 6e |k file exists an|
00005020 64 20 67 65 74 20 69 74 27 73 20 6c 65 6e 67 74 |d get it's lengt|
00005030 68 0d 1e 8c 36 f4 20 2d 2d 2d 3e 20 53 65 74 20 |h...6. ---> Set |
00005040 66 69 6c 65 70 61 74 68 20 74 6f 20 61 6c 6c 6f |filepath to allo|
00005050 77 20 65 61 73 79 20 72 65 61 64 69 6e 67 20 6f |w easy reading o|
00005060 66 20 66 69 6c 65 2e 0d 1e 96 05 3a 0d 1e a0 07 |f file.....:....|
00005070 ea 20 85 0d 1e aa 0b 65 72 72 6f 72 3d a3 0d 1e |. .....error=...|
00005080 b4 25 ee 20 85 20 ea 20 66 6f 75 6e 64 3d a3 3a |.%. . . found=.:|
00005090 65 72 72 6f 72 3d b9 3a fb 32 3a f1 20 f6 24 3b |error=.:.2:. .$;|
000050a0 3a 20 e1 0d 1e be 0b 66 6f 75 6e 64 3d a3 0d 1e |: .....found=...|
000050b0 c8 11 68 61 6e 64 6c 65 25 3d 8e 28 46 24 29 0d |..handle%=.(F$).|
000050c0 1e d2 12 e7 20 68 61 6e 64 6c 65 25 3c 3e 30 20 |.... handle%<>0 |
000050d0 8c 0d 1e dc 12 65 78 74 25 3d a2 23 68 61 6e 64 |.....ext%=.#hand|
000050e0 6c 65 25 0d 1e e6 0d d9 23 68 61 6e 64 6c 65 25 |le%.....#handle%|
000050f0 0d 1e f0 0d 66 6f 75 6e 64 20 3d 20 b9 0d 1e fa |....found = ....|
00005100 05 cc 0d 1f 04 05 cd 0d 1f 0e 05 e1 0d 1f 18 05 |................|
00005110 3a 0d 1f 22 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |:.."C***********|
00005120 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005150 2a 2a 2a 2a 0d 1f 2c 43 2a 2a 2a 2a 2a 2a 2a 2a |****..,C********|
00005160 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005190 2a 2a 2a 2a 2a 2a 2a 0d 1f 36 05 3a 0d 1f 40 0a |*******..6.:..@.|
000051a0 dd 20 f2 63 61 74 0d 1f 4a 2f f4 20 2d 2d 2d 3e |. .cat..J/. --->|
000051b0 20 43 61 74 61 6c 6f 67 75 65 20 74 68 65 20 68 | Catalogue the h|
000051c0 65 78 20 66 69 6c 65 73 20 6f 6e 20 74 68 65 20 |ex files on the |
000051d0 64 69 73 6b 2e 0d 1f 54 05 3a 0d 1f 5e 07 ea 20 |disk...T.:..^.. |
000051e0 85 0d 1f 68 36 ee 20 85 20 ea 20 fb 32 3a f1 f6 |...h6. . . .2:..|
000051f0 24 3b 22 20 2d 20 43 61 6e 27 74 20 63 61 74 61 |$;" - Can't cata|
00005200 6c 6f 67 75 65 20 22 22 26 2e 31 57 50 2e 68 65 |logue ""&.1WP.he|
00005210 78 22 22 2e 22 3a e1 0d 1f 72 06 fb 36 0d 1f 7c |x"".":...r..6..||
00005220 23 f1 27 22 43 6f 6e 74 65 6e 74 73 20 6f 66 20 |#.'"Contents of |
00005230 22 22 26 2e 31 57 50 2e 68 65 78 22 22 3a 22 27 |""&.1WP.hex"":"'|
00005240 0d 1f 86 06 fb 32 0d 1f 90 12 2a 43 41 54 20 26 |.....2....*CAT &|
00005250 2e 31 57 50 2e 48 45 58 0d 1f 9a 05 f1 0d 1f a4 |.1WP.HEX........|
00005260 14 ef 20 32 38 2c 30 2c 33 31 2c 37 39 2c bc 2b |.. 28,0,31,79,.+|
00005270 33 0d 1f ae 05 e1 0d 1f b8 05 3a 0d 1f c2 43 2a |3.........:...C*|
00005280 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000052b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 1f |**************..|
000052c0 cc 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.C**************|
000052d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005300 2a 0d 1f d6 05 3a 0d 1f e0 15 dd 20 a4 66 69 72 |*....:..... .fir|
00005310 73 74 28 73 74 72 69 6e 67 24 29 0d 1f ea 46 f4 |st(string$)...F.|
00005320 20 2d 2d 2d 3e 20 4c 69 6b 65 20 74 68 65 20 4c | ---> Like the L|
00005330 49 53 50 20 66 75 6e 63 74 69 6f 6e 20 28 43 41 |ISP function (CA|
00005340 52 20 2e 2e 2e 29 2c 20 46 4e 66 69 72 73 74 20 |R ...), FNfirst |
00005350 72 65 74 75 72 6e 73 20 74 68 65 20 66 69 72 73 |returns the firs|
00005360 74 0d 1f f4 3e f4 20 2d 2d 2d 3e 20 49 6e 74 65 |t...>. ---> Inte|
00005370 67 65 72 20 69 6e 20 74 68 65 20 63 6f 6d 6d 61 |ger in the comma|
00005380 2d 73 65 70 61 72 61 74 65 64 20 6c 69 73 74 20 |-separated list |
00005390 67 69 76 65 6e 20 61 73 20 69 6e 70 75 74 2e 0d |given as input..|
000053a0 1f fe 38 f4 20 2d 2d 2d 3e 20 42 75 74 20 69 74 |..8. ---> But it|
000053b0 20 63 6f 6e 76 65 72 74 73 20 69 74 20 66 72 6f | converts it fro|
000053c0 6d 20 68 65 78 20 74 6f 20 64 65 63 69 6d 61 6c |m hex to decimal|
000053d0 20 66 69 72 73 74 21 0d 20 08 05 3a 0d 20 12 10 | first!. ..:. ..|
000053e0 ea 20 70 6f 73 6e 2c 20 6f 75 74 24 0d 20 1c 16 |. posn, out$. ..|
000053f0 70 6f 73 6e 3d a7 73 74 72 69 6e 67 24 2c 22 2c |posn=.string$,",|
00005400 22 29 0d 20 26 0e e7 20 70 6f 73 6e 3d 30 20 8c |"). &.. posn=0 .|
00005410 0d 20 30 12 6f 75 74 24 20 3d 20 73 74 72 69 6e |. 0.out$ = strin|
00005420 67 24 0d 20 3a 05 cc 0d 20 44 1b 6f 75 74 24 20 |g$. :... D.out$ |
00005430 3d 20 c0 73 74 72 69 6e 67 24 2c 70 6f 73 6e 2d |= .string$,posn-|
00005440 31 29 0d 20 4e 05 cd 0d 20 58 05 3a 0d 20 62 1f |1). N... X.:. b.|
00005450 f4 20 63 6f 6e 76 65 72 74 20 6f 75 74 24 20 69 |. convert out$ i|
00005460 6e 74 6f 20 64 65 63 69 6d 61 6c 0d 20 6c 10 3d |nto decimal. l.=|
00005470 a0 28 22 26 22 2b 6f 75 74 24 29 0d 20 76 05 3a |.("&"+out$). v.:|
00005480 0d 20 80 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |. .C************|
00005490 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000054c0 2a 2a 2a 0d 20 8a 43 2a 2a 2a 2a 2a 2a 2a 2a 2a |***. .C*********|
000054d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005500 2a 2a 2a 2a 2a 2a 0d 20 94 05 3a 0d 20 9e 14 dd |******. ..:. ...|
00005510 20 a4 72 65 73 74 28 73 74 72 69 6e 67 24 29 0d | .rest(string$).|
00005520 20 a8 44 f4 20 2d 2d 2d 3e 20 4c 69 6b 65 20 74 | .D. ---> Like t|
00005530 68 65 20 4c 49 53 50 20 66 75 6e 63 74 69 6f 6e |he LISP function|
00005540 20 28 43 44 52 20 2e 2e 2e 29 2c 20 46 4e 72 65 | (CDR ...), FNre|
00005550 73 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 72 |st returns the r|
00005560 65 73 74 0d 20 b2 4a f4 20 2d 2d 2d 3e 20 6f 66 |est. .J. ---> of|
00005570 20 74 68 65 20 63 6f 6d 6d 61 2d 73 65 70 61 72 | the comma-separ|
00005580 61 74 65 64 20 6c 69 73 74 20 67 69 76 65 6e 20 |ated list given |
00005590 61 73 20 69 6e 70 75 74 20 28 49 2e 45 2e 20 65 |as input (I.E. e|
000055a0 76 65 72 79 74 68 69 6e 67 20 62 75 74 0d 20 bc |verything but. .|
000055b0 31 f4 20 2d 2d 2d 3e 20 74 68 65 20 66 69 72 73 |1. ---> the firs|
000055c0 74 20 65 6c 65 6d 65 6e 74 20 61 6e 64 20 66 6f |t element and fo|
000055d0 6c 6c 6f 77 69 6e 67 20 63 6f 6d 6d 61 2e 0d 20 |llowing comma.. |
000055e0 c6 05 3a 0d 20 d0 0a ea 20 70 6f 73 6e 0d 20 da |..:. ... posn. .|
000055f0 16 70 6f 73 6e 3d a7 73 74 72 69 6e 67 24 2c 22 |.posn=.string$,"|
00005600 2c 22 29 0d 20 e4 0e e7 20 70 6f 73 6e 3d 30 20 |,"). ... posn=0 |
00005610 8c 0d 20 ee 07 3d 22 22 0d 20 f8 05 cc 0d 21 02 |.. ..="". ....!.|
00005620 1c 73 74 72 69 6e 67 24 3d c1 73 74 72 69 6e 67 |.string$=.string|
00005630 24 2c 70 6f 73 6e 2b 31 29 0d 21 0c 1b f2 73 74 |$,posn+1).!...st|
00005640 72 69 70 5f 6c 65 61 64 69 6e 67 28 73 74 72 69 |rip_leading(stri|
00005650 6e 67 24 29 0d 21 16 0c 3d 73 74 72 69 6e 67 24 |ng$).!..=string$|
00005660 0d 21 20 05 cd 0d 21 2a 05 3a 0d 21 34 43 2a 2a |.! ...!*.:.!4C**|
00005670 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000056a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 21 3e |*************.!>|
000056b0 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |C***************|
000056c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000056f0 0d 21 48 05 3a 0d 21 52 1b dd 20 a4 73 74 72 69 |.!H.:.!R.. .stri|
00005700 70 5f 63 6f 6d 6d 61 28 73 74 72 69 6e 67 24 29 |p_comma(string$)|
00005710 0d 21 5c 2d f4 20 2d 2d 2d 3e 20 52 65 70 6c 61 |.!\-. ---> Repla|
00005720 63 65 20 61 6c 6c 20 27 2c 27 73 20 62 79 20 27 |ce all ','s by '|
00005730 20 27 20 69 6e 20 73 74 72 69 6e 67 2e 0d 21 66 | ' in string..!f|
00005740 05 3a 0d 21 70 10 ea 20 6f 75 74 24 2c 20 6c 6f |.:.!p.. out$, lo|
00005750 6f 70 0d 21 7a 0b 6f 75 74 24 3d 22 22 0d 21 84 |op.!z.out$="".!.|
00005760 05 3a 0d 21 8e 19 e3 20 6c 6f 6f 70 20 3d 20 31 |.:.!... loop = 1|
00005770 20 b8 20 a9 73 74 72 69 6e 67 24 0d 21 98 3f e7 | . .string$.!.?.|
00005780 20 c1 73 74 72 69 6e 67 24 2c 6c 6f 6f 70 2c 31 | .string$,loop,1|
00005790 29 3d 22 2c 22 20 8c 20 6f 75 74 24 2b 3d 22 20 |)="," . out$+=" |
000057a0 22 20 8b 20 6f 75 74 24 2b 3d c1 73 74 72 69 6e |" . out$+=.strin|
000057b0 67 24 2c 6c 6f 6f 70 2c 31 29 0d 21 a2 05 ed 0d |g$,loop,1).!....|
000057c0 21 ac 17 3d a4 74 69 64 79 5f 73 74 72 69 6e 67 |!..=.tidy_string|
000057d0 28 6f 75 74 24 29 0d 21 b6 05 3a 0d 21 c0 43 2a |(out$).!..:.!.C*|
000057e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005810 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 21 |**************.!|
00005820 ca 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.C**************|
00005830 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005860 2a 0d 21 d4 05 3a 0d 21 de 1b dd 20 a4 74 69 64 |*.!..:.!... .tid|
00005870 79 5f 73 74 72 69 6e 67 28 73 74 72 69 6e 67 24 |y_string(string$|
00005880 29 0d 21 e8 3c f4 20 2d 2d 2d 3e 20 45 6e 73 75 |).!.<. ---> Ensu|
00005890 72 65 20 74 68 61 74 20 73 74 72 69 6e 67 24 20 |re that string$ |
000058a0 69 73 20 69 6e 20 74 68 65 20 70 72 65 66 65 72 |is in the prefer|
000058b0 72 65 64 20 66 6f 72 6d 61 74 2e 2e 2e 0d 21 f2 |red format....!.|
000058c0 41 f4 20 2d 2d 2d 3e 20 4e 4f 20 6c 65 61 64 69 |A. ---> NO leadi|
000058d0 6e 67 20 4f 52 20 54 52 41 49 4c 49 4e 47 20 73 |ng OR TRAILING s|
000058e0 70 61 63 65 73 2c 20 61 6e 64 20 6f 6e 6c 79 20 |paces, and only |
000058f0 61 20 73 69 6e 67 6c 65 20 73 70 61 63 65 0d 21 |a single space.!|
00005900 fc 44 f4 20 2d 2d 2d 3e 20 62 65 74 77 65 65 6e |.D. ---> between|
00005910 20 63 6f 6e 73 74 69 74 75 65 6e 74 73 2e 20 54 | constituents. T|
00005920 68 69 73 20 69 73 20 76 69 74 61 6c 2c 20 62 65 |his is vital, be|
00005930 63 61 75 73 65 20 61 6e 20 69 6e 70 75 74 20 48 |cause an input H|
00005940 45 58 0d 22 06 1f f4 20 2d 2d 2d 3e 20 66 69 6c |EX."... ---> fil|
00005950 65 20 69 73 20 66 72 65 65 2d 66 6f 72 6d 61 74 |e is free-format|
00005960 2e 0d 22 10 05 3a 0d 22 1a 18 ea 20 6f 75 74 24 |.."..:."... out$|
00005970 2c 20 61 6c 6c 6f 77 73 70 2c 20 63 68 24 0d 22 |, allowsp, ch$."|
00005980 24 1b f2 73 74 72 69 70 5f 6c 65 61 64 69 6e 67 |$..strip_leading|
00005990 28 73 74 72 69 6e 67 24 29 0d 22 2e 05 3a 0d 22 |(string$)."..:."|
000059a0 38 1d f4 20 4e 6f 77 20 66 6f 72 20 74 68 65 20 |8.. Now for the |
000059b0 68 61 72 64 20 62 69 74 2e 2e 2e 0d 22 42 0b 6f |hard bit...."B.o|
000059c0 75 74 24 3d 22 22 0d 22 4c 0d 61 6c 6c 6f 77 73 |ut$=""."L.allows|
000059d0 70 3d a3 0d 22 56 05 3a 0d 22 60 19 e3 20 6c 6f |p=.."V.:."`.. lo|
000059e0 6f 70 20 3d 20 31 20 b8 20 a9 73 74 72 69 6e 67 |op = 1 . .string|
000059f0 24 0d 22 6a 18 63 68 24 3d c1 73 74 72 69 6e 67 |$."j.ch$=.string|
00005a00 24 2c 6c 6f 6f 70 2c 31 29 0d 22 74 0f e7 20 63 |$,loop,1)."t.. c|
00005a10 68 24 3d 22 20 22 20 8c 0d 22 7e 0f e7 20 61 6c |h$=" " .."~.. al|
00005a20 6c 6f 77 73 70 20 8c 0d 22 88 0d 6f 75 74 24 2b |lowsp .."..out$+|
00005a30 3d 22 20 22 0d 22 92 0d 61 6c 6c 6f 77 73 70 3d |=" "."..allowsp=|
00005a40 a3 0d 22 9c 05 cd 0d 22 a6 05 cc 0d 22 b0 0d 6f |.."...."...."..o|
00005a50 75 74 24 2b 3d 63 68 24 0d 22 ba 0d 61 6c 6c 6f |ut$+=ch$."..allo|
00005a60 77 73 70 3d b9 0d 22 c4 05 cd 0d 22 ce 05 ed 0d |wsp=.."...."....|
00005a70 22 d8 05 3a 0d 22 e2 45 f4 20 4e 6f 77 2c 20 74 |"..:.".E. Now, t|
00005a80 68 65 72 65 20 69 73 20 6f 6e 6c 79 20 31 20 73 |here is only 1 s|
00005a90 70 61 63 65 20 62 65 74 77 65 65 6e 20 65 6c 65 |pace between ele|
00005aa0 6d 65 6e 74 73 2c 20 62 75 74 20 74 68 65 72 65 |ments, but there|
00005ab0 20 6d 61 79 20 62 65 20 61 0d 22 ec 27 f4 20 53 | may be a.".'. S|
00005ac0 69 6e 67 6c 65 20 74 72 61 69 6c 69 6e 67 20 73 |ingle trailing s|
00005ad0 70 61 63 65 2e 20 72 65 6d 6f 76 65 20 69 74 2e |pace. remove it.|
00005ae0 0d 22 f6 20 e7 20 c2 6f 75 74 24 29 20 3d 20 22 |.". . .out$) = "|
00005af0 20 22 20 8c 20 6f 75 74 24 3d c0 6f 75 74 24 29 | " . out$=.out$)|
00005b00 0d 23 00 09 3d 6f 75 74 24 0d 23 0a 05 3a 0d 23 |.#..=out$.#..:.#|
00005b10 14 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.C**************|
00005b20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005b50 2a 0d 23 1e 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |*.#.C***********|
00005b60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005b90 2a 2a 2a 2a 0d 23 28 05 3a 0d 23 32 1c dd 20 f2 |****.#(.:.#2.. .|
00005ba0 70 72 6f 63 65 73 73 5f 63 6f 6e 66 69 67 28 6c |process_config(l|
00005bb0 69 6e 65 24 29 0d 23 3c 42 f4 20 2d 2d 2d 3e 20 |ine$).#<B. ---> |
00005bc0 54 61 6b 65 73 20 61 73 20 69 6e 70 75 74 20 74 |Takes as input t|
00005bd0 68 65 20 6c 69 6e 65 20 6f 66 20 36 20 63 6f 6e |he line of 6 con|
00005be0 66 69 67 75 72 61 74 69 6f 6e 20 6f 70 74 69 6f |figuration optio|
00005bf0 6e 73 2c 20 61 6e 64 0d 23 46 31 f4 20 2d 2d 2d |ns, and.#F1. ---|
00005c00 3e 20 70 6c 61 63 65 73 20 74 68 65 20 76 61 6c |> places the val|
00005c10 75 65 73 20 6f 62 74 61 69 6e 65 64 20 69 6e 20 |ues obtained in |
00005c20 63 6f 6e 66 69 67 28 29 0d 23 50 05 3a 0d 23 5a |config().#P.:.#Z|
00005c30 0a ea 20 6c 6f 6f 70 0d 23 64 12 e3 20 6c 6f 6f |.. loop.#d.. loo|
00005c40 70 20 3d 20 31 20 b8 20 36 0d 23 6e 20 63 6f 6e |p = 1 . 6.#n con|
00005c50 66 69 67 28 6c 6f 6f 70 29 20 3d 20 a4 66 69 72 |fig(loop) = .fir|
00005c60 73 74 28 6c 69 6e 65 24 29 0d 23 78 16 6c 69 6e |st(line$).#x.lin|
00005c70 65 24 3d a4 72 65 73 74 28 6c 69 6e 65 24 29 0d |e$=.rest(line$).|
00005c80 23 82 05 ed 0d 23 8c 05 e1 0d 23 96 05 3a 0d 23 |#....#....#..:.#|
00005c90 a0 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.C**************|
00005ca0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005cd0 2a 0d 23 aa 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |*.#.C***********|
00005ce0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005d10 2a 2a 2a 2a 0d 23 b4 05 3a 0d 23 be 14 dd 20 f2 |****.#..:.#... .|
00005d20 63 68 61 69 6e 28 65 73 63 61 70 65 29 0d 23 c8 |chain(escape).#.|
00005d30 38 f4 20 2d 2d 2d 3e 20 43 68 61 69 6e 73 20 65 |8. ---> Chains e|
00005d40 78 65 63 75 74 69 6f 6e 20 74 6f 20 74 68 65 20 |xecution to the |
00005d50 22 31 73 74 49 6e 73 74 61 6c 6c 22 20 70 72 6f |"1stInstall" pro|
00005d60 67 72 61 6d 2e 0d 23 d2 05 3a 0d 23 dc 10 ea 20 |gram..#..:.#... |
00005d70 65 78 74 2c 20 66 6f 75 6e 64 0d 23 e6 10 e7 20 |ext, found.#... |
00005d80 ac 20 65 73 63 61 70 65 20 8c 0d 23 f0 31 f2 66 |. escape ..#.1.f|
00005d90 69 6e 64 5f 66 69 6c 65 28 22 25 2e 31 73 74 49 |ind_file("%.1stI|
00005da0 6e 73 74 61 6c 6c 22 2c 20 65 78 74 2c 20 66 6f |nstall", ext, fo|
00005db0 75 6e 64 2c 20 65 72 72 6f 72 29 0d 23 fa 13 e7 |und, error).#...|
00005dc0 20 65 72 72 6f 72 20 8c 20 e5 8d 74 50 64 0d 24 | error . ..tPd.$|
00005dd0 04 06 fb 36 0d 24 0e 0d e7 20 66 6f 75 6e 64 20 |...6.$... found |
00005de0 8c 0d 24 18 05 db 0d 24 22 2f f1 8a 30 2c 35 29 |..$....$"/..0,5)|
00005df0 3b 22 44 6f 20 79 6f 75 20 77 61 6e 74 20 74 6f |;"Do you want to|
00005e00 20 72 75 6e 20 22 22 31 73 74 49 6e 73 74 61 6c | run ""1stInstal|
00005e10 6c 22 22 22 3b 0d 24 2c 24 e7 20 a4 79 65 73 5f |l""";.$,$. .yes_|
00005e20 6e 6f 20 8c 20 ff 20 22 52 55 4e 20 25 2e 31 73 |no . . "RUN %.1s|
00005e30 74 49 6e 73 74 61 6c 6c 22 0d 24 36 05 cc 0d 24 |tInstall".$6...$|
00005e40 40 05 db 0d 24 4a 42 f1 8a 30 2c 35 29 3b 22 54 |@...$JB..0,5);"T|
00005e50 6f 20 69 6e 73 74 61 6c 6c 20 79 6f 75 72 20 6e |o install your n|
00005e60 65 77 20 70 72 69 6e 74 65 72 20 64 72 69 76 65 |ew printer drive|
00005e70 72 2c 20 79 6f 75 20 6d 75 73 74 20 72 75 6e 20 |r, you must run |
00005e80 74 68 65 20 22 0d 24 54 49 f1 22 50 72 69 6e 74 |the ".$TI."Print|
00005e90 65 72 20 64 72 69 76 65 72 20 69 6e 73 74 61 6c |er driver instal|
00005ea0 6c 61 74 69 6f 6e 20 70 72 6f 67 72 61 6d 2c 20 |lation program, |
00005eb0 22 22 31 73 74 49 6e 73 74 61 6c 6c 22 22 2e 20 |""1stInstall"". |
00005ec0 48 6f 77 65 76 65 72 2c 20 74 68 69 73 22 0d 24 |However, this".$|
00005ed0 5e 40 f1 22 50 72 6f 67 72 61 6d 20 69 73 20 6e |^@."Program is n|
00005ee0 6f 74 20 70 72 65 73 65 6e 74 20 69 6e 20 74 68 |ot present in th|
00005ef0 65 20 63 75 72 72 65 6e 74 20 6c 69 62 72 61 72 |e current librar|
00005f00 79 20 64 69 72 65 63 74 6f 72 79 2e 22 27 0d 24 |y directory."'.$|
00005f10 68 46 f1 22 43 6f 6e 73 75 6c 74 20 79 6f 75 72 |hF."Consult your|
00005f20 20 31 73 74 20 57 6f 72 64 20 50 6c 75 73 20 6d | 1st Word Plus m|
00005f30 61 6e 75 61 6c 20 66 6f 72 20 64 65 74 61 69 6c |anual for detail|
00005f40 73 20 6f 66 20 68 6f 77 20 74 6f 20 72 75 6e 20 |s of how to run |
00005f50 69 74 2e 22 0d 24 72 05 cd 0d 24 7c 13 cd 20 3a |it.".$r...$|.. :|
00005f60 f4 20 6e 6f 74 20 65 73 63 61 70 65 0d 24 86 05 |. not escape.$..|
00005f70 3a 0d 24 90 06 fb 36 0d 24 9a 2f f1 27 27 22 44 |:.$...6.$./.''"D|
00005f80 6f 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 72 75 |o you want to ru|
00005f90 6e 20 74 68 69 73 20 70 72 6f 67 72 61 6d 20 61 |n this program a|
00005fa0 67 61 69 6e 22 3b 0d 24 a4 11 e7 20 a4 79 65 73 |gain";.$... .yes|
00005fb0 5f 6e 6f 20 8c 20 f9 0d 24 ae 06 fb 37 0d 24 b8 |_no . ..$...7.$.|
00005fc0 05 db 0d 24 c2 18 f1 22 50 72 6f 67 72 61 6d 20 |...$..."Program |
00005fd0 66 69 6e 69 73 68 65 64 2e 22 0d 24 cc 10 ef 20 |finished.".$... |
00005fe0 32 36 2c 33 31 2c 30 2c 32 30 0d 24 d6 22 2a 53 |26,31,0,20.$."*S|
00005ff0 65 74 20 46 69 6c 65 24 50 61 74 68 20 3c 4f 72 |et File$Path <Or|
00006000 69 67 24 46 69 6c 65 50 61 74 68 3e 0d 24 e0 18 |ig$FilePath>.$..|
00006010 2a 55 6e 73 65 74 20 4f 72 69 67 24 46 69 6c 65 |*Unset Orig$File|
00006020 50 61 74 68 0d 24 ea 05 e1 0d 24 f4 05 3a 0d 24 |Path.$....$..:.$|
00006030 fe 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.C**************|
00006040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00006070 2a 0d 25 08 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |*.%.C***********|
00006080 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000060b0 2a 2a 2a 2a 0d 25 12 05 3a 0d 25 1c 1d dd 20 f2 |****.%..:.%... .|
000060c0 67 65 74 63 6f 64 65 28 63 6f 64 65 25 2c 70 72 |getcode(code%,pr|
000060d0 6f 6d 70 74 24 29 0d 25 26 40 f4 20 2d 2d 2d 3e |ompt$).%&@. --->|
000060e0 20 67 65 74 73 20 61 20 73 74 72 69 6e 67 20 66 | gets a string f|
000060f0 72 6f 6d 20 74 68 65 20 75 73 65 72 20 76 61 6c |rom the user val|
00006100 69 64 61 74 65 64 20 6f 6e 6c 79 20 74 6f 20 63 |idated only to c|
00006110 6f 6e 74 61 69 6e 0d 25 30 3a f4 20 2d 2d 2d 3e |ontain.%0:. --->|
00006120 20 22 20 22 2c 20 22 30 22 2d 22 39 22 20 41 4e | " ", "0"-"9" AN|
00006130 44 20 22 41 22 2d 22 46 22 20 28 69 66 20 68 65 |D "A"-"F" (if he|
00006140 78 20 77 61 73 20 73 65 6c 65 63 74 65 64 29 2e |x was selected).|
00006150 0d 25 3a 34 f4 20 2d 2d 2d 3e 20 6c 65 61 64 69 |.%:4. ---> leadi|
00006160 6e 67 20 61 6e 64 20 6d 75 6c 74 69 70 6c 65 20 |ng and multiple |
00006170 73 70 61 63 65 73 20 61 72 65 20 73 74 72 69 70 |spaces are strip|
00006180 70 65 64 2e 0d 25 44 37 f4 20 2d 2d 2d 3e 20 41 |ped..%D7. ---> A|
00006190 6c 73 6f 2c 20 41 53 43 49 49 20 63 68 61 72 61 |lso, ASCII chara|
000061a0 63 74 65 72 73 20 77 69 74 68 69 6e 20 73 69 6e |cters within sin|
000061b0 67 6c 65 20 71 75 6f 74 65 73 2e 0d 25 4e 0a f4 |gle quotes..%N..|
000061c0 20 2d 2d 2d 3e 0d 25 58 3d f4 20 2d 2d 2d 3e 20 | --->.%X=. ---> |
000061d0 49 66 20 63 6f 64 65 25 20 69 73 20 2d 31 20 6f |If code% is -1 o|
000061e0 6e 20 65 6e 74 72 79 2c 20 74 72 65 61 74 20 74 |n entry, treat t|
000061f0 68 69 73 20 61 73 20 61 20 63 68 61 72 61 63 74 |his as a charact|
00006200 65 72 0d 25 62 44 f4 20 2d 2d 2d 3e 20 72 65 74 |er.%bD. ---> ret|
00006210 72 61 6e 73 6c 61 74 69 6f 6e 20 73 74 72 69 6e |ranslation strin|
00006220 67 2c 20 61 6e 64 20 70 72 6f 6d 70 74 20 61 63 |g, and prompt ac|
00006230 63 6f 72 64 69 6e 67 6c 79 2c 20 73 74 6f 72 69 |cordingly, stori|
00006240 6e 67 20 74 68 65 0d 25 6c 1f f4 20 2d 2d 2d 3e |ng the.%l.. --->|
00006250 20 72 65 73 75 6c 74 20 69 6e 20 63 6f 64 65 28 | result in code(|
00006260 26 33 34 29 2e 0d 25 76 05 3a 0d 25 80 32 ea 20 |&34)..%v.:.%.2. |
00006270 63 68 24 2c 20 61 5f 73 74 72 69 6e 67 24 2c 20 |ch$, a_string$, |
00006280 73 74 72 69 6e 67 24 2c 20 6c 61 73 74 73 70 61 |string$, lastspa|
00006290 63 65 2c 20 64 65 66 61 75 6c 74 24 0d 25 8a 10 |ce, default$.%..|
000062a0 f4 20 50 72 6f 6d 70 74 69 6e 67 2e 0d 25 94 06 |. Prompting..%..|
000062b0 fb 36 0d 25 9e 08 40 25 3d 30 0d 25 a8 20 e7 20 |.6.%..@%=0.%. . |
000062c0 63 6f 64 65 25 3c 26 31 30 20 80 20 63 6f 64 65 |code%<&10 . code|
000062d0 25 3e 3d 30 20 f1 22 20 22 3b 0d 25 b2 2b e7 20 |%>=0 ." ";.%.+. |
000062e0 63 6f 64 65 25 3e 3d 30 20 f1 20 7e 63 6f 64 65 |code%>=0 . ~code|
000062f0 25 3b 20 22 20 2d 20 22 3b 20 8b 20 63 6f 64 65 |%; " - "; . code|
00006300 25 3d 26 33 34 0d 25 bc 19 64 65 66 61 75 6c 74 |%=&34.%..default|
00006310 24 3d 63 68 61 72 24 28 63 6f 64 65 25 29 0d 25 |$=char$(code%).%|
00006320 c6 05 3a 0d 25 d0 15 f1 20 70 72 6f 6d 70 74 24 |..:.%... prompt$|
00006330 3b 8a 34 30 2c bc 29 3b 0d 25 da 06 fb 31 0d 25 |;.40,.);.%...1.%|
00006340 e4 0d f1 22 3d 3d 3d 3e 20 22 3b 0d 25 ee 1b 63 |..."===> ";.%..c|
00006350 68 61 72 6c 69 73 74 24 3d 22 30 31 32 33 34 35 |harlist$="012345|
00006360 36 37 38 39 50 22 0d 25 f8 25 e7 20 68 65 78 20 |6789P".%.%. hex |
00006370 8c 20 63 68 61 72 6c 69 73 74 24 2b 3d 22 41 42 |. charlist$+="AB|
00006380 43 44 45 46 61 62 63 64 65 66 22 0d 26 02 06 fb |CDEFabcdef".&...|
00006390 32 0d 26 0c 1d f1 64 65 66 61 75 6c 74 24 3b c4 |2.&...default$;.|
000063a0 a9 64 65 66 61 75 6c 74 24 2c bd 38 29 3b 0d 26 |.default$,.8);.&|
000063b0 16 06 fb 33 0d 26 20 0e 66 69 6e 69 73 68 65 64 |...3.& .finished|
000063c0 3d a3 0d 26 2a 0d 66 69 72 73 74 63 68 3d b9 0d |=..&*.firstch=..|
000063d0 26 34 0d 61 6c 6c 6f 77 73 70 3d a3 0d 26 3e 0e |&4.allowsp=..&>.|
000063e0 73 74 72 69 6e 67 24 3d 22 22 0d 26 48 12 68 6f |string$="".&H.ho|
000063f0 72 69 7a 3d b1 3a 76 65 72 74 3d bc 0d 26 52 05 |riz=.:vert=..&R.|
00006400 3a 0d 26 5c 05 f5 0d 26 66 08 63 68 3d a5 0d 26 |:.&\...&f.ch=..&|
00006410 70 28 e7 20 a9 28 73 74 72 69 6e 67 24 29 20 3d |p(. .(string$) =|
00006420 20 30 20 80 20 63 68 3d 31 33 20 80 20 66 69 72 | 0 . ch=13 . fir|
00006430 73 74 63 68 20 8c 0d 26 7a 1f 73 74 72 69 6e 67 |stch ..&z.string|
00006440 24 3d 64 65 66 61 75 6c 74 24 3a 66 69 6e 69 73 |$=default$:finis|
00006450 68 65 64 3d b9 0d 26 84 05 cc 0d 26 8e 28 e7 20 |hed=..&....&.(. |
00006460 a9 28 73 74 72 69 6e 67 24 29 20 3d 20 30 20 80 |.(string$) = 0 .|
00006470 20 28 63 68 3d 31 32 37 20 84 20 63 68 3d 38 29 | (ch=127 . ch=8)|
00006480 20 8c 0d 26 98 07 ef 20 37 0d 26 a2 05 cc 0d 26 | ..&... 7.&....&|
00006490 ac 27 e7 20 66 69 72 73 74 63 68 20 8c 20 f1 c4 |.'. firstch . ..|
000064a0 33 30 2c 22 20 22 29 3b 8a 68 6f 72 69 7a 2c 76 |30," ");.horiz,v|
000064b0 65 72 74 29 3b 0d 26 b6 05 3a 0d 26 c0 1b e7 20 |ert);.&..:.&... |
000064c0 63 68 3d 97 22 27 22 20 80 20 ac 20 61 6c 6c 6f |ch=."'" . . allo|
000064d0 77 73 70 20 8c 0d 26 ca 23 f4 20 4f 4b 2d 2d 20 |wsp ..&.#. OK-- |
000064e0 74 68 69 73 20 69 73 20 74 68 65 20 66 75 6e 6e |this is the funn|
000064f0 79 20 73 74 75 66 66 2e 0d 26 d4 09 f1 22 27 22 |y stuff..&..."'"|
00006500 3b 0d 26 de 09 63 68 24 3d be 0d 26 e8 0b e7 20 |;.&..ch$=..&... |
00006510 68 65 78 20 8c 0d 26 f2 15 73 74 72 69 6e 67 24 |hex ..&..string$|
00006520 2b 3d c3 7e 28 97 63 68 24 29 0d 26 fc 14 f1 20 |+=.~(.ch$).&... |
00006530 bd 31 32 37 3b c3 7e 28 97 63 68 24 29 3b 0d 27 |.127;.~(.ch$);.'|
00006540 06 05 cc 0d 27 10 14 73 74 72 69 6e 67 24 2b 3d |....'..string$+=|
00006550 c3 28 97 63 68 24 29 0d 27 1a 13 f1 20 bd 31 32 |.(.ch$).'... .12|
00006560 37 3b c3 28 97 63 68 24 29 3b 0d 27 24 05 cd 0d |7;.(.ch$);.'$...|
00006570 27 2e 25 26 43 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |'.%&C***********|
00006580 2a 2a 2a 2a 2a 2a 44 f4 20 78 74 f0 31 28 22 43 |******D. xt.1("C|
00006590 6f 22 43 6f 22 22 9c 22 9c 22 3a 65 7d 28 73 74 |o"Co"".".":e}(st|
000065a0 72 69 6d 65 6d 8d 74 20 8c 20 ff 6f 75 6e 3d 8e |rimem.t . .oun=.|
000065b0 77 61 6e ea 46 ea 46 ea 2e 2e 77 ea 9c 13 2e 0d |wan.F.F...w.....|
000065c0 24 ae 29 0d 23 c8 29 0d 23 c8 29 f4 20 65 6d f8 |$.).#.).#.). em.|
000065d0 20 66 2e 22 c0 43 25 2e 25 2e 25 20 f4 77 65 65 | f.".C%.%.% .wee|
000065e0 72 65 74 75 ea 20 66 22 62 65 4c 69 6f 69 6f 69 |retu. f"beLioioi|
000065f0 65 28 61 6d 61 2d 6d 61 2d 6d 2c 50 6d 36 31 20 |e(ama-ma-m,Pm61 |
00006600 6a 18 20 61 6c 6c 20 61 6c 6c 20 34 0d 61 34 0d |j. all all 4.a4.|
00006610 61 34 e7 20 66 69 72 06 06 6c 6c 22 20 74 6f 20 |a4. fir..ll" to |
00006620 74 61 64 62 65 74 3a f4 0d 1d 88 6a 18 20 6a 18 |tadbet:....j. j.|
00006630 20 6a 78 78 78 22 31 6c 6f 6f 6c 6f 6f 6c a9 64 | jxxx"1loolool.d|
00006640 20 6c 26 2e 31 57 32 a9 63 6f 6d 6d 32 37 6e 20 | l&.1W2.comm27n |
00006650 73 20 74 68 65 20 72 69 70 73 36 f4 78 78 78 78 |s the rips6.xxxx|
00006660 78 0d 6f 05 3a 0d 23 be 42 14 f5 0d 75 6e 20 69 |x.o.:.#.B...un i|
00006670 2e 22 22 2c 20 69 67 24 69 67 24 69 67 05 3a 0d |."", ig$ig$ig.:.|
00006680 20 80 05 3a 0d 20 80 05 57 50 2e 30 29 05 0d 21 | ..:. ..WP.0)..!|
00006690 a2 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.***************|
000066a0 2a 2a 2a 0d 14 dd 20 43 61 6e 20 43 61 6e 20 72 |***... Can Can r|
000066b0 72 6f 4d 4d 4d 52 55 20 64 65 3d 20 66 69 6e 64 |roMMMRU de= find|
000066c0 3d f4 20 e7 20 77 65 65 72 55 43 49 22 20 8b 22 |=. . weerUCI" ."|
000066d0 20 8b 22 31 20 b8 61 70 6e 67 2c 6e 67 2c 6e 61 | ."1 .apng,ng,na|
000066e0 73 20 05 3a 0d 22 2d 2d 3e 20 66 6f 75 00 00 00 |s .:."--> fou...|
000066f0 00 73 74 72 69 6e 67 24 0d 05 00 29 0d 1e 82 65 |.string$...)...e|
00006700 29 75 74 24 3d 20 74 68 65 20 75 27 10 00 00 f2 |)ut$= the u'....|
00006710 66 f2 66 f2 0c 05 f2 63 6f 72 75 70 6e 29 00 00 |f.f....corupn)..|
00006720 00 00 70 10 d8 1b 24 2c 6c 79 6f 75 20 6c 6f 77 |..p...$,lyou low|
00006730 73 70 05 3a 0d 21 8e d4 1c 20 6f 75 72 61 6d 63 |sp.:.!... ouramc|
00006740 68 67 75 6f 75 20 24 3d c1 67 75 3b 0d 3b 0d 3b |hguou $=.gu;.;.;|
00006750 20 6d 75 50 2e 4f 72 2a 2a 24 5e 24 5e 24 69 70 | muP.Or**$^$^$ip|
00006760 5f 6c 70 6c 65 6c 65 25 2c 30 3b 0d 3b 6c 65 20 |_lplele%,0;.;le |
00006770 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00006790 2a 2a 4f 72 2a 6e 6f 20 6f 6d 6d 61 2e 6f 6d 6d |**Or*no omma.omm|
000067a0 61 2e 6f 96 44 52 0d 24 d6 53 74 3d 22 6c 6e 73 |a.o.DR.$.St="lns|
000067b0 6c 2b 3d 22 20 77 61 67 20 21 34 21 34 21 9e 20 |l+=" wag !4!4!. |
000067c0 27 20 27 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |' ' ************|
000067d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 72 6d 0d 24 |************rm.$|
000067e0 54 ea 05 63 61 70 65 73 74 72 69 70 70 73 74 72 |T..capestrippstr|
000067f0 69 70 70 73 18 c8 73 5f 00 00 00 00 00 00 6f 70 |ipps..s_......op|
00006800 20 3d c1 00 ea 20 66 61 72 a4 67 3e 0d 73 6e 3d | =... far.g>.sn=|
00006810 1e 00 66 69 6e 66 69 6e 66 0c 05 66 1f 72 63 0c |..finfinf..f.rc.|
00006820 6e 65 20 31 00 00 00 00 70 10 d8 1b 24 2c 6c 79 |ne 1....p...$,ly|
00006830 6f 75 20 6c 6f 77 73 70 05 3a 0d 21 8e d4 1c 20 |ou lowsp.:.!... |
00006840 6f 75 72 61 6d 63 68 6f 77 20 6b 20 34 6f 75 20 |ouramchow k 4ou |
00006850 77 29 f4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |w).*************|
00006860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00006870 2a 2a 2a 2a 2a 2a 66 69 67 28 62 e7 6c 69 64 3c |******fig(b.lid<|
00006880 72 69 6e 67 24 e4 69 6f 6e 20 67 75 6f 75 20 20 |ring$.ion guou |
00006890 2d 06 fb 36 0d 25 74 20 74 74 20 74 74 ea 20 66 |-..6.%t tt tt. f|
000068a0 61 6e 0d 25 44 f4 20 2d 9e 20 2a 43 2a 43 2a b8 |an.%D. -. *C*C*.|
000068b0 05 6f 75 20 47 20 a4 4c 69 4c 69 4c b0 0d 2b 3d |.ou G .LiLiL..+=|
000068c0 ea 20 66 22 21 34 70 6c 65 70 6c 65 70 38 f4 20 |. f"!4pleplep8. |
000068d0 4c 69 4c 3c 3e 30 70 72 6f 70 72 6f 70 3e f4 72 |LiL<>0proprop>.r|
000068e0 72 6f 72 72 6f 72 6c 6e 96 61 74 69 6f 44 f4 20 |rorrorln.atioD. |
000068f0 2d 9e 22 20 22 62 79 6c 6e 73 6c 6e 73 6c 6e 20 |-." "bylnslnsln |
00006900 73 65 6d f8 26 34 26 34 26 77 61 67 f1 22 27 f1 |sem.&4&4&wag."'.|
00006910 22 27 f1 75 6e 4c 69 4c 3c a0 06 fb 33 00 00 aa |"'.unLiL<...3...|
00006920 0e 66 69 6e 69 73 68 65 64 3d a3 0d 28 b4 75 6e |.finished=..(.un|
00006930 20 69 2e 72 73 74 63 68 3d b9 0d 28 be 0e 73 74 | i.rstch=..(..st|
00006940 72 69 6e 67 24 3d 22 22 0d 28 c8 12 68 1f 72 63 |ring$="".(..h.rc|
00006950 1f 3d b1 3a 76 65 72 74 3d bc 00 00 d2 05 00 00 |.=.:vert=.......|
00006960 dc 05 f5 00 00 e6 08 63 68 3d a5 0d 28 f0 ea 20 |.......ch=..(.. |
00006970 66 61 6e fa 1e e7 20 a9 28 73 74 72 69 6e 67 24 |fan... .(string$|
00006980 29 20 3d 20 30 20 80 20 63 68 3d 31 33 20 8c 0d |) = 0 . ch=13 ..|
00006990 29 04 1c f4 20 65 6d 70 74 79 20 73 74 72 69 6e |)... empty strin|
000069a0 67 20 2d 20 64 65 66 61 75 6c 74 0d 29 0e 1f 73 |g - default.)..s|
000069b0 74 72 69 6e 67 24 3d 6e 73 6c 6e 3a 66 69 6e 69 |tring$=nsln:fini|
000069c0 73 68 65 64 3d b9 0d 29 18 05 cc 0d 29 22 20 f4 |shed=..)....)" .|
000069d0 20 6e 6f 74 05 3a 0d 21 8e d4 61 75 6c 74 20 65 | not.:.!..ault e|
000069e0 6e 74 72 79 20 2d 20 52 55 42 4f b8 05 6f 9e 0d |ntry - RUBO..o..|
000069f0 29 2c 28 e7 20 a9 28 73 74 72 69 6e 67 24 29 20 |),(. .(string$) |
00006a00 3d 20 30 20 80 20 28 63 68 3d f8 20 66 2e 84 20 |= 0 . (ch=. f.. |
00006a10 63 68 3d 38 29 20 8c 0d 29 36 07 ef 20 37 0d 29 |ch=8) ..)6.. 7.)|
00006a20 40 05 cc 0d 29 4a 31 e7 20 66 69 72 73 74 63 68 |@...)J1. firstch|
00006a30 20 8c 20 f1 c4 33 32 2c 22 20 22 29 3b 8a 20 e7 | . ..32," ");. .|
00006a40 20 77 2c 76 65 72 74 29 3b 3a 66 69 72 73 74 63 | w,vert);:firstc|
00006a50 68 3d a3 0d 29 54 05 3a 0d 29 5e 2c 3d 8e 77 25 |h=..)T.:.)^,=.w%|
00006a60 2e 25 84 20 63 68 3d f8 32 37 20 61 6c 6c 20 72 |.%. ch=.27 all r|
00006a70 69 6e 67 24 3d c0 73 74 72 69 6e 67 24 29 22 62 |ing$=.string$)"b|
00006a80 4c 69 29 68 6f 75 6e 3d 20 63 68 3d ea 46 ea 8c |Li)houn= ch=.F..|
00006a90 20 72 72 6f 4d 64 3d b9 0d 29 72 15 e7 20 a9 73 | rroMd=..)r.. .s|
00006aa0 74 72 69 6e 67 24 3d 24 2c 6c 79 25 20 8c 0d 29 |tring$=$,ly% ..)|
00006ab0 7c 06 ef 37 0d 29 86 05 cc 0d 29 90 f4 20 65 20 ||..7.)....).. e |
00006ac0 28 63 68 3e 33 31 29 20 80 20 28 63 68 3c 3e 31 |(ch>31) . (ch<>1|
00006ad0 32 37 29 20 8c 20 73 74 72 69 6e 67 24 2b 3d 72 |27) . string$+=r|
00006ae0 69 70 73 36 ef 20 63 68 0d 29 9a 05 cd 0d 29 a4 |ips6. ch.)....).|
00006af0 05 cd 0d 29 ae 05 cd 0d 29 b8 20 43 61 6e 20 20 |...)....). Can |
00006b00 66 69 6e 69 73 68 65 64 0d 29 c2 1f 3d f4 20 1f |finished.)..=. .|
00006b10 72 63 1f 2c 76 65 72 74 29 3b 73 74 72 69 6e 67 |rc.,vert);string|
00006b20 24 3b 89 28 44 f4 20 78 29 0d 29 cc 06 fb 36 0d |$;.(D. x).)...6.|
00006b30 29 d6 05 f1 0d 29 e0 0c 3d 73 74 72 69 6e 67 24 |)....)..=string$|
00006b40 0d 29 ea 05 3a 0d 29 f4 43 2a 2a 2a 2a 2a 2a 2a |.)..:.).C*******|
00006b50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00006b80 2a 2a 2a 2a 2a 2a 2a 2a 0d 29 fe 43 5f 73 75 62 |********.).C_sub|
00006b90 25 29 b0 63 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |%).c************|
00006ba0 2a 2a 2a 2a 2a 2a 2a 0d 2a 08 05 3a 0d 2a 12 0c |*******.*..:.*..|
00006bb0 dd 20 f2 69 6e 74 72 6f 0d 2a 1c 2b f4 20 2d 2d |. .intro.*.+. --|
00006bc0 2d 3e 20 50 72 6f 67 72 61 6d 20 69 6e 74 72 6f |-> Program intro|
00006bd0 64 75 63 74 69 6f 6e 20 61 6e 64 20 63 72 65 64 |duction and cred|
00006be0 69 74 73 0d 2a 26 3e f4 20 2d 2d 2d 3e 20 53 65 |its.*&>. ---> Se|
00006bf0 74 20 50 61 6c 6c 65 74 65 2c 20 64 72 61 77 20 |t Pallete, draw |
00006c00 73 63 72 65 65 6e 20 77 69 74 68 20 68 69 67 68 |screen with high|
00006c10 2d 62 69 74 2d 73 65 74 20 63 6f 6c 6f 75 72 73 |-bit-set colours|
00006c20 2e 0d 2a 30 3f f4 20 2d 2d 2d 3e 20 54 68 65 6e |..*0?. ---> Then|
00006c30 20 64 6f 20 61 20 70 61 74 74 65 72 6e 20 74 6f | do a pattern to|
00006c40 20 75 6e 73 65 74 20 74 68 65 20 68 69 67 68 20 | unset the high |
00006c50 62 69 74 73 20 5b 41 4e 44 20 25 30 31 31 31 5d |bits [AND %0111]|
00006c60 0d 2a 3a 05 3a 0d 2a 44 0a ea 20 6c 6f 6f 70 0d |.*:.:.*D.. loop.|
00006c70 2a 4e 07 db 3a 87 0d 2a 58 0e c8 91 20 36 34 30 |*N..:..*X... 640|
00006c80 2c 35 31 32 0d 2a 62 13 f4 20 53 65 74 75 70 20 |,512.*b.. Setup |
00006c90 50 61 6c 6c 65 74 65 0d 2a 6c 13 e3 20 6c 6f 6f |Pallete.*l.. loo|
00006ca0 70 20 3d 20 25 2e 25 b8 20 31 35 0d 2a 76 0c 6e |p = %.%. 15.*v.n|
00006cb0 67 2c 6e 6c 6f 6f 70 2c 30 0d 2a 80 05 ed 0d 2a |g,nloop,0.*....*|
00006cc0 8a 0e fb 34 2c 30 2c 30 2c 31 35 30 0d 2a 94 05 |...4,0,0,150.*..|
00006cd0 3a 0d 2a 9e 18 f4 20 4e 6f 77 20 64 6f 20 74 68 |:.*... Now do th|
00006ce0 65 20 73 63 72 65 65 6e 2e 0d 2a a8 09 e6 20 31 |e screen..*... 1|
00006cf0 2b 28 22 2a b2 1b c8 93 20 c8 90 20 2d 33 31 30 |+("*.... .. -310|
00006d00 2c 2d 33 31 30 2c 36 32 30 2c 36 32 30 0d 2a bc |,-310,620,620.*.|
00006d10 09 e6 20 34 2b 28 0d 2a c6 1b c8 93 20 c8 90 20 |.. 4+(.*.... .. |
00006d20 2d 33 30 35 2c 2d 33 30 35 2c 36 31 30 2c 36 31 |-305,-305,610,61|
00006d30 30 0d 2a d0 0c f1 27 27 27 27 27 27 27 0d 2a da |0.*...'''''''.*.|
00006d40 08 fb 35 2b 28 0d 2a e4 0c 6e 34 2b 38 2b 31 32 |..5+(.*..n4+8+12|
00006d50 38 0d 2a ee 27 f2 63 65 6e 74 72 65 28 22 50 72 |8.*.'.centre("Pr|
00006d60 69 6e 74 65 72 20 44 72 69 76 65 72 20 47 65 6e |inter Driver Gen|
00006d70 65 72 61 74 6f 72 22 29 0d 2a f8 22 f2 63 65 6e |erator").*.".cen|
00006d80 74 72 65 28 22 66 6f 72 20 46 69 72 73 74 20 57 |tre("for First W|
00006d90 6f 72 64 2a 43 2a 6c 75 73 22 29 0d 2b 02 06 f1 |ord*C*lus").+...|
00006da0 27 0d 2b 0c 08 fb 32 2b 28 0d 2b 16 1b f2 63 65 |'.+...2+(.+...ce|
00006db0 6e 74 72 65 28 22 56 65 72 73 69 6f 6e 20 31 2e |ntre("Version 1.|
00006dc0 30 30 22 29 0d 2b 20 06 f1 27 0d 2b 2a 08 fb 33 |00").+ ..'.+*..3|
00006dd0 2b 28 0d 2b 34 32 f2 63 65 6e 74 72 65 28 22 43 |+(.+42.centre("C|
00006de0 6f 70 79 72 69 67 68 74 20 22 2b bd 31 36 39 2b |opyright "+.169+|
00006df0 22 20 31 39 38 38 2c 20 4a 6f 68 6e 20 53 6d 69 |" 1988, John Smi|
00006e00 74 68 22 29 0d 2b 3e 07 f1 27 27 0d 2b 48 08 fb |th").+>..''.+H..|
00006e10 36 2b 28 0d 2b 52 35 f2 63 65 6e 74 72 65 28 22 |6+(.+R5.centre("|
00006e20 54 68 69 73 20 73 6f 66 74 77 61 72 65 20 69 73 |This software is|
00006e30 20 69 6e 20 74 68 65 20 50 75 62 6c 73 74 72 69 | in the Publstri|
00006e40 70 70 73 20 44 6f 6d 61 69 6e 2e 22 29 0d 2b 5c |pps Domain.").+\|
00006e50 2f f2 63 65 6e 74 72 65 28 22 59 6f 75 20 61 72 |/.centre("You ar|
00006e60 65 20 67 69 76 65 6e 20 70 65 72 6d 69 73 73 69 |e given permissi|
00006e70 6f 6e 20 74 6f 20 63 6f 70 79 22 29 0d 2b 66 34 |on to copy").+f4|
00006e80 f2 63 65 6e 74 72 65 28 22 74 68 69 73 20 70 72 |.centre("this pr|
00006e90 6f 67 72 61 6d 20 61 73 20 79 6f 75 20 70 6c 65 |ogram as you ple|
00006ea0 61 73 65 2c 20 70 72 6f 76 69 64 69 6e 67 22 29 |ase, providing")|
00006eb0 0d 2b 70 31 f2 63 65 6e 74 72 65 28 22 74 68 61 |.+p1.centre("tha|
00006ec0 74 20 74 68 69 73 20 63 6f 70 79 72 69 67 68 74 |t this copyright|
00006ed0 20 6e 6f 74 73 74 72 69 70 70 73 65 20 72 65 6d | notstrippse rem|
00006ee0 61 69 6e 73 22 29 0d 2b 7a 1d f2 63 65 6e 74 72 |ains").+z..centr|
00006ef0 65 28 22 6f 6e 20 61 6c 6c 20 63 6f 70 69 65 73 |e("on all copies|
00006f00 2e 22 29 0d 2b 84 0c ef 33 31 2c 30 2c 33 31 0d |.").+...31,0,31.|
00006f10 2b 8e 08 fb 32 2b 28 0d 2b 98 28 f2 63 65 6e 74 |+...2+(.+.(.cent|
00006f20 72 65 28 22 50 72 65 73 73 20 61 6e 79 20 6b 65 |re("Press any ke|
00006f30 79 20 74 6f 20 63 6f 6e 74 69 6e 75 65 22 29 0d |y to continue").|
00006f40 2b a2 08 fb 31 2b 28 0d 2b ac 05 3a 0d 2b b6 2c |+...1+(.+..:.+.,|
00006f50 f4 20 4e 6f 77 20 64 72 61 77 20 63 69 72 63 6c |. Now draw circl|
00006f60 65 73 20 22 74 6f 20 6f 70 65 6e 20 74 68 65 20 |es "to open the |
00006f70 77 69 6e 64 6f 77 22 2e 0d 2b c0 2e e6 20 32 2c |window"..+... 2,|
00006f80 37 20 3a f4 20 41 4e 44 20 74 68 65 20 63 69 72 |7 :. AND the cir|
00006f90 63 6c 65 20 74 6f 20 75 6e 73 65 74 20 68 69 67 |cle to unset hig|
00006fa0 68 20 62 69 74 2e 0d 2b ca 16 e3 20 6c 6f 6f 70 |h bit..+... loop|
00006fb0 77 61 6e ea 20 b8 20 36 30 30 20 88 20 33 0d 2b |wan. . 600 . 3.+|
00006fc0 d4 12 c8 8f 20 c8 90 20 30 2c 30 2c 6c 6f 6f 70 |.... .. 0,0,loop|
00006fd0 0d 2b de 05 ed 0d 2b e8 06 fb 36 0d 2b f2 0e 45 |.+....+...6.+..E|
00006fe0 49 3d a6 28 31 30 30 30 29 0d 2b fc 05 3a 0d 2c |I=.(1000).+..:.,|
00006ff0 06 10 ef 32 36 3a fb 31 32 38 3a ee 3a db 0d 2c |...26:.128:.:..,|
00007000 10 05 e1 0d 2c 1a 05 3a 0d 2c 24 43 2a 2a 2a 2a |....,..:.,$C****|
00007010 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00007040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 2c 2e 43 2a |***********.,.C*|
00007050 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00007080 2a |*|
00007081 
.