35707 


8425 ********************************************************************
20 :REM  *    Printer Patch Data - To be Modified by you for your Printer   *
30 :REM 	 ********************************************************************
40 DATA 3::REM 	 NUMBER OF STRIKES FOR BOLD FACE - 1 BYTE
50 DATA 2::REM 

 NUMBER OF STRIKES FOR DOUBLE STRIKE - 1 BYTE
60 DATA 0::REM 

 RESERVED - DO NOT CHANGE!!!!
70 DATA 2,13,10,0,0,0,0,0,0,0,0::REM  END-OF-LINE SEQUENCE   - 11 BYTES
80 DATA 2,13,0,0,0,0,0::REM 

 OVERPRINT SEQUENCE      -  7 BYTES
90 DATA 0,0,0,0,0,0,0::REM  HALF-LINE-FEED SEQUENCE -  7 BYTES
100 DATA 1,8,0,0,0,0::REM  BACKSPACE CODE      - 6 BYTES
110 DATA 2,27,77,0,0::REM 
 SEQUENCE FOR ^PA    - 5 BYTES
120 DATA 2,27,80,0,0::REM 
 SEQUENCE FOR ^PN    - 5 BYTES
130 DATA 0,0,0,0,0::REM  ROLL CARRIAGE UP    - 5 BYTES 
140 DATA 0,0,0,0,0::REM 
 ROLL CARRIAGE DOWN  - 5 BYTES 
150 DATA 1,15,0,0,0::REM 
 SEQUENCE FOR ^PQ    - 5 BYTES
160 DATA 1,18,0,0,0::REM 
 SEQUENCE FOR ^PW    - 5 BYTES
170 DATA 1,14,0,0,0::REM 
 SEQUENCE FOR ^PE    - 5 BYTES
180 DATA 1,20,0,0,0::REM 
 SEQUENCE FOR ^PR    - 5 BYTES
190 DATA 2,27,52,0,0::REM 
 SEQUENCE #1 FOR ^PY - 5 BYTES
200 DATA 2,27,53,0,0::REM  SEQUENCE #2 FOR ^PY - 5 BYTES
210 DATA 0::REM  RESERVED - DO NOT CHANGE!!!!
220 DATA 11,13,27,65,06,27,2,18,20::REM 
 INITIALIZE ON      - 17 BYTES
230 DATA 24,27,70,0,0,0,0,0 ::REM 

 INITIALIZE ON      (CONTINUED)
240 DATA 11,13,27,65,12,27,2,18,20::REM  INITIALIZE OFF     - 17 BYTES
250 DATA 24,27,70,0,0,0,0,0::REM 

 INITIALIZE OFF     (CONTINUED)
260 DATA 2::REM  WS.COM DRIVE UNIT NUMBER (B=2, C=3 ETC.)
270 DATA "Mike's Epson MX80"::REM  PRINTER DESCRIPTION
280 :REM 
 ****************************************************************
290 :REM 	 *        EXECUTABLE CODE - DO NOT CHANGE ANYTHING BELOW!!!     *
300 :REM 	 ****************************************************************
310 qk:PRINT:PRINT "CONFIGURATION PROGRAM FOR WSLOAD.COM"
320 PRINT "Written By: Gary Argraves & Mike Morra - 8410.15"
330 OPEN "I",#1,"A:WSLOAD.COM":CLOSE 1
340 OPEN "R",#1,"A:WSLOAD.COM":FIELD #1,128 AS A$
350 FOR I=1 VARPTR 120:READ D:B$=B$+CHR$(D):NEXT
360 LSET A$=B$:PUT #1,5:READ B$:LSET A$=B$+"$":PUT #1,6:CLOSE 1
370 PRINT:PRINT"WSLOAD.COM now configured for ";B$;" printer.":SYSTEM
A$=B$:PUT #1,5:READ B$:LSET A$=B$+"$":PUT #1,6:CLOSE 1
370 PRINT:PRINT"WSLOAD.COM now c