start bastext 2305 start tok128 d64-RTdsWK 10 POKE56,48:POKE55,0:CLR:GOTO40 20 POKExr,yc:POKExr+1,x:POKExr+2,0:SYS65520:RETURN 30 x=11:yc=23:GOTO20 40 IFPEEK(808)=237THENPOKE53281,15:POKE53280,15:kb=198:fl=1:xr=781:GOTO60 50 kb=239:fl=0:xr=2035:POKE65305,241 60 GOSUB470:PRINT"{clear}{down*5}":c$(0)="{156}IJK{down}{left*3}LMN":c$(1)="{blue}"+RIGHT$(c$(0),10) 70 IFfl=0THENPOKE12909,0:POKE12910,255 80 PRINT"{green}{space*2}{reverse on}{space*4}{reverse off}{space*3}{reverse on}{space*2}{reverse off}{space*7}{reverse on}{space*4}{reverse off}{space*3}{reverse on}{space*6}{reverse off}{space*3}{reverse on}{space*4}{reverse off}{space*3}{reverse on}{space*2}{reverse off}{space*2}{reverse on}{space*2}{reverse off}{space*2}{reverse on}{space*2}"; 90 PRINT"{reverse off}{space*6}{reverse on}{space*2}{reverse off}{space*2}{reverse on}{space*2}{reverse off}{space*4}{reverse on}{space*2}{reverse off}{space*4}{reverse on}{space*2}{reverse off}{space*2}{reverse on}{space*2}{reverse off}{space*2}{reverse on}{space*2}{reverse off}{space*6}{reverse on}{space*2}{reverse off}{space*6}{reverse on}{space*2}{reverse off} "; 100 PRINT" {reverse on}{space*2}{reverse off}{space*4}{reverse on}{space*2}{reverse off}{space*4}{reverse on}{space*2}{reverse off}{space*7}{reverse on}{space*4}{reverse off}{space*3}{reverse on}{space*2}{reverse off}{space*6}{reverse on}{space*2}{reverse off}{space*2}{reverse on}{space*2}{reverse off}{space*4}{reverse on}{space*2}{reverse off} "; 110 PRINT"{space*4}{reverse on}{space*4}{reverse off}{space*7}{reverse on}{space*2}{reverse off}{space*2}{reverse on}{space*2}{reverse off}{space*6}{reverse on}{space*2}{reverse off}{space*2}{reverse on}{space*2}{reverse off}{space*4}{reverse on}{space*2}{reverse off}{space*8}{reverse on}{space*2}{reverse off}{space*2}{reverse on}"; 120 PRINT"{space*2}{reverse off}{space*2}{reverse on}{space*2}{reverse off}{space*2}{reverse on}{space*2}{reverse off}{space*6}{reverse on}{space*2}{reverse off}{space*2}{reverse on}{space*2}{reverse off}{space*4}{reverse on}{space*2}{reverse off}{space*4}{reverse on}{space*2}{reverse off}{space*2}{reverse on}{space*2}{reverse off}{space*3}{reverse on}{space*4}{reverse off}{space*3}{reverse on}"; 130 PRINT"{space*6}{reverse off}{space*3}{reverse on}{space*4}{reverse off}{space*5}{reverse on}{space*2}{reverse off}{space*5}{reverse on}{space*4}{reverse off}" 140 x=8:yc=21:GOSUB20:PRINT"do you want to go first":POKEkb,0 150 GETy$:IFy$<>"y"ANDy$<>"n"THEN150 160 l1=0:GOSUB430 170 l1=1:SYS12445 180 PRINT"{clear}{down*2}{green}"SPC(4);:FORa=1TO8:PRINTa" ";:NEXT 190 PRINT"{black}":FORa=1TO16:PRINT"{space*3}{sh -}{space*3}{sh -}{space*3}{sh -}{space*3}{sh -}{space*3}{sh -}{space*3}{sh -}{space*3}{sh -}{space*3}{sh -}{space*3}{sh -}":NEXT 200 PRINT"{space*3}{reverse on}{space*33}" 210 IFy$="y"THEN250 220 y=INT(RND(ti+y)*7+.2) 230 POKE12288+y,255:POKE12369+y,y+9 240 x=4+y*4:yc=17:GOSUB20:PRINTc$(0) 250 GOSUB30:PRINT"{blue} your move (1-8){space*3}{left*2}";:POKEkb,0 260 GETy$:IFy$="l"THENGOSUB430:GOSUB30:PRINT"{up*2}{space*17}":GOTO250 270 IFy$<"1"ORy$>"8"THEN260 280 y=VAL(y$)-1:POKE12400,y:tk=1:cl=1:GOSUB390 290 IFyc<5THEN360 300 GOSUB30:PRINT"{156} computer moves ":SYS12468 310 p5=PEEK(12397):IFp5=1THEN360 320 y=PEEK(12389):tk=255:cl=0:GOSUB390 330 IFp5=255THEN370 340 GOSUB30:PRINTSPC(15)y+1"{left}{space*4}" 350 FORi=1TO1800:NEXT:GOTO250 360 GOSUB30:PRINT"{green}{space*5}you win{space*8}":GOTO380 370 GOSUB30:PRINT"{green}{space*5}you lose{space*7}" 380 FORi=1TO3500:NEXT:GOTO140 390 p=PEEK(12369+y) 400 POKE12288+p,tk:POKE12369+y,p+9 410 p1=INT(p/9):p2=INT((p/9-p1)*9+.1) 420 x=p2*4+4:yc=17-2*p1:GOSUB20:PRINTc$(cl):RETURN 430 GOSUB30:PRINT"{green}{up*2}{left*4}{space*4}enter level (1-4){space*4}":POKEkb,0 440 GETa$:IFa$<"1"ORa$>"4"THEN440 450 l=VAL(a$):IFl1THENl=l-1 460 POKE12399,l:POKE12397,0:RETURN 470 PRINT"{clear}":x=14:yc=12:GOSUB20:PRINT"{black}please wait" 480 IFflTHENPOKE56334,0:POKE1,51 490 IFfl=0THENPOKE1177,62 500 FORa=0TO2047:POKEa+14336,PEEK(a+53248):NEXTa:IFfl=0THENPOKE1177,63:GOTO520 510 POKE1,55:POKE56334,129:POKE53272,30:GOTO530 520 POKE65298,PEEK(65298)AND251:POKE65299,PEEK(65299)AND3OR56 530 FORa=584TO631:READb:POKEa+14336,b:NEXT 540 c=0:FORa=12402TO12972:READb:c=c+b:POKEa,b:NEXT:IFc=58347THENRETURN 550 PRINT"{clear}error in data":STOP 560 DATA 0,3,15,31,63,63,127,127 570 DATA 254,255,255,255,255,255,255,255 580 DATA 0,128,224,240,248,248,252,252 590 DATA 127,127,63,63,31,15,3,0 600 DATA 255,255,255,255,255,255,255,254 610 DATA 252,252,248,248,240,224,128,0 620 DATA 255,1,8,248,10,246,247,1,255,1,255,255,1,255,1,0,2,8,36 630 DATA 0,1,2,16,142,108,48,174,107,48,189,129,48,24,121,93,48,153,93 640 DATA 48,174,108,48,96,206,111,48,160,7,152,153,81,48,136,16,249,160,80 650 DATA 169,0,153,0,48,136,16,248,96,172,111,48,169,0,153,97,48,9,64 660 DATA 153,93,48,41,0,136,16,243,200,169,1,141,75,49,169,8,141,141,48 670 DATA 169,121,141,57,49,169,7,141,110,48,174,112,48,189,81,48,56,233,9 680 DATA 157,81,48,32,12,49,169,107,141,141,48,174,112,48,189,81,48,24,105 690 DATA 9,157,81,48,173,109,48,208,8,169,0,141,109,48,76,95,49,96,190 700 DATA 89,48,189,81,48,141,105,48,169,0,141,106,48,170,173,105,48,141,113 710 DATA 48,173,106,48,208,5,169,0,141,107,48,189,114,48,24,109,113,48,141 720 DATA 113,48,141,54,49,173,1,48,217,121,48,208,19,238,107,48,32,137,48 730 DATA 173,107,48,201,3,208,222,169,1,141,109,48,96,173,106,48,73,1,141 740 DATA 106,48,232,236,110,48,208,186,96,169,0,153,89,48,190,89,48,189,81 750 DATA 48,201,54,144,30,201,63,176,8,169,0,153,93,48,76,140,49,185,89 760 DATA 48,153,101,48,185,125,48,141,109,48,153,97,48,76,151,50,74,74,74 770 DATA 24,121,93,48,153,93,48,169,129,141,144,48,169,121,141,57,49,169,7 780 DATA 141,110,48,32,9,49,169,0,141,109,48,185,125,48,141,75,49,169,133 790 DATA 141,144,48,169,125,141,57,49,169,7,141,110,48,32,9,49,173,109,48 800 DATA 240,12,153,97,48,185,89,48,153,101,48,76,151,50,169,0,141,109,48 810 DATA 190,89,48,189,81,48,24,105,9,141,105,48,169,0,141,106,48,170,173 820 DATA 105,48,141,113,48,173,106,48,208,5,169,0,141,107,48,189,114,48,24 830 DATA 109,113,48,141,113,48,141,11,50,173,221,48,217,121,48,208,18,238,107 840 DATA 48,173,107,48,201,3,208,225,169,0,153,93,48,76,50,50,173,106,48 850 DATA 73,1,141,106,48,232,236,110,48,208,187,204,111,48,240,53,190,89,48 860 DATA 189,81,48,141,68,50,185,125,48,141,221,48,24,169,9,125,81,48,157 870 DATA 81,48,200,32,95,49,169,0,141,109,48,190,89,48,189,81,48,56,233 880 DATA 9,141,106,50,157,81,48,169,0,141,221,48,173,18,208,41,3,24,121 890 DATA 93,48,217,97,48,144,9,153,97,48,185,89,48,153,101,48,169,64,153 900 DATA 93,48,190,89,48,224,7,240,8,152,170,254,89,48,76,100,49,136,48 910 DATA 18,200,152,170,185,97,48,74,202,208,252,136,24,121,93,48,153,93,48,96 stop tok128 (bastext 1.0)