home *** CD-ROM | disk | FTP | other *** search
10 rem: copyright 1994 compute publications intl ltd - all rights reserved 20 clr:tp$="123456789012345":tp$=tp$+tp$:rl=30 30 l=peek(46)*256+peek(45)+2:hb=peek(l+2):lb=peek(l+1):tp=hb*256+lb 40 bc=53280:sc=53281:cc=646:sb=53265:vp=781:hp=782:pl=65520:sd=54272:dv=8 50 gosub2580 60 dimm$(20,20),w$(20),lx(20),ly(20),tw(20),h1(12),h2(12),l1(12),l2(12),lw(20) 70 dimcv(6),cd$(6),ch$(6),pw$(11),pt$(11),dp$(9),pr$(9) 80 nu$=" 1 2 3 4 5 6 7 8 91011121314151617181920" 90 pr$(0)="4":pr$(1)="27,64":pr$(2)="27,69":pr$(3)="27,77":pr$(4)="27,87,1" 100 pr$(5)="12" 110 sz=20:forr=1to8:readxd(r),yd(r):next:forr=828to912:readd:poker,d:next 120 forr=1to12:readh1(r):readl1(r):readh2(r):readl2(r):next 130 forr=0to34:readd:poke679+r,d:next 140 forr=0to6:readcv(r):cd$(r)=chr$(cv(r)):next:forr=0to6:readch$(r):next 150 poke826,24:poke827,96:fort=1to2000:next 160 : 170 print"[147]":pokesc,15:co=6:v=9:mg=2:wd=34:ht=5:gosub2540 180 pokevp,11:pokehp,4:syspl 190 print"[144]do you need playing instructions":print:printtab(17)"(y/n)[144]" 200 getd$:ifd$="n"then370 210 ifd$<>"y"then200 220 print"[147]":pokevp,1:pokehp,9:syspl:print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]" 230 printtab(9)" playing instructions ":printtab(9)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][144]" 240 print" you begin by selecting the number of" 250 print" words & the actual words to be used" 260 print" the computer then places the words in" 270 print" a numbered matrix for screen play" 280 print" all words will be straight lines; up" 290 print" down, forward, backward, & diagonally" 300 print" when prompted with row [144] and column[144]" 310 print" enter the row and column number of" 320 print" the first letter of each word found" 330 print" to win you must find all words in the" 340 print" allotted time you select" 350 printtab(14)"good luck!!!":printtab(7)"[144]press any key to continue" 360 getd$:ifd$=""then360 370 print"[147]":pokesc,15:co=6:v=1:mg=1:wd=36:ht=21:gosub2540 380 print""tab(17)"[144]select":printtab(8)"desired number of words" 390 printtab(7)"minimum 10 -/- maximum 20" 400 print"[144]10 to 15 makes for the best play" 410 co=2:v=8:mg=17:wd=4:ht=1:gosub2540:pokecc,0 420 v=9:h=19:le=2:m=0:cl=0:gosub2670:wt=val(tp$) 430 ifwt<10orwt>20thenpokevp,9:pokehp,19:syspl:print" ":goto420 440 printtab(10)"you have selected"wt: 450 printtab(9)"is this correct? (y/n)" 460 print:printtab(7)"[144]for an interesting game and" 470 printtab(9)"an additional challenge": 480 printtab(5)"enter numbers instead of words" 490 getd$:ifd$="n"then370 500 ifd$<>"y"then490 510 print"[147]":co=6:v=2:mg=5:wd=28:ht=3:gosub2540 520 print"":printtab(9)"[144]please enter words now" 530 printtab(8)"minimum length 5[144] letters" 540 printtab(8)"[144]maximum length 15[144] letters" 550 poke198,0:co=2:v=7:mg=10:wd=18:ht=1:gosub2540:fori=1towt:w$(i)="" 560 pokecc,0:pokevp,8:pokehp,11:syspl:print" " 570 v=8:h=12:le=15:m=1:cl=0:gosub2670:iflen(tp$)<5then560 580 w$(i)=tp$:forj=0toi-1:ifw$(i)=w$(j)thenw$(i)="":goto560 590 next:x=10:ifi=>10thenx=9 600 ifwt>10then620 610 pokevp,10+i:pokehp,x:syspl:printi"[157]. "w$(i):goto650 620 ifi>10then640 630 pokevp,10+i:pokehp,x-9:syspl:printi"[157]. "w$(i):goto650 640 pokevp,i:pokehp,10+x:syspl:printi"[157]. "w$(i) 650 next:pokevp,22:pokehp,8:syspl:print"[144]is this correct? (y/n)[144]" 660 getd$:ifd$="n"then510 670 ifd$<>"y"then660 680 : 690 print"[147]":pokesc,15:co=6:v=9:mg=2:wd=34:ht=5:gosub2540 700 pokevp,11:pokehp,4:syspl 710 print"[144]do you wish to print the matrix?":print:printtab(17)"(y/n)":pr=0 720 getd$:ifd$="y"thenpr=1:ta$="00:00":goto750 730 ifd$<>"n"then720 740 gosub2270 750 print"[147]":pokesc,14:co=1:v=10:mg=1:wd=36:ht=3:gosub2540 760 pokevp,12:pokehp,2:syspl:print"building matrix...one moment please." 770 fori=1to1500:next:pokesb,peek(sb)and239 780 print"[147]":co=0:v=2:mg=2:wd=20:ht=20:gosub2540 790 pokevp,0:pokehp,3:syspl:print" 11111111112" 800 print" 12345678901234567890":print"" 810 fori=1to39step2:printmid$(nu$,i,2):next:print 820 gosub2820:gp=wt 830 gp=int(gp/2):ifgp=0then900 840 f=0 850 form=1to(wt-gp):iflen(w$(m))>=len(w$(m+gp))then870 860 sw$=w$(m):w$(m)=w$(m+gp):w$(m+gp)=sw$:f=1 870 next:iffthen840 880 goto830 890 : 900 fori=1tosz:forj=1tosz:m$(i,j)=" ":next:next:forr=1towt:lw(r)=0:next 910 fori=1towt:d=int(8*rnd(1))+1:le=len(w$(i)) 920 hz=int(sz*rnd(1))+1:vt=int(sz*rnd(1))+1 930 ifhz+le*xd(d)<0orhz+le*xd(d)>szorvt+le*yd(d)<0orvt+le*yd(d)>szthen920 940 forx=0tole-1:t$=mid$(w$(i),x+1,1) 950 ifm$(hz+x*xd(d),vt+x*yd(d))<>" "andt$<>m$(hz+x*xd(d),vt+x*yd(d))then920 960 next:forx=0tole-1 970 m$(hz+x*xd(d),vt+x*yd(d))=mid$(w$(i),x+1,1):next 980 lx(i)=hz:ly(i)=vt:tw(i)=d 990 pokevp,2+i:pokehp,24:syspl:printw$(i):next 1000 fori=1to20:forj=1to20 1010 ifm$(i,j)=" "thenm$(i,j)=mid$(w$(wt*rnd(1)+1),5*rnd(1)+1,1) 1020 pokevp,i+2:pokehp,j+2:syspl:printm$(i,j):next:next:pokesc,15:pokecc,0 1030 : 1040 ifprthen1570 1050 ifsp=1thengosub2820 1060 pokesb,peek(sb)or16 1070 gosub2860:po=0:ti$="000000":ge=0:sys828 1080 sys848:ifti$=>gt$then1360 1090 gosub2850:print"row [157][157][157][157][157][157]":v=1:h=32:le=2:m=0:cl=1:gosub2670 1100 r=val(tp$):ifr=99then1390 1110 ifr<1orr>20then1080 1120 gosub2860 1130 sys848:ifti$=>gt$then1360 1140 gosub2850:print"col [157][157][157][157][157][157]":gosub2670 1150 c=val(tp$):ifc<1orc>20then1130 1160 gosub2860 1170 sys848:ifti$=>gt$then1360 1180 cg=0:forj=1towt:ifr=lx(j)thenifc=ly(j)thencg=1:xf=j:lw(j)=1:sys848 1190 next:ifcg=1thengosub2800:goto1220 1200 gosub2850:print"wrong":sys848:fork=1to500:sys848:next 1210 gosub2860:goto1080 1220 forj=0tolen(w$(xf))-1:xc=(3+lx(xf)+j*xd(tw(xf))):yc=(2+ly(xf)+j*yd(tw(xf))) 1230 pokevp,xc-1:pokehp,yc:syspl:print""m$(xc-3,yc-2)"[144]":next 1240 pokevp,2+xf:pokehp,24:syspl:print""w$(xf)"[144]" 1250 wc=wc+1:ifwc=wtthen1270 1260 goto1080 1270 ifge<>0then1360 1280 fort=1to1000:next:print"[147]":pokesc,14:pokecc,1 1290 co=1:v=7:mg=2:wd=34:ht=9:gosub2540 1300 pokevp,9:pokehp,4:syspl:print"congratulations you're a winner!" 1310 pokesd+5,85:pokesd+6,85:pokesd+12,85:pokesd+13,85:pokesd+24,15 1320 pokesd+4,33:pokesd+11,17:forx=1to12:pokesd,l1(x):pokesd+1,h1(x) 1330 pokesd+7,l2(x):pokesd+8,h2(x):ifh1(x)=50thenfort=1to200:next 1340 ifx=6thenfort=1to1000:next 1350 fort=1to200:next:next:ford=0to24:pokesd+d,0:next:goto1470 1360 gosub2850:print"time's up[144]" 1370 forj=sdtosd+23::pokej,0:next:pokesd+24,15:pokesd,169:pokesd+6,240 1380 pokesd+1,6:pokesd+4,17:ford=0to1499:next:pokesd+4,16 1390 fori=1towt 1400 forj=0tolen(w$(i))-1:xc=(3+lx(i)+j*xd(tw(i))):yc=(2+ly(i)+j*yd(tw(i))) 1410 iflw(i)=0thenpokevp,xc-1:pokehp,yc:syspl:print""m$(xc-3,yc-2) 1420 next:next 1430 pokevp,24:pokehp,0:syspl:print" [144]press any key to continue "; 1440 poke198,0:wait198,1:poke198,0:print"[147]":pokesc,14:pokecc,1 1450 co=1:v=8:mg=2:wd=34:ht=7:gosub2540 1460 pokevp,9:pokehp,5:syspl:print"sorry...better luck next time! 1470 [151]vp,11:[151]hp,5:[158]pl:[153]"would you like to play again?" 1480 [153][163]17)"(y/n)" 1490 [161]d$:[139]d$[178]"n"[167][158]64738 1500 [139]d$[178]"y"[167]wc[178]0:[137]1520 1510 [137]1490 1520 [153]:[153][163]10)"use the same words?":[153][163]17)"(y/n) 1530 getd$:ifd$="y"then740 1540 ifd$="n"then370 1550 goto1530 1560 : 1570 gosub2880 1580 print"[147]":pokesc,14:pokecc,1:pokesb,peek(sb)or16:pr=0 1590 co=1:v=6:mg=5:wd=28:ht=13:gosub2540: 1600 pokesc,14:pokevp,8:pokehp,14:syspl:print"do you want:" 1610 printtab(7)"1. use generic printer?" 1620 printtab(7)"2. print normal width?" 1630 printtab(7)"3. print expanded width?" 1640 printtab(7)"4. modify printer driver?" 1650 printtab(7)"5. return to beginning?":poke198,0 1660 getd$:ifd$<"1"ord$>"5"then1660 1670 pf=val(d$):onpfgoto1830,1680,1680,2910,170 1680 open15,8,15,"i0:":close15:gosub3440:ifflthen1580 1690 sys57812"wpd.*",8,1:poke780,0:poke781,1:poke782,8:sys65493 1700 gosub3460:ifflthen1580 1710 ife1<>62then1760 1720 print"[147]":sys826:v=8:mg=4:wd=30:ht=7:gosub2540 1730 pokevp,10:pokehp,6:syspl:print"no printer driver was found" 1740 printtab(12)"press any key to":printtab(6)"to return to the print menu" 1750 poke198,0:wait198,1:goto1580 1760 sys57812"wpd.*",8,1:poke780,0:poke781,1:poke782,8:sys65493 1770 ifflthen1580 1780 forr=0to6:pd$(r)=chr$(peek(960+r)):next:fori=0to6:pw$(i)="":next 1790 r=r+1:fori=0to6:tp$="" 1800 ck=peek(960+r):ifck=255thenr=r+1:next:goto1830 1810 ifck=44thenr=r+1:next 1820 pw$(i)=pw$(i)+chr$(ck):r=r+1:goto1800 1830 print"[147]":pokesc,14:co=1:v=8:mg=5:wd=28:ht=7:gosub2540 1840 pokevp,10:pokehp,7:syspl 1850 print"please ready your printer" 1860 printtab(9)"and press 'p' to print" 1870 printtab(12)"or 'a' to abort" 1880 getd$:ifd$="a"then2150 1890 ifd$<>"p"then1880 1900 print"[147]":co=1:v=10:mg=14:wd=10:ht=3:gosub2540 1910 pokevp,12:pokehp,16:syspl:print"printing" 1920 gosub3560:ifflthen1830 1930 sp$=" ":l(1)=11:l(2)=19:l(3)=1 1940 ifpf>1then1960 1950 forr=1to6:pt$(r)=" ":next:sa=0:tf=35:pe$="":ff$="":goto1970 1960 sa=asc(pw$(0)):pe$=pw$(1)+pw$(2):forr=1to6:pt$(r)=pd$(r):next:ff$=pw$(5) 1970 sp$=left$(sp$,l(pf)):f$=" " 1980 ifpf=2thenw=40:tf=42:pe$=pe$+pw$(3): 1990 ifpf=3thenw=20:tf=15:pe$=pe$+pw$(4):f$="" 2000 open4,4,sa:print#4,pe$ 2010 print#4,""tab(tf)"find-a-word":print#4," " 2020 print#4,sp$pt$(1);:forr=1tow:print#4,pt$(2);:next:print#4,pt$(3) 2030 fori=1to20:print#4,sp$pt$(4);:forj=1to20:print#4,m$(i,j)f$;:next 2040 print#4,pt$(4)" "w$(i):next 2050 print#4,sp$pt$(5);:forr=1tow:print#4,pt$(2);:next:print#4,pt$(6) 2060 print#4:print#4,""tab(tf-1)"instructions":print#4 2070 print#4,""tab(tf-14)"all words are in straight lines. they" 2080 print#4,""tab(tf-14)"may be placed forward, backward, up," 2090 print#4,""tab(tf-14)"down or diagonally. they may also" 2100 print#4,""tab(tf-14)"cross or overlap each other.":print#4 2110 print#4,""tab(tf-14)"when a word is found it should be" 2120 print#4,""tab(tf-14)"circled or marked out and crossed" 2130 print#4,""tab(tf-14)"off the list. good luck!!" 2140 print#4,ff$:close4 2150 print"[147]":co=1:v=6:mg=3:wd=32:ht=13:gosub2540 2160 pokevp,8:pokehp,12:syspl 2170 print"do you want to:":print"1. print another copy?" 2180 print"2. screen play current game?" 2190 print"3. new matrix with same words?" 2200 print"4. new matrix with new words?" 2210 print"5. quit the program?" 2220 getd$:ifd$<"1"ord$>"5"then2220 2230 d=val(d$):ondgoto1580,2250,690,370 2240 sys64738 2250 print"[147]":fort=1to500:next:gosub2270:pokesb,peek(sb)and239:pokecc,0 2260 gosub2890:pokesc,15:sp=1:goto1040 2270 print"[147][144]":pokesc,15:pokevp,2:pokehp,1:syspl 2280 print"playing time is determined by the" 2290 print" number of words and the amount of time" 2300 print" allowed for each word":print 2310 print" i.e. 15[144] words and 1[144] minute allows" 2320 print" 15[144] minutes time to find all words" 2330 print" if all words are not found when time" 2340 print" runs out, the computer will locate" 2350 print" the remaining words":print:printtab(13)"please select:" 2360 print" 1. [144]novice - 2 minutes per word" 2370 print" 2. [144]master - 1.5 minutes per word" 2380 print" 3. [144]expert - 1 minute per word" 2390 print" 4. [144]genius - 30 seconds per word" 2400 getd$:ifd$<"1"ord$>"4"then2400 2410 mp=30*(5-val(d$)) 2420 tt=wt*mp:tm=int(tt/60):se=tm*60:ts=tt-se:tm$=str$(tm):ts$=str$(ts) 2430 iflen(tm$)=2thentm$="0"+right$(tm$,1) 2440 iflen(tm$)=3thentm$=mid$(tm$,2,2) 2450 iflen(ts$)=2thents$="0"+right$(ts$,1) 2460 iflen(ts$)=3thents$=mid$(ts$,2,2) 2470 gt$="00"+tm$+ts$:ta$=tm$+":"+ts$ 2480 printtab(10)"[144]you have selected "d$ 2490 printtab(9)"[144]is this correct? (y/n)[144]" 2500 getd$:ifd$="n"then2270 2510 ifd$<>"y"then2500 2520 fort=1to500:next:return 2530 : 2540 pokecc,co:pokevp,v:pokehp,mg:syspl 2550 print"[176]";:forr=1towd:print"[192]";:next:print"[174]" 2560 forr=1toht:printtab(mg)"[221]"spc(wd)"[221]":next 2570 printtab(mg)"[173]";:forr=1towd:print"[192]";:next:print"[189]":return 2580 print"[147]"chr$(142)chr$(8):pokesb,peek(sb)and239:pokebc,14:pokesc,15 2590 co=2:v=1:mg=6:wd=26:ht=21:gosub2540: 2600 pokevp,2:pokehp,7:syspl:print"[152]"; 2610 fori=1to21:printtab(7);:forj=1to26:fx=int(rnd(1)*26)+65 2620 printchr$(fx);:next:print"":next 2630 pokevp,7:pokehp,11:syspl:print"[144]find-a-word":printtab(19)"b[157][157]y" 2640 printtab(20)"r. markland" 2650 pokesb,peek(sb)or16:return 2660 : 2670 pokevp,v:pokehp,h:syspl 2680 poke204,0:poke198,0:sl=0:pokel+1,lb:pokel+2,hb 2690 ifclthensys848:ifti$=>gt$thenki$=chr$(13):goto2710 2700 poke647,peek(cc):getki$:ifki$=""then2690 2710 ifki$=chr$(13)thenprint" ":pokel,sl:poke204,1:return 2720 ifki$=chr$(20)andsl>0then2770 2730 ifm=1andki$=>chr$(65)andki$=<chr$(90)then2780 2740 ifki$=>"0"andki$=<"9"then2780 2750 ifm=2andki$=","then2780 2760 goto2690 2770 sl=sl-1:poke647,peek(sc):print" [157][157] [157]";:goto2690 2780 ifsl=(le)then2690 2790 poketp+sl,asc(ki$):sl=sl+1:printki$;:goto2690 2800 forj=sdtosd+23:pokej,0:next:pokesd+5,11:pokesd+24,15:pokesd+1,136 2810 pokesd+4,17:fort=0to999:next:pokesd+4,16:return 2820 sp=0:pokevp,24:pokehp,0:syspl 2830 print"time allowed "ta$" / elapsed time[144] 00:00";:return 2840 : 2850 pokevp,1:pokehp,27:syspl:return 2860 gosub2850:print" ":return 2870 : 2880 poke684,4:poke692,192:sys679:poke684,216:poke692,196:sys679:return 2890 poke684,192:poke692,4:sys679:poke684,196:poke692,216:sys679:return 2900 : 2910 print"[147]":pokesc,15:printtab(8)"[144]from your printer manual:":m=2:le=3 2920 forr=1to6:print:print" enter the value = chr$(";right$(str$(cv(r)),3); 2930 print"): "cd$(r)" [144]"ch$(r)" 2940 [151]vp,[194](214)[171]1:[151]hp,34:[158]pl:[141]2680 2950 [139]tp$[178]""[167]2970 2960 ch$(r)[178]tp$ 2970 [151]vp,[194](214)[171]1:[151]hp,34:[158]pl:[153]ch$(r)" ":[130] 2980 [153]:[153][163]7)"please check your entries" 2990 [153][163]4)"(c) continue -/- (s) start over" 3000 [161]d$:[139]d$[178]"s"[167]2910 3010 [139]d$[179][177]"c"[167]3000 3020 pt$(0)[178]" transparent/with line feed = stop" 3030 pt$(1)[178]" initialize printer = stop" 3040 pt$(2)[178]" set bold printing = stop" 3050 pt$(3)[178]" set elite spacing-12 cpi = stop" 3060 pt$(4)[178]" set expanded spacing-5 cpi = stop" 3070 pt$(5)[178]" perform form feed = stop" 3080 [153]"loadstop enter your interface code to:":m[178]2:le[178]8 3090 [153]:[153]pt$(0)pr$(0); 3100 [151]vp,[194](214):[151]hp,31:[158]pl:[141]2680:[139]tp$[178]""[167]3120 3110 pr$(0)[178]tp$ 3120 [151]vp,[194](214)[171]1:[151]hp,31:[158]pl:[153]pr$(0)" " 3130 [153]:[153][163]6)"stopenter your printer code to:" 3140 [129]r[178]1[164]5:[153]:[153]pt$(r)pr$(r); 3150 [151]vp,[194](214):[151]hp,31:[158]pl:[141]2680:[139]tp$[178]""[167]3170 3160 pr$(r)[178]tp$:[130] 3170 [151]vp,[194](214)[171]1:[151]hp,31:[158]pl:[153]pr$(r)" ":[130] 3180 [153]:[153][163]7)"please check your entries" 3190 [153][163]4)"(c) continue -/- (s) start over" 3200 [161]d$:[139]d$[178]"s"[167]3080 3210 [139]d$[179][177]"c"[167]3200 3220 pd$[178][199](192):pd$[178]pd$[170][199](3):[129]r[178]0[164]6:pd$[178]pd$[170][199]([197](ch$(r))):[130] 3230 [129]i[178]0[164]6:tp$[178]"":pd$[178]pd$[170]"," 3240 [129]j[178]1[164][195](pr$(i)):dt$[178][202](pr$(i),j,1) 3250 [139]dt$[178]","[167]3270 3260 tp$[178]tp$[170]dt$:[130] 3270 pd$[178]pd$[170][199]([197](tp$)):tp$[178]"":[130] 3280 pd$[178]pd$[170][199](255) 3290 [153]"load":co[178]2:v[178]9:mg[178]3:wd[178]32:ht[178]5:[141]2540:[151]vp,11:[151]hp,5:[158]pl 3300 [153]"enter the name of your printer" 3310 [141]3440:[139]fl[167]3290 3320 [159]15,8,15,"i0:":[160]15:[141]3440:[139]fl[167]3290 3330 [158]57812na$,8,1:[151]780,0:[151]781,1:[151]782,8:[158]65493:[158]826 3340 [141]3460:[139]fl[167]3290 3350 [139]e1[178]62[167]3420 3360 [153]"load":co[178]6:v[178]8:mg[178]6:wd[178]26:ht[178]7:[141]2540:[151]vp,9:[151]hp,0:[158]pl 3370 ms$[178]na$[170]" already exists":[153][163](40[171]([195](ms$)))[173]2)"stop"ms$ 3380 [153][163]13)"overwrite it?":[153][163]16)"y -/- n":[151]198,0 3390 [161]d$:[139]d$[178]"n"[167]1580 3400 [139]d$[179][177]"y"[167]3390 3410 [159]15,8,15,"s0:"[170]na$:[160]15:[141]3440:[139]fl[167]3360 3420 [159]8,8,8,"0:"[170]na$[170]",p,w":[152]8,pd$:[141]3460:[139]fl[167]3290 3430 [153]"load":[151]sc,14:[137]1580 3440 fl[178]0:[151]144,0:[151]780,dv:[158]65457:s[178]st:[158]65454:s[178]s[176]st:[139]s[178]0[167]3460 3450 er$[178]"device not present":fl[178]1:[137]3490 3460 [159]15,8,15:[132]15,e1,e$ 3470 [139]e1[178]0[176]e1[178]62[176]e1[178]63[176]e1[178]73[167][160]8:[160]15:fl[178]0:[142] 3480 [160]8:[160]15:fl[178]1:er$[178]e$ 3490 [153]"load":[151]sc,15:co[178]6:v[178]7:mg[178]3:wd[178]32:ht[178]9:[141]2540 3500 [151]vp,9:[151]hp,7:[158]pl 3510 [153]"* * * hardware error * * *" 3520 [153]:[153][163](40[171]([195](er$)))[173]2)"stop"er$ 3530 [139]dv[178]8[167][153][163]11)"check disk & drive" 3540 [139]dv[178]4[167][153][163]13)"check printer":dv[178]8 3550 [153][163]5)"then press any key to continue";:[151]198,0:[146]198,1:[142] 3560 fl[178]0:[151]144,0:[151]780,4:[158]65457:s[178]st:[158]65454:s[178]s[176]st 3570 [139]s[179][177][171]128[167][142] 3580 :dv[178]4:[137]3450 3590 : 3600 [131] 0,-1,0,1,-1,0,1,0,-1,-1,1,1,1,-1,-1,1 3610 : 3620 [131] 169,0,141,11,220,141,10,220,141,9,220,141,8,220,41,15,24,105,48,96 3630 [131] 173,10,220,32,74,3,141,227,7,173,9,220,32,74,3,141,230,7,173,10,220 3640 [131] 32,140,3,41,7,32,76,3,141,226,7,173,9,220,32,140,3,41,7,32,76,3,141 3650 [131] 229,7,169,32,141,231,7,169,58,141,228,7,173,8,220,96,74,74,74,74,96 3660 : 3670 [131] 25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162 3680 [131] 42,62,31,165,50,60,37,162,25,30,18,209,33,135,25,30 3690 [131] 42,62,31,165,50,60,37,162,42,62,31,165,50,60,37,162 3700 : 3710 [131] 169,0,133,251,169,4,133,252,169,0,133,253,169,192,133,254,162,4 3720 [131] 160,0,177,251,145,253,200,208,249,230,252,230,254,202,208,242,96 3730 : 3740 [131] 32,176,99,174,98,173,189 3750 [131] 32,218,196,191,179,192,217 
(.txt)