Home » CEEFAX disks » telesoftware12.adl » 10-02-89/Words
10-02-89/Words
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 » CEEFAX disks » telesoftware12.adl |
| Filename: | 10-02-89/Words |
| Read OK: | ✔ |
| File size: | 2EDE bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
Duplicates
There is 1 duplicate copy of this file in the archive:
- CEEFAX disks » telesoftware12.adl » 10-02-89/Words
- CEEFAX disks » telesoftware8.adl » 08-07-88/WORDS
File contents
10 ON ERROR PROCnogood 20MODE129:VDU23;8202;0;0;0; 30 DIMx$(20):DIMG$(19,12):DIM X$(20):DIMM$(19,12):PROCMC:T=1:P=0:PROCmc:PROCcde:PROCNUMBERS 40 ON ERROR PROCmenu 50 PROCmenu:STOP 60 END 70DEF PROCprintgrid 80COLOUR2 90 FOR N=0 TO 19:FOR J=0 TO 12 100PRINTTAB(N*2,J*2) G$(N,J); 110NEXT:NEXT: 120ENDPROC 130DEF PROCgrid 140 GCOL0,1 150FOR N=40 TO 1249 STEP 64 160MOVE N,1023 170DRAW N,200 180NEXT 190FOR N=264 TO 1024 STEP 64 200MOVE 0,N 210DRAW 1248,N 220NEXT 230ENDPROC 240DEF PROCstrings 250CLS:COLOUR3 260PRINT" PLEASE ENTER 20 WORDS (10 letters only)" 270Z$=STRING$(40," ") 280FOR N=1 TO 20 290 PRINTTAB(0,5)Z$ 300PRINTTAB(5,5)N; 310INPUT X$(N) 320L=LEN(X$(N)):IF L>10 THEN 290 330NEXT 340 PROCtext:PRINTTAB(0,0);" ":PRINTTAB(0,5)" " 350ENDPROC 360DEF PROCrandom:done=0 370R=RND(8):Y=RND(13)-1:X=RND(20)-1 380IF R=1 THEN PROCup 390IF R=2 THEN PROCdown 400IF R=3 THEN PROCright 410IF R=4 THEN PROCleft 420IF R=5 THEN PROCupright 430IF R=6 THEN PROCdownright 440IF R=7 THEN PROCupleft 450IF R=8 THEN PROCdownleft 460 IF done=0 THEN 370 470ENDPROC 480 DEF PROCempty 490 FOR N=0 TO 19:FOR J=0 TO 12 500 G$(N,J)=" ":NEXT:NEXT 510 ENDPROC 520DEF PROChide 530C=1:REPEAT 540T$=X$(C):L=LEN(T$) 550PROCrandom 560C=C+1:UNTILC=21 570ENDPROC 580 DEF PROCup 590 aflag=0 600IF Y+L>12 THEN ENDPROC 610FOR N=0 TO L-1 620IF G$(X,Y+N)<>" " THEN PROCcheck 630NEXT 640IF aflag=1 THEN ENDPROC 650 FOR N=0 TO L-1:G$(X,Y+N)=MID$(T$,N+1,1):NEXT 660 done=1 670ENDPROC 680DEF PROCcheck 690IF G$(X,Y+N)=MID$(T$,N+1,1) THEN ENDPROC 700aflag=1 710ENDPROC 720DEF PROCdown:aflag=0 730IF Y-L<0 THEN ENDPROC 740FOR N=0 TO L-1 750IF G$(X,Y-N)<>" " THEN PROCcheckm 760NEXT 770IF aflag=1 THEN ENDPROC 780FOR N=0 TO L-1:G$(X,Y-N)=MID$(T$,N+1,1):NEXT 790done=1 800ENDPROC 810DEF PROCcheckm 820IF G$(X,Y-N)=MID$(T$,N+1,1) THEN ENDPROC 830 aflag=1 840 ENDPROC 850DEF PROCmaze 860FOR J=0 TO 19:FORN=0 TO 12 870 R=RND(26)+64 880 M$(J,N)=G$(J,N) 890IF G$(J,N)=" " THEN G$(J,N)=CHR$(R) 900NEXT:NEXT 910ENDPROC 920DEF PROCright 930aflag=0:IF X+L>19 THEN ENDPROC 940FORN=0TOL-1 950IF G$(X+N,Y)<>" " THEN PROCcheckx 960NEXT 970IF aflag=1 THEN ENDPROC 980FORN=0TOL-1:G$(X+N,Y)=MID$(T$,N+1,1):NEXT 990done=1 1000ENDPROC 1010 DEF PROCcheckx 1020IF G$(X+N,Y)=MID$(T$,N+1,1) THEN ENDPROC 1030aflag=1 1040ENDPROC 1050DEF PROCleft 1060aflag=0:IF X-L<0 THEN ENDPROC 1070FORN=0TOL-1 1080IF G$(X-N,Y)<>" " THEN PROCcheckxm 1090NEXT 1100IF aflag=1 THEN ENDPROC 1110FORN=0TOL-1:G$(X-N,Y)=MID$(T$,N+1,1):NEXT 1120done=1 1130ENDPROC 1140DEF PROCcheckxm 1150IF G$(X-N,Y)=MID$(T$,N+1,1) THEN ENDPROC 1160aflag=1 1170ENDPROC 1180DEF PROCupright 1190aflag=0:IF Y+L>12 OR X+L>19 THEN ENDPROC 1200FOR N=0 TO L-1 1210IF G$(X+N,Y+N)<>" " THEN PROCcheckur 1220 NEXT 1230IF aflag=1 THEN ENDPROC 1240FORN=0 TO L-1 1250G$(X+N,Y+N)=MID$(T$,N+1,1):NEXT 1260done=1 1270ENDPROC 1280DEF PROCcheckur 1290IF G$(X+N,Y+N)=MID$(T$,N+1,1) THEN ENDPROC 1300aflag=1 1310ENDPROC 1320DEF PROCdownright:aflag=0 1330IF Y-L<0 OR X-L<0 THEN ENDPROC 1340FOR N=0 TO L-1 1350IF G$(X-N,Y-N)<>" " THEN PROCchecll 1360NEXT 1370IF aflag=1 THEN ENDPROC 1380FORN=0 TO L-1 1390G$(X-N,Y-N)=MID$(T$,N+1,1):NEXT 1400done=1 1410ENDPROC 1420DEF PROCchecll 1430IF G$(X-N,Y-N)=MID$(T$,N+1,1) THEN ENDPROC 1440aflag=1 1450ENDPROC 1460 DEF PROCupleft:aflag=0 1470IF Y+L>12 OR X-L<0 THEN ENDPROC 1480FOR N=0 TO L-1 1490IF G$(X-N,Y+N)<>" " THEN PROCchecmm 1500NEXT 1510IF aflag=1 THEN ENDPROC 1520FORN=0 TO L-1 1530G$(X-N,Y+N)=MID$(T$,N+1,1):NEXT 1540done=1 1550ENDPROC 1560DEF PROCchecmm 1570IF G$(X-N,Y+N)=MID$(T$,N+1,1) THEN ENDPROC 1580aflag=1 1590ENDPROC 1600DEF PROCdownleft:aflag=0 1610IF Y-L<0 OR X-L<0 THEN ENDPROC 1620FOR N=0 TO L-1 1630IF G$(X-N,Y-N)<>" " THEN PROCchecoo 1640NEXT 1650IF aflag=1 THEN ENDPROC 1660FORN=0 TO L-1 1670G$(X-N,Y-N)=MID$(T$,N+1,1):NEXT 1680done=1 1690ENDPROC 1700DEF PROCchecoo 1710IF G$(X-N,Y-N)=MID$(T$,N+1,1) THEN ENDPROC 1720aflag=1 1730ENDPROC 1740DEF PROCsee 1750 COLOUR3 1760FOR N=0 TO 19:FOR J=0 TO 12 1770IF M$(N,J)<>" " THEN PROCprint 1780NEXT:NEXT 1790ENDPROC 1800DEF PROCprint 1810PRINTTAB(N*2,J*2)M$(N,J) 1820ENDPROC 1830DEF PROCprintmaze 1840 VDU2 1850FOR N=0 TO 19:FOR J=0 TO 12 1860VDU1:PRINTG$(N,J);:NEXT 1870VDU1:PRINT:NEXT 1880 VDU3 1890ENDPROC 1900DEF PROCtext:LOCAL hor 1910 COLOUR1 1920 count=1:hor=-10 1930FORN=1TO4:hor=hor+10:FOR J=26 TO 30 1940PRINTTAB(hor,J)X$(count);:count=count+1 1950NEXT:NEXT 1960ENDPROC 1970 DEF PROCmc 1980DIM S% 500 1990xlo=&70:xhi=&71:ylo=&72:yhi=&73 2000logcol=&74:physcol=&75:step=&8F 2010osbyte=&FFF4:osword=&FFF1:oswrch=&FFEE 2020prtbyte=&76:ptr=&77:byte=&7A 2030base=&7F:data=&79 2040wrkspce=S%+292 2050FORPASS=0TO2STEP2 2060P%=S% 2070[OPTPASS 2080LDA #29 2090JSR oswrch 2100LDA #0 2110LDX #4 2120.repeat JSR oswrch 2130DEX 2140BNE repeat 2150LDA #(S%+346) MOD 256 2160STA data 2170LDA #(S%+346) DIV 256 2180STA data+1 2190LDA #2:JSR oswrch 2200LDX #0 2210LDA #wrkspce MOD 256 2220STA xlo 2230LDA #wrkspce DIV 256 2240STA xhi 2250.label LDA xlo 2260CLC 2270ADC #6 2280STA xlo 2290STA base,X 2300INX 2310BCC carryclr 2320INC xhi 2330.carryclr LDA xhi 2340STA base,X 2350INX 2360CPX #16 2370BCC label 2380LDA #&FF 2390STA ylo 2400LDA #3 2410STA yhi 2420LDA #135 2430JSR osbyte 2440CPY #3 2450BCS modegt3 2460INY 2470.modegt3 TYA 2480ROR A 2490BCS mode2or5 2500.mode1or4 LDA #4 2510STA wrkspce+5 2520LDA #2 2530STA step 2540BNE linespc 2550.mode2or5 LDA #8 2560STA wrkspce+5 2570LDA #5 2580STA step 2590.linespc LDY #0:LDX #3 2600JSR prtinst 2610.bitimage LDA #0 2620STA xlo 2630STA xhi 2640LDY #3:LDX #4 2650JSR prtinst 2660.newcol LDX #4 2670.readpix TXA:PHA 2680LDX #xlo 2690LDY #0 2700LDA #9 2710JSR osword 2720LDA #&B 2730LDY #0 2740LDX #logcol 2750JSR osword 2760PLA:TAX 2770LDA physcol 2780AND #7 2790ASL A 2800STA byte,X 2810LDA ylo 2820SEC 2830SBC #4 2840STA ylo 2850BCS chkcolend 2860DEC yhi 2870.chkcolend DEX 2880BNE readpix 2890LDY step 2900.back LDA #0 2910STA prtbyte 2920LDX #4 2930.pixel TXA:PHA 2940LDA byte,X 2950TAX 2960LDA base,X 2970STA ptr 2980LDA base+1,X 2990STA ptr+1 3000LDA (ptr),Y 3010CLC 3020ADC prtbyte 3030STA prtbyte 3040PLA:TAX 3050DEX 3060BEQ print 3070ASL prtbyte 3080ASL prtbyte 3090BCC pixel 3100.print LDA prtbyte 3110JSR sendprt 3120DEY 3130BPL back 3140.nxtcol CLC 3150LDA wrkspce+5 3160ADC xlo 3170STA xlo 3180BCC chklnend 3190INC xhi 3200.chklnend LDA xhi 3210CMP #5 3220BEQ endline 3230.coltop LDA #16 3240CLC 3250ADC ylo 3260STA ylo 3270BCC newcol 3280INC yhi 3290BCS newcol 3300.endline LDA #10 3310JSR sendprt 3320.endcheck LDA yhi 3330BMI end 3340JMP bitimage 3350.prtinst LDA (data),Y 3360JSR sendprt 3370INY:DEX 3380BNE prtinst 3390RTS 3400.sendprt PHA:LDA #1 3410JSR oswrch 3420PLA:JSR oswrch 3430RTS 3440.end LDY #7:LDX #4 3450JSR prtinst 3460LDA #3:JSR oswrch 3470RTS 3480] 3490NEXT 3500data=P% 3510FORI%=1TO6:?data=0:data=data+1:NEXT 3520FORI%=0TO7:READColour$ 3530FORB%=1TO6:?data=VAL(MID$(Colour$,B%,1)) 3540data=data+1:NEXT, 3550FORI%=1TO11:READB%:?data=B% 3560data=data+1:NEXT 3570DATA 000000,010020,021021,013023,212121,232131,313323,333333 3580DATA 27,65,8,27,76,192,3,27,127,27,7 3590 ENDPROC 3600DEF PROCdump 3610CALL S% 3620ENDPROC 3630DEF PROCdata 3640X=OPENIN "DATA" 3650FOR N=1 TO 20 3660INPUT#X,X$(N) 3670NEXT 3680CLOSE# X 3690ENDPROC 3700DEF PROCcde 3710VDU23,128,255,255,255,255,255,255,255,255 3720DIM JIM 50 3730FOR N=0 TO 2 STEP 2 3740P%=JIM 3750[OPTN 3760LDA#&87 3770JSR&FFF4 3780STX&70:STY&71 3790RTS 3800.col 3810LDA#32 3820STA&77 3830.loop 3840LDA#9 3850 LDY#0:LDX#&72 3860JSR&FFF1 3870INC&72 3880BNE a 3890INC&73 3900.a 3910LDA&76 3920CMP#0 3930BNE out 3940DEC&77 3950BNE loop 3960.out 3970RTS 3980]:NEXT 3990 ENDPROC 4000DEF PROCjoy 4010h=ADVAL(1):v=ADVAL(2) 4020 button=ADVAL(0) AND 3 4030 IF v>40000 THEN ver=ver-V% 4040IF v<20000 THEN ver=ver+V% 4050IF h>40000 THEN hor=hor-2 4060IF h<20000 THEN hor=hor+2 4070IF ver<0 THEN ver=0 4080IF ver>30 THEN ver=30 4090IF hor<0 THEN hor=0 4100IF hor>38 THEN hor=38 4110 FOR N=0 TO 300:NEXT 4120ENDPROC 4130DEF PROCplay:TIME=0:V%=2:ver=0:hor=0:REPEAT 4140IF Z%=101 THEN PROCjoy 4150IF Z%<>101 THEN PROCkey 4160PRINTTAB(hor,ver)"";:CALL JIM:PROCpixel 4170COLOUR3:PRINTTAB(hor,ver)CHR$(128); 4180IF ver>25 THEN PRINTTAB(15,31)"SELECT WORD"; 4190IFver>25 THEN V%=1 4200IF ver<25 THEN PRINTTAB(15,31)" "; 4210IFver<25 THEN V%=2 4220IF button<>0 THEN PROCchecker 4230IF button<>0 THEN PROCselection 4240 FOR N=0 TO 400:NEXT 4250A=?&70:COLOURC%:PRINTTAB(hor,ver)CHR$(A); 4260 PROCtime 4270UNTIL0 4280ENDPROC 4290DEF PROCkey 4300COLOUR3:PRINTTAB(30,31)"key mode"; 4310*FX4,1 4320*FX21,0 4330button=0 4340 I=GET 4350PROCtime 4360IFI=136 THEN hor=hor-2 4370IFI=137 THEN hor=hor+2 4380IFI=138 THEN ver=ver+V% 4390IFI=139 THEN ver=ver-V% 4400IFI=32 THEN button=1 4410IF ver<0 THEN ver=0 4420IF ver>30 THEN ver=30 4430IF hor<0 THEN hor=0 4440IF hor>38 THEN hor=38 4450ENDPROC 4460DEF PROCpixel 4470!&72=hor*32:!&74=1008-(ver*32) 4480CALL col:C%=?&76 4490ENDPROC 4500DEF PROCselection 4510 IF ver<26 THEN ENDPROC 4520 PROCtext 4530P=ver-25:q=0 4540 IF hor>9 THEN q=10 4550 IF hor>19 THEN q=20 4560 IF hor>29 THEN q=30 4570P=P+(q/2):COLOUR3:C%=3:L=LENX$(P):PRINTTAB(q,ver)X$(P)+STRING$(10-L," "); 4580T$=X$(P):T=1 4590 ENDPROC 4600 DEF PROCchecker:IFver>25 THEN ENDPROC 4610IFP=0 THEN ENDPROC 4620h=hor/2:v=ver/2 4630IF?&70<>ASC MID$(T$,T,1) THEN PROCno 4640IF?&70=ASC MID$(T$,T,1)THEN PROCnotquite 4650ENDPROC 4660DEF PROCno:T$="":T=0:P=0 4670SOUND1,-15,20,4:PROCtext 4680ENDPROC 4690DEF PROCnotquite 4700IFG$(h,v)<>M$(h,v)THEN PROCno 4710IFG$(h,v)=M$(h,v) THEN PROCyes 4720 ENDPROC 4730DEF PROCyes:SOUND1,-15,200,2 4740 C%=3 4750T=T+1:IF T=L+1 THEN PROCerase 4760ENDPROC 4770DEF PROCerase 4780X$(P)=" ":P=0:PROCtext:FORN=100 TO 200STEP10:SOUND1,-15,N,2:NEXT:ENDPROC 4790 DEF PROCprintmain:CLS:VDU2 4800FOR N=0TO12:PRINT:FORJ=0TO19:PRINTG$(J,N);" ";:NEXT:NEXT:VDU3:ENDPROC 4810DEF PROCprintlook:CLS:VDU2 4820FOR N=0TO12:PRINT:FORJ=0TO19 4830 IFM$(J,N)=" " THEN PRINT". "; 4840 IFM$(J,N)<>" " THEN PRINTM$(J,N);" "; 4850 NEXT:NEXT:VDU3:ENDPROC 4860 DEF PROCprintlist:CLS:VDU2 4870C=1:FOR N=1TO5:PRINT:FORJ=1TO4 4880 L=11-LEN(X$(C)):PRINTX$(C);:FORK=1TOL:PRINT" ";:NEXT:C=C+1 4890NEXT:NEXT 4900VDU3:ENDPROC 4910DEF PROCdatabase 4920CLS:PRINTTAB(10)"WORD DATABASE":PRINT:PRINT:PRINT 4930PRINTTAB(5)"CREATE NEW FILE....A" 4940PRINT 4950PRINTTAB(5)"ADD NEW WORDS......B" 4960PRINT 4970PRINTTAB(5)"VIEW FILE..........C" 4980PRINT 4990PRINTTAB(10)"enter choice" 5000REPEAT:I=GET 5010IF I=ASC"A" THEN PROCnewfile 5020IF I=ASC"B" THEN PROCnewword 5030IF I=ASC"C" THEN PROCviewfile 5040UNTIL I=32 5050ENDPROC 5060DEF PROCnewfile:CLS 5070PROC3d(5,10,"ARE YOU SURE?",1,2):I=GET:IF I<>ASC"Y" THEN ENDPROC 5080I=OPENOUT"DATA" 5090FOR N=1TO20:PRINT#I,X$(N):NEXT 5100 CLOSE#I:I=32 5110ENDPROC 5120DEF PROCnewword 5130PROCstrings 5140PROCdouble(5,10,"ARE THESE OK?"):I=GET:CLS 5150IF I<>ASC"Y" THEN ENDPROC 5160 PROCsetupgrid:CLS:PROC3d(5,10,"SHALL I ADD TO FILE?",1,2):I=GET 5170 IF I<>ASC"Y" THEN ENDPROC 5180I=OPENUP"DATA" 5190PTR#I=EXT#I 5200FORN=1TO20:PRINT#I,X$(N):NEXT 5210 CLOSE#I:I=32 5220ENDPROC 5230DEF PROCviewfile 5240CLS:I=OPENUP"DATA" 5250REPEAT:CLS:FOR N=1TO20 5260INPUT#I,X$(N):NEXT 5270PROCtext:PROCdouble(5,10,"ARE THESE OK?"):j=GET 5280IF j=ASC"Y" THEN PTR#I=EXT#I 5290UNTILEOF#I 5300CLOSE#I:I=32 5310PROCsetupgrid 5320ENDPROC 5330DEF PROCgame:Z%=0 5340CLS:PRINTTAB(10,10)"JOYSTICKS (Y/any)":I=GET:IFI=ASC"Y"THENZ%=101 5350 CLS 5360PROCprintgrid:PROCgrid:PROCtext:PROCplay:ENDPROC 5370DEF PROCtime:sec=(TIME/100) MOD 60:min=(TIME/6000) MOD 60:COLOUR3:PRINTTAB(0,31)STR$min;":";sec;" ";:ENDPROC 5380 DEFPROC3d(X,Y,A$,col1,col2) 5390 x=X*32:X=x 5400 y=0+((31-Y)*32):Y=y 5410 VDU5 5420 MOVE X-4,Y-4 5430 GCOL0,col1:PRINT A$ 5440 MOVE X,Y 5450 GCOL0,col2:PRINT A$ 5460 VDU4 5470 ENDPROC 5480DEF PROCNUMBERS 5490 RESTORE5540 5500PROCempty 5510FOR N=1TO20 5520READX$(N):NEXT 5530 PROCsetupgrid 5540DATA"ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE","TEN","ELEVEN","TWELVE","THIRTEEN","FOURTEEN","FIFTEEN","SIXTEEN","SEVENTEEN","EIGHTEEN","NINETEEN","TWENTY" 5550ENDPROC 5560DEF PROCMC 5570DIM LARGE 100:DIM block 8 5580FOR N=0 TO 2 STEP 2 5590 P%=LARGE 5600[OPTN 5610LDA#10:LDX#&70:LDY#0:JSR&FFF1 5620LDA#8:STA block 5630LDA#&0C:STA block+1 5640LDA#0:STA block+2 5650LDA#0:STA block+3 5660 LDA#8:STA block+5 5670LDX#0 5680.loops 5690LDA&71,X:STA block+4 5700TXA:PHA 5710LDX# block MOD 256:LDY# block DIV 256:LDA#6:JSR&FFF1 5720JSR adds 5730LDX# block MOD 256:LDY# block DIV 256:LDA#6:JSR&FFF1 5740JSR adds 5750PLA:TAX:INX:DEC block+5 5760BNE loops 5770RTS 5780.adds 5790INC block:BNE freddy 5800INC block+1 5810.freddy 5820RTS 5830]:NEXT 5840 ENDPROC 5850DEF PROCdouble(x,y,f$) 5860FORN=1TO LEN(f$) 5870 ?&70=ASC MID$(f$,N,1) 5880CALL LARGE 5890PRINTTAB(x+N,y)MID$(f$,N,1) 5910NEXT 5920ENDPROC 5930DEF PROCmenu 5940 PROCrepeat:PROCnotthistime 5950CLS:PROC3d(0,0,"JIM WALSH'S wordsearch workshop (c) 1986",1,2) 5960MOVE0,927:DRAW1279,927 5970COLOUR1:PROCdouble(15,5,"MENU") 5980COLOUR2:PROCdouble(1,9,"PLAY ON COMPUTER..............1") 5990COLOUR2:PROCdouble(1,12,"ADD MORE WORDS TO FILE........2") 6000COLOUR2:PROCdouble(1,15,"SELECT WORDS FROM FILE........3") 6010COLOUR2:PROCdouble(1,18,"CREATE A NEW DATA FILE........4") 6020PROC3d(0,20,"Dump the main grid to EPSON printers...5",3,1) 6030PROC3d(0,22,"Dump the main grid key as above........6",3,1) 6040PROC3d(0,24,"Print main grid to any printer.........7",2,1) 6050PROC3d(0,26,"Print key to any printer...............8",2,1) 6060COLOUR3:PRINTTAB(10,31)"Please select"; 6070I=GET 6080IF I=ASC"1" THEN PROCgame 6090IF I=ASC"2" THEN PROCnewword 6100IF I=ASC"3" THEN PROCviewfile 6110IF I=ASC"4" THEN PROCnewfile 6120IF I=ASC"5" THEN PROCmaindump 6130IF I=ASC"6" THEN PROCmainkey 6140IF I=ASC"7" THEN PROCptr 6150IF I=ASC"8" THEN PROCptra 6160GOTO 5950 6170ENDPROC 6180DEF PROCsetupgrid:CLS:PROCdouble(10,10,"SORTING"):PROCempty:PROChide:PROCmaze:PROCmirror:ENDPROC 6190 DEF PROCpp:CLS:PROCdouble(5,10,"IS YOUR PRINTER ON?") 6200PROC3d(5,15,"Press RETURN if yes, or any",1,2) 6210k=GET 6220ENDPROC 6230 DEF PROCmaindump:PROCpp 6240IF k<>13 THEN ENDPROC 6250CLS:PROCprintgrid:PROCgrid:PROCtext:PROCdump:ENDPROC 6260DEF PROCmainkey:PROCpp 6270IFk<>13 THEN ENDPROC 6280CLS:PROCprintgrid:PROCgrid:PROCtext:PROCsee:PROCdump:ENDPROC 6290DEF PROCptr 6300PROCpp:IFk<>13THENENDPROC 6310PROCprintmain:VDU2:PRINT:PRINT:VDU3:PROCprintlist 6320ENDPROC 6330DEF PROCptra 6340PROCpp:IFk<>13THENENDPROC 6350PROCprintlook:VDU2:PRINT:PRINT:VDU3:PROCprintlist 6360ENDPROC 6370DEF PROCmirror:FORN=1TO20:x$(N)=X$(N):NEXT:ENDPROC 6380DEF PROCrepeat:FLAG=0 6390FOR N=1TO20 6400IF X$(N)<>" " THEN FLAG=1 6410NEXT:IF FLAG=1 THEN ENDPROC 6420PROCwelldone 6430FOR N=1TO20:X$(N)=x$(N):NEXT 6440PROCsetupgrid 6450ENDPROC 6460DEF PROCwelldone 6470CLS:a$=STR$(min):a$=a$+":":a$=a$+STR$(sec) 6480COLOUR2:PROCdouble(14,10,"WELL DONE") 6490PROC3d(5,15,"You completed the grid in",1,2) 6500COLOUR1:PROCdouble(14,20,a$):I=INKEY(2000) 6510ENDPROC 6520DEF PROCnotthistime:FORN=1TO20:X$(N)=x$(N):NEXT:ENDPROC 6530DEF PROCnogood:CLS 6540PRINTCHR$(141)"�This program requires 6502 tube," 6550PRINTCHR$(141)"�This program requires 6502 tube," 6560PRINTCHR$(141)"�BBC+,shadow ram or may run on 'MASTER" 6570PRINTCHR$(141)"�BBC+,shadow ram or may run on 'MASTER" 6580STOP 6590ENDPROC
� � �nogood �129:�23;8202;0;0;0; I �x$(20):�G$(19,12):� X$(20):�M$(19,12):�MC:T=1:P=0:�mc:�cde:�NUMBERS ( � � �menu 2 �menu:� < � F� �printgrid P�2 Z � N=0 � 19:� J=0 � 12 d�N*2,J*2) G$(N,J); n �:�: x� � � �grid � �0,1 �� N=40 � 1249 � 64 � � N,1023 � � N,200 �� �� N=264 � 1024 � 64 � � 0,N � � 1248,N �� �� �� �strings � �:�3 /�" PLEASE ENTER 20 WORDS (10 letters only)" Z$=�40," ") � N=1 � 20 " �0,5)Z$ , �5,5)N; 6 � X$(N) @ L=�(X$(N)):� L>10 � �TbA J� T^ �text:�0,0);" ":�0,5)" " ^� h� �random:done=0 r R=�(8):Y=�(13)-1:X=�(20)-1 |� R=1 � �up �� R=2 � �down �� R=3 � �right �� R=4 � �left �� R=5 � �upright �� R=6 � �downright �� R=7 � �upleft �� R=8 � �downleft � � done=0 � �DrA �� � � �empty � � N=0 � 19:� J=0 � 12 � G$(N,J)=" ":�:� � � � �hide C=1:� T$=X$(C):L=�(T$) & �random 0C=C+1:�C=21 :� D � �up N aflag=0 X� Y+L>12 � � b� N=0 � L-1 l � G$(X,Y+N)<>" " � �check v� �� aflag=1 � � �( � N=0 � L-1:G$(X,Y+N)=�T$,N+1,1):� � done=1 �� � � �check � � G$(X,Y+N)=�T$,N+1,1) � � � aflag=1 �� �� �down:aflag=0 �� Y-L<0 � � �� N=0 � L-1 � � G$(X,Y-N)<>" " � �checkm �� � aflag=1 � � '� N=0 � L-1:G$(X,Y-N)=�T$,N+1,1):� done=1 � *� �checkm 4 � G$(X,Y-N)=�T$,N+1,1) � � > aflag=1 H � R � �maze \� J=0 � 19:�N=0 � 12 f R=�(26)+64 p M$(J,N)=G$(J,N) z!� G$(J,N)=" " � G$(J,N)=�(R) ��:� �� � � �right �aflag=0:� X+L>19 � � � �N=0�L-1 � � G$(X+N,Y)<>" " � �checkx �� �� aflag=1 � � �$�N=0�L-1:G$(X+N,Y)=�T$,N+1,1):� � done=1 �� � � �checkx � � G$(X+N,Y)=�T$,N+1,1) � � aflag=1 � � �left $aflag=0:� X-L<0 � � . �N=0�L-1 8!� G$(X-N,Y)<>" " � �checkxm B� L� aflag=1 � � V$�N=0�L-1:G$(X-N,Y)=�T$,N+1,1):� ` done=1 j� t� �checkxm ~ � G$(X-N,Y)=�T$,N+1,1) � � � aflag=1 �� �� �upright �"aflag=0:� Y+L>12 � X+L>19 � � �� N=0 � L-1 �"� G$(X+N,Y+N)<>" " � �checkur � � �� aflag=1 � � ��N=0 � L-1 � G$(X+N,Y+N)=�T$,N+1,1):� � done=1 �� � �checkur !� G$(X+N,Y+N)=�T$,N+1,1) � � aflag=1 � (� �downright:aflag=0 2� Y-L<0 � X-L<0 � � <� N=0 � L-1 F!� G$(X-N,Y-N)<>" " � �checll P� Z� aflag=1 � � d�N=0 � L-1 n G$(X-N,Y-N)=�T$,N+1,1):� x done=1 �� �� �checll �!� G$(X-N,Y-N)=�T$,N+1,1) � � � aflag=1 �� � � �upleft:aflag=0 �� Y+L>12 � X-L<0 � � �� N=0 � L-1 �!� G$(X-N,Y+N)<>" " � �checmm �� �� aflag=1 � � ��N=0 � L-1 � G$(X-N,Y+N)=�T$,N+1,1):� done=1 � � �checmm "!� G$(X-N,Y+N)=�T$,N+1,1) � � , aflag=1 6� @� �downleft:aflag=0 J� Y-L<0 � X-L<0 � � T� N=0 � L-1 ^!� G$(X-N,Y-N)<>" " � �checoo h� r� aflag=1 � � |�N=0 � L-1 � G$(X-N,Y-N)=�T$,N+1,1):� � done=1 �� �� �checoo �!� G$(X-N,Y-N)=�T$,N+1,1) � � � aflag=1 �� � � �see � �3 �� N=0 � 19:� J=0 � 12 � � M$(N,J)<>" " � �print ��:� �� � �print �N*2,J*2)M$(N,J) � &� �printmaze 0 �2 :� N=0 � 19:� J=0 � 12 D�1:�G$(N,J);:� N �1:�:� X �3 b� l� �text:� hor v �1 � count=1:hor=-10 �'�N=1�4:hor=hor+10:� J=26 � 30 �&�hor,J)X$(count);:count=count+1 ��:� �� � � �mc � � S% 500 �#xlo=&70:xhi=&71:ylo=&72:yhi=&73 �#logcol=&74:physcol=&75:step=&8F �*osbyte=&FFF4:osword=&FFF1:oswrch=&FFEE � prtbyte=&76:ptr=&77:byte=&7A �base=&7F:data=&79 �wrkspce=S%+292 �PASS=0�2�2 P%=S% [OPTPASS LDA #29 *JSR oswrch 4 LDA #0 > LDX #4 H.repeat JSR oswrch RDEX \BNE repeat fLDA #(S%+346) � 256 p STA data zLDA #(S%+346) � 256 �STA data+1 �LDA #2:JSR oswrch � LDX #0 �LDA #wrkspce � 256 � STA xlo �LDA #wrkspce � 256 � STA xhi �.label LDA xlo �CLC � ADC #6 � STA xlo �STA base,X �INX BCC carryclr INC xhi .carryclr LDA xhi $STA base,X .INX 8 CPX #16 B BCC label L LDA #&FF V STA ylo ` LDA #3 j STA yhi t LDA #135 ~JSR osbyte � CPY #3 �BCS modegt3 �INY �.modegt3 TYA � ROR A �BCS mode2or5 �.mode1or4 LDA #4 �STA wrkspce+5 � LDA #2 � STA step �BNE linespc �.mode2or5 LDA #8 STA wrkspce+5 LDA #5 STA step .linespc LDY #0:LDX #3 (JSR prtinst 2.bitimage LDA #0 < STA xlo F STA xhi PLDY #3:LDX #4 ZJSR prtinst d.newcol LDX #4 n.readpix TXA:PHA x LDX #xlo � LDY #0 � LDA #9 �JSR osword � LDA #&B � LDY #0 �LDX #logcol �JSR osword � PLA:TAX �LDA physcol �� #7 � ASL A �STA byte,X � LDA ylo SEC SBC #4 STA ylo "BCS chkcolend , DEC yhi 6.chkcolend DEX @BNE readpix J LDY step T.back LDA #0 ^STA prtbyte h LDX #4 r.pixel TXA:PHA |LDA byte,X �TAX �LDA base,X � STA ptr �LDA base+1,X � STA ptr+1 �LDA (ptr),Y �CLC �ADC prtbyte �STA prtbyte � PLA:TAX �DEX � BEQ print �ASL prtbyte ASL prtbyte BCC pixel .print LDA prtbyte &JSR sendprt 0DEY : BPL back D.nxtcol CLC NLDA wrkspce+5 X ADC xlo b STA xlo lBCC chklnend v INC xhi �.chklnend LDA xhi � CMP #5 �BEQ endline �.coltop LDA #16 �CLC � ADC ylo � STA ylo �BCC newcol � INC yhi �BCS newcol �.endline LDA #10 �JSR sendprt �.endcheck LDA yhi BMI end JMP bitimage .prtinst LDA (data),Y JSR sendprt * INY:DEX 4BNE prtinst >RTS H.sendprt PHA:LDA #1 RJSR oswrch \PLA:JSR oswrch fRTS p.end LDY #7:LDX #4 zJSR prtinst �LDA #3:JSR oswrch �RTS �] �� � data=P% �!�I%=1�6:?data=0:data=data+1:� ��I%=0�7:�Colour$ �#�B%=1�6:?data=�(�Colour$,B%,1)) �data=data+1:�, ��I%=1�11:�B%:?data=B% �data=data+1:� �=� 000000,010020,021021,013023,212121,232131,313323,333333 �%� 27,65,8,27,76,192,3,27,127,27,7 � � �dump � S% $� . � �data 8X=� "DATA" B� N=1 � 20 L �#X,X$(N) V� `�# X j� t � �cde ~+�23,128,255,255,255,255,255,255,255,255 � � JIM 50 �� N=0 � 2 � 2 � P%=JIM � [OPTN � LDA#&87 � JSR&FFF4 �STX&70:STY&71 �RTS �.col � LDA#32 � STA&77 � .loop LDA#9 LDY#0:LDX#&72 JSR&FFF1 INC&72 ( BNE a 2 INC&73 <.a F LDA&76 P CMP#0 Z BNE out d DEC&77 n BNE loop x.out �RTS �]:� � � � � �joy �h=�(1):v=�(2) � button=�(0) � 3 � � v>40000 � ver=ver-V% �� v<20000 � ver=ver+V% �� h>40000 � hor=hor-2 �� h<20000 � hor=hor+2 �� ver<0 � ver=0 �� ver>30 � ver=30 �� hor<0 � hor=0 � hor>38 � hor=38 � N=0 � 300:� � ""� �play:�=0:V%=2:ver=0:hor=0:� ,� Z%=101 � �joy 6� Z%<>101 � �key @ �hor,ver)"";:� JIM:�pixel J�3:�hor,ver)�(128); T%� ver>25 � �15,31)"SELECT WORD"; ^�ver>25 � V%=1 h%� ver<25 � �15,31)" "; r�ver<25 � V%=2 |� button<>0 � �checker � � button<>0 � �selection � � N=0 � 400:� � A=?&70:�C%:�hor,ver)�(A); � �time ��0 �� � � �key ��3:�30,31)"key mode"; � *FX4,1 � *FX21,0 � button=0 � I=� � �time �I=136 � hor=hor-2 �I=137 � hor=hor+2 �I=138 � ver=ver+V% &�I=139 � ver=ver-V% 0�I=32 � button=1 :� ver<0 � ver=0 D� ver>30 � ver=30 N� hor<0 � hor=0 X� hor>38 � hor=38 b� l � �pixel v"!&72=hor*32:!&74=1008-(ver*32) �� col:C%=?&76 �� �� �selection � � ver<26 � � � �text �P=ver-25:q=0 � � hor>9 � q=10 � � hor>19 � q=20 � � hor>29 � q=30 �;P=P+(q/2):�3:C%=3:L=�X$(P):�q,ver)X$(P)+�10-L," "); �T$=X$(P):T=1 � � � � �checker:�ver>25 � � �P=0 � � h=hor/2:v=ver/2 �?&70<>� �T$,T,1) � �no �?&70=� �T$,T,1)� �notquite *� 4� �no:T$="":T=0:P=0 >�1,-15,20,4:�text H� R� �notquite \�G$(h,v)<>M$(h,v)� �no f�G$(h,v)=M$(h,v) � �yes p � z� �yes:�1,-15,200,2 � C%=3 �T=T+1:� T=L+1 � �erase �� � � �erase �?X$(P)=" ":P=0:�text:�N=100 � 200�10:�1,-15,N,2:�:� � � �printmain:�:�2 �-� N=0�12:�:�J=0�19:�G$(J,N);" ";:�:�:�3:� �� �printlook:�:�2 �� N=0�12:�:�J=0�19 � �M$(J,N)=" " � �". "; �" �M$(J,N)<>" " � �M$(J,N);" "; � �:�:�3:� � � �printlist:�:�2 C=1:� N=1�5:�:�J=1�4 1 L=11-�(X$(C)):�X$(C);:�K=1�L:�" ";:�:C=C+1 �:� $�3:� .� �database 8 �:�10)"WORD DATABASE":�:�:� B �5)"CREATE NEW FILE....A" L� V �5)"ADD NEW WORDS......B" `� j �5)"VIEW FILE..........C" t� ~�10)"enter choice" � �:I=� �� I=�"A" � �newfile �� I=�"B" � �newword �� I=�"C" � �viewfile � � I=32 �� �� �newfile:� �3�3d(5,10,"ARE YOU SURE?",1,2):I=�:� I<>�"Y" � � � I=�"DATA" �� N=1�20:�#I,X$(N):� � �#I:I=32 �� � �newword �strings '�double(5,10,"ARE THESE OK?"):I=�:� � I<>�"Y" � � (: �setupgrid:�:�3d(5,10,"SHALL I ADD TO FILE?",1,2):I=� 2 � I<>�"Y" � � < I=�"DATA" F �#I=�#I P�N=1�20:�#I,X$(N):� Z �#I:I=32 d� n� �viewfile x�:I=�"DATA" ��:�:� N=1�20 ��#I,X$(N):� �+�text:�double(5,10,"ARE THESE OK?"):j=� �� j=�"Y" � �#I=�#I ���#I � �#I:I=32 ��setupgrid �� �� �game:Z%=0 �4�:�10,10)"JOYSTICKS (Y/any)":I=�:�I=�"Y"�Z%=101 � � �"�printgrid:�grid:�text:�play:� �M� �time:sec=(�/100) � 60:min=(�/6000) � 60:�3:�0,31)�min;":";sec;" ";:� ��3d(X,Y,A$,col1,col2) x=X*32:X=x y=0+((31-Y)*32):Y=y " �5 , � X-4,Y-4 6 �0,col1:� A$ @ � X,Y J �0,col2:� A$ T �4 ^ � h� �NUMBERS r ��tdU | �empty � � N=1�20 � �X$(N):� � �setupgrid ���"ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE","TEN","ELEVEN","TWELVE","THIRTEEN","FOURTEEN","FIFTEEN","SIXTEEN","SEVENTEEN","EIGHTEEN","NINETEEN","TWENTY" �� � � �MC �� LARGE 100:� block 8 �� N=0 � 2 � 2 � P%=LARGE � [OPTN �!LDA#10:LDX#&70:LDY#0:JSR&FFF1 �LDA#8:STA block �LDA#&0C:STA block+1 LDA#0:STA block+2 LDA#0:STA block+3 LDA#8:STA block+5 & LDX#0 0 .loops :LDA&71,X:STA block+4 D TXA:PHA N5LDX# block � 256:LDY# block � 256:LDA#6:JSR&FFF1 X JSR adds b4LDX# block � 256:LDY# block � 256:LDA#6:JSR&FFF1 l JSR adds vPLA:TAX:INX:DEC block+5 � BNE loops �RTS � .adds �INC block:BNE freddy �INC block+1 � .freddy �RTS �]:� � � �� �double(x,y,f$) ��N=1� �(f$) � ?&70=� �f$,N,1) � � LARGE �x+N,y)�f$,N,1) � � * � �menu 4 �repeat:�notthistime >=�:�3d(0,0,"JIM WALSH'S wordsearch workshop (c) 1986",1,2) H�0,927:�1279,927 R�1:�double(15,5,"MENU") \5�2:�double(1,9,"PLAY ON COMPUTER..............1") f6�2:�double(1,12,"ADD MORE WORDS TO FILE........2") p6�2:�double(1,15,"SELECT WORDS FROM FILE........3") z6�2:�double(1,18,"CREATE A NEW DATA FILE........4") �<�3d(0,20,"Dump the main grid to EPSON printers...5",3,1) �<�3d(0,22,"Dump the main grid key as above........6",3,1) �<�3d(0,24,"Print main grid to any printer.........7",2,1) �<�3d(0,26,"Print key to any printer...............8",2,1) � �3:�10,31)"Please select"; �I=� �� I=�"1" � �game �� I=�"2" � �newword �� I=�"3" � �viewfile �� I=�"4" � �newfile �� I=�"5" � �maindump �� I=�"6" � �mainkey �� I=�"7" � �ptr � I=�"8" � �ptra � �T~W � $I� �setupgrid:�:�double(10,10,"SORTING"):�empty:�hide:�maze:�mirror:� .0 � �pp:�:�double(5,10,"IS YOUR PRINTER ON?") 8/�3d(5,15,"Press RETURN if yes, or any",1,2) Bk=� L� V � �maindump:�pp `� k<>13 � � j$�:�printgrid:�grid:�text:�dump:� t� �mainkey:�pp ~�k<>13 � � �)�:�printgrid:�grid:�text:�see:�dump:� � � �ptr ��pp:�k<>13�� �#�printmain:�2:�:�:�3:�printlist �� � � �ptra ��pp:�k<>13�� �#�printlook:�2:�:�:�3:�printlist �� �%� �mirror:�N=1�20:x$(N)=X$(N):�:� �� �repeat:FLAG=0 � � N=1�20 "� X$(N)<>" " � FLAG=1 �:� FLAG=1 � � �welldone � N=1�20:X$(N)=x$(N):� (�setupgrid 2� <� �welldone F&�:a$=�(min):a$=a$+":":a$=a$+�(sec) P!�2:�double(14,10,"WELL DONE") Z-�3d(5,15,"You completed the grid in",1,2) d"�1:�double(14,20,a$):I=�(2000) n� x*� �notthistime:�N=1�20:X$(N)=x$(N):�:� �� �nogood:� �.�(141)"�This program requires 6502 tube," �.�(141)"�This program requires 6502 tube," �3�(141)"�BBC+,shadow ram or may run on 'MASTER" �3�(141)"�BBC+,shadow ram or may run on 'MASTER" �� �� �
00000000 0d 00 0a 10 20 ee 20 85 20 f2 6e 6f 67 6f 6f 64 |.... . . .nogood| 00000010 0d 00 14 18 eb 31 32 39 3a ef 32 33 3b 38 32 30 |.....129:.23;820| 00000020 32 3b 30 3b 30 3b 30 3b 0d 00 1e 49 20 de 78 24 |2;0;0;0;...I .x$| 00000030 28 32 30 29 3a de 47 24 28 31 39 2c 31 32 29 3a |(20):.G$(19,12):| 00000040 de 20 58 24 28 32 30 29 3a de 4d 24 28 31 39 2c |. X$(20):.M$(19,| 00000050 31 32 29 3a f2 4d 43 3a 54 3d 31 3a 50 3d 30 3a |12):.MC:T=1:P=0:| 00000060 f2 6d 63 3a f2 63 64 65 3a f2 4e 55 4d 42 45 52 |.mc:.cde:.NUMBER| 00000070 53 0d 00 28 0e 20 ee 20 85 20 f2 6d 65 6e 75 0d |S..(. . . .menu.| 00000080 00 32 0c 20 f2 6d 65 6e 75 3a fa 0d 00 3c 07 20 |.2. .menu:...<. | 00000090 e0 20 0d 00 46 11 dd 20 f2 70 72 69 6e 74 67 72 |. ..F.. .printgr| 000000a0 69 64 20 0d 00 50 06 fb 32 0d 00 5a 1b 20 e3 20 |id ..P..2..Z. . | 000000b0 4e 3d 30 20 b8 20 31 39 3a e3 20 4a 3d 30 20 b8 |N=0 . 19:. J=0 .| 000000c0 20 31 32 20 0d 00 64 18 f1 8a 4e 2a 32 2c 4a 2a | 12 ..d...N*2,J*| 000000d0 32 29 20 47 24 28 4e 2c 4a 29 3b 20 0d 00 6e 09 |2) G$(N,J); ..n.| 000000e0 ed 3a ed 3a 20 0d 00 78 06 e1 20 0d 00 82 0c dd |.:.: ..x.. .....| 000000f0 20 f2 67 72 69 64 20 0d 00 8c 0a 20 e6 30 2c 31 | .grid .... .0,1| 00000100 20 0d 00 96 19 e3 20 4e 3d 34 30 20 b8 20 31 32 | ..... N=40 . 12| 00000110 34 39 20 88 20 36 34 20 20 20 0d 00 a0 0d ec 20 |49 . 64 ..... | 00000120 4e 2c 31 30 32 33 20 0d 00 aa 0c df 20 4e 2c 32 |N,1023 ..... N,2| 00000130 30 30 20 0d 00 b4 06 ed 20 0d 00 be 18 e3 20 4e |00 ..... ..... N| 00000140 3d 32 36 34 20 b8 20 31 30 32 34 20 88 20 36 34 |=264 . 1024 . 64| 00000150 20 0d 00 c8 0a ec 20 30 2c 4e 20 0d 00 d2 0d df | ..... 0,N .....| 00000160 20 31 32 34 38 2c 4e 20 0d 00 dc 06 ed 20 0d 00 | 1248,N ..... ..| 00000170 e6 06 e1 20 0d 00 f0 0f dd 20 f2 73 74 72 69 6e |... ..... .strin| 00000180 67 73 20 0d 00 fa 09 db 3a fb 33 20 0d 01 04 2f |gs .....:.3 .../| 00000190 f1 22 20 50 4c 45 41 53 45 20 45 4e 54 45 52 20 |." PLEASE ENTER | 000001a0 32 30 20 57 4f 52 44 53 20 28 31 30 20 6c 65 74 |20 WORDS (10 let| 000001b0 74 65 72 73 20 6f 6e 6c 79 29 22 0d 01 0e 10 5a |ters only)"....Z| 000001c0 24 3d c4 34 30 2c 22 20 22 29 20 0d 01 18 0f e3 |$=.40," ") .....| 000001d0 20 4e 3d 31 20 b8 20 32 30 20 0d 01 22 0e 20 f1 | N=1 . 20 ..". .| 000001e0 8a 30 2c 35 29 5a 24 20 0d 01 2c 0d f1 8a 35 2c |.0,5)Z$ ..,...5,| 000001f0 35 29 4e 3b 20 0d 01 36 0c e8 20 58 24 28 4e 29 |5)N; ..6.. X$(N)| 00000200 20 0d 01 40 1c 4c 3d a9 28 58 24 28 4e 29 29 3a | ..@.L=.(X$(N)):| 00000210 e7 20 4c 3e 31 30 20 8c 20 8d 54 62 41 0d 01 4a |. L>10 . .TbA..J| 00000220 06 ed 20 0d 01 54 5e 20 f2 74 65 78 74 3a f1 8a |.. ..T^ .text:..| 00000230 30 2c 30 29 3b 22 20 20 20 20 20 20 20 20 20 20 |0,0);" | 00000240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000250 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a | ":| 00000260 f1 8a 30 2c 35 29 22 20 20 20 20 20 20 20 20 20 |..0,5)" | 00000270 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000280 22 0d 01 5e 06 e1 20 0d 01 68 15 dd 20 f2 72 61 |"..^.. ..h.. .ra| 00000290 6e 64 6f 6d 3a 64 6f 6e 65 3d 30 20 0d 01 72 1f |ndom:done=0 ..r.| 000002a0 52 3d b3 28 38 29 3a 59 3d b3 28 31 33 29 2d 31 |R=.(8):Y=.(13)-1| 000002b0 3a 58 3d b3 28 32 30 29 2d 31 20 0d 01 7c 10 e7 |:X=.(20)-1 ..|..| 000002c0 20 52 3d 31 20 8c 20 f2 75 70 20 0d 01 86 12 e7 | R=1 . .up .....| 000002d0 20 52 3d 32 20 8c 20 f2 64 6f 77 6e 20 0d 01 90 | R=2 . .down ...| 000002e0 13 e7 20 52 3d 33 20 8c 20 f2 72 69 67 68 74 20 |.. R=3 . .right | 000002f0 0d 01 9a 12 e7 20 52 3d 34 20 8c 20 f2 6c 65 66 |..... R=4 . .lef| 00000300 74 20 0d 01 a4 15 e7 20 52 3d 35 20 8c 20 f2 75 |t ..... R=5 . .u| 00000310 70 72 69 67 68 74 20 0d 01 ae 17 e7 20 52 3d 36 |pright ..... R=6| 00000320 20 8c 20 f2 64 6f 77 6e 72 69 67 68 74 20 0d 01 | . .downright ..| 00000330 b8 14 e7 20 52 3d 37 20 8c 20 f2 75 70 6c 65 66 |... R=7 . .uplef| 00000340 74 20 0d 01 c2 16 e7 20 52 3d 38 20 8c 20 f2 64 |t ..... R=8 . .d| 00000350 6f 77 6e 6c 65 66 74 20 0d 01 cc 15 20 e7 20 64 |ownleft .... . d| 00000360 6f 6e 65 3d 30 20 8c 20 8d 44 72 41 20 0d 01 d6 |one=0 . .DrA ...| 00000370 06 e1 20 0d 01 e0 0e 20 dd 20 f2 65 6d 70 74 79 |.. .... . .empty| 00000380 20 0d 01 ea 1b 20 e3 20 4e 3d 30 20 b8 20 31 39 | .... . N=0 . 19| 00000390 3a e3 20 4a 3d 30 20 b8 20 31 32 20 0d 01 f4 16 |:. J=0 . 12 ....| 000003a0 20 47 24 28 4e 2c 4a 29 3d 22 20 22 3a ed 3a ed | G$(N,J)=" ":.:.| 000003b0 20 20 0d 01 fe 07 20 e1 20 0d 02 08 0c dd 20 f2 | .... . ..... .| 000003c0 68 69 64 65 20 0d 02 12 0a 43 3d 31 3a f5 20 0d |hide ....C=1:. .| 000003d0 02 1c 15 54 24 3d 58 24 28 43 29 3a 4c 3d a9 28 |...T$=X$(C):L=.(| 000003e0 54 24 29 20 0d 02 26 0c f2 72 61 6e 64 6f 6d 20 |T$) ..&..random | 000003f0 0d 02 30 10 43 3d 43 2b 31 3a fd 43 3d 32 31 20 |..0.C=C+1:.C=21 | 00000400 0d 02 3a 06 e1 20 0d 02 44 0b 20 dd 20 f2 75 70 |..:.. ..D. . .up| 00000410 20 0d 02 4e 0d 20 61 66 6c 61 67 3d 30 20 0d 02 | ..N. aflag=0 ..| 00000420 58 11 e7 20 59 2b 4c 3e 31 32 20 8c 20 e1 20 0d |X.. Y+L>12 . . .| 00000430 02 62 10 e3 20 4e 3d 30 20 b8 20 4c 2d 31 20 0d |.b.. N=0 . L-1 .| 00000440 02 6c 1e e7 20 47 24 28 58 2c 59 2b 4e 29 3c 3e |.l.. G$(X,Y+N)<>| 00000450 22 20 22 20 8c 20 f2 63 68 65 63 6b 20 0d 02 76 |" " . .check ..v| 00000460 06 ed 20 0d 02 80 12 e7 20 61 66 6c 61 67 3d 31 |.. ..... aflag=1| 00000470 20 8c 20 e1 20 0d 02 8a 28 20 e3 20 4e 3d 30 20 | . . ...( . N=0 | 00000480 b8 20 4c 2d 31 3a 47 24 28 58 2c 59 2b 4e 29 3d |. L-1:G$(X,Y+N)=| 00000490 c1 54 24 2c 4e 2b 31 2c 31 29 3a ed 20 0d 02 94 |.T$,N+1,1):. ...| 000004a0 0c 20 64 6f 6e 65 3d 31 20 0d 02 9e 06 e1 20 0d |. done=1 ..... .| 000004b0 02 a8 0d dd 20 f2 63 68 65 63 6b 20 0d 02 b2 1f |.... .check ....| 000004c0 e7 20 47 24 28 58 2c 59 2b 4e 29 3d c1 54 24 2c |. G$(X,Y+N)=.T$,| 000004d0 4e 2b 31 2c 31 29 20 8c 20 e1 20 0d 02 bc 0c 61 |N+1,1) . . ....a| 000004e0 66 6c 61 67 3d 31 20 0d 02 c6 06 e1 20 0d 02 d0 |flag=1 ..... ...| 000004f0 14 dd 20 f2 64 6f 77 6e 3a 61 66 6c 61 67 3d 30 |.. .down:aflag=0| 00000500 20 0d 02 da 10 e7 20 59 2d 4c 3c 30 20 8c 20 e1 | ..... Y-L<0 . .| 00000510 20 0d 02 e4 10 e3 20 4e 3d 30 20 b8 20 4c 2d 31 | ..... N=0 . L-1| 00000520 20 0d 02 ee 1f e7 20 47 24 28 58 2c 59 2d 4e 29 | ..... G$(X,Y-N)| 00000530 3c 3e 22 20 22 20 8c 20 f2 63 68 65 63 6b 6d 20 |<>" " . .checkm | 00000540 0d 02 f8 06 ed 20 0d 03 02 12 e7 20 61 66 6c 61 |..... ..... afla| 00000550 67 3d 31 20 8c 20 e1 20 0d 03 0c 27 e3 20 4e 3d |g=1 . . ...'. N=| 00000560 30 20 b8 20 4c 2d 31 3a 47 24 28 58 2c 59 2d 4e |0 . L-1:G$(X,Y-N| 00000570 29 3d c1 54 24 2c 4e 2b 31 2c 31 29 3a ed 20 0d |)=.T$,N+1,1):. .| 00000580 03 16 0b 64 6f 6e 65 3d 31 20 0d 03 20 06 e1 20 |...done=1 .. .. | 00000590 0d 03 2a 0e dd 20 f2 63 68 65 63 6b 6d 20 0d 03 |..*.. .checkm ..| 000005a0 34 1f e7 20 47 24 28 58 2c 59 2d 4e 29 3d c1 54 |4.. G$(X,Y-N)=.T| 000005b0 24 2c 4e 2b 31 2c 31 29 20 8c 20 e1 20 0d 03 3e |$,N+1,1) . . ..>| 000005c0 0d 20 61 66 6c 61 67 3d 31 20 0d 03 48 07 20 e1 |. aflag=1 ..H. .| 000005d0 20 0d 03 52 0c dd 20 f2 6d 61 7a 65 20 0d 03 5c | ..R.. .maze ..\| 000005e0 19 e3 20 4a 3d 30 20 b8 20 31 39 3a e3 4e 3d 30 |.. J=0 . 19:.N=0| 000005f0 20 b8 20 31 32 20 0d 03 66 10 20 52 3d b3 28 32 | . 12 ..f. R=.(2| 00000600 36 29 2b 36 34 20 0d 03 70 15 20 4d 24 28 4a 2c |6)+64 ..p. M$(J,| 00000610 4e 29 3d 47 24 28 4a 2c 4e 29 20 0d 03 7a 21 e7 |N)=G$(J,N) ..z!.| 00000620 20 47 24 28 4a 2c 4e 29 3d 22 20 22 20 8c 20 47 | G$(J,N)=" " . G| 00000630 24 28 4a 2c 4e 29 3d bd 28 52 29 20 0d 03 84 08 |$(J,N)=.(R) ....| 00000640 ed 3a ed 20 0d 03 8e 06 e1 20 0d 03 98 0d dd 20 |.:. ..... ..... | 00000650 f2 72 69 67 68 74 20 0d 03 a2 19 61 66 6c 61 67 |.right ....aflag| 00000660 3d 30 3a e7 20 58 2b 4c 3e 31 39 20 8c 20 e1 20 |=0:. X+L>19 . . | 00000670 0d 03 ac 0d e3 4e 3d 30 b8 4c 2d 31 20 0d 03 b6 |.....N=0.L-1 ...| 00000680 1f e7 20 47 24 28 58 2b 4e 2c 59 29 3c 3e 22 20 |.. G$(X+N,Y)<>" | 00000690 22 20 8c 20 f2 63 68 65 63 6b 78 20 0d 03 c0 06 |" . .checkx ....| 000006a0 ed 20 0d 03 ca 12 e7 20 61 66 6c 61 67 3d 31 20 |. ..... aflag=1 | 000006b0 8c 20 e1 20 0d 03 d4 24 e3 4e 3d 30 b8 4c 2d 31 |. . ...$.N=0.L-1| 000006c0 3a 47 24 28 58 2b 4e 2c 59 29 3d c1 54 24 2c 4e |:G$(X+N,Y)=.T$,N| 000006d0 2b 31 2c 31 29 3a ed 20 0d 03 de 0b 64 6f 6e 65 |+1,1):. ....done| 000006e0 3d 31 20 0d 03 e8 06 e1 20 0d 03 f2 0f 20 dd 20 |=1 ..... .... . | 000006f0 f2 63 68 65 63 6b 78 20 0d 03 fc 1f e7 20 47 24 |.checkx ..... G$| 00000700 28 58 2b 4e 2c 59 29 3d c1 54 24 2c 4e 2b 31 2c |(X+N,Y)=.T$,N+1,| 00000710 31 29 20 8c 20 e1 20 0d 04 06 0c 61 66 6c 61 67 |1) . . ....aflag| 00000720 3d 31 20 0d 04 10 06 e1 20 0d 04 1a 0c dd 20 f2 |=1 ..... ..... .| 00000730 6c 65 66 74 20 0d 04 24 18 61 66 6c 61 67 3d 30 |left ..$.aflag=0| 00000740 3a e7 20 58 2d 4c 3c 30 20 8c 20 e1 20 0d 04 2e |:. X-L<0 . . ...| 00000750 0d e3 4e 3d 30 b8 4c 2d 31 20 0d 04 38 21 e7 20 |..N=0.L-1 ..8!. | 00000760 47 24 28 58 2d 4e 2c 59 29 3c 3e 22 20 22 20 8c |G$(X-N,Y)<>" " .| 00000770 20 f2 63 68 65 63 6b 78 6d 20 20 0d 04 42 06 ed | .checkxm ..B..| 00000780 20 0d 04 4c 12 e7 20 61 66 6c 61 67 3d 31 20 8c | ..L.. aflag=1 .| 00000790 20 e1 20 0d 04 56 24 e3 4e 3d 30 b8 4c 2d 31 3a | . ..V$.N=0.L-1:| 000007a0 47 24 28 58 2d 4e 2c 59 29 3d c1 54 24 2c 4e 2b |G$(X-N,Y)=.T$,N+| 000007b0 31 2c 31 29 3a ed 20 0d 04 60 0c 64 6f 6e 65 3d |1,1):. ..`.done=| 000007c0 31 20 20 0d 04 6a 06 e1 20 0d 04 74 0f dd 20 f2 |1 ..j.. ..t.. .| 000007d0 63 68 65 63 6b 78 6d 20 0d 04 7e 1f e7 20 47 24 |checkxm ..~.. G$| 000007e0 28 58 2d 4e 2c 59 29 3d c1 54 24 2c 4e 2b 31 2c |(X-N,Y)=.T$,N+1,| 000007f0 31 29 20 8c 20 e1 20 0d 04 88 0c 61 66 6c 61 67 |1) . . ....aflag| 00000800 3d 31 20 0d 04 92 06 e1 20 0d 04 9c 0f dd 20 f2 |=1 ..... ..... .| 00000810 75 70 72 69 67 68 74 20 0d 04 a6 22 61 66 6c 61 |upright ..."afla| 00000820 67 3d 30 3a e7 20 59 2b 4c 3e 31 32 20 84 20 58 |g=0:. Y+L>12 . X| 00000830 2b 4c 3e 31 39 20 8c 20 e1 20 0d 04 b0 10 e3 20 |+L>19 . . ..... | 00000840 4e 3d 30 20 b8 20 4c 2d 31 20 0d 04 ba 22 e7 20 |N=0 . L-1 ...". | 00000850 47 24 28 58 2b 4e 2c 59 2b 4e 29 3c 3e 22 20 22 |G$(X+N,Y+N)<>" "| 00000860 20 8c 20 f2 63 68 65 63 6b 75 72 20 0d 04 c4 07 | . .checkur ....| 00000870 20 ed 20 0d 04 ce 12 e7 20 61 66 6c 61 67 3d 31 | . ..... aflag=1| 00000880 20 8c 20 e1 20 0d 04 d8 0f e3 4e 3d 30 20 b8 20 | . . .....N=0 . | 00000890 4c 2d 31 20 0d 04 e2 1d 47 24 28 58 2b 4e 2c 59 |L-1 ....G$(X+N,Y| 000008a0 2b 4e 29 3d c1 54 24 2c 4e 2b 31 2c 31 29 3a ed |+N)=.T$,N+1,1):.| 000008b0 20 0d 04 ec 0b 64 6f 6e 65 3d 31 20 0d 04 f6 06 | ....done=1 ....| 000008c0 e1 20 0d 05 00 0f dd 20 f2 63 68 65 63 6b 75 72 |. ..... .checkur| 000008d0 20 0d 05 0a 21 e7 20 47 24 28 58 2b 4e 2c 59 2b | ...!. G$(X+N,Y+| 000008e0 4e 29 3d c1 54 24 2c 4e 2b 31 2c 31 29 20 8c 20 |N)=.T$,N+1,1) . | 000008f0 e1 20 0d 05 14 0c 61 66 6c 61 67 3d 31 20 0d 05 |. ....aflag=1 ..| 00000900 1e 06 e1 20 0d 05 28 19 dd 20 f2 64 6f 77 6e 72 |... ..(.. .downr| 00000910 69 67 68 74 3a 61 66 6c 61 67 3d 30 20 0d 05 32 |ight:aflag=0 ..2| 00000920 18 e7 20 59 2d 4c 3c 30 20 84 20 58 2d 4c 3c 30 |.. Y-L<0 . X-L<0| 00000930 20 8c 20 e1 20 0d 05 3c 10 e3 20 4e 3d 30 20 b8 | . . ..<.. N=0 .| 00000940 20 4c 2d 31 20 0d 05 46 21 e7 20 47 24 28 58 2d | L-1 ..F!. G$(X-| 00000950 4e 2c 59 2d 4e 29 3c 3e 22 20 22 20 8c 20 f2 63 |N,Y-N)<>" " . .c| 00000960 68 65 63 6c 6c 20 0d 05 50 06 ed 20 0d 05 5a 12 |hecll ..P.. ..Z.| 00000970 e7 20 61 66 6c 61 67 3d 31 20 8c 20 e1 20 0d 05 |. aflag=1 . . ..| 00000980 64 0f e3 4e 3d 30 20 b8 20 4c 2d 31 20 0d 05 6e |d..N=0 . L-1 ..n| 00000990 1d 47 24 28 58 2d 4e 2c 59 2d 4e 29 3d c1 54 24 |.G$(X-N,Y-N)=.T$| 000009a0 2c 4e 2b 31 2c 31 29 3a ed 20 0d 05 78 0b 64 6f |,N+1,1):. ..x.do| 000009b0 6e 65 3d 31 20 0d 05 82 06 e1 20 0d 05 8c 0e dd |ne=1 ..... .....| 000009c0 20 f2 63 68 65 63 6c 6c 20 0d 05 96 21 e7 20 47 | .checll ...!. G| 000009d0 24 28 58 2d 4e 2c 59 2d 4e 29 3d c1 54 24 2c 4e |$(X-N,Y-N)=.T$,N| 000009e0 2b 31 2c 31 29 20 8c 20 e1 20 0d 05 a0 0c 61 66 |+1,1) . . ....af| 000009f0 6c 61 67 3d 31 20 0d 05 aa 06 e1 20 0d 05 b4 17 |lag=1 ..... ....| 00000a00 20 dd 20 f2 75 70 6c 65 66 74 3a 61 66 6c 61 67 | . .upleft:aflag| 00000a10 3d 30 20 0d 05 be 19 e7 20 59 2b 4c 3e 31 32 20 |=0 ..... Y+L>12 | 00000a20 84 20 58 2d 4c 3c 30 20 8c 20 e1 20 0d 05 c8 10 |. X-L<0 . . ....| 00000a30 e3 20 4e 3d 30 20 b8 20 4c 2d 31 20 0d 05 d2 21 |. N=0 . L-1 ...!| 00000a40 e7 20 47 24 28 58 2d 4e 2c 59 2b 4e 29 3c 3e 22 |. G$(X-N,Y+N)<>"| 00000a50 20 22 20 8c 20 f2 63 68 65 63 6d 6d 20 0d 05 dc | " . .checmm ...| 00000a60 06 ed 20 0d 05 e6 12 e7 20 61 66 6c 61 67 3d 31 |.. ..... aflag=1| 00000a70 20 8c 20 e1 20 0d 05 f0 0f e3 4e 3d 30 20 b8 20 | . . .....N=0 . | 00000a80 4c 2d 31 20 0d 05 fa 1d 47 24 28 58 2d 4e 2c 59 |L-1 ....G$(X-N,Y| 00000a90 2b 4e 29 3d c1 54 24 2c 4e 2b 31 2c 31 29 3a ed |+N)=.T$,N+1,1):.| 00000aa0 20 0d 06 04 0b 64 6f 6e 65 3d 31 20 0d 06 0e 06 | ....done=1 ....| 00000ab0 e1 20 0d 06 18 0e dd 20 f2 63 68 65 63 6d 6d 20 |. ..... .checmm | 00000ac0 0d 06 22 21 e7 20 47 24 28 58 2d 4e 2c 59 2b 4e |.."!. G$(X-N,Y+N| 00000ad0 29 3d c1 54 24 2c 4e 2b 31 2c 31 29 20 8c 20 e1 |)=.T$,N+1,1) . .| 00000ae0 20 0d 06 2c 0c 61 66 6c 61 67 3d 31 20 0d 06 36 | ..,.aflag=1 ..6| 00000af0 06 e1 20 0d 06 40 18 dd 20 f2 64 6f 77 6e 6c 65 |.. ..@.. .downle| 00000b00 66 74 3a 61 66 6c 61 67 3d 30 20 0d 06 4a 18 e7 |ft:aflag=0 ..J..| 00000b10 20 59 2d 4c 3c 30 20 84 20 58 2d 4c 3c 30 20 8c | Y-L<0 . X-L<0 .| 00000b20 20 e1 20 0d 06 54 10 e3 20 4e 3d 30 20 b8 20 4c | . ..T.. N=0 . L| 00000b30 2d 31 20 0d 06 5e 21 e7 20 47 24 28 58 2d 4e 2c |-1 ..^!. G$(X-N,| 00000b40 59 2d 4e 29 3c 3e 22 20 22 20 8c 20 f2 63 68 65 |Y-N)<>" " . .che| 00000b50 63 6f 6f 20 0d 06 68 06 ed 20 0d 06 72 12 e7 20 |coo ..h.. ..r.. | 00000b60 61 66 6c 61 67 3d 31 20 8c 20 e1 20 0d 06 7c 0f |aflag=1 . . ..|.| 00000b70 e3 4e 3d 30 20 b8 20 4c 2d 31 20 0d 06 86 1d 47 |.N=0 . L-1 ....G| 00000b80 24 28 58 2d 4e 2c 59 2d 4e 29 3d c1 54 24 2c 4e |$(X-N,Y-N)=.T$,N| 00000b90 2b 31 2c 31 29 3a ed 20 0d 06 90 0b 64 6f 6e 65 |+1,1):. ....done| 00000ba0 3d 31 20 0d 06 9a 06 e1 20 0d 06 a4 0e dd 20 f2 |=1 ..... ..... .| 00000bb0 63 68 65 63 6f 6f 20 0d 06 ae 21 e7 20 47 24 28 |checoo ...!. G$(| 00000bc0 58 2d 4e 2c 59 2d 4e 29 3d c1 54 24 2c 4e 2b 31 |X-N,Y-N)=.T$,N+1| 00000bd0 2c 31 29 20 8c 20 e1 20 0d 06 b8 0c 61 66 6c 61 |,1) . . ....afla| 00000be0 67 3d 31 20 0d 06 c2 06 e1 20 0d 06 cc 0b dd 20 |g=1 ..... ..... | 00000bf0 f2 73 65 65 20 0d 06 d6 08 20 fb 33 20 0d 06 e0 |.see .... .3 ...| 00000c00 1a e3 20 4e 3d 30 20 b8 20 31 39 3a e3 20 4a 3d |.. N=0 . 19:. J=| 00000c10 30 20 b8 20 31 32 20 0d 06 ea 1c e7 20 4d 24 28 |0 . 12 ..... M$(| 00000c20 4e 2c 4a 29 3c 3e 22 20 22 20 8c 20 f2 70 72 69 |N,J)<>" " . .pri| 00000c30 6e 74 20 0d 06 f4 08 ed 3a ed 20 0d 06 fe 06 e1 |nt .....:. .....| 00000c40 20 0d 07 08 0d dd 20 f2 70 72 69 6e 74 20 0d 07 | ..... .print ..| 00000c50 12 16 f1 8a 4e 2a 32 2c 4a 2a 32 29 4d 24 28 4e |....N*2,J*2)M$(N| 00000c60 2c 4a 29 20 0d 07 1c 06 e1 20 0d 07 26 11 dd 20 |,J) ..... ..&.. | 00000c70 f2 70 72 69 6e 74 6d 61 7a 65 20 0d 07 30 08 20 |.printmaze ..0. | 00000c80 ef 32 20 0d 07 3a 1a e3 20 4e 3d 30 20 b8 20 31 |.2 ..:.. N=0 . 1| 00000c90 39 3a e3 20 4a 3d 30 20 b8 20 31 32 20 0d 07 44 |9:. J=0 . 12 ..D| 00000ca0 13 ef 31 3a f1 47 24 28 4e 2c 4a 29 3b 3a ed 20 |..1:.G$(N,J);:. | 00000cb0 0d 07 4e 0b ef 31 3a f1 3a ed 20 0d 07 58 08 20 |..N..1:.:. ..X. | 00000cc0 ef 33 20 0d 07 62 06 e1 20 0d 07 6c 11 dd 20 f2 |.3 ..b.. ..l.. .| 00000cd0 74 65 78 74 3a ea 20 68 6f 72 0d 07 76 07 20 fb |text:. hor..v. .| 00000ce0 31 0d 07 80 14 20 63 6f 75 6e 74 3d 31 3a 68 6f |1.... count=1:ho| 00000cf0 72 3d 2d 31 30 0d 07 8a 27 e3 4e 3d 31 b8 34 3a |r=-10...'.N=1.4:| 00000d00 68 6f 72 3d 68 6f 72 2b 31 30 3a e3 20 4a 3d 32 |hor=hor+10:. J=2| 00000d10 36 20 b8 20 33 30 20 20 20 20 20 20 0d 07 94 26 |6 . 30 ...&| 00000d20 f1 8a 68 6f 72 2c 4a 29 58 24 28 63 6f 75 6e 74 |..hor,J)X$(count| 00000d30 29 3b 3a 63 6f 75 6e 74 3d 63 6f 75 6e 74 2b 31 |);:count=count+1| 00000d40 20 20 0d 07 9e 07 ed 3a ed 0d 07 a8 05 e1 0d 07 | .....:........| 00000d50 b2 0a 20 dd 20 f2 6d 63 0d 07 bc 0c de 20 53 25 |.. . .mc..... S%| 00000d60 20 35 30 30 0d 07 c6 23 78 6c 6f 3d 26 37 30 3a | 500...#xlo=&70:| 00000d70 78 68 69 3d 26 37 31 3a 79 6c 6f 3d 26 37 32 3a |xhi=&71:ylo=&72:| 00000d80 79 68 69 3d 26 37 33 0d 07 d0 23 6c 6f 67 63 6f |yhi=&73...#logco| 00000d90 6c 3d 26 37 34 3a 70 68 79 73 63 6f 6c 3d 26 37 |l=&74:physcol=&7| 00000da0 35 3a 73 74 65 70 3d 26 38 46 0d 07 da 2a 6f 73 |5:step=&8F...*os| 00000db0 62 79 74 65 3d 26 46 46 46 34 3a 6f 73 77 6f 72 |byte=&FFF4:oswor| 00000dc0 64 3d 26 46 46 46 31 3a 6f 73 77 72 63 68 3d 26 |d=&FFF1:oswrch=&| 00000dd0 46 46 45 45 0d 07 e4 20 70 72 74 62 79 74 65 3d |FFEE... prtbyte=| 00000de0 26 37 36 3a 70 74 72 3d 26 37 37 3a 62 79 74 65 |&76:ptr=&77:byte| 00000df0 3d 26 37 41 0d 07 ee 15 62 61 73 65 3d 26 37 46 |=&7A....base=&7F| 00000e00 3a 64 61 74 61 3d 26 37 39 0d 07 f8 12 77 72 6b |:data=&79....wrk| 00000e10 73 70 63 65 3d 53 25 2b 32 39 32 0d 08 02 0f e3 |spce=S%+292.....| 00000e20 50 41 53 53 3d 30 b8 32 88 32 0d 08 0c 09 50 25 |PASS=0.2.2....P%| 00000e30 3d 53 25 0d 08 16 0c 5b 4f 50 54 50 41 53 53 0d |=S%....[OPTPASS.| 00000e40 08 20 0b 4c 44 41 20 23 32 39 0d 08 2a 0e 4a 53 |. .LDA #29..*.JS| 00000e50 52 20 6f 73 77 72 63 68 0d 08 34 0a 4c 44 41 20 |R oswrch..4.LDA | 00000e60 23 30 0d 08 3e 0a 4c 44 58 20 23 34 0d 08 48 16 |#0..>.LDX #4..H.| 00000e70 2e 72 65 70 65 61 74 20 4a 53 52 20 6f 73 77 72 |.repeat JSR oswr| 00000e80 63 68 0d 08 52 07 44 45 58 0d 08 5c 0e 42 4e 45 |ch..R.DEX..\.BNE| 00000e90 20 72 65 70 65 61 74 0d 08 66 17 4c 44 41 20 23 | repeat..f.LDA #| 00000ea0 28 53 25 2b 33 34 36 29 20 83 20 32 35 36 0d 08 |(S%+346) . 256..| 00000eb0 70 0c 53 54 41 20 64 61 74 61 0d 08 7a 17 4c 44 |p.STA data..z.LD| 00000ec0 41 20 23 28 53 25 2b 33 34 36 29 20 81 20 32 35 |A #(S%+346) . 25| 00000ed0 36 0d 08 84 0e 53 54 41 20 64 61 74 61 2b 31 0d |6....STA data+1.| 00000ee0 08 8e 15 4c 44 41 20 23 32 3a 4a 53 52 20 6f 73 |...LDA #2:JSR os| 00000ef0 77 72 63 68 0d 08 98 0a 4c 44 58 20 23 30 0d 08 |wrch....LDX #0..| 00000f00 a2 16 4c 44 41 20 23 77 72 6b 73 70 63 65 20 83 |..LDA #wrkspce .| 00000f10 20 32 35 36 0d 08 ac 0b 53 54 41 20 78 6c 6f 0d | 256....STA xlo.| 00000f20 08 b6 16 4c 44 41 20 23 77 72 6b 73 70 63 65 20 |...LDA #wrkspce | 00000f30 81 20 32 35 36 0d 08 c0 0b 53 54 41 20 78 68 69 |. 256....STA xhi| 00000f40 0d 08 ca 12 2e 6c 61 62 65 6c 20 4c 44 41 20 78 |.....label LDA x| 00000f50 6c 6f 0d 08 d4 07 43 4c 43 0d 08 de 0a 41 44 43 |lo....CLC....ADC| 00000f60 20 23 36 0d 08 e8 0b 53 54 41 20 78 6c 6f 0d 08 | #6....STA xlo..| 00000f70 f2 0e 53 54 41 20 62 61 73 65 2c 58 0d 08 fc 07 |..STA base,X....| 00000f80 49 4e 58 0d 09 06 10 42 43 43 20 63 61 72 72 79 |INX....BCC carry| 00000f90 63 6c 72 0d 09 10 0b 49 4e 43 20 78 68 69 0d 09 |clr....INC xhi..| 00000fa0 1a 15 2e 63 61 72 72 79 63 6c 72 20 4c 44 41 20 |...carryclr LDA | 00000fb0 78 68 69 0d 09 24 0e 53 54 41 20 62 61 73 65 2c |xhi..$.STA base,| 00000fc0 58 0d 09 2e 07 49 4e 58 0d 09 38 0b 43 50 58 20 |X....INX..8.CPX | 00000fd0 23 31 36 0d 09 42 0d 42 43 43 20 6c 61 62 65 6c |#16..B.BCC label| 00000fe0 0d 09 4c 0c 4c 44 41 20 23 26 46 46 0d 09 56 0b |..L.LDA #&FF..V.| 00000ff0 53 54 41 20 79 6c 6f 0d 09 60 0a 4c 44 41 20 23 |STA ylo..`.LDA #| 00001000 33 0d 09 6a 0b 53 54 41 20 79 68 69 0d 09 74 0c |3..j.STA yhi..t.| 00001010 4c 44 41 20 23 31 33 35 0d 09 7e 0e 4a 53 52 20 |LDA #135..~.JSR | 00001020 6f 73 62 79 74 65 0d 09 88 0a 43 50 59 20 23 33 |osbyte....CPY #3| 00001030 0d 09 92 0f 42 43 53 20 6d 6f 64 65 67 74 33 0d |....BCS modegt3.| 00001040 09 9c 07 49 4e 59 0d 09 a6 10 2e 6d 6f 64 65 67 |...INY.....modeg| 00001050 74 33 20 54 59 41 0d 09 b0 09 52 4f 52 20 41 0d |t3 TYA....ROR A.| 00001060 09 ba 10 42 43 53 20 6d 6f 64 65 32 6f 72 35 0d |...BCS mode2or5.| 00001070 09 c4 14 2e 6d 6f 64 65 31 6f 72 34 20 4c 44 41 |....mode1or4 LDA| 00001080 20 23 34 0d 09 ce 11 53 54 41 20 77 72 6b 73 70 | #4....STA wrksp| 00001090 63 65 2b 35 0d 09 d8 0a 4c 44 41 20 23 32 0d 09 |ce+5....LDA #2..| 000010a0 e2 0c 53 54 41 20 73 74 65 70 0d 09 ec 0f 42 4e |..STA step....BN| 000010b0 45 20 6c 69 6e 65 73 70 63 0d 09 f6 14 2e 6d 6f |E linespc.....mo| 000010c0 64 65 32 6f 72 35 20 4c 44 41 20 23 38 0d 0a 00 |de2or5 LDA #8...| 000010d0 11 53 54 41 20 77 72 6b 73 70 63 65 2b 35 0d 0a |.STA wrkspce+5..| 000010e0 0a 0a 4c 44 41 20 23 35 0d 0a 14 0c 53 54 41 20 |..LDA #5....STA | 000010f0 73 74 65 70 0d 0a 1e 1a 2e 6c 69 6e 65 73 70 63 |step.....linespc| 00001100 20 4c 44 59 20 23 30 3a 4c 44 58 20 23 33 0d 0a | LDY #0:LDX #3..| 00001110 28 0f 4a 53 52 20 70 72 74 69 6e 73 74 0d 0a 32 |(.JSR prtinst..2| 00001120 14 2e 62 69 74 69 6d 61 67 65 20 4c 44 41 20 23 |..bitimage LDA #| 00001130 30 0d 0a 3c 0b 53 54 41 20 78 6c 6f 0d 0a 46 0b |0..<.STA xlo..F.| 00001140 53 54 41 20 78 68 69 0d 0a 50 11 4c 44 59 20 23 |STA xhi..P.LDY #| 00001150 33 3a 4c 44 58 20 23 34 0d 0a 5a 0f 4a 53 52 20 |3:LDX #4..Z.JSR | 00001160 70 72 74 69 6e 73 74 0d 0a 64 12 2e 6e 65 77 63 |prtinst..d..newc| 00001170 6f 6c 20 4c 44 58 20 23 34 0d 0a 6e 14 2e 72 65 |ol LDX #4..n..re| 00001180 61 64 70 69 78 20 54 58 41 3a 50 48 41 0d 0a 78 |adpix TXA:PHA..x| 00001190 0c 4c 44 58 20 23 78 6c 6f 0d 0a 82 0a 4c 44 59 |.LDX #xlo....LDY| 000011a0 20 23 30 0d 0a 8c 0a 4c 44 41 20 23 39 0d 0a 96 | #0....LDA #9...| 000011b0 0e 4a 53 52 20 6f 73 77 6f 72 64 0d 0a a0 0b 4c |.JSR osword....L| 000011c0 44 41 20 23 26 42 0d 0a aa 0a 4c 44 59 20 23 30 |DA #&B....LDY #0| 000011d0 0d 0a b4 0f 4c 44 58 20 23 6c 6f 67 63 6f 6c 0d |....LDX #logcol.| 000011e0 0a be 0e 4a 53 52 20 6f 73 77 6f 72 64 0d 0a c8 |...JSR osword...| 000011f0 0b 50 4c 41 3a 54 41 58 0d 0a d2 0f 4c 44 41 20 |.PLA:TAX....LDA | 00001200 70 68 79 73 63 6f 6c 0d 0a dc 08 80 20 23 37 0d |physcol..... #7.| 00001210 0a e6 09 41 53 4c 20 41 0d 0a f0 0e 53 54 41 20 |...ASL A....STA | 00001220 62 79 74 65 2c 58 0d 0a fa 0b 4c 44 41 20 79 6c |byte,X....LDA yl| 00001230 6f 0d 0b 04 07 53 45 43 0d 0b 0e 0a 53 42 43 20 |o....SEC....SBC | 00001240 23 34 0d 0b 18 0b 53 54 41 20 79 6c 6f 0d 0b 22 |#4....STA ylo.."| 00001250 11 42 43 53 20 63 68 6b 63 6f 6c 65 6e 64 0d 0b |.BCS chkcolend..| 00001260 2c 0b 44 45 43 20 79 68 69 0d 0b 36 12 2e 63 68 |,.DEC yhi..6..ch| 00001270 6b 63 6f 6c 65 6e 64 20 44 45 58 0d 0b 40 0f 42 |kcolend DEX..@.B| 00001280 4e 45 20 72 65 61 64 70 69 78 0d 0b 4a 0c 4c 44 |NE readpix..J.LD| 00001290 59 20 73 74 65 70 0d 0b 54 10 2e 62 61 63 6b 20 |Y step..T..back | 000012a0 4c 44 41 20 23 30 0d 0b 5e 0f 53 54 41 20 70 72 |LDA #0..^.STA pr| 000012b0 74 62 79 74 65 0d 0b 68 0a 4c 44 58 20 23 34 0d |tbyte..h.LDX #4.| 000012c0 0b 72 12 2e 70 69 78 65 6c 20 54 58 41 3a 50 48 |.r..pixel TXA:PH| 000012d0 41 0d 0b 7c 0e 4c 44 41 20 62 79 74 65 2c 58 0d |A..|.LDA byte,X.| 000012e0 0b 86 07 54 41 58 0d 0b 90 0e 4c 44 41 20 62 61 |...TAX....LDA ba| 000012f0 73 65 2c 58 0d 0b 9a 0b 53 54 41 20 70 74 72 0d |se,X....STA ptr.| 00001300 0b a4 10 4c 44 41 20 62 61 73 65 2b 31 2c 58 0d |...LDA base+1,X.| 00001310 0b ae 0d 53 54 41 20 70 74 72 2b 31 0d 0b b8 0f |...STA ptr+1....| 00001320 4c 44 41 20 28 70 74 72 29 2c 59 0d 0b c2 07 43 |LDA (ptr),Y....C| 00001330 4c 43 0d 0b cc 0f 41 44 43 20 70 72 74 62 79 74 |LC....ADC prtbyt| 00001340 65 0d 0b d6 0f 53 54 41 20 70 72 74 62 79 74 65 |e....STA prtbyte| 00001350 0d 0b e0 0b 50 4c 41 3a 54 41 58 0d 0b ea 07 44 |....PLA:TAX....D| 00001360 45 58 0d 0b f4 0d 42 45 51 20 70 72 69 6e 74 0d |EX....BEQ print.| 00001370 0b fe 0f 41 53 4c 20 70 72 74 62 79 74 65 0d 0c |...ASL prtbyte..| 00001380 08 0f 41 53 4c 20 70 72 74 62 79 74 65 0d 0c 12 |..ASL prtbyte...| 00001390 0d 42 43 43 20 70 69 78 65 6c 0d 0c 1c 16 2e 70 |.BCC pixel.....p| 000013a0 72 69 6e 74 20 4c 44 41 20 70 72 74 62 79 74 65 |rint LDA prtbyte| 000013b0 0d 0c 26 0f 4a 53 52 20 73 65 6e 64 70 72 74 0d |..&.JSR sendprt.| 000013c0 0c 30 07 44 45 59 0d 0c 3a 0c 42 50 4c 20 62 61 |.0.DEY..:.BPL ba| 000013d0 63 6b 0d 0c 44 0f 2e 6e 78 74 63 6f 6c 20 43 4c |ck..D..nxtcol CL| 000013e0 43 0d 0c 4e 11 4c 44 41 20 77 72 6b 73 70 63 65 |C..N.LDA wrkspce| 000013f0 2b 35 0d 0c 58 0b 41 44 43 20 78 6c 6f 0d 0c 62 |+5..X.ADC xlo..b| 00001400 0b 53 54 41 20 78 6c 6f 0d 0c 6c 10 42 43 43 20 |.STA xlo..l.BCC | 00001410 63 68 6b 6c 6e 65 6e 64 0d 0c 76 0b 49 4e 43 20 |chklnend..v.INC | 00001420 78 68 69 0d 0c 80 15 2e 63 68 6b 6c 6e 65 6e 64 |xhi.....chklnend| 00001430 20 4c 44 41 20 78 68 69 0d 0c 8a 0a 43 4d 50 20 | LDA xhi....CMP | 00001440 23 35 0d 0c 94 0f 42 45 51 20 65 6e 64 6c 69 6e |#5....BEQ endlin| 00001450 65 0d 0c 9e 13 2e 63 6f 6c 74 6f 70 20 4c 44 41 |e.....coltop LDA| 00001460 20 23 31 36 0d 0c a8 07 43 4c 43 0d 0c b2 0b 41 | #16....CLC....A| 00001470 44 43 20 79 6c 6f 0d 0c bc 0b 53 54 41 20 79 6c |DC ylo....STA yl| 00001480 6f 0d 0c c6 0e 42 43 43 20 6e 65 77 63 6f 6c 0d |o....BCC newcol.| 00001490 0c d0 0b 49 4e 43 20 79 68 69 0d 0c da 0e 42 43 |...INC yhi....BC| 000014a0 53 20 6e 65 77 63 6f 6c 0d 0c e4 14 2e 65 6e 64 |S newcol.....end| 000014b0 6c 69 6e 65 20 4c 44 41 20 23 31 30 0d 0c ee 0f |line LDA #10....| 000014c0 4a 53 52 20 73 65 6e 64 70 72 74 0d 0c f8 15 2e |JSR sendprt.....| 000014d0 65 6e 64 63 68 65 63 6b 20 4c 44 41 20 79 68 69 |endcheck LDA yhi| 000014e0 0d 0d 02 0b 42 4d 49 20 65 6e 64 0d 0d 0c 10 4a |....BMI end....J| 000014f0 4d 50 20 62 69 74 69 6d 61 67 65 0d 0d 16 19 2e |MP bitimage.....| 00001500 70 72 74 69 6e 73 74 20 4c 44 41 20 28 64 61 74 |prtinst LDA (dat| 00001510 61 29 2c 59 0d 0d 20 0f 4a 53 52 20 73 65 6e 64 |a),Y.. .JSR send| 00001520 70 72 74 0d 0d 2a 0b 49 4e 59 3a 44 45 58 0d 0d |prt..*.INY:DEX..| 00001530 34 0f 42 4e 45 20 70 72 74 69 6e 73 74 0d 0d 3e |4.BNE prtinst..>| 00001540 07 52 54 53 0d 0d 48 17 2e 73 65 6e 64 70 72 74 |.RTS..H..sendprt| 00001550 20 50 48 41 3a 4c 44 41 20 23 31 0d 0d 52 0e 4a | PHA:LDA #1..R.J| 00001560 53 52 20 6f 73 77 72 63 68 0d 0d 5c 12 50 4c 41 |SR oswrch..\.PLA| 00001570 3a 4a 53 52 20 6f 73 77 72 63 68 0d 0d 66 07 52 |:JSR oswrch..f.R| 00001580 54 53 0d 0d 70 16 2e 65 6e 64 20 4c 44 59 20 23 |TS..p..end LDY #| 00001590 37 3a 4c 44 58 20 23 34 0d 0d 7a 0f 4a 53 52 20 |7:LDX #4..z.JSR | 000015a0 70 72 74 69 6e 73 74 0d 0d 84 15 4c 44 41 20 23 |prtinst....LDA #| 000015b0 33 3a 4a 53 52 20 6f 73 77 72 63 68 0d 0d 8e 07 |3:JSR oswrch....| 000015c0 52 54 53 0d 0d 98 05 5d 0d 0d a2 05 ed 0d 0d ac |RTS....]........| 000015d0 0b 64 61 74 61 3d 50 25 0d 0d b6 21 e3 49 25 3d |.data=P%...!.I%=| 000015e0 31 b8 36 3a 3f 64 61 74 61 3d 30 3a 64 61 74 61 |1.6:?data=0:data| 000015f0 3d 64 61 74 61 2b 31 3a ed 0d 0d c0 14 e3 49 25 |=data+1:......I%| 00001600 3d 30 b8 37 3a f3 43 6f 6c 6f 75 72 24 0d 0d ca |=0.7:.Colour$...| 00001610 23 e3 42 25 3d 31 b8 36 3a 3f 64 61 74 61 3d bb |#.B%=1.6:?data=.| 00001620 28 c1 43 6f 6c 6f 75 72 24 2c 42 25 2c 31 29 29 |(.Colour$,B%,1))| 00001630 0d 0d d4 12 64 61 74 61 3d 64 61 74 61 2b 31 3a |....data=data+1:| 00001640 ed 2c 0d 0d de 19 e3 49 25 3d 31 b8 31 31 3a f3 |.,.....I%=1.11:.| 00001650 42 25 3a 3f 64 61 74 61 3d 42 25 0d 0d e8 11 64 |B%:?data=B%....d| 00001660 61 74 61 3d 64 61 74 61 2b 31 3a ed 0d 0d f2 3d |ata=data+1:....=| 00001670 dc 20 30 30 30 30 30 30 2c 30 31 30 30 32 30 2c |. 000000,010020,| 00001680 30 32 31 30 32 31 2c 30 31 33 30 32 33 2c 32 31 |021021,013023,21| 00001690 32 31 32 31 2c 32 33 32 31 33 31 2c 33 31 33 33 |2121,232131,3133| 000016a0 32 33 2c 33 33 33 33 33 33 0d 0d fc 25 dc 20 32 |23,333333...%. 2| 000016b0 37 2c 36 35 2c 38 2c 32 37 2c 37 36 2c 31 39 32 |7,65,8,27,76,192| 000016c0 2c 33 2c 32 37 2c 31 32 37 2c 32 37 2c 37 0d 0e |,3,27,127,27,7..| 000016d0 06 06 20 e1 0d 0e 10 0b dd 20 f2 64 75 6d 70 0d |.. ...... .dump.| 000016e0 0e 1a 08 d6 20 53 25 0d 0e 24 05 e1 0d 0e 2e 0b |.... S%..$......| 000016f0 dd 20 f2 64 61 74 61 0d 0e 38 0e 58 3d 8e 20 22 |. .data..8.X=. "| 00001700 44 41 54 41 22 0d 0e 42 0e e3 20 4e 3d 31 20 b8 |DATA"..B.. N=1 .| 00001710 20 32 30 0d 0e 4c 0d e8 23 58 2c 58 24 28 4e 29 | 20..L..#X,X$(N)| 00001720 0d 0e 56 05 ed 0d 0e 60 08 d9 23 20 58 0d 0e 6a |..V....`..# X..j| 00001730 05 e1 0d 0e 74 0a dd 20 f2 63 64 65 0d 0e 7e 2b |....t.. .cde..~+| 00001740 ef 32 33 2c 31 32 38 2c 32 35 35 2c 32 35 35 2c |.23,128,255,255,| 00001750 32 35 35 2c 32 35 35 2c 32 35 35 2c 32 35 35 2c |255,255,255,255,| 00001760 32 35 35 2c 32 35 35 0d 0e 88 0c de 20 4a 49 4d |255,255..... JIM| 00001770 20 35 30 0d 0e 92 11 e3 20 4e 3d 30 20 b8 20 32 | 50..... N=0 . 2| 00001780 20 88 20 32 0d 0e 9c 0a 50 25 3d 4a 49 4d 0d 0e | . 2....P%=JIM..| 00001790 a6 09 5b 4f 50 54 4e 0d 0e b0 0b 4c 44 41 23 26 |..[OPTN....LDA#&| 000017a0 38 37 0d 0e ba 0c 4a 53 52 26 46 46 46 34 0d 0e |87....JSR&FFF4..| 000017b0 c4 11 53 54 58 26 37 30 3a 53 54 59 26 37 31 0d |..STX&70:STY&71.| 000017c0 0e ce 07 52 54 53 0d 0e d8 08 2e 63 6f 6c 0d 0e |...RTS.....col..| 000017d0 e2 0a 4c 44 41 23 33 32 0d 0e ec 0a 53 54 41 26 |..LDA#32....STA&| 000017e0 37 37 0d 0e f6 09 2e 6c 6f 6f 70 0d 0f 00 09 4c |77.....loop....L| 000017f0 44 41 23 39 0d 0f 0a 12 20 4c 44 59 23 30 3a 4c |DA#9.... LDY#0:L| 00001800 44 58 23 26 37 32 0d 0f 14 0c 4a 53 52 26 46 46 |DX#&72....JSR&FF| 00001810 46 31 0d 0f 1e 0a 49 4e 43 26 37 32 0d 0f 28 09 |F1....INC&72..(.| 00001820 42 4e 45 20 61 0d 0f 32 0a 49 4e 43 26 37 33 0d |BNE a..2.INC&73.| 00001830 0f 3c 06 2e 61 0d 0f 46 0a 4c 44 41 26 37 36 0d |.<..a..F.LDA&76.| 00001840 0f 50 09 43 4d 50 23 30 0d 0f 5a 0b 42 4e 45 20 |.P.CMP#0..Z.BNE | 00001850 6f 75 74 0d 0f 64 0a 44 45 43 26 37 37 0d 0f 6e |out..d.DEC&77..n| 00001860 0c 42 4e 45 20 6c 6f 6f 70 0d 0f 78 08 2e 6f 75 |.BNE loop..x..ou| 00001870 74 0d 0f 82 07 52 54 53 0d 0f 8c 07 5d 3a ed 0d |t....RTS....]:..| 00001880 0f 96 06 20 e1 0d 0f a0 0a dd 20 f2 6a 6f 79 0d |... ...... .joy.| 00001890 0f aa 11 68 3d 96 28 31 29 3a 76 3d 96 28 32 29 |...h=.(1):v=.(2)| 000018a0 0d 0f b4 14 20 62 75 74 74 6f 6e 3d 96 28 30 29 |.... button=.(0)| 000018b0 20 80 20 33 0d 0f be 1b 20 e7 20 76 3e 34 30 30 | . 3.... . v>400| 000018c0 30 30 20 8c 20 76 65 72 3d 76 65 72 2d 56 25 0d |00 . ver=ver-V%.| 000018d0 0f c8 1a e7 20 76 3c 32 30 30 30 30 20 8c 20 76 |.... v<20000 . v| 000018e0 65 72 3d 76 65 72 2b 56 25 0d 0f d2 19 e7 20 68 |er=ver+V%..... h| 000018f0 3e 34 30 30 30 30 20 8c 20 68 6f 72 3d 68 6f 72 |>40000 . hor=hor| 00001900 2d 32 0d 0f dc 19 e7 20 68 3c 32 30 30 30 30 20 |-2..... h<20000 | 00001910 8c 20 68 6f 72 3d 68 6f 72 2b 32 0d 0f e6 13 e7 |. hor=hor+2.....| 00001920 20 76 65 72 3c 30 20 8c 20 76 65 72 3d 30 0d 0f | ver<0 . ver=0..| 00001930 f0 15 e7 20 76 65 72 3e 33 30 20 8c 20 76 65 72 |... ver>30 . ver| 00001940 3d 33 30 0d 0f fa 13 e7 20 68 6f 72 3c 30 20 8c |=30..... hor<0 .| 00001950 20 68 6f 72 3d 30 0d 10 04 15 e7 20 68 6f 72 3e | hor=0..... hor>| 00001960 33 38 20 8c 20 68 6f 72 3d 33 38 0d 10 0e 12 20 |38 . hor=38.... | 00001970 e3 20 4e 3d 30 20 b8 20 33 30 30 3a ed 0d 10 18 |. N=0 . 300:....| 00001980 05 e1 0d 10 22 22 dd 20 f2 70 6c 61 79 3a d1 3d |...."". .play:.=| 00001990 30 3a 56 25 3d 32 3a 76 65 72 3d 30 3a 68 6f 72 |0:V%=2:ver=0:hor| 000019a0 3d 30 3a f5 0d 10 2c 13 e7 20 5a 25 3d 31 30 31 |=0:...,.. Z%=101| 000019b0 20 8c 20 f2 6a 6f 79 0d 10 36 14 e7 20 5a 25 3c | . .joy..6.. Z%<| 000019c0 3e 31 30 31 20 8c 20 f2 6b 65 79 0d 10 40 1e f1 |>101 . .key..@..| 000019d0 8a 68 6f 72 2c 76 65 72 29 22 22 3b 3a d6 20 4a |.hor,ver)"";:. J| 000019e0 49 4d 3a f2 70 69 78 65 6c 0d 10 4a 19 fb 33 3a |IM:.pixel..J..3:| 000019f0 f1 8a 68 6f 72 2c 76 65 72 29 bd 28 31 32 38 29 |..hor,ver).(128)| 00001a00 3b 20 0d 10 54 25 e7 20 76 65 72 3e 32 35 20 8c |; ..T%. ver>25 .| 00001a10 20 f1 8a 31 35 2c 33 31 29 22 53 45 4c 45 43 54 | ..15,31)"SELECT| 00001a20 20 57 4f 52 44 22 3b 0d 10 5e 12 e7 76 65 72 3e | WORD";..^..ver>| 00001a30 32 35 20 8c 20 56 25 3d 31 0d 10 68 25 e7 20 76 |25 . V%=1..h%. v| 00001a40 65 72 3c 32 35 20 8c 20 f1 8a 31 35 2c 33 31 29 |er<25 . ..15,31)| 00001a50 22 20 20 20 20 20 20 20 20 20 20 20 22 3b 0d 10 |" ";..| 00001a60 72 12 e7 76 65 72 3c 32 35 20 8c 20 56 25 3d 32 |r..ver<25 . V%=2| 00001a70 0d 10 7c 1b e7 20 62 75 74 74 6f 6e 3c 3e 30 20 |..|.. button<>0 | 00001a80 8c 20 f2 63 68 65 63 6b 65 72 20 0d 10 86 1d e7 |. .checker .....| 00001a90 20 62 75 74 74 6f 6e 3c 3e 30 20 8c 20 f2 73 65 | button<>0 . .se| 00001aa0 6c 65 63 74 69 6f 6e 20 0d 10 90 12 20 e3 20 4e |lection .... . N| 00001ab0 3d 30 20 b8 20 34 30 30 3a ed 0d 10 9a 1e 41 3d |=0 . 400:.....A=| 00001ac0 3f 26 37 30 3a fb 43 25 3a f1 8a 68 6f 72 2c 76 |?&70:.C%:..hor,v| 00001ad0 65 72 29 bd 28 41 29 3b 0d 10 a4 0a 20 f2 74 69 |er).(A);.... .ti| 00001ae0 6d 65 0d 10 ae 06 fd 30 0d 10 b8 05 e1 0d 10 c2 |me.....0........| 00001af0 0a dd 20 f2 6b 65 79 0d 10 cc 1b fb 33 3a f1 8a |.. .key.....3:..| 00001b00 33 30 2c 33 31 29 22 6b 65 79 20 6d 6f 64 65 22 |30,31)"key mode"| 00001b10 3b 20 0d 10 d6 0a 2a 46 58 34 2c 31 0d 10 e0 0b |; ....*FX4,1....| 00001b20 2a 46 58 32 31 2c 30 0d 10 ea 0c 62 75 74 74 6f |*FX21,0....butto| 00001b30 6e 3d 30 0d 10 f4 08 20 49 3d a5 0d 10 fe 09 f2 |n=0.... I=......| 00001b40 74 69 6d 65 0d 11 08 16 e7 49 3d 31 33 36 20 8c |time.....I=136 .| 00001b50 20 68 6f 72 3d 68 6f 72 2d 32 0d 11 12 16 e7 49 | hor=hor-2.....I| 00001b60 3d 31 33 37 20 8c 20 68 6f 72 3d 68 6f 72 2b 32 |=137 . hor=hor+2| 00001b70 0d 11 1c 17 e7 49 3d 31 33 38 20 8c 20 76 65 72 |.....I=138 . ver| 00001b80 3d 76 65 72 2b 56 25 0d 11 26 17 e7 49 3d 31 33 |=ver+V%..&..I=13| 00001b90 39 20 8c 20 76 65 72 3d 76 65 72 2d 56 25 0d 11 |9 . ver=ver-V%..| 00001ba0 30 14 e7 49 3d 33 32 20 8c 20 62 75 74 74 6f 6e |0..I=32 . button| 00001bb0 3d 31 0d 11 3a 13 e7 20 76 65 72 3c 30 20 8c 20 |=1..:.. ver<0 . | 00001bc0 76 65 72 3d 30 0d 11 44 16 e7 20 76 65 72 3e 33 |ver=0..D.. ver>3| 00001bd0 30 20 8c 20 76 65 72 3d 33 30 20 0d 11 4e 13 e7 |0 . ver=30 ..N..| 00001be0 20 68 6f 72 3c 30 20 8c 20 68 6f 72 3d 30 0d 11 | hor<0 . hor=0..| 00001bf0 58 15 e7 20 68 6f 72 3e 33 38 20 8c 20 68 6f 72 |X.. hor>38 . hor| 00001c00 3d 33 38 0d 11 62 05 e1 0d 11 6c 0c dd 20 f2 70 |=38..b....l.. .p| 00001c10 69 78 65 6c 0d 11 76 22 21 26 37 32 3d 68 6f 72 |ixel..v"!&72=hor| 00001c20 2a 33 32 3a 21 26 37 34 3d 31 30 30 38 2d 28 76 |*32:!&74=1008-(v| 00001c30 65 72 2a 33 32 29 0d 11 80 11 d6 20 63 6f 6c 3a |er*32)..... col:| 00001c40 43 25 3d 3f 26 37 36 0d 11 8a 05 e1 0d 11 94 10 |C%=?&76.........| 00001c50 dd 20 f2 73 65 6c 65 63 74 69 6f 6e 0d 11 9e 11 |. .selection....| 00001c60 20 e7 20 76 65 72 3c 32 36 20 8c 20 e1 0d 11 a8 | . ver<26 . ....| 00001c70 0a 20 f2 74 65 78 74 0d 11 b2 10 50 3d 76 65 72 |. .text....P=ver| 00001c80 2d 32 35 3a 71 3d 30 0d 11 bc 13 20 e7 20 68 6f |-25:q=0.... . ho| 00001c90 72 3e 39 20 8c 20 71 3d 31 30 0d 11 c6 14 20 e7 |r>9 . q=10.... .| 00001ca0 20 68 6f 72 3e 31 39 20 8c 20 71 3d 32 30 0d 11 | hor>19 . q=20..| 00001cb0 d0 14 20 e7 20 68 6f 72 3e 32 39 20 8c 20 71 3d |.. . hor>29 . q=| 00001cc0 33 30 0d 11 da 3b 50 3d 50 2b 28 71 2f 32 29 3a |30...;P=P+(q/2):| 00001cd0 fb 33 3a 43 25 3d 33 3a 4c 3d a9 58 24 28 50 29 |.3:C%=3:L=.X$(P)| 00001ce0 3a f1 8a 71 2c 76 65 72 29 58 24 28 50 29 2b c4 |:..q,ver)X$(P)+.| 00001cf0 31 30 2d 4c 2c 22 20 22 29 3b 20 20 20 0d 11 e4 |10-L," "); ...| 00001d00 10 54 24 3d 58 24 28 50 29 3a 54 3d 31 0d 11 ee |.T$=X$(P):T=1...| 00001d10 06 20 e1 0d 11 f8 1b 20 dd 20 f2 63 68 65 63 6b |. ..... . .check| 00001d20 65 72 3a e7 76 65 72 3e 32 35 20 8c 20 e1 0d 12 |er:.ver>25 . ...| 00001d30 02 0c e7 50 3d 30 20 8c 20 e1 0d 12 0c 13 68 3d |...P=0 . .....h=| 00001d40 68 6f 72 2f 32 3a 76 3d 76 65 72 2f 32 0d 12 16 |hor/2:v=ver/2...| 00001d50 1b e7 3f 26 37 30 3c 3e 97 20 c1 54 24 2c 54 2c |..?&70<>. .T$,T,| 00001d60 31 29 20 8c 20 f2 6e 6f 0d 12 20 1f e7 3f 26 37 |1) . .no.. ..?&7| 00001d70 30 3d 97 20 c1 54 24 2c 54 2c 31 29 8c 20 f2 6e |0=. .T$,T,1). .n| 00001d80 6f 74 71 75 69 74 65 0d 12 2a 05 e1 0d 12 34 17 |otquite..*....4.| 00001d90 dd 20 f2 6e 6f 3a 54 24 3d 22 22 3a 54 3d 30 3a |. .no:T$="":T=0:| 00001da0 50 3d 30 0d 12 3e 15 d4 31 2c 2d 31 35 2c 32 30 |P=0..>..1,-15,20| 00001db0 2c 34 3a f2 74 65 78 74 0d 12 48 05 e1 0d 12 52 |,4:.text..H....R| 00001dc0 0f dd 20 f2 6e 6f 74 71 75 69 74 65 0d 12 5c 1a |.. .notquite..\.| 00001dd0 e7 47 24 28 68 2c 76 29 3c 3e 4d 24 28 68 2c 76 |.G$(h,v)<>M$(h,v| 00001de0 29 8c 20 f2 6e 6f 0d 12 66 1b e7 47 24 28 68 2c |). .no..f..G$(h,| 00001df0 76 29 3d 4d 24 28 68 2c 76 29 20 8c 20 f2 79 65 |v)=M$(h,v) . .ye| 00001e00 73 0d 12 70 06 20 e1 0d 12 7a 17 dd 20 f2 79 65 |s..p. ...z.. .ye| 00001e10 73 3a d4 31 2c 2d 31 35 2c 32 30 30 2c 32 0d 12 |s:.1,-15,200,2..| 00001e20 84 09 20 43 25 3d 33 0d 12 8e 1b 54 3d 54 2b 31 |.. C%=3....T=T+1| 00001e30 3a e7 20 54 3d 4c 2b 31 20 8c 20 f2 65 72 61 73 |:. T=L+1 . .eras| 00001e40 65 20 0d 12 98 05 e1 0d 12 a2 0c dd 20 f2 65 72 |e .......... .er| 00001e50 61 73 65 0d 12 ac 3f 58 24 28 50 29 3d 22 20 20 |ase...?X$(P)=" | 00001e60 20 20 20 20 20 20 20 20 22 3a 50 3d 30 3a f2 74 | ":P=0:.t| 00001e70 65 78 74 3a e3 4e 3d 31 30 30 20 b8 20 32 30 30 |ext:.N=100 . 200| 00001e80 88 31 30 3a d4 31 2c 2d 31 35 2c 4e 2c 32 3a ed |.10:.1,-15,N,2:.| 00001e90 3a e1 0d 12 b6 16 20 dd 20 f2 70 72 69 6e 74 6d |:..... . .printm| 00001ea0 61 69 6e 3a db 3a ef 32 0d 12 c0 2d e3 20 4e 3d |ain:.:.2...-. N=| 00001eb0 30 b8 31 32 3a f1 3a e3 4a 3d 30 b8 31 39 3a f1 |0.12:.:.J=0.19:.| 00001ec0 47 24 28 4a 2c 4e 29 3b 22 20 22 3b 3a ed 3a ed |G$(J,N);" ";:.:.| 00001ed0 3a ef 33 3a e1 0d 12 ca 15 dd 20 f2 70 72 69 6e |:.3:...... .prin| 00001ee0 74 6c 6f 6f 6b 3a db 3a ef 32 0d 12 d4 16 e3 20 |tlook:.:.2..... | 00001ef0 4e 3d 30 b8 31 32 3a f1 3a e3 4a 3d 30 b8 31 39 |N=0.12:.:.J=0.19| 00001f00 0d 12 de 1a 20 e7 4d 24 28 4a 2c 4e 29 3d 22 20 |.... .M$(J,N)=" | 00001f10 22 20 8c 20 f1 22 2e 20 22 3b 0d 12 e8 22 20 e7 |" . .". ";..." .| 00001f20 4d 24 28 4a 2c 4e 29 3c 3e 22 20 22 20 8c 20 f1 |M$(J,N)<>" " . .| 00001f30 4d 24 28 4a 2c 4e 29 3b 22 20 22 3b 0d 12 f2 0d |M$(J,N);" ";....| 00001f40 20 ed 3a ed 3a ef 33 3a e1 0d 12 fc 16 20 dd 20 | .:.:.3:..... . | 00001f50 f2 70 72 69 6e 74 6c 69 73 74 3a db 3a ef 32 0d |.printlist:.:.2.| 00001f60 13 06 18 43 3d 31 3a e3 20 4e 3d 31 b8 35 3a f1 |...C=1:. N=1.5:.| 00001f70 3a e3 4a 3d 31 b8 34 0d 13 10 31 20 4c 3d 31 31 |:.J=1.4...1 L=11| 00001f80 2d a9 28 58 24 28 43 29 29 3a f1 58 24 28 43 29 |-.(X$(C)):.X$(C)| 00001f90 3b 3a e3 4b 3d 31 b8 4c 3a f1 22 20 22 3b 3a ed |;:.K=1.L:." ";:.| 00001fa0 3a 43 3d 43 2b 31 20 20 0d 13 1a 07 ed 3a ed 0d |:C=C+1 .....:..| 00001fb0 13 24 08 ef 33 3a e1 0d 13 2e 0f dd 20 f2 64 61 |.$..3:...... .da| 00001fc0 74 61 62 61 73 65 0d 13 38 20 db 3a f1 8a 31 30 |tabase..8 .:..10| 00001fd0 29 22 57 4f 52 44 20 44 41 54 41 42 41 53 45 22 |)"WORD DATABASE"| 00001fe0 3a f1 3a f1 3a f1 0d 13 42 1e f1 8a 35 29 22 43 |:.:.:...B...5)"C| 00001ff0 52 45 41 54 45 20 4e 45 57 20 46 49 4c 45 2e 2e |REATE NEW FILE..| 00002000 2e 2e 41 22 0d 13 4c 05 f1 0d 13 56 1e f1 8a 35 |..A"..L....V...5| 00002010 29 22 41 44 44 20 4e 45 57 20 57 4f 52 44 53 2e |)"ADD NEW WORDS.| 00002020 2e 2e 2e 2e 2e 42 22 0d 13 60 05 f1 0d 13 6a 1e |.....B"..`....j.| 00002030 f1 8a 35 29 22 56 49 45 57 20 46 49 4c 45 2e 2e |..5)"VIEW FILE..| 00002040 2e 2e 2e 2e 2e 2e 2e 2e 43 22 0d 13 74 05 f1 0d |........C"..t...| 00002050 13 7e 17 f1 8a 31 30 29 22 65 6e 74 65 72 20 63 |.~...10)"enter c| 00002060 68 6f 69 63 65 22 0d 13 88 09 f5 3a 49 3d a5 0d |hoice".....:I=..| 00002070 13 92 17 e7 20 49 3d 97 22 41 22 20 8c 20 f2 6e |.... I=."A" . .n| 00002080 65 77 66 69 6c 65 0d 13 9c 17 e7 20 49 3d 97 22 |ewfile..... I=."| 00002090 42 22 20 8c 20 f2 6e 65 77 77 6f 72 64 0d 13 a6 |B" . .newword...| 000020a0 18 e7 20 49 3d 97 22 43 22 20 8c 20 f2 76 69 65 |.. I=."C" . .vie| 000020b0 77 66 69 6c 65 0d 13 b0 0a fd 20 49 3d 33 32 0d |wfile..... I=32.| 000020c0 13 ba 05 e1 0d 13 c4 10 dd 20 f2 6e 65 77 66 69 |......... .newfi| 000020d0 6c 65 3a db 0d 13 ce 33 f2 33 64 28 35 2c 31 30 |le:....3.3d(5,10| 000020e0 2c 22 41 52 45 20 59 4f 55 20 53 55 52 45 3f 22 |,"ARE YOU SURE?"| 000020f0 2c 31 2c 32 29 3a 49 3d a5 3a e7 20 49 3c 3e 97 |,1,2):I=.:. I<>.| 00002100 22 59 22 20 8c 20 e1 0d 13 d8 0d 49 3d ae 22 44 |"Y" . .....I=."D| 00002110 41 54 41 22 0d 13 e2 18 e3 20 4e 3d 31 b8 32 30 |ATA"..... N=1.20| 00002120 3a f1 23 49 2c 58 24 28 4e 29 3a ed 0d 13 ec 0d |:.#I,X$(N):.....| 00002130 20 d9 23 49 3a 49 3d 33 32 0d 13 f6 05 e1 0d 14 | .#I:I=32.......| 00002140 00 0e dd 20 f2 6e 65 77 77 6f 72 64 0d 14 0a 0c |... .newword....| 00002150 f2 73 74 72 69 6e 67 73 0d 14 14 27 f2 64 6f 75 |.strings...'.dou| 00002160 62 6c 65 28 35 2c 31 30 2c 22 41 52 45 20 54 48 |ble(5,10,"ARE TH| 00002170 45 53 45 20 4f 4b 3f 22 29 3a 49 3d a5 3a db 0d |ESE OK?"):I=.:..| 00002180 14 1e 11 e7 20 49 3c 3e 97 22 59 22 20 8c 20 e1 |.... I<>."Y" . .| 00002190 0d 14 28 3a 20 f2 73 65 74 75 70 67 72 69 64 3a |..(: .setupgrid:| 000021a0 db 3a f2 33 64 28 35 2c 31 30 2c 22 53 48 41 4c |.:.3d(5,10,"SHAL| 000021b0 4c 20 49 20 41 44 44 20 54 4f 20 46 49 4c 45 3f |L I ADD TO FILE?| 000021c0 22 2c 31 2c 32 29 3a 49 3d a5 0d 14 32 12 20 e7 |",1,2):I=...2. .| 000021d0 20 49 3c 3e 97 22 59 22 20 8c 20 e1 0d 14 3c 0d | I<>."Y" . ...<.| 000021e0 49 3d ad 22 44 41 54 41 22 0d 14 46 0b cf 23 49 |I=."DATA"..F..#I| 000021f0 3d a2 23 49 0d 14 50 17 e3 4e 3d 31 b8 32 30 3a |=.#I..P..N=1.20:| 00002200 f1 23 49 2c 58 24 28 4e 29 3a ed 0d 14 5a 0d 20 |.#I,X$(N):...Z. | 00002210 d9 23 49 3a 49 3d 33 32 0d 14 64 05 e1 0d 14 6e |.#I:I=32..d....n| 00002220 0f dd 20 f2 76 69 65 77 66 69 6c 65 0d 14 78 0f |.. .viewfile..x.| 00002230 db 3a 49 3d ad 22 44 41 54 41 22 0d 14 82 10 f5 |.:I=."DATA".....| 00002240 3a db 3a e3 20 4e 3d 31 b8 32 30 0d 14 8c 0f e8 |:.:. N=1.20.....| 00002250 23 49 2c 58 24 28 4e 29 3a ed 0d 14 96 2b f2 74 |#I,X$(N):....+.t| 00002260 65 78 74 3a f2 64 6f 75 62 6c 65 28 35 2c 31 30 |ext:.double(5,10| 00002270 2c 22 41 52 45 20 54 48 45 53 45 20 4f 4b 3f 22 |,"ARE THESE OK?"| 00002280 29 3a 6a 3d a5 0d 14 a0 16 e7 20 6a 3d 97 22 59 |):j=...... j=."Y| 00002290 22 20 8c 20 cf 23 49 3d a2 23 49 0d 14 aa 08 fd |" . .#I=.#I.....| 000022a0 c5 23 49 0d 14 b4 0c d9 23 49 3a 49 3d 33 32 0d |.#I.....#I:I=32.| 000022b0 14 be 0e f2 73 65 74 75 70 67 72 69 64 0d 14 c8 |....setupgrid...| 000022c0 05 e1 0d 14 d2 10 dd 20 f2 67 61 6d 65 3a 5a 25 |....... .game:Z%| 000022d0 3d 30 0d 14 dc 34 db 3a f1 8a 31 30 2c 31 30 29 |=0...4.:..10,10)| 000022e0 22 4a 4f 59 53 54 49 43 4b 53 20 28 59 2f 61 6e |"JOYSTICKS (Y/an| 000022f0 79 29 22 3a 49 3d a5 3a e7 49 3d 97 22 59 22 8c |y)":I=.:.I=."Y".| 00002300 5a 25 3d 31 30 31 0d 14 e6 06 20 db 0d 14 f0 22 |Z%=101.... ...."| 00002310 f2 70 72 69 6e 74 67 72 69 64 3a f2 67 72 69 64 |.printgrid:.grid| 00002320 3a f2 74 65 78 74 3a f2 70 6c 61 79 3a e1 0d 14 |:.text:.play:...| 00002330 fa 4d dd 20 f2 74 69 6d 65 3a 73 65 63 3d 28 91 |.M. .time:sec=(.| 00002340 2f 31 30 30 29 20 83 20 36 30 3a 6d 69 6e 3d 28 |/100) . 60:min=(| 00002350 91 2f 36 30 30 30 29 20 83 20 36 30 3a fb 33 3a |./6000) . 60:.3:| 00002360 f1 8a 30 2c 33 31 29 c3 6d 69 6e 3b 22 3a 22 3b |..0,31).min;":";| 00002370 73 65 63 3b 22 20 20 22 3b 3a e1 0d 15 04 1b 20 |sec;" ";:..... | 00002380 dd f2 33 64 28 58 2c 59 2c 41 24 2c 63 6f 6c 31 |..3d(X,Y,A$,col1| 00002390 2c 63 6f 6c 32 29 0d 15 0e 10 20 78 3d 58 2a 33 |,col2).... x=X*3| 000023a0 32 3a 58 3d 78 20 0d 15 18 18 20 79 3d 30 2b 28 |2:X=x .... y=0+(| 000023b0 28 33 31 2d 59 29 2a 33 32 29 3a 59 3d 79 0d 15 |(31-Y)*32):Y=y..| 000023c0 22 07 20 ef 35 0d 15 2c 0e 20 ec 20 58 2d 34 2c |". .5..,. . X-4,| 000023d0 59 2d 34 0d 15 36 11 20 e6 30 2c 63 6f 6c 31 3a |Y-4..6. .0,col1:| 000023e0 f1 20 41 24 0d 15 40 0a 20 ec 20 58 2c 59 0d 15 |. A$..@. . X,Y..| 000023f0 4a 11 20 e6 30 2c 63 6f 6c 32 3a f1 20 41 24 0d |J. .0,col2:. A$.| 00002400 15 54 07 20 ef 34 0d 15 5e 06 20 e1 0d 15 68 0e |.T. .4..^. ...h.| 00002410 dd 20 f2 4e 55 4d 42 45 52 53 0d 15 72 0a 20 f7 |. .NUMBERS..r. .| 00002420 8d 74 64 55 0d 15 7c 0a f2 65 6d 70 74 79 0d 15 |.tdU..|..empty..| 00002430 86 0c e3 20 4e 3d 31 b8 32 30 0d 15 90 0c f3 58 |... N=1.20.....X| 00002440 24 28 4e 29 3a ed 0d 15 9a 0f 20 f2 73 65 74 75 |$(N):..... .setu| 00002450 70 67 72 69 64 0d 15 a4 b0 dc 22 4f 4e 45 22 2c |pgrid....."ONE",| 00002460 22 54 57 4f 22 2c 22 54 48 52 45 45 22 2c 22 46 |"TWO","THREE","F| 00002470 4f 55 52 22 2c 22 46 49 56 45 22 2c 22 53 49 58 |OUR","FIVE","SIX| 00002480 22 2c 22 53 45 56 45 4e 22 2c 22 45 49 47 48 54 |","SEVEN","EIGHT| 00002490 22 2c 22 4e 49 4e 45 22 2c 22 54 45 4e 22 2c 22 |","NINE","TEN","| 000024a0 45 4c 45 56 45 4e 22 2c 22 54 57 45 4c 56 45 22 |ELEVEN","TWELVE"| 000024b0 2c 22 54 48 49 52 54 45 45 4e 22 2c 22 46 4f 55 |,"THIRTEEN","FOU| 000024c0 52 54 45 45 4e 22 2c 22 46 49 46 54 45 45 4e 22 |RTEEN","FIFTEEN"| 000024d0 2c 22 53 49 58 54 45 45 4e 22 2c 22 53 45 56 45 |,"SIXTEEN","SEVE| 000024e0 4e 54 45 45 4e 22 2c 22 45 49 47 48 54 45 45 4e |NTEEN","EIGHTEEN| 000024f0 22 2c 22 4e 49 4e 45 54 45 45 4e 22 2c 22 54 57 |","NINETEEN","TW| 00002500 45 4e 54 59 22 0d 15 ae 05 e1 0d 15 b8 09 dd 20 |ENTY".......... | 00002510 f2 4d 43 0d 15 c2 19 de 20 4c 41 52 47 45 20 31 |.MC..... LARGE 1| 00002520 30 30 3a de 20 62 6c 6f 63 6b 20 38 0d 15 cc 11 |00:. block 8....| 00002530 e3 20 4e 3d 30 20 b8 20 32 20 88 20 32 0d 15 d6 |. N=0 . 2 . 2...| 00002540 0d 20 50 25 3d 4c 41 52 47 45 0d 15 e0 09 5b 4f |. P%=LARGE....[O| 00002550 50 54 4e 0d 15 ea 21 4c 44 41 23 31 30 3a 4c 44 |PTN...!LDA#10:LD| 00002560 58 23 26 37 30 3a 4c 44 59 23 30 3a 4a 53 52 26 |X#&70:LDY#0:JSR&| 00002570 46 46 46 31 0d 15 f4 14 4c 44 41 23 38 3a 53 54 |FFF1....LDA#8:ST| 00002580 41 20 62 6c 6f 63 6b 20 0d 15 fe 17 4c 44 41 23 |A block ....LDA#| 00002590 26 30 43 3a 53 54 41 20 62 6c 6f 63 6b 2b 31 0d |&0C:STA block+1.| 000025a0 16 08 15 4c 44 41 23 30 3a 53 54 41 20 62 6c 6f |...LDA#0:STA blo| 000025b0 63 6b 2b 32 0d 16 12 15 4c 44 41 23 30 3a 53 54 |ck+2....LDA#0:ST| 000025c0 41 20 62 6c 6f 63 6b 2b 33 0d 16 1c 16 20 4c 44 |A block+3.... LD| 000025d0 41 23 38 3a 53 54 41 20 62 6c 6f 63 6b 2b 35 0d |A#8:STA block+5.| 000025e0 16 26 09 4c 44 58 23 30 0d 16 30 0a 2e 6c 6f 6f |.&.LDX#0..0..loo| 000025f0 70 73 0d 16 3a 18 4c 44 41 26 37 31 2c 58 3a 53 |ps..:.LDA&71,X:S| 00002600 54 41 20 62 6c 6f 63 6b 2b 34 0d 16 44 0b 54 58 |TA block+4..D.TX| 00002610 41 3a 50 48 41 0d 16 4e 35 4c 44 58 23 20 62 6c |A:PHA..N5LDX# bl| 00002620 6f 63 6b 20 83 20 32 35 36 3a 4c 44 59 23 20 62 |ock . 256:LDY# b| 00002630 6c 6f 63 6b 20 81 20 32 35 36 3a 4c 44 41 23 36 |lock . 256:LDA#6| 00002640 3a 4a 53 52 26 46 46 46 31 20 0d 16 58 0c 4a 53 |:JSR&FFF1 ..X.JS| 00002650 52 20 61 64 64 73 0d 16 62 34 4c 44 58 23 20 62 |R adds..b4LDX# b| 00002660 6c 6f 63 6b 20 83 20 32 35 36 3a 4c 44 59 23 20 |lock . 256:LDY# | 00002670 62 6c 6f 63 6b 20 81 20 32 35 36 3a 4c 44 41 23 |block . 256:LDA#| 00002680 36 3a 4a 53 52 26 46 46 46 31 0d 16 6c 0c 4a 53 |6:JSR&FFF1..l.JS| 00002690 52 20 61 64 64 73 0d 16 76 1b 50 4c 41 3a 54 41 |R adds..v.PLA:TA| 000026a0 58 3a 49 4e 58 3a 44 45 43 20 62 6c 6f 63 6b 2b |X:INX:DEC block+| 000026b0 35 0d 16 80 0d 42 4e 45 20 6c 6f 6f 70 73 0d 16 |5....BNE loops..| 000026c0 8a 07 52 54 53 0d 16 94 09 2e 61 64 64 73 0d 16 |..RTS.....adds..| 000026d0 9e 18 49 4e 43 20 62 6c 6f 63 6b 3a 42 4e 45 20 |..INC block:BNE | 000026e0 66 72 65 64 64 79 0d 16 a8 0f 49 4e 43 20 62 6c |freddy....INC bl| 000026f0 6f 63 6b 2b 31 0d 16 b2 0b 2e 66 72 65 64 64 79 |ock+1.....freddy| 00002700 0d 16 bc 07 52 54 53 0d 16 c6 07 5d 3a ed 0d 16 |....RTS....]:...| 00002710 d0 06 20 e1 0d 16 da 15 dd 20 f2 64 6f 75 62 6c |.. ...... .doubl| 00002720 65 28 78 2c 79 2c 66 24 29 0d 16 e4 0f e3 4e 3d |e(x,y,f$).....N=| 00002730 31 b8 20 a9 28 66 24 29 0d 16 ee 14 20 3f 26 37 |1. .(f$).... ?&7| 00002740 30 3d 97 20 c1 66 24 2c 4e 2c 31 29 0d 16 f8 0b |0=. .f$,N,1)....| 00002750 d6 20 4c 41 52 47 45 0d 17 02 14 f1 8a 78 2b 4e |. LARGE......x+N| 00002760 2c 79 29 c1 66 24 2c 4e 2c 31 29 0d 17 16 05 ed |,y).f$,N,1).....| 00002770 0d 17 20 05 e1 0d 17 2a 0b dd 20 f2 6d 65 6e 75 |.. ....*.. .menu| 00002780 0d 17 34 19 20 f2 72 65 70 65 61 74 3a f2 6e 6f |..4. .repeat:.no| 00002790 74 74 68 69 73 74 69 6d 65 0d 17 3e 3d db 3a f2 |tthistime..>=.:.| 000027a0 33 64 28 30 2c 30 2c 22 4a 49 4d 20 57 41 4c 53 |3d(0,0,"JIM WALS| 000027b0 48 27 53 20 77 6f 72 64 73 65 61 72 63 68 20 77 |H'S wordsearch w| 000027c0 6f 72 6b 73 68 6f 70 20 28 63 29 20 31 39 38 36 |orkshop (c) 1986| 000027d0 22 2c 31 2c 32 29 0d 17 48 14 ec 30 2c 39 32 37 |",1,2)..H..0,927| 000027e0 3a df 31 32 37 39 2c 39 32 37 0d 17 52 1b fb 31 |:.1279,927..R..1| 000027f0 3a f2 64 6f 75 62 6c 65 28 31 35 2c 35 2c 22 4d |:.double(15,5,"M| 00002800 45 4e 55 22 29 0d 17 5c 35 fb 32 3a f2 64 6f 75 |ENU")..\5.2:.dou| 00002810 62 6c 65 28 31 2c 39 2c 22 50 4c 41 59 20 4f 4e |ble(1,9,"PLAY ON| 00002820 20 43 4f 4d 50 55 54 45 52 2e 2e 2e 2e 2e 2e 2e | COMPUTER.......| 00002830 2e 2e 2e 2e 2e 2e 2e 31 22 29 0d 17 66 36 fb 32 |.......1")..f6.2| 00002840 3a f2 64 6f 75 62 6c 65 28 31 2c 31 32 2c 22 41 |:.double(1,12,"A| 00002850 44 44 20 4d 4f 52 45 20 57 4f 52 44 53 20 54 4f |DD MORE WORDS TO| 00002860 20 46 49 4c 45 2e 2e 2e 2e 2e 2e 2e 2e 32 22 29 | FILE........2")| 00002870 0d 17 70 36 fb 32 3a f2 64 6f 75 62 6c 65 28 31 |..p6.2:.double(1| 00002880 2c 31 35 2c 22 53 45 4c 45 43 54 20 57 4f 52 44 |,15,"SELECT WORD| 00002890 53 20 46 52 4f 4d 20 46 49 4c 45 2e 2e 2e 2e 2e |S FROM FILE.....| 000028a0 2e 2e 2e 33 22 29 0d 17 7a 36 fb 32 3a f2 64 6f |...3")..z6.2:.do| 000028b0 75 62 6c 65 28 31 2c 31 38 2c 22 43 52 45 41 54 |uble(1,18,"CREAT| 000028c0 45 20 41 20 4e 45 57 20 44 41 54 41 20 46 49 4c |E A NEW DATA FIL| 000028d0 45 2e 2e 2e 2e 2e 2e 2e 2e 34 22 29 0d 17 84 3c |E........4")...<| 000028e0 f2 33 64 28 30 2c 32 30 2c 22 44 75 6d 70 20 74 |.3d(0,20,"Dump t| 000028f0 68 65 20 6d 61 69 6e 20 67 72 69 64 20 74 6f 20 |he main grid to | 00002900 45 50 53 4f 4e 20 70 72 69 6e 74 65 72 73 2e 2e |EPSON printers..| 00002910 2e 35 22 2c 33 2c 31 29 0d 17 8e 3c f2 33 64 28 |.5",3,1)...<.3d(| 00002920 30 2c 32 32 2c 22 44 75 6d 70 20 74 68 65 20 6d |0,22,"Dump the m| 00002930 61 69 6e 20 67 72 69 64 20 6b 65 79 20 61 73 20 |ain grid key as | 00002940 61 62 6f 76 65 2e 2e 2e 2e 2e 2e 2e 2e 36 22 2c |above........6",| 00002950 33 2c 31 29 0d 17 98 3c f2 33 64 28 30 2c 32 34 |3,1)...<.3d(0,24| 00002960 2c 22 50 72 69 6e 74 20 6d 61 69 6e 20 67 72 69 |,"Print main gri| 00002970 64 20 74 6f 20 61 6e 79 20 70 72 69 6e 74 65 72 |d to any printer| 00002980 2e 2e 2e 2e 2e 2e 2e 2e 2e 37 22 2c 32 2c 31 29 |.........7",2,1)| 00002990 0d 17 a2 3c f2 33 64 28 30 2c 32 36 2c 22 50 72 |...<.3d(0,26,"Pr| 000029a0 69 6e 74 20 6b 65 79 20 74 6f 20 61 6e 79 20 70 |int key to any p| 000029b0 72 69 6e 74 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e |rinter..........| 000029c0 2e 2e 2e 2e 2e 38 22 2c 32 2c 31 29 0d 17 ac 1f |.....8",2,1)....| 000029d0 fb 33 3a f1 8a 31 30 2c 33 31 29 22 50 6c 65 61 |.3:..10,31)"Plea| 000029e0 73 65 20 73 65 6c 65 63 74 22 3b 0d 17 b6 07 49 |se select";....I| 000029f0 3d a5 0d 17 c0 14 e7 20 49 3d 97 22 31 22 20 8c |=...... I=."1" .| 00002a00 20 f2 67 61 6d 65 0d 17 ca 17 e7 20 49 3d 97 22 | .game..... I=."| 00002a10 32 22 20 8c 20 f2 6e 65 77 77 6f 72 64 0d 17 d4 |2" . .newword...| 00002a20 18 e7 20 49 3d 97 22 33 22 20 8c 20 f2 76 69 65 |.. I=."3" . .vie| 00002a30 77 66 69 6c 65 0d 17 de 17 e7 20 49 3d 97 22 34 |wfile..... I=."4| 00002a40 22 20 8c 20 f2 6e 65 77 66 69 6c 65 0d 17 e8 18 |" . .newfile....| 00002a50 e7 20 49 3d 97 22 35 22 20 8c 20 f2 6d 61 69 6e |. I=."5" . .main| 00002a60 64 75 6d 70 0d 17 f2 17 e7 20 49 3d 97 22 36 22 |dump..... I=."6"| 00002a70 20 8c 20 f2 6d 61 69 6e 6b 65 79 0d 17 fc 13 e7 | . .mainkey.....| 00002a80 20 49 3d 97 22 37 22 20 8c 20 f2 70 74 72 0d 18 | I=."7" . .ptr..| 00002a90 06 14 e7 20 49 3d 97 22 38 22 20 8c 20 f2 70 74 |... I=."8" . .pt| 00002aa0 72 61 0d 18 10 0a e5 20 8d 54 7e 57 0d 18 1a 05 |ra..... .T~W....| 00002ab0 e1 0d 18 24 49 dd 20 f2 73 65 74 75 70 67 72 69 |...$I. .setupgri| 00002ac0 64 3a db 3a f2 64 6f 75 62 6c 65 28 31 30 2c 31 |d:.:.double(10,1| 00002ad0 30 2c 22 53 4f 52 54 49 4e 47 22 29 3a f2 65 6d |0,"SORTING"):.em| 00002ae0 70 74 79 3a f2 68 69 64 65 3a f2 6d 61 7a 65 3a |pty:.hide:.maze:| 00002af0 f2 6d 69 72 72 6f 72 3a e1 20 0d 18 2e 30 20 dd |.mirror:. ...0 .| 00002b00 20 f2 70 70 3a db 3a f2 64 6f 75 62 6c 65 28 35 | .pp:.:.double(5| 00002b10 2c 31 30 2c 22 49 53 20 59 4f 55 52 20 50 52 49 |,10,"IS YOUR PRI| 00002b20 4e 54 45 52 20 4f 4e 3f 22 29 0d 18 38 2f f2 33 |NTER ON?")..8/.3| 00002b30 64 28 35 2c 31 35 2c 22 50 72 65 73 73 20 52 45 |d(5,15,"Press RE| 00002b40 54 55 52 4e 20 69 66 20 79 65 73 2c 20 6f 72 20 |TURN if yes, or | 00002b50 61 6e 79 22 2c 31 2c 32 29 0d 18 42 07 6b 3d a5 |any",1,2)..B.k=.| 00002b60 0d 18 4c 05 e1 0d 18 56 14 20 dd 20 f2 6d 61 69 |..L....V. . .mai| 00002b70 6e 64 75 6d 70 3a f2 70 70 0d 18 60 0f e7 20 6b |ndump:.pp..`.. k| 00002b80 3c 3e 31 33 20 8c 20 e1 0d 18 6a 24 db 3a f2 70 |<>13 . ...j$.:.p| 00002b90 72 69 6e 74 67 72 69 64 3a f2 67 72 69 64 3a f2 |rintgrid:.grid:.| 00002ba0 74 65 78 74 3a f2 64 75 6d 70 3a e1 0d 18 74 12 |text:.dump:...t.| 00002bb0 dd 20 f2 6d 61 69 6e 6b 65 79 3a f2 70 70 0d 18 |. .mainkey:.pp..| 00002bc0 7e 0e e7 6b 3c 3e 31 33 20 8c 20 e1 0d 18 88 29 |~..k<>13 . ....)| 00002bd0 db 3a f2 70 72 69 6e 74 67 72 69 64 3a f2 67 72 |.:.printgrid:.gr| 00002be0 69 64 3a f2 74 65 78 74 3a f2 73 65 65 3a f2 64 |id:.text:.see:.d| 00002bf0 75 6d 70 3a e1 0d 18 92 0a dd 20 f2 70 74 72 0d |ump:...... .ptr.| 00002c00 18 9c 10 f2 70 70 3a e7 6b 3c 3e 31 33 8c e1 0d |....pp:.k<>13...| 00002c10 18 a6 23 f2 70 72 69 6e 74 6d 61 69 6e 3a ef 32 |..#.printmain:.2| 00002c20 3a f1 3a f1 3a ef 33 3a f2 70 72 69 6e 74 6c 69 |:.:.:.3:.printli| 00002c30 73 74 0d 18 b0 05 e1 0d 18 ba 0b dd 20 f2 70 74 |st.......... .pt| 00002c40 72 61 0d 18 c4 10 f2 70 70 3a e7 6b 3c 3e 31 33 |ra.....pp:.k<>13| 00002c50 8c e1 0d 18 ce 23 f2 70 72 69 6e 74 6c 6f 6f 6b |.....#.printlook| 00002c60 3a ef 32 3a f1 3a f1 3a ef 33 3a f2 70 72 69 6e |:.2:.:.:.3:.prin| 00002c70 74 6c 69 73 74 0d 18 d8 05 e1 0d 18 e2 25 dd 20 |tlist........%. | 00002c80 f2 6d 69 72 72 6f 72 3a e3 4e 3d 31 b8 32 30 3a |.mirror:.N=1.20:| 00002c90 78 24 28 4e 29 3d 58 24 28 4e 29 3a ed 3a e1 0d |x$(N)=X$(N):.:..| 00002ca0 18 ec 14 dd 20 f2 72 65 70 65 61 74 3a 46 4c 41 |.... .repeat:FLA| 00002cb0 47 3d 30 0d 18 f6 0c e3 20 4e 3d 31 b8 32 30 0d |G=0..... N=1.20.| 00002cc0 19 00 22 e7 20 58 24 28 4e 29 3c 3e 22 20 20 20 |..". X$(N)<>" | 00002cd0 20 20 20 20 20 20 20 22 20 8c 20 46 4c 41 47 3d | " . FLAG=| 00002ce0 31 0d 19 0a 12 ed 3a e7 20 46 4c 41 47 3d 31 20 |1.....:. FLAG=1 | 00002cf0 8c 20 e1 0d 19 14 0d f2 77 65 6c 6c 64 6f 6e 65 |. ......welldone| 00002d00 0d 19 1e 1a e3 20 4e 3d 31 b8 32 30 3a 58 24 28 |..... N=1.20:X$(| 00002d10 4e 29 3d 78 24 28 4e 29 3a ed 0d 19 28 0e f2 73 |N)=x$(N):...(..s| 00002d20 65 74 75 70 67 72 69 64 0d 19 32 05 e1 0d 19 3c |etupgrid..2....<| 00002d30 0f dd 20 f2 77 65 6c 6c 64 6f 6e 65 0d 19 46 26 |.. .welldone..F&| 00002d40 db 3a 61 24 3d c3 28 6d 69 6e 29 3a 61 24 3d 61 |.:a$=.(min):a$=a| 00002d50 24 2b 22 3a 22 3a 61 24 3d 61 24 2b c3 28 73 65 |$+":":a$=a$+.(se| 00002d60 63 29 0d 19 50 21 fb 32 3a f2 64 6f 75 62 6c 65 |c)..P!.2:.double| 00002d70 28 31 34 2c 31 30 2c 22 57 45 4c 4c 20 44 4f 4e |(14,10,"WELL DON| 00002d80 45 22 29 0d 19 5a 2d f2 33 64 28 35 2c 31 35 2c |E")..Z-.3d(5,15,| 00002d90 22 59 6f 75 20 63 6f 6d 70 6c 65 74 65 64 20 74 |"You completed t| 00002da0 68 65 20 67 72 69 64 20 69 6e 22 2c 31 2c 32 29 |he grid in",1,2)| 00002db0 0d 19 64 22 fb 31 3a f2 64 6f 75 62 6c 65 28 31 |..d".1:.double(1| 00002dc0 34 2c 32 30 2c 61 24 29 3a 49 3d a6 28 32 30 30 |4,20,a$):I=.(200| 00002dd0 30 29 0d 19 6e 05 e1 0d 19 78 2a dd 20 f2 6e 6f |0)..n....x*. .no| 00002de0 74 74 68 69 73 74 69 6d 65 3a e3 4e 3d 31 b8 32 |tthistime:.N=1.2| 00002df0 30 3a 58 24 28 4e 29 3d 78 24 28 4e 29 3a ed 3a |0:X$(N)=x$(N):.:| 00002e00 e1 0d 19 82 0f dd 20 f2 6e 6f 67 6f 6f 64 3a db |...... .nogood:.| 00002e10 0d 19 8c 2e f1 bd 28 31 34 31 29 22 83 54 68 69 |......(141)".Thi| 00002e20 73 20 70 72 6f 67 72 61 6d 20 72 65 71 75 69 72 |s program requir| 00002e30 65 73 20 36 35 30 32 20 74 75 62 65 2c 22 0d 19 |es 6502 tube,"..| 00002e40 96 2e f1 bd 28 31 34 31 29 22 83 54 68 69 73 20 |....(141)".This | 00002e50 70 72 6f 67 72 61 6d 20 72 65 71 75 69 72 65 73 |program requires| 00002e60 20 36 35 30 32 20 74 75 62 65 2c 22 0d 19 a0 33 | 6502 tube,"...3| 00002e70 f1 bd 28 31 34 31 29 22 83 42 42 43 2b 2c 73 68 |..(141)".BBC+,sh| 00002e80 61 64 6f 77 20 72 61 6d 20 6f 72 20 6d 61 79 20 |adow ram or may | 00002e90 72 75 6e 20 6f 6e 20 27 4d 41 53 54 45 52 22 0d |run on 'MASTER".| 00002ea0 19 aa 33 f1 bd 28 31 34 31 29 22 83 42 42 43 2b |..3..(141)".BBC+| 00002eb0 2c 73 68 61 64 6f 77 20 72 61 6d 20 6f 72 20 6d |,shadow ram or m| 00002ec0 61 79 20 72 75 6e 20 6f 6e 20 27 4d 41 53 54 45 |ay run on 'MASTE| 00002ed0 52 22 0d 19 b4 05 fa 0d 19 be 05 e1 0d ff |R"............| 00002ede
10-02-89/Words.m0
10-02-89/Words.m1
10-02-89/Words.m2
10-02-89/Words.m4
10-02-89/Words.m5
.