8bitfiles.net/archives/archives.tar/archives/commodore-users-of-norman/CUON_18_(11-1984).d64/crosswords

Commodore BASIC | 2019-04-13 | 4KB | 178 lines

1 DIMAR$(11,11),CL$(68),M$(11,11)
2 PT=1:LT=68
3 X1=1:Y1=1
4 X2=158:Y2=55
5 POKE53281,1:POKE53280,0:PRINT"[147][144]";
6 FL=1
100 PRINT"                [176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]"
110 FORI=1TO10
120 PRINT"                [221] [221] [221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]"
130 PRINT"                [171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
140 NEXT
150 PRINT"                [221] [221] [221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]"
160 PRINT"                [173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
165 PRINT"                 A B C D E F G H I J K";
170 PRINT""
180 FORI=1TO11:PRINTTAB(15);CHR$(64+I):PRINT:NEXT
190 PRINT"";
200 FORI=1TO11:FORJ=1TO11:READAR$(I,J):NEXT:NEXT
210 FORI=1TO68:READCL$(I):NEXT
220 FORX=1TO11:FORY=1TO11:IFAR$(Y,X)="*"THENGOSUB2000:PRINT" [146]";:M$(Y,X)="*"
230 NEXT:NEXT
240 V=53248:POKE2042,13:FORN=0TO62:READQ:POKE832+N,Q:NEXT
250 POKEV+21,4:SX=V+4:SY=V+5
255 POKEV+41,6
256 GOSUB2900
300 GOSUB1000
500 GETX$:IFX$=""THEN500
510 IFX$="[133]"THEN20000
520 IFX$=CHR$(13)THENPT=PT+1:GOSUB1000
530 IFX$="^"THENPT=PT-1:GOSUB1000
531 IFX$="[136]"THENFL=2
532 IFX$="[135]"THENFL=1
535 IFX$=""THENGOSUB1100
536 IFX$="[157]"THENGOSUB1200
537 IFX$=""THENGOSUB1300
538 IFX$="[145]"THENGOSUB1400
539 IFX$=" "THEN541
540 IFX$<"A"ORX$>"Z"THEN500
541 M$(Y1,X1)=X$
544 X=X1:Y=Y1
545 GOSUB2000:PRINTX$;:IFFL=1THENGOSUB1100
546 IFFL=2THENGOSUB1300
547 GOTO500
599 GOTO500
999 END
1000 PRINT"";
1001 IFPT<1THENPT=LT
1002 IFPT>LTTHENPT=1
1010 FORI=0TO20
1011 Z=PT+I:IFZ>LTTHENZ=Z-LT
1020 PRINTCL$(Z)
1040 NEXT
1050 PRINT"";
1099 RETURN
1100 REM MOVE RIGHT
1110 X1=X1+1:IFX1>11THENX1=1:Y1=Y1+1:IFY1>11THENY1=1
1115 IFAR$(Y1,X1)="*"THEN1100
1120 GOSUB2900
1199 RETURN
1200 REM MOVE LEFT
1210 X1=X1-1:IFX1<1THENX1=11:Y1=Y1-1:IFY1<1THENY1=11
1215 IFAR$(Y1,X1)="*"THEN1200
1220 GOSUB2900
1299 RETURN
1300 REM MOVE DOWN
1310 Y1=Y1+1:IFY1>11THENY1=1
1315 IFAR$(Y1,X1)="*"THEN1300
1320 GOSUB2900
1399 RETURN
1400 REM MOVE UP
1410 Y1=Y1-1:IFY1<1THENY1=11
1415 IFAR$(Y1,X1)="*"THEN1400
1420 GOSUB2900
1499 RETURN
2000 PRINT"";
2005 IFY=1THENPRINT"";:GOTO2020
2006 PRINT"";
2010 FORI=2TOY:PRINT"";:NEXT
2020 PRINT"";:FORI=1TOX:PRINT"";:NEXT
2099 RETURN
2900 IF16*(X1-1)+158<256THENPOKEV+16,0
2901 X2=158+(16*(X1-1)):IFX2>255THENPOKEV+16,4:X2=X2-256
2910 Y2=55+(16*(Y1-1))
2920 POKESY,Y2:POKESX,X2
2999 RETURN
10000 DATAM,O,P,*,R,A,H,*,S,H,E,E,R,E,*,A,L,A,*,T,A,X,S,A,D,*,T,I,P,*,O,B,I
10010 DATAS,T,A,G,E,*,P,E,R,I,L,Y,E,L,L,*,D,E,L,E,T,E,*,*,*,A,M,E,N,D,*,*,*
10020 DATAS,H,A,D,O,W,*,E,A,S,T,W,A,G,E,R,*,W,R,I,T,E,E,R,R,*,T,E,A,*,S,A,P
10030 DATAA,D,E,*,A,R,T,*,L,I,I,R,Y,E,*,R,A,T,*,E,N,D
10040 DATA"   ACROSS[146]     "
10050 DATA"AA.SWAB       "
10051 DATA"AE.CHEER      "
10052 DATA"AI.THAT WOMAN "
10053 DATA"BA.BEFORE     "
10054 DATA"BE.[164][164][164] CARTE  "
10055 DATA"BI.CONCERN OF "
10056 DATA"THE IRS       "
10065 DATA"CA.DOWN IN THE"
10066 DATA"   DUMPS      "
10067 DATA"CE.FINGER END "
10068 DATA"CI.JAPANESE   "
10069 DATA"   SASH       "
10070 DATA"DA.PERFORMING "
10071 DATA"   PLACE      "
10072 DATA"DG.DANGER     "
10073 DATA"EA.SHOUT      "
10074 DATA"EF.ELIMINATE  "
10075 DATA"GA.ME AND MY  "
10076 DATA"   [164][164][164][164][164][164]     "
10077 DATA"GH.DIRECTION  "
10078 DATA"HA.BET        "
10079 DATA"HG.PUT PEN TO "
10080 DATA"   PAPER      "
10081 DATA"IA.MAKE A     "
10082 DATA"   MISTAKE    "
10083 DATA"IE.OOLONG OR  "
10084 DATA"   PEKOE      "
10085 DATA"II.TREE FLUID "
10086 DATA"JA.FRUIT DRINK"
10087 DATA"JE.SKILL      "
10088 DATA"JI.ROMAN 52   "
10089 DATA"KA.DELI LOAF  "
10090 DATA"KE.RODENT     "
10091 DATA"KI.FINISH     "
10092 DATA"     DOWN[146]     "
10093 DATA"AA.UNTIDY     "
10094 DATA"AB.GIVE A     "
10140 DATA"   SPEECH     "
10150 DATA"AC.SEWING     "
10151 DATA"MACHINE PART  "
10152 DATA"AE.APPRAISE   "
10153 DATA"AF.MS. MACGRAW"
10154 DATA"AG.OCCUR      "
10155 DATA"AI.DEPARTMENT[164]"
10156 DATA"AJ.BEHAVIOR   "
10157 DATA"   PATTERN    "
10158 DATA"AK.BANISH     "
10159 DATA"DD.OPEN SPACE "
10160 DATA"   IN A FOREST"
10161 DATA"DH.CHURCH     "
10162 DATA"   OFFICER    "
10163 DATA"EF.MORNING    "
10164 DATA"   MOISTURE   "
10165 DATA"FE.PESTLE'S   "
10166 DATA"   PARTNER    "
10167 DATA"GA.VOW        "
10168 DATA"GB.ANDY OR TOM"
10169 DATA"GC.HOLD THE   "
10170 DATA"SAME OPINION  "
10171 DATA"GI.THEATRE    "
10172 DATA"   WALKWAY    "
10173 DATA"GJ.SPOT       "
10174 DATA"GK.LUKEWARM   "
10175 DATA"HG.LIGHT-BULB "
10176 DATA"   MEASURE    "
10177 DATA"IF.HISTORICAL "
10178 DATA"   PERIOD     "
11000 DATA255,248,0,255,248,0,192,24,0,192,24,0,192,24,0,192,24,0,192,24,0,192
11010 DATA24,0,192,24,0,192,24,0,192,24,0,192,24,0,255,248,0,255,248,0
11020 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
20000 POKEV+21,0
20001 C=0
20010 PRINT"";:FORI=1TO21:PRINT"              ":NEXT
20020 PRINT"DETECTING":PRINT"ERRORS..."
20030 PRINT"";:FORK=1TO11:FORL=1TO11
20040 IFM$(K,L)<>AR$(K,L)THENX=L:Y=K:GOSUB2000:PRINTAR$(K,L);:C=C+1
20050 NEXT:NEXT
20060 PRINT"         ":PRINT"[144]         ":PRINT" YOU MADE"
20070 PRINT:PRINTC;"MISTAKES"
20080 PRINT"PRESS ANY KEY"
20090 PRINT"TO RETURN TO THE"
20100 PRINT"MAIN MENU."
20110 GETX$:IFX$=""THEN20110
40000 PRINT"[147][144]   RETURNING TO THE MAIN MENU..."
40010 PRINT"LOAD"CHR$(34)"0:MENU"CHR$(34)",8"
40020 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
40030 POKE631,13:POKE632,13:POKE198,2