5 POKE55,0:POKE56,56:CLR
6 DIMP$(14),W$(100):FG=0:N=0
10 POKE53280,0:POKE53281,0:PRINTCHR$(147)CHR$(142)CHR$(8)
20 PRINT""TAB(14)"[154]PLEASE WAIT"
21 SYS57812"CROSS.FONT",8,0
22 POKE780,0:POKE781,0:POKE782,56
25 SYS65493:POKE53272,21
29 PRINTTAB(13)"[145][150]LOADING FILES"
30 POKE147,0:SYS57812"XPLAYER.1",8,1:SYS62631
81 PRINTTAB(12)"[145][153]AND MORE FILES"
82 POKE147,0:SYS57812"XCONSTRUCT.R",8,1:SYS62631
86 PRINTTAB(11)"[145][154] THE LAST FILE "
88 POKE147,0:SYS57812"XDEFS.R",8,1:SYS62631
91 POKE53272,21:PRINT"[147][154][146]"TAB(11)"THE CRUCIVERBALIST"
95 PRINT"[153]"TAB(6)"LOADSTAR'S CROSSWORD PROGRAM"
96 PRINT""TAB(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
97 PRINTTAB(7)"[221]                        [221]"
100 PRINTTAB(7)"[221] 1] CONSTRUCTOR         [221]"
105 PRINTTAB(7)"[221] 2] DEFINITIONS         [221]"
108 PRINTTAB(7)"[221] 3] PLAYER              [221]"
110 PRINTTAB(7)"[221] 4] THEMESMITH          [221]"
115 PRINTTAB(7)"[221] 5] RETURN TO LOADSTAR  [221]"
120 PRINTTAB(7)"[221]                        [221]"
122 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
125 PRINT"[156]        (C) 1988 BARBARA SCHULAK"
130 PRINT"             AND FENDER TUCKER"
150 GETK$:IFK$=""THEN150
160 K=VAL(K$):IFK<1ORK>5THEN150
170 IFK=5THEN9000:REM LOADSTAR
180 IFK=4THEN1000:REM THEMESMITH
200 IFK=2THENPOKE53272,31:SYS24576:GOTO91
205 IFK=3THENPOKE53272,31:SYS16384:GOTO91
206 IFFG=1THENPOKE53272,31:SYS20698:GOTO91
207 FG=FG+1:POKE53272,31:SYS20480
210 GOTO91
340 :
1000 PRINT"[147][159]":A$=""
1005 P$(0)="    BACK TO MENU     ":PQ$(0)="    PRINTER OFF      "
1010 P$(1)="    LIST ALL WORDS   "
1015 P$(2)="    FOUR LETTERS     "
1020 P$(3)="    FIVE LETTERS     "
1025 P$(4)="    SIX LETTERS      "
1030 P$(5)="    SEVEN LETTERS    ":PQ$(1)="    PRINTER ON       "
1035 P$(6)="    EIGHT LETTERS    "
1040 P$(7)="    NINE LETTERS     "
1045 P$(8)="    TEN LETTERS      "
1050 P$(9)="    ELEVEN LETTERS   "
1055 P$(10)="    TWELVE LETTERS   "
1060 P$(11)="    THIRTEEN LETTERS "
1065 P$(12)="    FOURTEEN LETTERS "
1070 P$(13)="    FIFTEEN LETTERS  "
1075 M$(0)="    ENTER WORDS    "
1080 M$(1)="     LIST THEM     "
1085 M$(2)="     SAVE THEM     "
1090 M$(3)="     LOAD THEM     "
1095 M$(4)="    CROSS WORDS    "
1100 M$(5)="     FIND WORD     "
1105 M$(6)="BACK TO CONSTRUCTOR"
1110 B$="                   [145]"
1115 P$(14)=PQ$(0)
1120 GOTO1230
1125 LN=0:K$="":POKE198,0
1130 POKE646,INT(RND(0)*15)+1:PRINT"[164][157]";
1135 GETA$:IFA$=""THEN1130
1140 IFA$=CHR$(13)THENPRINT"[159] ":RETURN
1145 IFA$=CHR$(20)ANDLNTHENLN=LN-1:K$=LEFT$(K$,LN):GOTO1175
1150 IFA$=CHR$(20)ANDLN=0THEN1130
1154 IFFLTHENIFA$<"A"ORA$>"Z"THEN1130
1155 LN=LN+1:IFLN>LTHENLN=LN-1:GOTO1130
1165 IFA$<" "ORA$>"Z"ORA$=CHR$(34)THEN1130
1170 K$=K$+A$
1175 PRINT"[155]"A$;:GOTO1130
1180 POKE198,0:POKE214,23:PRINT
1185 PRINT"[158]              PRESS SPACE             [159][145]"
1190 GETA$:IFA$<>" "THEN1190
1195 RETURN
1200 POKE214,23:PRINT:PRINT"                [158]SEARCHING[159]            [145]":RETURN
1205 N$=STR$(N):N$=RIGHT$(N$,LEN(N$)-1):RETURN
1210 POKE214,21:PRINT:PRINTTAB(21-(LEN(ER$)/2))ER$
1215 PRINT#15,"I0":FORT=0TO2000:NEXT
1220 RETURN
1225 :
1230 PRINT"[147]"TAB(11)"T H E M E S M I T H[159]"
1235 FORI=0TO6
1240 PRINTTAB(11)M$(I):PRINT
1245 NEXT:K=0
1250 POKE214,K*2+4:PRINT
1255 PRINTTAB(11)""M$(K)"[145]"
1260 GETA$:IFA$<>""ANDA$<>"[145]"ANDA$<>CHR$(13)THEN1260
1265 PRINTTAB(11)M$(K)
1270 IFA$=""THENK=K+1:IFK>6THENK=0
1275 IFA$="[145]"THENK=K-1:IFK<0THENK=6
1280 IFA$=CHR$(13)THENONK+1GOTO1290,1335,1465,1525,1585,1685,91
1285 GOTO1250
1290 N=N+1:GOSUB1205:FL=1
1292 POKE214,22:PRINT:PRINTTAB(4)"ENTER NOTHING TO RETURN TO MENU"
1295 POKE214,19:PRINT:PRINTTAB(13)B$
1300 PRINTTAB(8)"WORD #"N$": ";
1305 L=15:GOSUB1125
1310 IFK$=""THENN=N-1:GOTO1230
1315 W$(N)=K$
1320 N=N+1:GOSUB1205
1325 GOTO1295
1330 :
1335 IFN=0THEN1230
1336 PRINT"[147]"TAB(10)"T H E M E L I S T E R[159]"
1340 FORI=0TO14
1345 PRINTTAB(10)P$(I)
1350 NEXT:P=0
1355 POKE214,P+4:PRINT
1360 PRINTTAB(10)""P$(P)"[145]"
1365 GETA$:IFA$<>""ANDA$<>"[145]"ANDA$<>CHR$(13)THEN1365
1370 PRINTTAB(10)P$(P)
1375 IFA$=""THENP=P+1:IFP>14THENP=0
1380 IFA$="[145]"THENP=P-1:IFP<0THENP=14
1385 IFA$=CHR$(13)THEN1395
1390 GOTO1355
1395 IFP<>0THEN1410
1400 IFPQTHENPRINT#4:CLOSE4
1405 GOTO1230
1410 IFP=14THENGOTO2000 : REM *******
1415 PRINT"[147]":J=0:K=0
1420 IFPQTHENOPEN4,4:CMD4
1425 FORI=1TON
1430 IFP<>1THENIFLEN(W$(I))<>P+2THEN1450
1435 K=K+1:IFPQ=0THENIFK/39=INT(K/39)THENGOSUB1180:PRINT"[147]"
1440 J=J+1:IFJ/2=INT(J/2)THENPRINTTAB(23)W$(I):GOTO1450
1445 PRINTTAB(3)W$(I);
1450 NEXT
1455 GOSUB1180:GOTO1335
1460 :
1465 IFN=0THEN1230
1466 POKE214,19:PRINT:PRINTB$:FL=0
1470 PRINTTAB(10)"FILENAME:";
1475 L=15:GOSUB1125
1480 IFK$=""THEN1230
1485 OPEN15,8,15,"I0":OPEN2,8,2,"@0:"+K$+",P,W"
1490 PRINT#2,N-1
1495 FORI=1TON
1500 PRINT#2,W$(I)
1505 NEXT:CLOSE2
1510 GOSUB1210
1515 CLOSE15:GOTO1230
1520 :
1525 POKE214,19:PRINT:PRINTB$:FL=0
1530 PRINTTAB(10)"FILENAME:";
1535 L=15:GOSUB1125
1540 IFK$=""THEN1230
1545 OPEN15,8,15,"I0":OPEN2,8,2,"@0:"+K$+",P,R"
1550 INPUT#2,NX$:N=VAL(NX$)
1555 FORI=1TON
1560 INPUT#2,W$(I)
1565 NEXT:CLOSE2:INPUT#15,ER,ER$
1570 GOSUB1210
1575 CLOSE15:GOTO1230
1580 :
1585 IFN=0THEN1230
1586 PRINT"[147]"TAB(10)"C R O S S   W O R D S[159]":FL=0
1590 PRINTTAB(10)"THE FIRST LENGTH: ";:L=2:GOSUB1125:U=VAL(K$)
1595 PRINTTAB(10)"CROSS POSITION: ";:L=2:GOSUB1125:X=VAL(K$)
1600 PRINTTAB(10)"THE SECOND LENGTH: ";:L=2:GOSUB1125:V=VAL(K$)
1605 PRINTTAB(10)"CROSS POSITION: ";:L=2:GOSUB1125:Y=VAL(K$)
1610 IFX>UORY>VTHEN1585
1615 FORI=1TON:IFLEN(W$(I))<>UTHEN1660
1620 FORJ=1TON:IFLEN(W$(J))<>VTHEN1657
1625 IFI=JTHEN1657
1630 IFMID$(W$(I),X,1)<>MID$(W$(J),Y,1)THEN1657
1635 PRINT"[147]"
1640 POKE214,11:PRINT:PRINTTAB(16)W$(I)
1645 POKE214,11-Y+1:PRINT:PRINTTAB(15+X);
1650 FORK=1TOV:PRINTMID$(W$(J),K,1)"[157]";:NEXTK
1651 POKE198,0:POKE214,23:PRINT
1652 PRINT"   [158]PRESS M FOR MENU - SPACE FOR MORE  [159][145]"
1653 GETA$:IFA$<>" "ANDA$<>"M"THEN1653
1654 IFA$="M"THENI=N:J=N:GOTO1230
1655 GOSUB1200
1657 NEXTJ
1660 NEXTI
1665 POKE214,21:PRINT:PRINTTAB(18)"[158]DONE":GOSUB1180
1670 POKE214,21:PRINT:PRINTTAB(18)"    "
1675 GOTO1230
1680 :
1685 IFN=0THEN1230
1686 PRINT"[147]"TAB(10)"  F I N D   W O R D[159]":FL=0
1690 PRINTTAB(12)"LENGTH: ";:L=2:GOSUB1125:U=VAL(K$)
1695 PRINTTAB(12)"POSITION: ";:L=2:GOSUB1125:X=VAL(K$)
1700 PRINTTAB(12)"LETTER: ";
1702 POKE646,INT(RND(0)*15)+1:PRINT"[164][157]";
1710 GETK$:IFK$<"A"ORK$>"Z"THEN1702
1715 PRINTK$
1720 FORI=1TON
1725 IFLEN(W$(I))<>UTHEN1750
1730 IFMID$(W$(I),X,1)<>K$THEN1750
1735 PRINT"[147][159]"
1740 POKE214,11:PRINT:PRINTTAB(16)W$(I)
1743 POKE198,0:POKE214,23:PRINT
1745 PRINT"[158]   PRESS M FOR MENU - SPACE FOR MORE  [159][145]"
1746 GETA$:IFA$<>" "ANDA$<>"M"THEN1746
1747 IFA$="M"THENI=N:GOTO1230
1748 GOSUB1200
1750 NEXT:GOTO1665
2000 OPEN15,4,15:CLOSE15
2001 IFST<>0THEN2050
2002 PQ=PQ+1:PQ=PQAND1:P$(14)=PQ$(PQ):GOTO 1355
2050 PRINT"[147]":POKE214,10:PRINT:PRINT"         PRINTER NOT DETECTED"
2051 PRINT"             PRESS A KEY  "
2055 GETA$:IFA$=""THEN2055
2056 PQ=0:P$(14)=PQ$(PQ):GOTO 1335
9000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
9005 POKE53272,21:PRINT"[147]"
9010 IFER<>63THENEND
9020 LOAD"HELLO CONNECT",8
9999 :
10000 OPEN15,8,15,"S0:CRUCIVERBALIST":CLOSE15:SAVE"0:CRUCIVERBALIST",8