10 REM: COPYRIGHT 1994 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
20 CLR:TP$="123456789012345":TP$=TP$+TP$:RL=30
30 L=PEEK(46)*256+PEEK(45)+2:HB=PEEK(L+2):LB=PEEK(L+1):TP=HB*256+LB
40 BC=53280:SC=53281:CC=646:SB=53265:VP=781:HP=782:PL=65520:SD=54272:DV=8
50 GOSUB2580
60 DIMM$(20,20),W$(20),LX(20),LY(20),TW(20),H1(12),H2(12),L1(12),L2(12),LW(20)
70 DIMCV(6),CD$(6),CH$(6),PW$(11),PT$(11),DP$(9),PR$(9)
80 NU$=" 1 2 3 4 5 6 7 8 91011121314151617181920"
90 PR$(0)="4":PR$(1)="27,64":PR$(2)="27,69":PR$(3)="27,77":PR$(4)="27,87,1"
100 PR$(5)="12"
110 SZ=20:FORR=1TO8:READXD(R),YD(R):NEXT:FORR=828TO912:READD:POKER,D:NEXT
120 FORR=1TO12:READH1(R):READL1(R):READH2(R):READL2(R):NEXT
130 FORR=0TO34:READD:POKE679+R,D:NEXT
140 FORR=0TO6:READCV(R):CD$(R)=CHR$(CV(R)):NEXT:FORR=0TO6:READCH$(R):NEXT
150 POKE826,24:POKE827,96:FORT=1TO2000:NEXT
160 :
170 PRINT"[147]":POKESC,15:CO=6:V=9:MG=2:WD=34:HT=5:GOSUB2540
180 POKEVP,11:POKEHP,4:SYSPL
190 PRINT"[144]DO YOU NEED PLAYING INSTRUCTIONS":PRINT:PRINTTAB(17)"(Y/N)[144]"
200 GETD$:IFD$="N"THEN370
210 IFD$<>"Y"THEN200
220 PRINT"[147]":POKEVP,1:POKEHP,9:SYSPL:PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
230 PRINTTAB(9)" PLAYING INSTRUCTIONS ":PRINTTAB(9)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][144]"
240 PRINT" YOU BEGIN BY SELECTING THE NUMBER OF"
250 PRINT" WORDS & THE ACTUAL WORDS TO BE USED"
260 PRINT" THE COMPUTER THEN PLACES THE WORDS IN"
270 PRINT" A NUMBERED MATRIX FOR SCREEN PLAY"
280 PRINT" ALL WORDS WILL BE STRAIGHT LINES; UP"
290 PRINT" DOWN, FORWARD, BACKWARD, & DIAGONALLY"
300 PRINT" WHEN PROMPTED WITH ROW [144] AND COLUMN[144]"
310 PRINT" ENTER THE ROW AND COLUMN NUMBER OF"
320 PRINT" THE FIRST LETTER OF EACH WORD FOUND"
330 PRINT" TO WIN YOU MUST FIND ALL WORDS IN THE"
340 PRINT" ALLOTTED TIME YOU SELECT"
350 PRINTTAB(14)"GOOD LUCK!!!":PRINTTAB(7)"[144]PRESS ANY KEY TO CONTINUE"
360 GETD$:IFD$=""THEN360
370 PRINT"[147]":POKESC,15:CO=6:V=1:MG=1:WD=36:HT=21:GOSUB2540
380 PRINT""TAB(17)"[144]SELECT":PRINTTAB(8)"DESIRED NUMBER OF WORDS"
390 PRINTTAB(7)"MINIMUM 10 -/- MAXIMUM 20"
400 PRINT"[144]10 TO 15 MAKES FOR THE BEST PLAY"
410 CO=2:V=8:MG=17:WD=4:HT=1:GOSUB2540:POKECC,0
420 V=9:H=19:LE=2:M=0:CL=0:GOSUB2670:WT=VAL(TP$)
430 IFWT<10ORWT>20THENPOKEVP,9:POKEHP,19:SYSPL:PRINT"  ":GOTO420
440 PRINTTAB(10)"YOU HAVE SELECTED"WT:
450 PRINTTAB(9)"IS THIS CORRECT? (Y/N)"
460 PRINT:PRINTTAB(7)"[144]FOR AN INTERESTING GAME AND"
470 PRINTTAB(9)"AN ADDITIONAL CHALLENGE":
480 PRINTTAB(5)"ENTER NUMBERS INSTEAD OF WORDS"
490 GETD$:IFD$="N"THEN370
500 IFD$<>"Y"THEN490
510 PRINT"[147]":CO=6:V=2:MG=5:WD=28:HT=3:GOSUB2540
520 PRINT"":PRINTTAB(9)"[144]PLEASE ENTER WORDS NOW"
530 PRINTTAB(8)"MINIMUM LENGTH 5[144] LETTERS"
540 PRINTTAB(8)"[144]MAXIMUM LENGTH 15[144] LETTERS"
550 POKE198,0:CO=2:V=7:MG=10:WD=18:HT=1:GOSUB2540:FORI=1TOWT:W$(I)=""
560 POKECC,0:POKEVP,8:POKEHP,11:SYSPL:PRINT"                  "
570 V=8:H=12:LE=15:M=1:CL=0:GOSUB2670:IFLEN(TP$)<5THEN560
580 W$(I)=TP$:FORJ=0TOI-1:IFW$(I)=W$(J)THENW$(I)="":GOTO560
590 NEXT:X=10:IFI=>10THENX=9
600 IFWT>10THEN620
610 POKEVP,10+I:POKEHP,X:SYSPL:PRINTI"[157]. "W$(I):GOTO650
620 IFI>10THEN640
630 POKEVP,10+I:POKEHP,X-9:SYSPL:PRINTI"[157]. "W$(I):GOTO650
640 POKEVP,I:POKEHP,10+X:SYSPL:PRINTI"[157]. "W$(I)
650 NEXT:POKEVP,22:POKEHP,8:SYSPL:PRINT"[144]IS THIS CORRECT? (Y/N)[144]"
660 GETD$:IFD$="N"THEN510
670 IFD$<>"Y"THEN660
680 :
690 PRINT"[147]":POKESC,15:CO=6:V=9:MG=2:WD=34:HT=5:GOSUB2540
700 POKEVP,11:POKEHP,4:SYSPL
710 PRINT"[144]DO YOU WISH TO PRINT THE MATRIX?":PRINT:PRINTTAB(17)"(Y/N)":PR=0
720 GETD$:IFD$="Y"THENPR=1:TA$="00:00":GOTO750
730 IFD$<>"N"THEN720
740 GOSUB2270
750 PRINT"[147]":POKESC,14:CO=1:V=10:MG=1:WD=36:HT=3:GOSUB2540
760 POKEVP,12:POKEHP,2:SYSPL:PRINT"BUILDING MATRIX...ONE MOMENT PLEASE."
770 FORI=1TO1500:NEXT:POKESB,PEEK(SB)AND239
780 PRINT"[147]":CO=0:V=2:MG=2:WD=20:HT=20:GOSUB2540
790 POKEVP,0:POKEHP,3:SYSPL:PRINT"         11111111112"
800 PRINT"   12345678901234567890":PRINT""
810 FORI=1TO39STEP2:PRINTMID$(NU$,I,2):NEXT:PRINT
820 GOSUB2820:GP=WT
830 GP=INT(GP/2):IFGP=0THEN900
840 F=0
850 FORM=1TO(WT-GP):IFLEN(W$(M))>=LEN(W$(M+GP))THEN870
860 SW$=W$(M):W$(M)=W$(M+GP):W$(M+GP)=SW$:F=1
870 NEXT:IFFTHEN840
880 GOTO830
890 :
900 FORI=1TOSZ:FORJ=1TOSZ:M$(I,J)=" ":NEXT:NEXT:FORR=1TOWT:LW(R)=0:NEXT
910 FORI=1TOWT:D=INT(8*RND(1))+1:LE=LEN(W$(I))
920 HZ=INT(SZ*RND(1))+1:VT=INT(SZ*RND(1))+1
930 IFHZ+LE*XD(D)<0ORHZ+LE*XD(D)>SZORVT+LE*YD(D)<0ORVT+LE*YD(D)>SZTHEN920
940 FORX=0TOLE-1:T$=MID$(W$(I),X+1,1)
950 IFM$(HZ+X*XD(D),VT+X*YD(D))<>" "ANDT$<>M$(HZ+X*XD(D),VT+X*YD(D))THEN920
960 NEXT:FORX=0TOLE-1
970 M$(HZ+X*XD(D),VT+X*YD(D))=MID$(W$(I),X+1,1):NEXT
980 LX(I)=HZ:LY(I)=VT:TW(I)=D
990 POKEVP,2+I:POKEHP,24:SYSPL:PRINTW$(I):NEXT
1000 FORI=1TO20:FORJ=1TO20
1010 IFM$(I,J)=" "THENM$(I,J)=MID$(W$(WT*RND(1)+1),5*RND(1)+1,1)
1020 POKEVP,I+2:POKEHP,J+2:SYSPL:PRINTM$(I,J):NEXT:NEXT:POKESC,15:POKECC,0
1030 :
1040 IFPRTHEN1570
1050 IFSP=1THENGOSUB2820
1060 POKESB,PEEK(SB)OR16
1070 GOSUB2860:PO=0:TI$="000000":GE=0:SYS828
1080 SYS848:IFTI$=>GT$THEN1360
1090 GOSUB2850:PRINT"ROW    [157][157][157][157][157][157]":V=1:H=32:LE=2:M=0:CL=1:GOSUB2670
1100 R=VAL(TP$):IFR=99THEN1390
1110 IFR<1ORR>20THEN1080
1120 GOSUB2860
1130 SYS848:IFTI$=>GT$THEN1360
1140 GOSUB2850:PRINT"COL    [157][157][157][157][157][157]":GOSUB2670
1150 C=VAL(TP$):IFC<1ORC>20THEN1130
1160 GOSUB2860
1170 SYS848:IFTI$=>GT$THEN1360
1180 CG=0:FORJ=1TOWT:IFR=LX(J)THENIFC=LY(J)THENCG=1:XF=J:LW(J)=1:SYS848
1190 NEXT:IFCG=1THENGOSUB2800:GOTO1220
1200 GOSUB2850:PRINT"WRONG":SYS848:FORK=1TO500:SYS848:NEXT
1210 GOSUB2860:GOTO1080
1220 FORJ=0TOLEN(W$(XF))-1:XC=(3+LX(XF)+J*XD(TW(XF))):YC=(2+LY(XF)+J*YD(TW(XF)))
1230 POKEVP,XC-1:POKEHP,YC:SYSPL:PRINT""M$(XC-3,YC-2)"[144]":NEXT
1240 POKEVP,2+XF:POKEHP,24:SYSPL:PRINT""W$(XF)"[144]"
1250 WC=WC+1:IFWC=WTTHEN1270
1260 GOTO1080
1270 IFGE<>0THEN1360
1280 FORT=1TO1000:NEXT:PRINT"[147]":POKESC,14:POKECC,1
1290 CO=1:V=7:MG=2:WD=34:HT=9:GOSUB2540
1300 POKEVP,9:POKEHP,4:SYSPL:PRINT"CONGRATULATIONS YOU'RE A WINNER!"
1310 POKESD+5,85:POKESD+6,85:POKESD+12,85:POKESD+13,85:POKESD+24,15
1320 POKESD+4,33:POKESD+11,17:FORX=1TO12:POKESD,L1(X):POKESD+1,H1(X)
1330 POKESD+7,L2(X):POKESD+8,H2(X):IFH1(X)=50THENFORT=1TO200:NEXT
1340 IFX=6THENFORT=1TO1000:NEXT
1350 FORT=1TO200:NEXT:NEXT:FORD=0TO24:POKESD+D,0:NEXT:GOTO1470
1360 GOSUB2850:PRINT"TIME'S UP[144]"
1370 FORJ=SDTOSD+23::POKEJ,0:NEXT:POKESD+24,15:POKESD,169:POKESD+6,240
1380 POKESD+1,6:POKESD+4,17:FORD=0TO1499:NEXT:POKESD+4,16
1390 FORI=1TOWT
1400 FORJ=0TOLEN(W$(I))-1:XC=(3+LX(I)+J*XD(TW(I))):YC=(2+LY(I)+J*YD(TW(I)))
1410 IFLW(I)=0THENPOKEVP,XC-1:POKEHP,YC:SYSPL:PRINT""M$(XC-3,YC-2)
1420 NEXT:NEXT
1430 POKEVP,24:POKEHP,0:SYSPL:PRINT"       [144]PRESS ANY KEY TO CONTINUE       ";
1440 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]":POKESC,14:POKECC,1
1450 CO=1:V=8:MG=2:WD=34:HT=7:GOSUB2540
1460 POKEVP,9:POKEHP,5:SYSPL:PRINT"SORRY...BETTER LUCK NEXT TIME!
1470 [151]VP,11:[151]HP,5:[158]PL:[153]"WOULD YOU LIKE TO PLAY AGAIN?"
1480 [153][163]17)"(Y/N)"
1490 [161]D$:[139]D$[178]"N"[167][158]64738
1500 [139]D$[178]"Y"[167]WC[178]0:[137]1520
1510 [137]1490
1520 [153]:[153][163]10)"USE THE SAME WORDS?":[153][163]17)"(Y/N)
1530 GETD$:IFD$="Y"THEN740
1540 IFD$="N"THEN370
1550 GOTO1530
1560 :
1570 GOSUB2880
1580 PRINT"[147]":POKESC,14:POKECC,1:POKESB,PEEK(SB)OR16:PR=0
1590 CO=1:V=6:MG=5:WD=28:HT=13:GOSUB2540:
1600 POKESC,14:POKEVP,8:POKEHP,14:SYSPL:PRINT"DO YOU WANT:"
1610 PRINTTAB(7)"1. USE GENERIC PRINTER?"
1620 PRINTTAB(7)"2. PRINT NORMAL WIDTH?"
1630 PRINTTAB(7)"3. PRINT EXPANDED WIDTH?"
1640 PRINTTAB(7)"4. MODIFY PRINTER DRIVER?"
1650 PRINTTAB(7)"5. RETURN TO BEGINNING?":POKE198,0
1660 GETD$:IFD$<"1"ORD$>"5"THEN1660
1670 PF=VAL(D$):ONPFGOTO1830,1680,1680,2910,170
1680 OPEN15,8,15,"I0:":CLOSE15:GOSUB3440:IFFLTHEN1580
1690 SYS57812"WPD.*",8,1:POKE780,0:POKE781,1:POKE782,8:SYS65493
1700 GOSUB3460:IFFLTHEN1580
1710 IFE1<>62THEN1760
1720 PRINT"[147]":SYS826:V=8:MG=4:WD=30:HT=7:GOSUB2540
1730 POKEVP,10:POKEHP,6:SYSPL:PRINT"NO PRINTER DRIVER WAS FOUND"
1740 PRINTTAB(12)"PRESS ANY KEY TO":PRINTTAB(6)"TO RETURN TO THE PRINT MENU"
1750 POKE198,0:WAIT198,1:GOTO1580
1760 SYS57812"WPD.*",8,1:POKE780,0:POKE781,1:POKE782,8:SYS65493
1770 IFFLTHEN1580
1780 FORR=0TO6:PD$(R)=CHR$(PEEK(960+R)):NEXT:FORI=0TO6:PW$(I)="":NEXT
1790 R=R+1:FORI=0TO6:TP$=""
1800 CK=PEEK(960+R):IFCK=255THENR=R+1:NEXT:GOTO1830
1810 IFCK=44THENR=R+1:NEXT
1820 PW$(I)=PW$(I)+CHR$(CK):R=R+1:GOTO1800
1830 PRINT"[147]":POKESC,14:CO=1:V=8:MG=5:WD=28:HT=7:GOSUB2540
1840 POKEVP,10:POKEHP,7:SYSPL
1850 PRINT"PLEASE READY YOUR PRINTER"
1860 PRINTTAB(9)"AND PRESS 'P' TO PRINT"
1870 PRINTTAB(12)"OR 'A' TO ABORT"
1880 GETD$:IFD$="A"THEN2150
1890 IFD$<>"P"THEN1880
1900 PRINT"[147]":CO=1:V=10:MG=14:WD=10:HT=3:GOSUB2540
1910 POKEVP,12:POKEHP,16:SYSPL:PRINT"PRINTING"
1920 GOSUB3560:IFFLTHEN1830
1930 SP$="                       ":L(1)=11:L(2)=19:L(3)=1
1940 IFPF>1THEN1960
1950 FORR=1TO6:PT$(R)=" ":NEXT:SA=0:TF=35:PE$="":FF$="":GOTO1970
1960 SA=ASC(PW$(0)):PE$=PW$(1)+PW$(2):FORR=1TO6:PT$(R)=PD$(R):NEXT:FF$=PW$(5)
1970 SP$=LEFT$(SP$,L(PF)):F$=" "
1980 IFPF=2THENW=40:TF=42:PE$=PE$+PW$(3):
1990 IFPF=3THENW=20:TF=15:PE$=PE$+PW$(4):F$=""
2000 OPEN4,4,SA:PRINT#4,PE$
2010 PRINT#4,""TAB(TF)"FIND-A-WORD":PRINT#4," "
2020 PRINT#4,SP$PT$(1);:FORR=1TOW:PRINT#4,PT$(2);:NEXT:PRINT#4,PT$(3)
2030 FORI=1TO20:PRINT#4,SP$PT$(4);:FORJ=1TO20:PRINT#4,M$(I,J)F$;:NEXT
2040 PRINT#4,PT$(4)" "W$(I):NEXT
2050 PRINT#4,SP$PT$(5);:FORR=1TOW:PRINT#4,PT$(2);:NEXT:PRINT#4,PT$(6)
2060 PRINT#4:PRINT#4,""TAB(TF-1)"INSTRUCTIONS":PRINT#4
2070 PRINT#4,""TAB(TF-14)"ALL WORDS ARE IN STRAIGHT LINES. THEY"
2080 PRINT#4,""TAB(TF-14)"MAY BE PLACED FORWARD, BACKWARD, UP,"
2090 PRINT#4,""TAB(TF-14)"DOWN OR DIAGONALLY. THEY MAY ALSO"
2100 PRINT#4,""TAB(TF-14)"CROSS OR OVERLAP EACH OTHER.":PRINT#4
2110 PRINT#4,""TAB(TF-14)"WHEN A WORD IS FOUND IT SHOULD BE"
2120 PRINT#4,""TAB(TF-14)"CIRCLED OR MARKED OUT AND CROSSED"
2130 PRINT#4,""TAB(TF-14)"OFF THE LIST. GOOD LUCK!!"
2140 PRINT#4,FF$:CLOSE4
2150 PRINT"[147]":CO=1:V=6:MG=3:WD=32:HT=13:GOSUB2540
2160 POKEVP,8:POKEHP,12:SYSPL
2170 PRINT"DO YOU WANT TO:":PRINT"1. PRINT ANOTHER COPY?"
2180 PRINT"2. SCREEN PLAY CURRENT GAME?"
2190 PRINT"3. NEW MATRIX WITH SAME WORDS?"
2200 PRINT"4. NEW MATRIX WITH NEW WORDS?"
2210 PRINT"5. QUIT THE PROGRAM?"
2220 GETD$:IFD$<"1"ORD$>"5"THEN2220
2230 D=VAL(D$):ONDGOTO1580,2250,690,370
2240 SYS64738
2250 PRINT"[147]":FORT=1TO500:NEXT:GOSUB2270:POKESB,PEEK(SB)AND239:POKECC,0
2260 GOSUB2890:POKESC,15:SP=1:GOTO1040
2270 PRINT"[147][144]":POKESC,15:POKEVP,2:POKEHP,1:SYSPL
2280 PRINT"PLAYING TIME IS DETERMINED BY THE"
2290 PRINT" NUMBER OF WORDS AND THE AMOUNT OF TIME"
2300 PRINT" ALLOWED FOR EACH WORD":PRINT
2310 PRINT" I.E. 15[144] WORDS AND 1[144] MINUTE ALLOWS"
2320 PRINT" 15[144] MINUTES TIME TO FIND ALL WORDS"
2330 PRINT" IF ALL WORDS ARE NOT FOUND WHEN TIME"
2340 PRINT" RUNS OUT, THE COMPUTER WILL LOCATE"
2350 PRINT" THE REMAINING WORDS":PRINT:PRINTTAB(13)"PLEASE SELECT:"
2360 PRINT"   1.  [144]NOVICE - 2 MINUTES PER WORD"
2370 PRINT"   2.  [144]MASTER - 1.5 MINUTES PER WORD"
2380 PRINT"   3.  [144]EXPERT - 1 MINUTE PER WORD"
2390 PRINT"   4.  [144]GENIUS - 30 SECONDS PER WORD"
2400 GETD$:IFD$<"1"ORD$>"4"THEN2400
2410 MP=30*(5-VAL(D$))
2420 TT=WT*MP:TM=INT(TT/60):SE=TM*60:TS=TT-SE:TM$=STR$(TM):TS$=STR$(TS)
2430 IFLEN(TM$)=2THENTM$="0"+RIGHT$(TM$,1)
2440 IFLEN(TM$)=3THENTM$=MID$(TM$,2,2)
2450 IFLEN(TS$)=2THENTS$="0"+RIGHT$(TS$,1)
2460 IFLEN(TS$)=3THENTS$=MID$(TS$,2,2)
2470 GT$="00"+TM$+TS$:TA$=TM$+":"+TS$
2480 PRINTTAB(10)"[144]YOU HAVE SELECTED "D$
2490 PRINTTAB(9)"[144]IS THIS CORRECT? (Y/N)[144]"
2500 GETD$:IFD$="N"THEN2270
2510 IFD$<>"Y"THEN2500
2520 FORT=1TO500:NEXT:RETURN
2530 :
2540 POKECC,CO:POKEVP,V:POKEHP,MG:SYSPL
2550 PRINT"[176]";:FORR=1TOWD:PRINT"[192]";:NEXT:PRINT"[174]"
2560 FORR=1TOHT:PRINTTAB(MG)"[221]"SPC(WD)"[221]":NEXT
2570 PRINTTAB(MG)"[173]";:FORR=1TOWD:PRINT"[192]";:NEXT:PRINT"[189]":RETURN
2580 PRINT"[147]"CHR$(142)CHR$(8):POKESB,PEEK(SB)AND239:POKEBC,14:POKESC,15
2590 CO=2:V=1:MG=6:WD=26:HT=21:GOSUB2540:
2600 POKEVP,2:POKEHP,7:SYSPL:PRINT"[152]";
2610 FORI=1TO21:PRINTTAB(7);:FORJ=1TO26:FX=INT(RND(1)*26)+65
2620 PRINTCHR$(FX);:NEXT:PRINT"":NEXT
2630 POKEVP,7:POKEHP,11:SYSPL:PRINT"[144]FIND-A-WORD":PRINTTAB(19)"B[157][157]Y"
2640 PRINTTAB(20)"R. MARKLAND"
2650 POKESB,PEEK(SB)OR16:RETURN
2660 :
2670 POKEVP,V:POKEHP,H:SYSPL
2680 POKE204,0:POKE198,0:SL=0:POKEL+1,LB:POKEL+2,HB
2690 IFCLTHENSYS848:IFTI$=>GT$THENKI$=CHR$(13):GOTO2710
2700 POKE647,PEEK(CC):GETKI$:IFKI$=""THEN2690
2710 IFKI$=CHR$(13)THENPRINT" ":POKEL,SL:POKE204,1:RETURN
2720 IFKI$=CHR$(20)ANDSL>0THEN2770
2730 IFM=1ANDKI$=>CHR$(65)ANDKI$=<CHR$(90)THEN2780
2740 IFKI$=>"0"ANDKI$=<"9"THEN2780
2750 IFM=2ANDKI$=","THEN2780
2760 GOTO2690
2770 SL=SL-1:POKE647,PEEK(SC):PRINT" [157][157] [157]";:GOTO2690
2780 IFSL=(LE)THEN2690
2790 POKETP+SL,ASC(KI$):SL=SL+1:PRINTKI$;:GOTO2690
2800 FORJ=SDTOSD+23:POKEJ,0:NEXT:POKESD+5,11:POKESD+24,15:POKESD+1,136
2810 POKESD+4,17:FORT=0TO999:NEXT:POKESD+4,16:RETURN
2820 SP=0:POKEVP,24:POKEHP,0:SYSPL
2830 PRINT"TIME ALLOWED "TA$" / ELAPSED TIME[144] 00:00";:RETURN
2840 :
2850 POKEVP,1:POKEHP,27:SYSPL:RETURN
2860 GOSUB2850:PRINT"          ":RETURN
2870 :
2880 POKE684,4:POKE692,192:SYS679:POKE684,216:POKE692,196:SYS679:RETURN
2890 POKE684,192:POKE692,4:SYS679:POKE684,196:POKE692,216:SYS679:RETURN
2900 :
2910 PRINT"[147]":POKESC,15:PRINTTAB(8)"[144]FROM YOUR PRINTER MANUAL:":M=2:LE=3
2920 FORR=1TO6:PRINT:PRINT"  ENTER THE VALUE = CHR$(";RIGHT$(STR$(CV(R)),3);
2930 PRINT"): "CD$(R)"  [144]"CH$(R)"
2940 [151]VP,[194](214)[171]1:[151]HP,34:[158]PL:[141]2680
2950 [139]TP$[178]""[167]2970
2960 CH$(R)[178]TP$
2970 [151]VP,[194](214)[171]1:[151]HP,34:[158]PL:[153]CH$(R)"  ":[130]
2980 [153]:[153][163]7)"PLEASE CHECK YOUR ENTRIES"
2990 [153][163]4)"(C) CONTINUE -/- (S) START OVER"
3000 [161]D$:[139]D$[178]"S"[167]2910
3010 [139]D$[179][177]"C"[167]3000
3020 PT$(0)[178]" TRANSPARENT/WITH LINE FEED  = STOP"
3030 PT$(1)[178]" INITIALIZE PRINTER          = STOP"
3040 PT$(2)[178]" SET BOLD PRINTING           = STOP"
3050 PT$(3)[178]" SET ELITE SPACING-12 CPI    = STOP"
3060 PT$(4)[178]" SET EXPANDED SPACING-5 CPI  = STOP"
3070 PT$(5)[178]" PERFORM FORM FEED           = STOP"
3080 [153]"LOADSTOP     ENTER YOUR INTERFACE CODE TO:":M[178]2:LE[178]8
3090 [153]:[153]PT$(0)PR$(0);
3100 [151]VP,[194](214):[151]HP,31:[158]PL:[141]2680:[139]TP$[178]""[167]3120
3110 PR$(0)[178]TP$
3120 [151]VP,[194](214)[171]1:[151]HP,31:[158]PL:[153]PR$(0)" "
3130 [153]:[153][163]6)"STOPENTER YOUR PRINTER CODE TO:"
3140 [129]R[178]1[164]5:[153]:[153]PT$(R)PR$(R);
3150 [151]VP,[194](214):[151]HP,31:[158]PL:[141]2680:[139]TP$[178]""[167]3170
3160 PR$(R)[178]TP$:[130]
3170 [151]VP,[194](214)[171]1:[151]HP,31:[158]PL:[153]PR$(R)" ":[130]
3180 [153]:[153][163]7)"PLEASE CHECK YOUR ENTRIES"
3190 [153][163]4)"(C) CONTINUE -/- (S) START OVER"
3200 [161]D$:[139]D$[178]"S"[167]3080
3210 [139]D$[179][177]"C"[167]3200
3220 PD$[178][199](192):PD$[178]PD$[170][199](3):[129]R[178]0[164]6:PD$[178]PD$[170][199]([197](CH$(R))):[130]
3230 [129]I[178]0[164]6:TP$[178]"":PD$[178]PD$[170]","
3240 [129]J[178]1[164][195](PR$(I)):DT$[178][202](PR$(I),J,1)
3250 [139]DT$[178]","[167]3270
3260 TP$[178]TP$[170]DT$:[130]
3270 PD$[178]PD$[170][199]([197](TP$)):TP$[178]"":[130]
3280 PD$[178]PD$[170][199](255)
3290 [153]"LOAD":CO[178]2:V[178]9:MG[178]3:WD[178]32:HT[178]5:[141]2540:[151]VP,11:[151]HP,5:[158]PL
3300 [153]"ENTER THE NAME OF YOUR PRINTER"
3310 [141]3440:[139]FL[167]3290
3320 [159]15,8,15,"I0:":[160]15:[141]3440:[139]FL[167]3290
3330 [158]57812NA$,8,1:[151]780,0:[151]781,1:[151]782,8:[158]65493:[158]826
3340 [141]3460:[139]FL[167]3290
3350 [139]E1[178]62[167]3420
3360 [153]"LOAD":CO[178]6:V[178]8:MG[178]6:WD[178]26:HT[178]7:[141]2540:[151]VP,9:[151]HP,0:[158]PL
3370 MS$[178]NA$[170]" ALREADY EXISTS":[153][163](40[171]([195](MS$)))[173]2)"STOP"MS$
3380 [153][163]13)"OVERWRITE IT?":[153][163]16)"Y -/- N":[151]198,0
3390 [161]D$:[139]D$[178]"N"[167]1580
3400 [139]D$[179][177]"Y"[167]3390
3410 [159]15,8,15,"S0:"[170]NA$:[160]15:[141]3440:[139]FL[167]3360
3420 [159]8,8,8,"0:"[170]NA$[170]",P,W":[152]8,PD$:[141]3460:[139]FL[167]3290
3430 [153]"LOAD":[151]SC,14:[137]1580
3440 FL[178]0:[151]144,0:[151]780,DV:[158]65457:S[178]ST:[158]65454:S[178]S[176]ST:[139]S[178]0[167]3460
3450 ER$[178]"DEVICE NOT PRESENT":FL[178]1:[137]3490
3460 [159]15,8,15:[132]15,E1,E$
3470 [139]E1[178]0[176]E1[178]62[176]E1[178]63[176]E1[178]73[167][160]8:[160]15:FL[178]0:[142]
3480 [160]8:[160]15:FL[178]1:ER$[178]E$
3490 [153]"LOAD":[151]SC,15:CO[178]6:V[178]7:MG[178]3:WD[178]32:HT[178]9:[141]2540
3500 [151]VP,9:[151]HP,7:[158]PL
3510 [153]"* * * HARDWARE ERROR * * *"
3520 [153]:[153][163](40[171]([195](ER$)))[173]2)"STOP"ER$
3530 [139]DV[178]8[167][153][163]11)"CHECK DISK & DRIVE"
3540 [139]DV[178]4[167][153][163]13)"CHECK PRINTER":DV[178]8
3550 [153][163]5)"THEN PRESS ANY KEY TO CONTINUE";:[151]198,0:[146]198,1:[142]
3560 FL[178]0:[151]144,0:[151]780,4:[158]65457:S[178]ST:[158]65454:S[178]S[176]ST
3570 [139]S[179][177][171]128[167][142]
3580 :DV[178]4:[137]3450
3590 :
3600 [131] 0,-1,0,1,-1,0,1,0,-1,-1,1,1,1,-1,-1,1
3610 :
3620 [131] 169,0,141,11,220,141,10,220,141,9,220,141,8,220,41,15,24,105,48,96
3630 [131] 173,10,220,32,74,3,141,227,7,173,9,220,32,74,3,141,230,7,173,10,220
3640 [131] 32,140,3,41,7,32,76,3,141,226,7,173,9,220,32,140,3,41,7,32,76,3,141
3650 [131] 229,7,169,32,141,231,7,169,58,141,228,7,173,8,220,96,74,74,74,74,96
3660 :
3670 [131] 25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162
3680 [131] 42,62,31,165,50,60,37,162,25,30,18,209,33,135,25,30
3690 [131] 42,62,31,165,50,60,37,162,42,62,31,165,50,60,37,162
3700 :
3710 [131] 169,0,133,251,169,4,133,252,169,0,133,253,169,192,133,254,162,4
3720 [131] 160,0,177,251,145,253,200,208,249,230,252,230,254,202,208,242,96
3730 :
3740 [131] 32,176,99,174,98,173,189
3750 [131] 32,218,196,191,179,192,217