Home » Archimedes archive » Archimedes World » AW-1991-02.adf » !AWFeb91/Goodies/Boxit/!BoxIt/BOXIT
!AWFeb91/Goodies/Boxit/!BoxIt/BOXIT
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 » Archimedes archive » Archimedes World » AW-1991-02.adf |
| Filename: | !AWFeb91/Goodies/Boxit/!BoxIt/BOXIT |
| Read OK: | ✔ |
| File size: | 2CC1 bytes |
| Load address: | FFFFFB41 |
| Exec address: | E4AF51DC |
File contents
10 REM >BOXIT 20 MODE 15 30 PROCVars 40 PROCTitleScr 50 ORIGIN 30,40 60 PROCBord 70 PROCscore 80 90 REPEAT 100 PROCGo(0) 110 PROCUserturn 120 PROCUserscan 130 PROCscore 140 IF USERADD%=1 THEN 110 150 PROCGo(1) 160 PROCCompturn 170 PROCCompscan 180 PROCscore 190 IF COMADD%=1 THEN 160 200 UNTILFALSE 220 230 DEFPROCUserturn 240 GCOL 8,1 250 REPEAT 260 MOUSE X%,Y%,Z% 270 XPOS%=(INT(X%/100)*100):XTEMP%=(XPOS%-50)/100 280 YPOS%=(INT(Y%/100)*100):YTEMP%=(YPOS%-50)/100 290 IF XPOS%=1200 AND YPOS%=700 THEN XPOS%=1100 300 IF XPOS%=1200 AND ABS(X%-XPOS%)>ABS(Y%-YPOS%) THEN XPOS%=1100 310 IF YPOS%=700 AND ABS(X%-XPOS%)<ABS(Y%-YPOS%) THEN YPOS%=600 320 MOVE XPOS%-50,YPOS%-50 330 MOVE XPOS%+150,YPOS%+150 340 *SGET BACK 350 *SCHOOSE BACK 360 PLOT &ED,326,752 370 IF ABS(X%-XPOS%)>ABS(Y%-YPOS%) THEN 380 CR%=POINT(XPOS%+50,YPOS%) 390 GCOL 15 TINT 255 400 RECTANGLE XPOS%-20,YPOS%-20,140,40 410 PROCHor(XPOS%,YPOS%) 420 WAIT 430 DR%=1 440 ENDIF 450 IF ABS(X%-XPOS%)<ABS(Y%-YPOS%) THEN 460 CR%=POINT(XPOS%,YPOS%+50) 470 GCOL 15 TINT 255 480 RECTANGLE XPOS%-20,YPOS%-20,40,140 490 PROCVert(XPOS%,YPOS%) 500 WAIT 510 DR%=2 520 ENDIF 530 *SCHOOSE BACK 540 PLOT &ED,XPOS%-50,YPOS%-50 550 IF Z%=4 AND CR%<>63 THEN 560 IF DR%=1 THEN 570 PROCHor(XPOS%,YPOS%) 580 ENDIF 590 IF DR%=2 THEN 600 PROCVert(XPOS%,YPOS%) 610 ENDIF 620 SOUND 2,-15,10,6 630 GOTO 660 640 ENDIF 650 UNTIL FALSE 660 ENDPROC 670 680 DEFPROCCalc(OX%,OY%,VX%,VY%) 690 B1%=0:B2%=0:B3%=0:B4%=0 700 BCOL1%=POINT(((VX%*100)-50)+OX%,((VY%*100)-100)+OY%) 710 IF BCOL1%=63 THEN B1%=1 720 BCOL2%=POINT(((VX%*100)-100)+OX%,((VY%*100)-50)+OY%) 730 IF BCOL2%=63 THEN B2%=1 740 BCOL3%=POINT(((VX%*100)-50)+OX%,(VY%*100)+OY%) 750 IF BCOL3%=63 THEN B3%=1 760 BCOL4%=POINT((VX%*100)+OX%,((VY%*100)-50)+OY%) 770 IF BCOL4%=63 THEN B4%=1 780 ENDPROC 790 800 DEFPROCShowComp(XS%,YS%,HV%) 810 GCOL 14 TINT 255 820 MOVE XS%-50,YS%-50 830 MOVE XS%+150,YS%+150 840 *SGET COMPBACK 850 *SCHOOSE COMPBACK 860 IF HV%=0 THEN 870 RECTANGLE FILL XS%-30,YS%-30,160,60 880 PROCdelay(2000) 890 ENDIF 900 IF HV%=1 THEN 910 RECTANGLE FILL XS%-30,YS%-30,60,160 920 PROCdelay(2000) 930 ENDIF 940 PLOT &ED,XS%-50,YS%-50 950 SOUND 2,-15,10,6 960 ENDPROC 970 980 DEFPROCCompturn 990 GCOL 8,1 1000 FOR CX%=1 TO 12 1010 FOR CY%=1 TO 7 1020 PROCCalc(0,0,CX%,CY%) 1030 IF B1%+B2%+B3%+B4%=3 THEN 1040 IF B1%=0 THEN 1050 PROCShowComp((CX%*100)-100,(CY%*100)-100,0) 1060 PROCHor((CX%*100)-100,(CY%*100)-100) 1070 ENDIF 1080 IF B2%=0 THEN 1090 PROCShowComp((CX%*100)-100,(CY%*100)-100,1) 1100 PROCVert((CX%*100)-100,(CY%*100)-100) 1110 ENDIF 1120 IF B3%=0 THEN 1130 PROCShowComp((CX%*100)-100,CY%*100,0) 1140 PROCHor((CX%*100)-100,CY%*100) 1150 ENDIF 1160 IF B4%=0 THEN 1170 PROCShowComp(CX%*100,(CY%*100)-100,1) 1180 PROCVert(CX%*100,(CY%*100)-100) 1190 ENDIF 1200 GOTO 1700 1210 ENDIF 1220 NEXT CY% 1230 NEXT CX% 1240 GCOL 8,1 1250 FOR LO%=0 TO 1 1260 FOR QX%=1 TO 12 1270 FOR QY%=1 TO 7 1280 MOVE (QX%*100)-150,(QY%*100)-150 1290 MOVE (QX%*100)+50,(QY%*100)+50 1300 *SGET COMPBACK 1310 PROCCalc(0,0,QX%,QY%) 1320 IF (B1%+B2%+B3%+B4%=0+LO% OR B1%+B2%+B3%+B4%=1+LO%) THEN 1330 IF B1%=0 THEN 1340 TX%=(QX%*100)-100:TY%=(QY%*100)-100:TVH%=0 1350 PROCHor((QX%*100)-100,(QY%*100)-100) 1360 GOTO 1530 1370 ENDIF 1380 IF B2%=0 THEN 1390 TX%=(QX%*100)-100:TY%=(QY%*100)-100:TVH%=1 1400 PROCVert((QX%*100)-100,(QY%*100)-100) 1410 GOTO 1530 1420 ENDIF 1430 IF B3%=0 THEN 1440 TX%=(QX%*100)-100:TY%=QY%*100:TVH%=0 1450 PROCHor((QX%*100)-100,QY%*100) 1460 GOTO 1530 1470 ENDIF 1480 IF B4%=0 THEN 1490 TX%=QX%*100:TY%=(QY%*100)-100:TVH%=1 1500 PROCVert(QX%*100,(QY%*100)-100) 1510 GOTO 1530 1520 ENDIF 1530 PROCCalc(0,100,QX%,QY%) 1540 IF B1%+B2%+B3%+B4%=3 AND LO%=0 THEN 1640 1550 PROCCalc(100,0,QX%,QY%) 1560 IF B1%+B2%+B3%+B4%=3 AND LO%=0 THEN 1640 1570 PROCCalc(0,-100,QX%,QY%) 1580 IF B1%+B2%+B3%+B4%=3 AND LO%=0 THEN 1640 1590 PROCCalc(-100,0,QX%,QY%) 1600 IF B1%+B2%+B3%+B4%=3 AND LO%=0 THEN 1640 1610 PROCShowComp(TX%,TY%,TVH%) 1620 GOTO 1700 1630 ENDIF 1640 *SCHOOSE COMPBACK 1650 PLOT &ED,(QX%*100)-150,(QY%*100)-150 1660 PLOT &ED,1004,752 1670 NEXT QY% 1680 NEXT QX% 1690 NEXT LO% 1700 ENDPROC 1710 1720 DEFPROCBord 1730 MOUSE RECTANGLE 40,36,1200,700 1740 ORIGIN 0,0 1750 PROCPlinth(0,0,1279,1023,10,1,42,21,21,63,63) 1760 PROCPlinth(350,776,230,228,10,0,42,21,21,63,63) 1770 PROCPlinth(20,20,1240,744,10,0,42,21,21,63,63) 1780 PROCPlinth(1028,776,230,228,10,0,42,21,21,63,63) 1790 PROCPlinth(590,776,430,228,10,0,42,21,21,63,63) 1800 PROCPlinth(608,790,396,94,10,1,42,21,21,63,63) 1810 PROCPlinth(608,894,396,94,10,1,42,21,21,63,63) 1820 ORIGIN 40,782 1830 PROCLogo(320,200,1,0) 1840 ORIGIN 30,798 1850 PROCLogo(320,200,0,1) 1860 ORIGIN 40,36 1870 RD%=RND(3) 1880 IF RD%=3 THEN RN%=RND(6) 1890 FOR N%=1 TO 13 1900 IF RD%=1 THEN RN%=RND(6) 1910 FOR M%=1 TO 8 1920 IF RD%=2 THEN RN%=RND(6) 1930 PROCPlinth(N%*100-110,M%*100-106,20,20,10,1,BLKCOL1%(RN%),BLKCOL2%(RN%),BLKCOL3%(RN%),BLKCOL4%(RN%),BLKCOL5%(RN%)) 1940 NEXT M% 1950 NEXT N% 1960 ENDPROC 1970 1980 DEFPROCVars 1990 VOICES 2 2000 *CH. 1 3 2010 *CH. 2 6 2020 COMPSCR%=0 2030 USERSCR%=0 2040 COMCOL%=15 2050 USERCOL%=3 2060 COMADD%=0 2070 USERADD%=0 2080 DIM BLKCOL1%(6),BLKCOL2%(6),BLKCOL3%(6),BLKCOL4%(6),BLKCOL5%(6) 2090 FOR RN%=1 TO 6 2100 READ BLKCOL1%(RN%) 2110 READ BLKCOL2%(RN%) 2120 READ BLKCOL3%(RN%) 2130 READ BLKCOL4%(RN%) 2140 READ BLKCOL5%(RN%) 2150 NEXT RN% 2160 2170 DATA 5,5,5,47,26 2180 DATA 1,1,1,43,22 2190 DATA 4,4,4,46,25 2200 DATA 20,20,20,62,41 2210 DATA 16,16,16,58,37 2220 DATA 17,17,17,59,38 2230 ENDPROC 2240 2250 DEFPROCUserscan 2260 USERADD%=0 2270 FOR CX%=1 TO 12 2280 FOR CY%=1 TO 7 2290 B1%=0:B2%=0:B3%=0:B4%=0:B5%=0 2300 BCOL1%=POINT((CX%*100)-50,(CY%*100)-100) 2310 IF BCOL1%=63 THEN B1%=1 2320 BCOL2%=POINT((CX%*100)-100,(CY%*100)-50) 2330 IF BCOL2%=63 THEN B2%=1 2340 BCOL3%=POINT((CX%*100)-50,CY%*100) 2350 IF BCOL3%=63 THEN B3%=1 2360 BCOL4%=POINT(CX%*100,(CY%*100)-50) 2370 IF BCOL4%=63 THEN B4%=1 2380 B5%=POINT((CX%*100)-50,(CY%*100)-50) 2390 IF (B1%+B2%+B3%+B4%=4 AND B5%<>USERCOL% AND B5%<>COMCOL%) THEN 2400 USERSCR%+=1 2410 USERADD%=1 2420 GCOL 0 TINT 0 2430 CIRCLE (CX%*100)-50,(CY%*100)-50,34 2440 GCOL 42 TINT 192 2450 CIRCLE FILL (CX%*100)-50,(CY%*100)-50,30 2460 GCOL 63 TINT 192 2470 CIRCLE FILL (CX%*100)-50,(CY%*100)-50,25 2480 GCOL USERCOL% TINT 255 2490 CIRCLE FILL (CX%*100)-50,(CY%*100)-50,20 2500 ENDIF 2510 NEXT CY% 2520 NEXT CX% 2530 ENDPROC 2540 2550 DEFPROCscore 2560 ORIGIN 0,0 2570 GCOL 42 TINT 192 2580 RECTANGLE FILL 624,910,364,56 2590 RECTANGLE FILL 622,806,364,56 2600 VDU 5 2610 MOVE 680,950 2620 GCOL 42 TINT 0 2630 PRINT "MY SCORE : ";COMPSCR% 2640 MOVE 680,842 2650 PRINT "YOUR SCORE : ";USERSCR% 2660 MOVE 686,956 2670 GCOL COMCOL% TINT 255 2680 PRINT "MY SCORE : ";COMPSCR% 2690 MOVE 686,846 2700 GCOL USERCOL% TINT 0 2710 PRINT "YOUR SCORE : ";USERSCR% 2720 IF COMPSCR%+USERSCR%=84 THEN 2730 PROCGameOver 2740 2750 END 2760 ENDIF 2770 ORIGIN 40,36 2780 ENDPROC 2790 2800 DEFPROCCompscan 2810 COMADD%=0 2820 FOR CX%=1 TO 12 2830 FOR CY%=1 TO 7 2840 B1%=0:B2%=0:B3%=0:B4%=0:B5%=0 2850 BCOL1%=POINT((CX%*100)-50,(CY%*100)-100) 2860 IF BCOL1%=63 THEN B1%=1 2870 BCOL2%=POINT((CX%*100)-100,(CY%*100)-50) 2880 IF BCOL2%=63 THEN B2%=1 2890 BCOL3%=POINT((CX%*100)-50,CY%*100) 2900 IF BCOL3%=63 THEN B3%=1 2910 BCOL4%=POINT(CX%*100,(CY%*100)-50) 2920 IF BCOL4%=63 THEN B4%=1 2930 B5%=POINT((CX%*100)-50,(CY%*100)-50) 2940 IF (B1%+B2%+B3%+B4%=4 AND B5%<>USERCOL% AND B5%<>COMCOL%) THEN 2950 COMPSCR%+=1 2960 COMADD%=1 2970 GCOL 0 TINT 0 2980 CIRCLE (CX%*100)-50,(CY%*100)-50,34 2990 GCOL 42 TINT 128 3000 CIRCLE FILL (CX%*100)-50,(CY%*100)-50,30 3010 GCOL 63 TINT 128 3020 CIRCLE FILL (CX%*100)-50,(CY%*100)-50,25 3030 GCOL COMCOL% TINT 255 3040 CIRCLE FILL (CX%*100)-50,(CY%*100)-50,20 3050 ENDIF 3060 NEXT CY% 3070 NEXT CX% 3080 ENDPROC 3090 3100 DEFPROCPlinth(A%,B%,C%,D%,V%,P%,C1%,C2%,C3%,C4%,C5%) 3110 IF P%=0 THEN GCOL C4% TINT 192 ELSE GCOL C2% TINT 128 3120 RECTANGLE FILL A%,B%,C%,D%/2 3130 IF P%=0 THEN GCOL C2% TINT 128 ELSE GCOL C4% TINT 192 3140 RECTANGLE FILL A%,B%+(D%/2),C%,D%/2 3150 IF P%=0 THEN GCOL C5% TINT 255 ELSE GCOL C3% TINT 0 3160 MOVE A%,B% 3170 MOVE A%,B%+D% 3180 PLOT &55,A%+(D%/2),B%+(D%/2) 3190 IF P%=0 THEN GCOL C3% TINT 128 ELSE GCOL C5% TINT 255 3200 MOVE A%+C%,B% 3210 MOVE A%+C%,B%+D% 3220 PLOT &55,C%-(D%/2)+A%,B%+(D%/2) 3230 IF P%=0 THEN GCOL 0 TINT 0 ELSE GCOL C1% TINT 255 3240 RECTANGLE FILL A%+V%,B%+V%,C%-(V%*2),D%-(V%*2) 3250 ENDPROC 3260 3270 DEFPROCHor(BX%,BY%) 3280 GCOL 3 TINT 255 3290 RECTANGLE FILL BX%,BY%-10,100,20 3300 GCOL 63 TINT 255 3310 RECTANGLE FILL BX%,BY%-5,100,10 3320 GCOL 42 TINT 0 3330 CIRCLE FILL BX%,BY%,20 3340 CIRCLE FILL BX%+100,BY%,20 3350 GCOL 63 TINT 0 3360 CIRCLE FILL BX%,BY%,15 3370 CIRCLE FILL BX%+100,BY%,15 3380 GCOL 63 TINT 255 3390 CIRCLE FILL BX%,BY%,10 3400 CIRCLE FILL BX%+100,BY%,10 3410 SOUND 1,-10,BX%+350,2 3420 ENDPROC 3430 3440 DEFPROCVert(BX%,BY%) 3450 GCOL 3 TINT 255 3460 RECTANGLE FILL BX%-10,BY%,20,100 3470 GCOL 63 TINT 255 3480 RECTANGLE FILL BX%-5,BY%,10,100 3490 GCOL 42 TINT 0 3500 CIRCLE FILL BX%,BY%,20 3510 CIRCLE FILL BX%,BY%+100,20 3520 GCOL 63 TINT 0 3530 CIRCLE FILL BX%,BY%,15 3540 CIRCLE FILL BX%,BY%+100,15 3550 GCOL 63 TINT 255 3560 CIRCLE FILL BX%,BY%,10 3570 CIRCLE FILL BX%,BY%+100,10 3580 SOUND 1,-10,BX%+350,2 3590 ENDPROC 3600 3610 DEFPROCLogo(LX%,LY%,LC%,LT%) 3620 IF LC%=1 THEN GCOL 42 TINT LT% ELSE GCOL 7 TINT 255 3630 MOVE 0,0 3640 MOVE 0,LY%/2 3650 PLOT &55,LX%/5,LY%/4 3660 IF LC%=1 THEN GCOL 42 TINT LT% ELSE GCOL 3 TINT 255 3670 MOVE 0,LY%/2 3680 MOVE 0,LY% 3690 PLOT &55,LX%/5,(LY%/4)*3 3700 IF LC%=1 THEN GCOL 42 TINT LT% ELSE GCOL 15 TINT 255 3710 RECTANGLE FILL LX%/5,0,LX%/5,LY% 3720 MOVE (LX%/5)*2,0 3730 MOVE (LX%/5)*3,0 3740 IF LC%=1 THEN GCOL 42 TINT LT% ELSE GCOL 12 TINT 255 3750 PLOT &55,(LX%/5)*2+((LX%/5)/2),LY%/2 3760 MOVE (LX%/5)*2,LY% 3770 MOVE (LX%/5)*3,LY% 3780 IF LC%=1 THEN GCOL 42 TINT LT% ELSE GCOL 8 TINT 255 3790 PLOT &55,(LX%/5)*2+((LX%/5)/2),LY%/2 3800 IF LC%=1 THEN GCOL 42 TINT LT% ELSE GCOL 56 TINT 255 3810 RECTANGLE FILL (LX%/5)*3,0,LX%/5/2,LY% 3820 IF LC%=1 THEN GCOL 42 TINT LT% ELSE GCOL 55 TINT 255 3830 RECTANGLE FILL ((LX%/5)*4)-((LX%/5)/3),0,((LX%/5)/2),LY% 3840 IF LC%=1 THEN GCOL 42 TINT LT% ELSE GCOL 57 TINT 0 3850 RECTANGLE FILL ((LX%/5)*4)-((LX%/5)/2),(LY%/4)*3,LX%/5,LY%/4 3860 ENDPROC 3870 3880 DEFPROCTitleScr 3890 *FX 21,0 3900 *FX 21,9 3910 ORIGIN 0,0 3920 PROCPlinth(0,0,1279,1023,20,1,42,21,21,63,63) 3930 ORIGIN 45,245 3940 PROCLogo(1298,650,1,0) 3950 ORIGIN 60,260 3960 PROCLogo(1298,650,0,128) 3970 ORIGIN 50,0 3980 FOR N%=0 TO 5 3990 PROCPlinth(N%*196,180,196,40,10,1,BLKCOL1%(N%+1),BLKCOL2%(N%+1),BLKCOL3%(N%+1),BLKCOL4%(N%+1),BLKCOL5%(N%+1)) 4000 PROCPlinth(N%*196,950,196,40,10,1,BLKCOL1%(N%+1),BLKCOL2%(N%+1),BLKCOL3%(N%+1),BLKCOL4%(N%+1),BLKCOL5%(N%+1)) 4010 NEXT N% 4020 ORIGIN 0,0 4030 PROCPlinth(924,50,300,100,10,0,42,21,21,63,63) 4040 PROCPlinth(936,62,276,76,10,1,42,21,21,63,63) 4050 PROCPlinth(400,50,476,100,10,0,42,21,21,63,63) 4060 PROCPlinth(412,62,452,76,10,1,42,21,21,63,63) 4070 PROCPlinth(50,50,300,100,10,0,42,21,21,63,63) 4080 PROCPlinth(62,62,276,76,10,1,42,21,21,63,63) 4090 GCOL 42 TINT 0 4100 VDU 5 4110 MOVE 108,110 4120 PRINT"K.S.Pardesi" 4130 MOVE 466,110 4140 PRINT"Press Any Key to Play" 4150 MOVE 984,110 4160 PRINT "S.S.Pardesi" 4170 GCOL 63 TINT 255 4180 MOVE 116,118 4190 PRINT"K.S.Pardesi" 4200 MOVE 472,118 4210 PRINT"Press Any Key to Play" 4220 MOVE 992,118 4230 PRINT "S.S.Pardesi" 4240 A$=GET$ 4250 SOUND 2,-15,10,2 4260 ENDPROC 4270 4280 DEFPROCdelay(DL%) 4290 FOR W%=1 TO DL% 4300 NEXT W% 4310 ENDPROC 4320 4330 DEFPROCLoseFX 4340 *CH. 1 5 4350 FOR SO%=1000 TO 400 STEP -200 4360 SOUND 1,-15,SO%,10 4370 PROCdelay(25000) 4380 NEXT SO% 4390 SOUND 1,-15,300,20 4400 ENDPROC 4410 4420 DEFPROCWinFX 4430 *CH. 1 2 4440 *CH. 2 2 4450 FOR SO%=1 TO 5 4460 SOUND 1,-15,100,10 4470 SOUND 2,-15,110,10 4480 PROCdelay(10000) 4490 NEXT SO% 4500 ENDPROC 4510 4520 DEFPROCGameOver 4530 WN%=0 4540 IF USERSCR%>COMPSCR% THEN WN%=1 4550 IF USERSCR%<COMPSCR% THEN WN%=0 4560 4570 IF USERSCR%=COMPSCR% THEN WN%=2 4580 RN%=RND(5) 4590 PROCPlinth(1034,786,214,210,10,1,BLKCOL1%(RN%),BLKCOL2%(RN%),BLKCOL3%(RN% ),BLKCOL4%(RN%),BLKCOL5%(RN%)) 4600 PROCDoit(1034,905,214,210,"� PRESS �",10,1,1,RN%) 4610 PROCDoit(1034,855,214,210,"� ANY �",10,1,1,RN%) 4620 PROCDoit(1034,805,214,210,"� KEY �",10,1,1,RN%) 4630 4640 RN%=RND(5) 4650 PROCPlinth(360,786,210,210,10,1,BLKCOL1%(RN%),BLKCOL2%(RN%),BLKCOL3%(RN%),BLKCOL4%(RN%),BLKCOL5%(RN%)) 4660 4670 PROCDoit(360,880,210,210,"GAME OVER",10,1,1,RN%) 4680 IF WN%=0 THEN 4690 4700 PROCDoit(360,830,210,210,"� I WIN �",10,1,1,RN%) 4710 PROCLoseFX 4720 ENDIF 4730 IF WN%=1 THEN 4740 PROCDoit(360,830,210,210,"� YOU WIN �",10,1,1,RN%) 4750 PROCWinFX 4760 ENDIF 4770 4780 IF WN%=2 THEN 4790 PROCDoit(360,830,210,210,"� DRAW �",10,1,1,RN%) 4800 SOUND 2,-15,1000,50 4810 ENDIF 4820 *FX 21,0 4830 A$=GET$ 4840 SOUND 2,-15,10,2 4850 RUN 4860 ENDPROC 4870 4880 DEFPROCDoit(X1%,Y1%,LE%,HE%,T$,BDR%,OP%,FL%,DC%) 4890 REM * OP%=0 IF NOT CHOSEN IE SHOWN IN B/W * 4900 REM * FL%=1 IF DONT WANT TO DRAW PLINTH AGAIN * 4910 IF FL%<>1 THEN PROCPlinth(X1%,Y1%,LE%,HE%,8,BDR%,BLKCOL1%(DC%),BLKCOL2%(DC%),BLKCOL3%(DC%),BLKCOL4%(DC%),BLKCOL5%(DC%)) 4920 SZ%=LEN(T$)*16 4930 XTA%=(LE%-SZ%)/2 4940 IF OP%=0 THEN 4950 GCOL BLKCOL3%(DC%) TINT 0 4960 MOVE X1%+XTA%,Y1%+42-8 4970 PRINT T$ 4980 GCOL 63 TINT 255 4990 MOVE X1%+XTA%+4,Y1%+44 5000 PRINT T$ 5010 ELSE 5020 GCOL BLKCOL3%(DC%) TINT 0 5030 MOVE X1%+XTA%,Y1%+42-8 5040 PRINT T$ 5050 GCOL 63 TINT 255 5060 MOVE X1%+XTA%+4,Y1%+44 5070 PRINT T$ 5080 ENDIF 5090 ENDPROC 5100 5110 DEFPROCGo(WT%) 5120 MOVE 452,346 5130 MOVE 752,446 5140 *SGET WT 5150 *SCHOOSE WT 5160 WTR%=RND(5) 5170 PROCDoit(452,346,300,100,"",10,1,0,WTR%) 5180 IF WT%=1 THEN 5190 PROCDoit(452,366,300,100,"� MY TURN �",10,1,1,WTR%) 5200 ELSE 5210 PROCDoit(452,366,300,100,"� YOUR TURN �",10,1,1,WTR%) 5220 ENDIF 5230 PROCdelay(20000) 5240 PLOT &ED,452,346 5250 ENDPROC
� >BOXIT � 15 �Vars ( �TitleScr 2 ȑ 30,40 < �Bord F �score P Z � d �Go(0) n �Userturn x �Userscan � �score � � USERADD%=1 � �Dn@ � �Go(1) � �Compturn � �Compscan � �score � � COMADD%=1 � �t`@ � �� � � ��Userturn � � 8,1 � � ȗ X%,Y%,Z% 0 XPOS%=(�(X%/100)*100):XTEMP%=(XPOS%-50)/100 0 YPOS%=(�(Y%/100)*100):YTEMP%=(YPOS%-50)/100 "* � XPOS%=1200 � YPOS%=700 � XPOS%=1100 ,8 � XPOS%=1200 � �(X%-XPOS%)>�(Y%-YPOS%) � XPOS%=1100 66 � YPOS%=700 � �(X%-XPOS%)<�(Y%-YPOS%) � YPOS%=600 @ � XPOS%-50,YPOS%-50 J � XPOS%+150,YPOS%+150 T *SGET BACK ^ *SCHOOSE BACK h � &ED,326,752 r � �(X%-XPOS%)>�(Y%-YPOS%) � | CR%=�XPOS%+50,YPOS%) � � 15 Ȝ 255 � ȓ XPOS%-20,YPOS%-20,140,40 � �Hor(XPOS%,YPOS%) � Ȗ � DR%=1 � � � � �(X%-XPOS%)<�(Y%-YPOS%) � � CR%=�XPOS%,YPOS%+50) � � 15 Ȝ 255 � ȓ XPOS%-20,YPOS%-20,40,140 � �Vert(XPOS%,YPOS%) � Ȗ � DR%=2 � *SCHOOSE BACK � &ED,XPOS%-50,YPOS%-50 & � Z%=4 � CR%<>63 � 0 � DR%=1 � : �Hor(XPOS%,YPOS%) D � N � DR%=2 � X �Vert(XPOS%,YPOS%) b � l � 2,-15,10,6 v � �tTB � � � � � � � � � ��Calc(OX%,OY%,VX%,VY%) � B1%=0:B2%=0:B3%=0:B4%=0 �4 BCOL1%=�((VX%*100)-50)+OX%,((VY%*100)-100)+OY%) � � BCOL1%=63 � B1%=1 �4 BCOL2%=�((VX%*100)-100)+OX%,((VY%*100)-50)+OY%) � � BCOL2%=63 � B2%=1 �. BCOL3%=�((VX%*100)-50)+OX%,(VY%*100)+OY%) � � BCOL3%=63 � B3%=1 �. BCOL4%=�(VX%*100)+OX%,((VY%*100)-50)+OY%) � BCOL4%=63 � B4%=1 � ��ShowComp(XS%,YS%,HV%) * � 14 Ȝ 255 4 � XS%-50,YS%-50 > � XS%+150,YS%+150 H *SGET COMPBACK R *SCHOOSE COMPBACK \ � HV%=0 � f ȓ Ȑ XS%-30,YS%-30,160,60 p �delay(2000) z � � � HV%=1 � � ȓ Ȑ XS%-30,YS%-30,60,160 � �delay(2000) � � � � &ED,XS%-50,YS%-50 � � 2,-15,10,6 � � � � ��Compturn � � 8,1 � � CX%=1 � 12 � � CY%=1 � 7 � �Calc(0,0,CX%,CY%) � B1%+B2%+B3%+B4%=3 � � B1%=0 � - �ShowComp((CX%*100)-100,(CY%*100)-100,0) $& �Hor((CX%*100)-100,(CY%*100)-100) . � 8 � B2%=0 � B- �ShowComp((CX%*100)-100,(CY%*100)-100,1) L' �Vert((CX%*100)-100,(CY%*100)-100) V � ` � B3%=0 � j' �ShowComp((CX%*100)-100,CY%*100,0) t �Hor((CX%*100)-100,CY%*100) ~ � � � B4%=0 � �' �ShowComp(CX%*100,(CY%*100)-100,1) �! �Vert(CX%*100,(CY%*100)-100) � � � � �tdF � � � � CY% � � CX% � � 8,1 � � LO%=0 � 1 � � QX%=1 � 12 � � QY%=1 � 7 " � (QX%*100)-150,(QY%*100)-150 � (QX%*100)+50,(QY%*100)+50 *SGET COMPBACK �Calc(0,0,QX%,QY%) (8 � (B1%+B2%+B3%+B4%=0+LO% � B1%+B2%+B3%+B4%=1+LO%) � 2 � B1%=0 � </ TX%=(QX%*100)-100:TY%=(QY%*100)-100:TVH%=0 F& �Hor((QX%*100)-100,(QY%*100)-100) P � �dzE Z � d � B2%=0 � n/ TX%=(QX%*100)-100:TY%=(QY%*100)-100:TVH%=1 x' �Vert((QX%*100)-100,(QY%*100)-100) � � �dzE � � � � B3%=0 � �) TX%=(QX%*100)-100:TY%=QY%*100:TVH%=0 � �Hor((QX%*100)-100,QY%*100) � � �dzE � � � � B4%=0 � �) TX%=QX%*100:TY%=(QY%*100)-100:TVH%=1 �! �Vert(QX%*100,(QY%*100)-100) � � �dzE � � � �Calc(0,100,QX%,QY%) ' � B1%+B2%+B3%+B4%=3 � LO%=0 � �DhF �Calc(100,0,QX%,QY%) ' � B1%+B2%+B3%+B4%=3 � LO%=0 � �DhF " �Calc(0,-100,QX%,QY%) ,' � B1%+B2%+B3%+B4%=3 � LO%=0 � �DhF 6 �Calc(-100,0,QX%,QY%) @' � B1%+B2%+B3%+B4%=3 � LO%=0 � �DhF J �ShowComp(TX%,TY%,TVH%) T � �tdF ^ � h *SCHOOSE COMPBACK r& � &ED,(QX%*100)-150,(QY%*100)-150 | � &ED,1004,752 � � QY% � � QX% � � LO% � � � � ��Bord � ȗ ȓ 40,36,1200,700 � ȑ 0,0 �/ �Plinth(0,0,1279,1023,10,1,42,21,21,63,63) �1 �Plinth(350,776,230,228,10,0,42,21,21,63,63) �0 �Plinth(20,20,1240,744,10,0,42,21,21,63,63) �2 �Plinth(1028,776,230,228,10,0,42,21,21,63,63) �1 �Plinth(590,776,430,228,10,0,42,21,21,63,63) 0 �Plinth(608,790,396,94,10,1,42,21,21,63,63) 0 �Plinth(608,894,396,94,10,1,42,21,21,63,63) ȑ 40,782 & �Logo(320,200,1,0) 0 ȑ 30,798 : �Logo(320,200,0,1) D ȑ 40,36 N RD%=�(3) X � RD%=3 � RN%=�(6) b � N%=1 � 13 l � RD%=1 � RN%=�(6) v � M%=1 � 8 � � RD%=2 � RN%=�(6) �t �Plinth(N%*100-110,M%*100-106,20,20,10,1,BLKCOL1%(RN%),BLKCOL2%(RN%),BLKCOL3%(RN%),BLKCOL4%(RN%),BLKCOL5%(RN%)) � � M% � � N% � � � � ��Vars � Ƞ 2 � *CH. 1 3 � *CH. 2 6 � COMPSCR%=0 � USERSCR%=0 � COMCOL%=15 USERCOL%=3 COMADD%=0 USERADD%=0 B � BLKCOL1%(6),BLKCOL2%(6),BLKCOL3%(6),BLKCOL4%(6),BLKCOL5%(6) * � RN%=1 � 6 4 � BLKCOL1%(RN%) > � BLKCOL2%(RN%) H � BLKCOL3%(RN%) R � BLKCOL4%(RN%) \ � BLKCOL5%(RN%) f � RN% p z � 5,5,5,47,26 � � 1,1,1,43,22 � � 4,4,4,46,25 � � 20,20,20,62,41 � � 16,16,16,58,37 � � 17,17,17,59,38 � � � � ��Userscan � USERADD%=0 � � CX%=1 � 12 � � CY%=1 � 7 �" B1%=0:B2%=0:B3%=0:B4%=0:B5%=0 �( BCOL1%=�(CX%*100)-50,(CY%*100)-100) � BCOL1%=63 � B1%=1 ( BCOL2%=�(CX%*100)-100,(CY%*100)-50) � BCOL2%=63 � B2%=1 $" BCOL3%=�(CX%*100)-50,CY%*100) . � BCOL3%=63 � B3%=1 8" BCOL4%=�CX%*100,(CY%*100)-50) B � BCOL4%=63 � B4%=1 L$ B5%=�(CX%*100)-50,(CY%*100)-50) V; � (B1%+B2%+B3%+B4%=4 � B5%<>USERCOL% � B5%<>COMCOL%) � ` USERSCR%+=1 j USERADD%=1 t � 0 Ȝ 0 ~$ ȏ (CX%*100)-50,(CY%*100)-50,34 � � 42 Ȝ 192 �' ȏ Ȑ (CX%*100)-50,(CY%*100)-50,30 � � 63 Ȝ 192 �' ȏ Ȑ (CX%*100)-50,(CY%*100)-50,25 � � USERCOL% Ȝ 255 �' ȏ Ȑ (CX%*100)-50,(CY%*100)-50,20 � � � � CY% � � CX% � � � � ��score ȑ 0,0 � 42 Ȝ 192 ȓ Ȑ 624,910,364,56 ȓ Ȑ 622,806,364,56 ( � 5 2 � 680,950 < � 42 Ȝ 0 F � "MY SCORE : ";COMPSCR% P � 680,842 Z � "YOUR SCORE : ";USERSCR% d � 686,956 n � COMCOL% Ȝ 255 x � "MY SCORE : ";COMPSCR% � � 686,846 � � USERCOL% Ȝ 0 � � "YOUR SCORE : ";USERSCR% � � COMPSCR%+USERSCR%=84 � � �GameOver � � � � � � ȑ 40,36 � � � � ��Compscan � COMADD%=0 � CX%=1 � 12 � CY%=1 � 7 " B1%=0:B2%=0:B3%=0:B4%=0:B5%=0 "( BCOL1%=�(CX%*100)-50,(CY%*100)-100) , � BCOL1%=63 � B1%=1 6( BCOL2%=�(CX%*100)-100,(CY%*100)-50) @ � BCOL2%=63 � B2%=1 J" BCOL3%=�(CX%*100)-50,CY%*100) T � BCOL3%=63 � B3%=1 ^" BCOL4%=�CX%*100,(CY%*100)-50) h � BCOL4%=63 � B4%=1 r$ B5%=�(CX%*100)-50,(CY%*100)-50) |; � (B1%+B2%+B3%+B4%=4 � B5%<>USERCOL% � B5%<>COMCOL%) � � COMPSCR%+=1 � COMADD%=1 � � 0 Ȝ 0 �$ ȏ (CX%*100)-50,(CY%*100)-50,34 � � 42 Ȝ 128 �' ȏ Ȑ (CX%*100)-50,(CY%*100)-50,30 � � 63 Ȝ 128 �' ȏ Ȑ (CX%*100)-50,(CY%*100)-50,25 � � COMCOL% Ȝ 255 �' ȏ Ȑ (CX%*100)-50,(CY%*100)-50,20 � � � � CY% � � CX% � 4 ��Plinth(A%,B%,C%,D%,V%,P%,C1%,C2%,C3%,C4%,C5%) &) � P%=0 � � C4% Ȝ 192 � � C2% Ȝ 128 0 ȓ Ȑ A%,B%,C%,D%/2 :) � P%=0 � � C2% Ȝ 128 � � C4% Ȝ 192 D ȓ Ȑ A%,B%+(D%/2),C%,D%/2 N' � P%=0 � � C5% Ȝ 255 � � C3% Ȝ 0 X � A%,B% b � A%,B%+D% l � &55,A%+(D%/2),B%+(D%/2) v) � P%=0 � � C3% Ȝ 128 � � C5% Ȝ 255 � � A%+C%,B% � � A%+C%,B%+D% �! � &55,C%-(D%/2)+A%,B%+(D%/2) �% � P%=0 � � 0 Ȝ 0 � � C1% Ȝ 255 �* ȓ Ȑ A%+V%,B%+V%,C%-(V%*2),D%-(V%*2) � � � � ��Hor(BX%,BY%) � � 3 Ȝ 255 � ȓ Ȑ BX%,BY%-10,100,20 � � 63 Ȝ 255 � ȓ Ȑ BX%,BY%-5,100,10 � � 42 Ȝ 0 ȏ Ȑ BX%,BY%,20 ȏ Ȑ BX%+100,BY%,20 � 63 Ȝ 0 ȏ Ȑ BX%,BY%,15 * ȏ Ȑ BX%+100,BY%,15 4 � 63 Ȝ 255 > ȏ Ȑ BX%,BY%,10 H ȏ Ȑ BX%+100,BY%,10 R � 1,-10,BX%+350,2 \ � f p ��Vert(BX%,BY%) z � 3 Ȝ 255 � ȓ Ȑ BX%-10,BY%,20,100 � � 63 Ȝ 255 � ȓ Ȑ BX%-5,BY%,10,100 � � 42 Ȝ 0 � ȏ Ȑ BX%,BY%,20 � ȏ Ȑ BX%,BY%+100,20 � � 63 Ȝ 0 � ȏ Ȑ BX%,BY%,15 � ȏ Ȑ BX%,BY%+100,15 � � 63 Ȝ 255 � ȏ Ȑ BX%,BY%,10 � ȏ Ȑ BX%,BY%+100,10 � � 1,-10,BX%+350,2 � ��Logo(LX%,LY%,LC%,LT%) $' � LC%=1 � � 42 Ȝ LT% � � 7 Ȝ 255 . � 0,0 8 � 0,LY%/2 B � &55,LX%/5,LY%/4 L' � LC%=1 � � 42 Ȝ LT% � � 3 Ȝ 255 V � 0,LY%/2 ` � 0,LY% j � &55,LX%/5,(LY%/4)*3 t( � LC%=1 � � 42 Ȝ LT% � � 15 Ȝ 255 ~ ȓ Ȑ LX%/5,0,LX%/5,LY% � � (LX%/5)*2,0 � � (LX%/5)*3,0 �( � LC%=1 � � 42 Ȝ LT% � � 12 Ȝ 255 �& � &55,(LX%/5)*2+((LX%/5)/2),LY%/2 � � (LX%/5)*2,LY% � � (LX%/5)*3,LY% �' � LC%=1 � � 42 Ȝ LT% � � 8 Ȝ 255 �& � &55,(LX%/5)*2+((LX%/5)/2),LY%/2 �( � LC%=1 � � 42 Ȝ LT% � � 56 Ȝ 255 �" ȓ Ȑ (LX%/5)*3,0,LX%/5/2,LY% �( � LC%=1 � � 42 Ȝ LT% � � 55 Ȝ 255 �4 ȓ Ȑ ((LX%/5)*4)-((LX%/5)/3),0,((LX%/5)/2),LY% & � LC%=1 � � 42 Ȝ LT% � � 57 Ȝ 0 8 ȓ Ȑ ((LX%/5)*4)-((LX%/5)/2),(LY%/4)*3,LX%/5,LY%/4 � ( ��TitleScr 2 *FX 21,0 < *FX 21,9 F ȑ 0,0 P/ �Plinth(0,0,1279,1023,20,1,42,21,21,63,63) Z ȑ 45,245 d �Logo(1298,650,1,0) n ȑ 60,260 x �Logo(1298,650,0,128) � ȑ 50,0 � � N%=0 � 5 �o �Plinth(N%*196,180,196,40,10,1,BLKCOL1%(N%+1),BLKCOL2%(N%+1),BLKCOL3%(N%+1),BLKCOL4%(N%+1),BLKCOL5%(N%+1)) �o �Plinth(N%*196,950,196,40,10,1,BLKCOL1%(N%+1),BLKCOL2%(N%+1),BLKCOL3%(N%+1),BLKCOL4%(N%+1),BLKCOL5%(N%+1)) � � N% � ȑ 0,0 �0 �Plinth(924,50,300,100,10,0,42,21,21,63,63) �/ �Plinth(936,62,276,76,10,1,42,21,21,63,63) �0 �Plinth(400,50,476,100,10,0,42,21,21,63,63) �/ �Plinth(412,62,452,76,10,1,42,21,21,63,63) �/ �Plinth(50,50,300,100,10,0,42,21,21,63,63) �. �Plinth(62,62,276,76,10,1,42,21,21,63,63) � � 42 Ȝ 0 � 5 � 108,110 �"K.S.Pardesi" " � 466,110 , �"Press Any Key to Play" 6 � 984,110 @ � "S.S.Pardesi" J � 63 Ȝ 255 T � 116,118 ^ �"K.S.Pardesi" h � 472,118 r �"Press Any Key to Play" | � 992,118 � � "S.S.Pardesi" � A$=� � � 2,-15,10,2 � � � � ��delay(DL%) � � W%=1 � DL% � � W% � � � � ��LoseFX � *CH. 1 5 � � SO%=1000 � 400 � -200 � 1,-15,SO%,10 �delay(25000) � SO% & � 1,-15,300,20 0 � : D ��WinFX N *CH. 1 2 X *CH. 2 2 b � SO%=1 � 5 l � 1,-15,100,10 v � 2,-15,110,10 � �delay(10000) � � SO% � � � � ��GameOver � WN%=0 � � USERSCR%>COMPSCR% � WN%=1 � � USERSCR%<COMPSCR% � WN%=0 � � � USERSCR%=COMPSCR% � WN%=2 � RN%=�(5) �j �Plinth(1034,786,214,210,10,1,BLKCOL1%(RN%),BLKCOL2%(RN%),BLKCOL3%(RN% ),BLKCOL4%(RN%),BLKCOL5%(RN%)) �3 �Doit(1034,905,214,210,"� PRESS �",10,1,1,RN%) 1 �Doit(1034,855,214,210,"� ANY �",10,1,1,RN%) 1 �Doit(1034,805,214,210,"� KEY �",10,1,1,RN%) RN%=�(5) *h �Plinth(360,786,210,210,10,1,BLKCOL1%(RN%),BLKCOL2%(RN%),BLKCOL3%(RN%),BLKCOL4%(RN%),BLKCOL5%(RN%)) 4 >2 �Doit(360,880,210,210,"GAME OVER",10,1,1,RN%) H � WN%=0 � R \2 �Doit(360,830,210,210,"� I WIN �",10,1,1,RN%) f �LoseFX p � z � WN%=1 � �4 �Doit(360,830,210,210,"� YOU WIN �",10,1,1,RN%) � �WinFX � � � � � WN%=2 � �1 �Doit(360,830,210,210,"� DRAW �",10,1,1,RN%) � � 2,-15,1000,50 � � � *FX 21,0 � A$=� � � 2,-15,10,2 � � � � 0 ��Doit(X1%,Y1%,LE%,HE%,T$,BDR%,OP%,FL%,DC%) . � * OP%=0 IF NOT CHOSEN IE SHOWN IN B/W * $2 � * FL%=1 IF DONT WANT TO DRAW PLINTH AGAIN * .u � FL%<>1 � �Plinth(X1%,Y1%,LE%,HE%,8,BDR%,BLKCOL1%(DC%),BLKCOL2%(DC%),BLKCOL3%(DC%),BLKCOL4%(DC%),BLKCOL5%(DC%)) 8 SZ%=�(T$)*16 B XTA%=(LE%-SZ%)/2 L � OP%=0 � V � BLKCOL3%(DC%) Ȝ 0 ` � X1%+XTA%,Y1%+42-8 j � T$ t � 63 Ȝ 255 ~ � X1%+XTA%+4,Y1%+44 � � T$ � � � � BLKCOL3%(DC%) Ȝ 0 � � X1%+XTA%,Y1%+42-8 � � T$ � � 63 Ȝ 255 � � X1%+XTA%+4,Y1%+44 � � T$ � � � � � � ��Go(WT%) � 452,346 � 752,446 *SGET WT *SCHOOSE WT ( WTR%=�(5) 2* �Doit(452,346,300,100,"",10,1,0,WTR%) < � WT%=1 � F5 �Doit(452,366,300,100,"� MY TURN �",10,1,1,WTR%) P � Z7 �Doit(452,366,300,100,"� YOUR TURN �",10,1,1,WTR%) d � n �delay(20000) x � &ED,452,346 � � �
00000000 0d 00 0a 0d 20 f4 20 3e 42 4f 58 49 54 0d 00 14 |.... . >BOXIT...| 00000010 09 20 eb 20 31 35 0d 00 1e 0a 20 f2 56 61 72 73 |. . 15.... .Vars| 00000020 0d 00 28 0e 20 f2 54 69 74 6c 65 53 63 72 0d 00 |..(. .TitleScr..| 00000030 32 0d 20 c8 91 20 33 30 2c 34 30 0d 00 3c 0a 20 |2. .. 30,40..<. | 00000040 f2 42 6f 72 64 0d 00 46 0b 20 f2 73 63 6f 72 65 |.Bord..F. .score| 00000050 0d 00 50 05 20 0d 00 5a 06 20 f5 0d 00 64 0b 20 |..P. ..Z. ...d. | 00000060 f2 47 6f 28 30 29 0d 00 6e 0e 20 f2 55 73 65 72 |.Go(0)..n. .User| 00000070 74 75 72 6e 0d 00 78 0e 20 f2 55 73 65 72 73 63 |turn..x. .Usersc| 00000080 61 6e 0d 00 82 0b 20 f2 73 63 6f 72 65 0d 00 8c |an.... .score...| 00000090 18 20 e7 20 55 53 45 52 41 44 44 25 3d 31 20 8c |. . USERADD%=1 .| 000000a0 20 8d 44 6e 40 0d 00 96 0b 20 f2 47 6f 28 31 29 | .Dn@.... .Go(1)| 000000b0 0d 00 a0 0e 20 f2 43 6f 6d 70 74 75 72 6e 0d 00 |.... .Compturn..| 000000c0 aa 0e 20 f2 43 6f 6d 70 73 63 61 6e 0d 00 b4 0b |.. .Compscan....| 000000d0 20 f2 73 63 6f 72 65 0d 00 be 17 20 e7 20 43 4f | .score.... . CO| 000000e0 4d 41 44 44 25 3d 31 20 8c 20 8d 74 60 40 0d 00 |MADD%=1 . .t`@..| 000000f0 c8 07 20 fd a3 0d 00 dc 04 0d 00 e6 0f 20 dd f2 |.. .......... ..| 00000100 55 73 65 72 74 75 72 6e 0d 00 f0 0a 20 e6 20 38 |Userturn.... . 8| 00000110 2c 31 0d 00 fa 06 20 f5 0d 01 04 10 20 c8 97 20 |,1.... ..... .. | 00000120 58 25 2c 59 25 2c 5a 25 0d 01 0e 30 20 58 50 4f |X%,Y%,Z%...0 XPO| 00000130 53 25 3d 28 a8 28 58 25 2f 31 30 30 29 2a 31 30 |S%=(.(X%/100)*10| 00000140 30 29 3a 58 54 45 4d 50 25 3d 28 58 50 4f 53 25 |0):XTEMP%=(XPOS%| 00000150 2d 35 30 29 2f 31 30 30 0d 01 18 30 20 59 50 4f |-50)/100...0 YPO| 00000160 53 25 3d 28 a8 28 59 25 2f 31 30 30 29 2a 31 30 |S%=(.(Y%/100)*10| 00000170 30 29 3a 59 54 45 4d 50 25 3d 28 59 50 4f 53 25 |0):YTEMP%=(YPOS%| 00000180 2d 35 30 29 2f 31 30 30 0d 01 22 2a 20 e7 20 58 |-50)/100.."* . X| 00000190 50 4f 53 25 3d 31 32 30 30 20 80 20 59 50 4f 53 |POS%=1200 . YPOS| 000001a0 25 3d 37 30 30 20 8c 20 58 50 4f 53 25 3d 31 31 |%=700 . XPOS%=11| 000001b0 30 30 0d 01 2c 38 20 e7 20 58 50 4f 53 25 3d 31 |00..,8 . XPOS%=1| 000001c0 32 30 30 20 80 20 94 28 58 25 2d 58 50 4f 53 25 |200 . .(X%-XPOS%| 000001d0 29 3e 94 28 59 25 2d 59 50 4f 53 25 29 20 8c 20 |)>.(Y%-YPOS%) . | 000001e0 58 50 4f 53 25 3d 31 31 30 30 0d 01 36 36 20 e7 |XPOS%=1100..66 .| 000001f0 20 59 50 4f 53 25 3d 37 30 30 20 80 20 94 28 58 | YPOS%=700 . .(X| 00000200 25 2d 58 50 4f 53 25 29 3c 94 28 59 25 2d 59 50 |%-XPOS%)<.(Y%-YP| 00000210 4f 53 25 29 20 8c 20 59 50 4f 53 25 3d 36 30 30 |OS%) . YPOS%=600| 00000220 0d 01 40 18 20 ec 20 58 50 4f 53 25 2d 35 30 2c |..@. . XPOS%-50,| 00000230 59 50 4f 53 25 2d 35 30 0d 01 4a 1a 20 ec 20 58 |YPOS%-50..J. . X| 00000240 50 4f 53 25 2b 31 35 30 2c 59 50 4f 53 25 2b 31 |POS%+150,YPOS%+1| 00000250 35 30 0d 01 54 0f 20 2a 53 47 45 54 20 42 41 43 |50..T. *SGET BAC| 00000260 4b 0d 01 5e 12 20 2a 53 43 48 4f 4f 53 45 20 42 |K..^. *SCHOOSE B| 00000270 41 43 4b 0d 01 68 12 20 f0 20 26 45 44 2c 33 32 |ACK..h. . &ED,32| 00000280 36 2c 37 35 32 0d 01 72 20 20 e7 20 94 28 58 25 |6,752..r . .(X%| 00000290 2d 58 50 4f 53 25 29 3e 94 28 59 25 2d 59 50 4f |-XPOS%)>.(Y%-YPO| 000002a0 53 25 29 20 8c 0d 01 7c 19 20 43 52 25 3d b0 58 |S%) ...|. CR%=.X| 000002b0 50 4f 53 25 2b 35 30 2c 59 50 4f 53 25 29 0d 01 |POS%+50,YPOS%)..| 000002c0 86 10 20 e6 20 31 35 20 c8 9c 20 32 35 35 0d 01 |.. . 15 .. 255..| 000002d0 90 20 20 c8 93 20 58 50 4f 53 25 2d 32 30 2c 59 |. .. XPOS%-20,Y| 000002e0 50 4f 53 25 2d 32 30 2c 31 34 30 2c 34 30 0d 01 |POS%-20,140,40..| 000002f0 9a 16 20 f2 48 6f 72 28 58 50 4f 53 25 2c 59 50 |.. .Hor(XPOS%,YP| 00000300 4f 53 25 29 0d 01 a4 07 20 c8 96 0d 01 ae 0a 20 |OS%).... ...... | 00000310 44 52 25 3d 31 0d 01 b8 06 20 cd 0d 01 c2 20 20 |DR%=1.... .... | 00000320 e7 20 94 28 58 25 2d 58 50 4f 53 25 29 3c 94 28 |. .(X%-XPOS%)<.(| 00000330 59 25 2d 59 50 4f 53 25 29 20 8c 0d 01 cc 19 20 |Y%-YPOS%) ..... | 00000340 43 52 25 3d b0 58 50 4f 53 25 2c 59 50 4f 53 25 |CR%=.XPOS%,YPOS%| 00000350 2b 35 30 29 0d 01 d6 10 20 e6 20 31 35 20 c8 9c |+50).... . 15 ..| 00000360 20 32 35 35 0d 01 e0 20 20 c8 93 20 58 50 4f 53 | 255... .. XPOS| 00000370 25 2d 32 30 2c 59 50 4f 53 25 2d 32 30 2c 34 30 |%-20,YPOS%-20,40| 00000380 2c 31 34 30 0d 01 ea 17 20 f2 56 65 72 74 28 58 |,140.... .Vert(X| 00000390 50 4f 53 25 2c 59 50 4f 53 25 29 0d 01 f4 07 20 |POS%,YPOS%).... | 000003a0 c8 96 0d 01 fe 0a 20 44 52 25 3d 32 0d 02 08 06 |...... DR%=2....| 000003b0 20 cd 0d 02 12 12 20 2a 53 43 48 4f 4f 53 45 20 | ..... *SCHOOSE | 000003c0 42 41 43 4b 0d 02 1c 1c 20 f0 20 26 45 44 2c 58 |BACK.... . &ED,X| 000003d0 50 4f 53 25 2d 35 30 2c 59 50 4f 53 25 2d 35 30 |POS%-50,YPOS%-50| 000003e0 0d 02 26 17 20 e7 20 5a 25 3d 34 20 80 20 43 52 |..&. . Z%=4 . CR| 000003f0 25 3c 3e 36 33 20 8c 0d 02 30 0e 20 e7 20 44 52 |%<>63 ...0. . DR| 00000400 25 3d 31 20 8c 0d 02 3a 16 20 f2 48 6f 72 28 58 |%=1 ...:. .Hor(X| 00000410 50 4f 53 25 2c 59 50 4f 53 25 29 0d 02 44 06 20 |POS%,YPOS%)..D. | 00000420 cd 0d 02 4e 0e 20 e7 20 44 52 25 3d 32 20 8c 0d |...N. . DR%=2 ..| 00000430 02 58 17 20 f2 56 65 72 74 28 58 50 4f 53 25 2c |.X. .Vert(XPOS%,| 00000440 59 50 4f 53 25 29 0d 02 62 06 20 cd 0d 02 6c 11 |YPOS%)..b. ...l.| 00000450 20 d4 20 32 2c 2d 31 35 2c 31 30 2c 36 0d 02 76 | . 2,-15,10,6..v| 00000460 0b 20 e5 20 8d 74 54 42 0d 02 80 06 20 cd 0d 02 |. . .tTB.... ...| 00000470 8a 08 20 fd 20 a3 0d 02 94 06 20 e1 0d 02 9e 04 |.. . ..... .....| 00000480 0d 02 a8 1c 20 dd f2 43 61 6c 63 28 4f 58 25 2c |.... ..Calc(OX%,| 00000490 4f 59 25 2c 56 58 25 2c 56 59 25 29 0d 02 b2 1c |OY%,VX%,VY%)....| 000004a0 20 42 31 25 3d 30 3a 42 32 25 3d 30 3a 42 33 25 | B1%=0:B2%=0:B3%| 000004b0 3d 30 3a 42 34 25 3d 30 0d 02 bc 34 20 42 43 4f |=0:B4%=0...4 BCO| 000004c0 4c 31 25 3d b0 28 28 56 58 25 2a 31 30 30 29 2d |L1%=.((VX%*100)-| 000004d0 35 30 29 2b 4f 58 25 2c 28 28 56 59 25 2a 31 30 |50)+OX%,((VY%*10| 000004e0 30 29 2d 31 30 30 29 2b 4f 59 25 29 0d 02 c6 18 |0)-100)+OY%)....| 000004f0 20 e7 20 42 43 4f 4c 31 25 3d 36 33 20 8c 20 42 | . BCOL1%=63 . B| 00000500 31 25 3d 31 0d 02 d0 34 20 42 43 4f 4c 32 25 3d |1%=1...4 BCOL2%=| 00000510 b0 28 28 56 58 25 2a 31 30 30 29 2d 31 30 30 29 |.((VX%*100)-100)| 00000520 2b 4f 58 25 2c 28 28 56 59 25 2a 31 30 30 29 2d |+OX%,((VY%*100)-| 00000530 35 30 29 2b 4f 59 25 29 0d 02 da 18 20 e7 20 42 |50)+OY%).... . B| 00000540 43 4f 4c 32 25 3d 36 33 20 8c 20 42 32 25 3d 31 |COL2%=63 . B2%=1| 00000550 0d 02 e4 2e 20 42 43 4f 4c 33 25 3d b0 28 28 56 |.... BCOL3%=.((V| 00000560 58 25 2a 31 30 30 29 2d 35 30 29 2b 4f 58 25 2c |X%*100)-50)+OX%,| 00000570 28 56 59 25 2a 31 30 30 29 2b 4f 59 25 29 0d 02 |(VY%*100)+OY%)..| 00000580 ee 18 20 e7 20 42 43 4f 4c 33 25 3d 36 33 20 8c |.. . BCOL3%=63 .| 00000590 20 42 33 25 3d 31 0d 02 f8 2e 20 42 43 4f 4c 34 | B3%=1.... BCOL4| 000005a0 25 3d b0 28 56 58 25 2a 31 30 30 29 2b 4f 58 25 |%=.(VX%*100)+OX%| 000005b0 2c 28 28 56 59 25 2a 31 30 30 29 2d 35 30 29 2b |,((VY%*100)-50)+| 000005c0 4f 59 25 29 0d 03 02 18 20 e7 20 42 43 4f 4c 34 |OY%).... . BCOL4| 000005d0 25 3d 36 33 20 8c 20 42 34 25 3d 31 0d 03 0c 06 |%=63 . B4%=1....| 000005e0 20 e1 0d 03 16 04 0d 03 20 1c 20 dd f2 53 68 6f | ....... . ..Sho| 000005f0 77 43 6f 6d 70 28 58 53 25 2c 59 53 25 2c 48 56 |wComp(XS%,YS%,HV| 00000600 25 29 0d 03 2a 10 20 e6 20 31 34 20 c8 9c 20 32 |%)..*. . 14 .. 2| 00000610 35 35 0d 03 34 14 20 ec 20 58 53 25 2d 35 30 2c |55..4. . XS%-50,| 00000620 59 53 25 2d 35 30 0d 03 3e 16 20 ec 20 58 53 25 |YS%-50..>. . XS%| 00000630 2b 31 35 30 2c 59 53 25 2b 31 35 30 0d 03 48 13 |+150,YS%+150..H.| 00000640 20 2a 53 47 45 54 20 43 4f 4d 50 42 41 43 4b 0d | *SGET COMPBACK.| 00000650 03 52 16 20 2a 53 43 48 4f 4f 53 45 20 43 4f 4d |.R. *SCHOOSE COM| 00000660 50 42 41 43 4b 0d 03 5c 0e 20 e7 20 48 56 25 3d |PBACK..\. . HV%=| 00000670 30 20 8c 0d 03 66 1f 20 c8 93 20 c8 90 20 58 53 |0 ...f. .. .. XS| 00000680 25 2d 33 30 2c 59 53 25 2d 33 30 2c 31 36 30 2c |%-30,YS%-30,160,| 00000690 36 30 0d 03 70 11 20 f2 64 65 6c 61 79 28 32 30 |60..p. .delay(20| 000006a0 30 30 29 0d 03 7a 06 20 cd 0d 03 84 0e 20 e7 20 |00)..z. ..... . | 000006b0 48 56 25 3d 31 20 8c 0d 03 8e 1f 20 c8 93 20 c8 |HV%=1 ..... .. .| 000006c0 90 20 58 53 25 2d 33 30 2c 59 53 25 2d 33 30 2c |. XS%-30,YS%-30,| 000006d0 36 30 2c 31 36 30 0d 03 98 11 20 f2 64 65 6c 61 |60,160.... .dela| 000006e0 79 28 32 30 30 30 29 0d 03 a2 06 20 cd 0d 03 ac |y(2000).... ....| 000006f0 18 20 f0 20 26 45 44 2c 58 53 25 2d 35 30 2c 59 |. . &ED,XS%-50,Y| 00000700 53 25 2d 35 30 0d 03 b6 11 20 d4 20 32 2c 2d 31 |S%-50.... . 2,-1| 00000710 35 2c 31 30 2c 36 0d 03 c0 06 20 e1 0d 03 ca 04 |5,10,6.... .....| 00000720 0d 03 d4 0f 20 dd f2 43 6f 6d 70 74 75 72 6e 0d |.... ..Compturn.| 00000730 03 de 0a 20 e6 20 38 2c 31 0d 03 e8 11 20 e3 20 |... . 8,1.... . | 00000740 43 58 25 3d 31 20 b8 20 31 32 0d 03 f2 10 20 e3 |CX%=1 . 12.... .| 00000750 20 43 59 25 3d 31 20 b8 20 37 0d 03 fc 17 20 f2 | CY%=1 . 7.... .| 00000760 43 61 6c 63 28 30 2c 30 2c 43 58 25 2c 43 59 25 |Calc(0,0,CX%,CY%| 00000770 29 0d 04 06 1a 20 e7 20 42 31 25 2b 42 32 25 2b |).... . B1%+B2%+| 00000780 42 33 25 2b 42 34 25 3d 33 20 8c 0d 04 10 0e 20 |B3%+B4%=3 ..... | 00000790 e7 20 42 31 25 3d 30 20 8c 0d 04 1a 2d 20 f2 53 |. B1%=0 ....- .S| 000007a0 68 6f 77 43 6f 6d 70 28 28 43 58 25 2a 31 30 30 |howComp((CX%*100| 000007b0 29 2d 31 30 30 2c 28 43 59 25 2a 31 30 30 29 2d |)-100,(CY%*100)-| 000007c0 31 30 30 2c 30 29 0d 04 24 26 20 f2 48 6f 72 28 |100,0)..$& .Hor(| 000007d0 28 43 58 25 2a 31 30 30 29 2d 31 30 30 2c 28 43 |(CX%*100)-100,(C| 000007e0 59 25 2a 31 30 30 29 2d 31 30 30 29 0d 04 2e 06 |Y%*100)-100)....| 000007f0 20 cd 0d 04 38 0e 20 e7 20 42 32 25 3d 30 20 8c | ...8. . B2%=0 .| 00000800 0d 04 42 2d 20 f2 53 68 6f 77 43 6f 6d 70 28 28 |..B- .ShowComp((| 00000810 43 58 25 2a 31 30 30 29 2d 31 30 30 2c 28 43 59 |CX%*100)-100,(CY| 00000820 25 2a 31 30 30 29 2d 31 30 30 2c 31 29 0d 04 4c |%*100)-100,1)..L| 00000830 27 20 f2 56 65 72 74 28 28 43 58 25 2a 31 30 30 |' .Vert((CX%*100| 00000840 29 2d 31 30 30 2c 28 43 59 25 2a 31 30 30 29 2d |)-100,(CY%*100)-| 00000850 31 30 30 29 0d 04 56 06 20 cd 0d 04 60 0e 20 e7 |100)..V. ...`. .| 00000860 20 42 33 25 3d 30 20 8c 0d 04 6a 27 20 f2 53 68 | B3%=0 ...j' .Sh| 00000870 6f 77 43 6f 6d 70 28 28 43 58 25 2a 31 30 30 29 |owComp((CX%*100)| 00000880 2d 31 30 30 2c 43 59 25 2a 31 30 30 2c 30 29 0d |-100,CY%*100,0).| 00000890 04 74 20 20 f2 48 6f 72 28 28 43 58 25 2a 31 30 |.t .Hor((CX%*10| 000008a0 30 29 2d 31 30 30 2c 43 59 25 2a 31 30 30 29 0d |0)-100,CY%*100).| 000008b0 04 7e 06 20 cd 0d 04 88 0e 20 e7 20 42 34 25 3d |.~. ..... . B4%=| 000008c0 30 20 8c 0d 04 92 27 20 f2 53 68 6f 77 43 6f 6d |0 ....' .ShowCom| 000008d0 70 28 43 58 25 2a 31 30 30 2c 28 43 59 25 2a 31 |p(CX%*100,(CY%*1| 000008e0 30 30 29 2d 31 30 30 2c 31 29 0d 04 9c 21 20 f2 |00)-100,1)...! .| 000008f0 56 65 72 74 28 43 58 25 2a 31 30 30 2c 28 43 59 |Vert(CX%*100,(CY| 00000900 25 2a 31 30 30 29 2d 31 30 30 29 0d 04 a6 06 20 |%*100)-100).... | 00000910 cd 0d 04 b0 0b 20 e5 20 8d 74 64 46 0d 04 ba 06 |..... . .tdF....| 00000920 20 cd 0d 04 c4 0a 20 ed 20 43 59 25 0d 04 ce 0a | ..... . CY%....| 00000930 20 ed 20 43 58 25 0d 04 d8 0a 20 e6 20 38 2c 31 | . CX%.... . 8,1| 00000940 0d 04 e2 10 20 e3 20 4c 4f 25 3d 30 20 b8 20 31 |.... . LO%=0 . 1| 00000950 0d 04 ec 11 20 e3 20 51 58 25 3d 31 20 b8 20 31 |.... . QX%=1 . 1| 00000960 32 0d 04 f6 10 20 e3 20 51 59 25 3d 31 20 b8 20 |2.... . QY%=1 . | 00000970 37 0d 05 00 22 20 ec 20 28 51 58 25 2a 31 30 30 |7..." . (QX%*100| 00000980 29 2d 31 35 30 2c 28 51 59 25 2a 31 30 30 29 2d |)-150,(QY%*100)-| 00000990 31 35 30 0d 05 0a 20 20 ec 20 28 51 58 25 2a 31 |150... . (QX%*1| 000009a0 30 30 29 2b 35 30 2c 28 51 59 25 2a 31 30 30 29 |00)+50,(QY%*100)| 000009b0 2b 35 30 0d 05 14 13 20 2a 53 47 45 54 20 43 4f |+50.... *SGET CO| 000009c0 4d 50 42 41 43 4b 0d 05 1e 17 20 f2 43 61 6c 63 |MPBACK.... .Calc| 000009d0 28 30 2c 30 2c 51 58 25 2c 51 59 25 29 0d 05 28 |(0,0,QX%,QY%)..(| 000009e0 38 20 e7 20 28 42 31 25 2b 42 32 25 2b 42 33 25 |8 . (B1%+B2%+B3%| 000009f0 2b 42 34 25 3d 30 2b 4c 4f 25 20 84 20 42 31 25 |+B4%=0+LO% . B1%| 00000a00 2b 42 32 25 2b 42 33 25 2b 42 34 25 3d 31 2b 4c |+B2%+B3%+B4%=1+L| 00000a10 4f 25 29 20 8c 0d 05 32 0e 20 e7 20 42 31 25 3d |O%) ...2. . B1%=| 00000a20 30 20 8c 0d 05 3c 2f 20 54 58 25 3d 28 51 58 25 |0 ...</ TX%=(QX%| 00000a30 2a 31 30 30 29 2d 31 30 30 3a 54 59 25 3d 28 51 |*100)-100:TY%=(Q| 00000a40 59 25 2a 31 30 30 29 2d 31 30 30 3a 54 56 48 25 |Y%*100)-100:TVH%| 00000a50 3d 30 0d 05 46 26 20 f2 48 6f 72 28 28 51 58 25 |=0..F& .Hor((QX%| 00000a60 2a 31 30 30 29 2d 31 30 30 2c 28 51 59 25 2a 31 |*100)-100,(QY%*1| 00000a70 30 30 29 2d 31 30 30 29 0d 05 50 0b 20 e5 20 8d |00)-100)..P. . .| 00000a80 64 7a 45 0d 05 5a 06 20 cd 0d 05 64 0e 20 e7 20 |dzE..Z. ...d. . | 00000a90 42 32 25 3d 30 20 8c 0d 05 6e 2f 20 54 58 25 3d |B2%=0 ...n/ TX%=| 00000aa0 28 51 58 25 2a 31 30 30 29 2d 31 30 30 3a 54 59 |(QX%*100)-100:TY| 00000ab0 25 3d 28 51 59 25 2a 31 30 30 29 2d 31 30 30 3a |%=(QY%*100)-100:| 00000ac0 54 56 48 25 3d 31 0d 05 78 27 20 f2 56 65 72 74 |TVH%=1..x' .Vert| 00000ad0 28 28 51 58 25 2a 31 30 30 29 2d 31 30 30 2c 28 |((QX%*100)-100,(| 00000ae0 51 59 25 2a 31 30 30 29 2d 31 30 30 29 0d 05 82 |QY%*100)-100)...| 00000af0 0b 20 e5 20 8d 64 7a 45 0d 05 8c 06 20 cd 0d 05 |. . .dzE.... ...| 00000b00 96 0e 20 e7 20 42 33 25 3d 30 20 8c 0d 05 a0 29 |.. . B3%=0 ....)| 00000b10 20 54 58 25 3d 28 51 58 25 2a 31 30 30 29 2d 31 | TX%=(QX%*100)-1| 00000b20 30 30 3a 54 59 25 3d 51 59 25 2a 31 30 30 3a 54 |00:TY%=QY%*100:T| 00000b30 56 48 25 3d 30 0d 05 aa 20 20 f2 48 6f 72 28 28 |VH%=0... .Hor((| 00000b40 51 58 25 2a 31 30 30 29 2d 31 30 30 2c 51 59 25 |QX%*100)-100,QY%| 00000b50 2a 31 30 30 29 0d 05 b4 0b 20 e5 20 8d 64 7a 45 |*100).... . .dzE| 00000b60 0d 05 be 06 20 cd 0d 05 c8 0e 20 e7 20 42 34 25 |.... ..... . B4%| 00000b70 3d 30 20 8c 0d 05 d2 29 20 54 58 25 3d 51 58 25 |=0 ....) TX%=QX%| 00000b80 2a 31 30 30 3a 54 59 25 3d 28 51 59 25 2a 31 30 |*100:TY%=(QY%*10| 00000b90 30 29 2d 31 30 30 3a 54 56 48 25 3d 31 0d 05 dc |0)-100:TVH%=1...| 00000ba0 21 20 f2 56 65 72 74 28 51 58 25 2a 31 30 30 2c |! .Vert(QX%*100,| 00000bb0 28 51 59 25 2a 31 30 30 29 2d 31 30 30 29 0d 05 |(QY%*100)-100)..| 00000bc0 e6 0b 20 e5 20 8d 64 7a 45 0d 05 f0 06 20 cd 0d |.. . .dzE.... ..| 00000bd0 05 fa 19 20 f2 43 61 6c 63 28 30 2c 31 30 30 2c |... .Calc(0,100,| 00000be0 51 58 25 2c 51 59 25 29 0d 06 04 27 20 e7 20 42 |QX%,QY%)...' . B| 00000bf0 31 25 2b 42 32 25 2b 42 33 25 2b 42 34 25 3d 33 |1%+B2%+B3%+B4%=3| 00000c00 20 80 20 4c 4f 25 3d 30 20 8c 20 8d 44 68 46 0d | . LO%=0 . .DhF.| 00000c10 06 0e 19 20 f2 43 61 6c 63 28 31 30 30 2c 30 2c |... .Calc(100,0,| 00000c20 51 58 25 2c 51 59 25 29 0d 06 18 27 20 e7 20 42 |QX%,QY%)...' . B| 00000c30 31 25 2b 42 32 25 2b 42 33 25 2b 42 34 25 3d 33 |1%+B2%+B3%+B4%=3| 00000c40 20 80 20 4c 4f 25 3d 30 20 8c 20 8d 44 68 46 0d | . LO%=0 . .DhF.| 00000c50 06 22 1a 20 f2 43 61 6c 63 28 30 2c 2d 31 30 30 |.". .Calc(0,-100| 00000c60 2c 51 58 25 2c 51 59 25 29 0d 06 2c 27 20 e7 20 |,QX%,QY%)..,' . | 00000c70 42 31 25 2b 42 32 25 2b 42 33 25 2b 42 34 25 3d |B1%+B2%+B3%+B4%=| 00000c80 33 20 80 20 4c 4f 25 3d 30 20 8c 20 8d 44 68 46 |3 . LO%=0 . .DhF| 00000c90 0d 06 36 1a 20 f2 43 61 6c 63 28 2d 31 30 30 2c |..6. .Calc(-100,| 00000ca0 30 2c 51 58 25 2c 51 59 25 29 0d 06 40 27 20 e7 |0,QX%,QY%)..@' .| 00000cb0 20 42 31 25 2b 42 32 25 2b 42 33 25 2b 42 34 25 | B1%+B2%+B3%+B4%| 00000cc0 3d 33 20 80 20 4c 4f 25 3d 30 20 8c 20 8d 44 68 |=3 . LO%=0 . .Dh| 00000cd0 46 0d 06 4a 1c 20 f2 53 68 6f 77 43 6f 6d 70 28 |F..J. .ShowComp(| 00000ce0 54 58 25 2c 54 59 25 2c 54 56 48 25 29 0d 06 54 |TX%,TY%,TVH%)..T| 00000cf0 0b 20 e5 20 8d 74 64 46 0d 06 5e 06 20 cd 0d 06 |. . .tdF..^. ...| 00000d00 68 16 20 2a 53 43 48 4f 4f 53 45 20 43 4f 4d 50 |h. *SCHOOSE COMP| 00000d10 42 41 43 4b 0d 06 72 26 20 f0 20 26 45 44 2c 28 |BACK..r& . &ED,(| 00000d20 51 58 25 2a 31 30 30 29 2d 31 35 30 2c 28 51 59 |QX%*100)-150,(QY| 00000d30 25 2a 31 30 30 29 2d 31 35 30 0d 06 7c 13 20 f0 |%*100)-150..|. .| 00000d40 20 26 45 44 2c 31 30 30 34 2c 37 35 32 0d 06 86 | &ED,1004,752...| 00000d50 0a 20 ed 20 51 59 25 0d 06 90 0a 20 ed 20 51 58 |. . QY%.... . QX| 00000d60 25 0d 06 9a 0a 20 ed 20 4c 4f 25 0d 06 a4 06 20 |%.... . LO%.... | 00000d70 e1 0d 06 ae 04 0d 06 b8 0b 20 dd f2 42 6f 72 64 |......... ..Bord| 00000d80 0d 06 c2 19 20 c8 97 20 c8 93 20 34 30 2c 33 36 |.... .. .. 40,36| 00000d90 2c 31 32 30 30 2c 37 30 30 0d 06 cc 0b 20 c8 91 |,1200,700.... ..| 00000da0 20 30 2c 30 0d 06 d6 2f 20 f2 50 6c 69 6e 74 68 | 0,0.../ .Plinth| 00000db0 28 30 2c 30 2c 31 32 37 39 2c 31 30 32 33 2c 31 |(0,0,1279,1023,1| 00000dc0 30 2c 31 2c 34 32 2c 32 31 2c 32 31 2c 36 33 2c |0,1,42,21,21,63,| 00000dd0 36 33 29 0d 06 e0 31 20 f2 50 6c 69 6e 74 68 28 |63)...1 .Plinth(| 00000de0 33 35 30 2c 37 37 36 2c 32 33 30 2c 32 32 38 2c |350,776,230,228,| 00000df0 31 30 2c 30 2c 34 32 2c 32 31 2c 32 31 2c 36 33 |10,0,42,21,21,63| 00000e00 2c 36 33 29 0d 06 ea 30 20 f2 50 6c 69 6e 74 68 |,63)...0 .Plinth| 00000e10 28 32 30 2c 32 30 2c 31 32 34 30 2c 37 34 34 2c |(20,20,1240,744,| 00000e20 31 30 2c 30 2c 34 32 2c 32 31 2c 32 31 2c 36 33 |10,0,42,21,21,63| 00000e30 2c 36 33 29 0d 06 f4 32 20 f2 50 6c 69 6e 74 68 |,63)...2 .Plinth| 00000e40 28 31 30 32 38 2c 37 37 36 2c 32 33 30 2c 32 32 |(1028,776,230,22| 00000e50 38 2c 31 30 2c 30 2c 34 32 2c 32 31 2c 32 31 2c |8,10,0,42,21,21,| 00000e60 36 33 2c 36 33 29 0d 06 fe 31 20 f2 50 6c 69 6e |63,63)...1 .Plin| 00000e70 74 68 28 35 39 30 2c 37 37 36 2c 34 33 30 2c 32 |th(590,776,430,2| 00000e80 32 38 2c 31 30 2c 30 2c 34 32 2c 32 31 2c 32 31 |28,10,0,42,21,21| 00000e90 2c 36 33 2c 36 33 29 0d 07 08 30 20 f2 50 6c 69 |,63,63)...0 .Pli| 00000ea0 6e 74 68 28 36 30 38 2c 37 39 30 2c 33 39 36 2c |nth(608,790,396,| 00000eb0 39 34 2c 31 30 2c 31 2c 34 32 2c 32 31 2c 32 31 |94,10,1,42,21,21| 00000ec0 2c 36 33 2c 36 33 29 0d 07 12 30 20 f2 50 6c 69 |,63,63)...0 .Pli| 00000ed0 6e 74 68 28 36 30 38 2c 38 39 34 2c 33 39 36 2c |nth(608,894,396,| 00000ee0 39 34 2c 31 30 2c 31 2c 34 32 2c 32 31 2c 32 31 |94,10,1,42,21,21| 00000ef0 2c 36 33 2c 36 33 29 0d 07 1c 0e 20 c8 91 20 34 |,63,63).... .. 4| 00000f00 30 2c 37 38 32 0d 07 26 17 20 f2 4c 6f 67 6f 28 |0,782..&. .Logo(| 00000f10 33 32 30 2c 32 30 30 2c 31 2c 30 29 0d 07 30 0e |320,200,1,0)..0.| 00000f20 20 c8 91 20 33 30 2c 37 39 38 0d 07 3a 17 20 f2 | .. 30,798..:. .| 00000f30 4c 6f 67 6f 28 33 32 30 2c 32 30 30 2c 30 2c 31 |Logo(320,200,0,1| 00000f40 29 0d 07 44 0d 20 c8 91 20 34 30 2c 33 36 0d 07 |)..D. .. 40,36..| 00000f50 4e 0d 20 52 44 25 3d b3 28 33 29 0d 07 58 17 20 |N. RD%=.(3)..X. | 00000f60 e7 20 52 44 25 3d 33 20 8c 20 52 4e 25 3d b3 28 |. RD%=3 . RN%=.(| 00000f70 36 29 0d 07 62 10 20 e3 20 4e 25 3d 31 20 b8 20 |6)..b. . N%=1 . | 00000f80 31 33 0d 07 6c 17 20 e7 20 52 44 25 3d 31 20 8c |13..l. . RD%=1 .| 00000f90 20 52 4e 25 3d b3 28 36 29 0d 07 76 0f 20 e3 20 | RN%=.(6)..v. . | 00000fa0 4d 25 3d 31 20 b8 20 38 0d 07 80 17 20 e7 20 52 |M%=1 . 8.... . R| 00000fb0 44 25 3d 32 20 8c 20 52 4e 25 3d b3 28 36 29 0d |D%=2 . RN%=.(6).| 00000fc0 07 8a 74 20 f2 50 6c 69 6e 74 68 28 4e 25 2a 31 |..t .Plinth(N%*1| 00000fd0 30 30 2d 31 31 30 2c 4d 25 2a 31 30 30 2d 31 30 |00-110,M%*100-10| 00000fe0 36 2c 32 30 2c 32 30 2c 31 30 2c 31 2c 42 4c 4b |6,20,20,10,1,BLK| 00000ff0 43 4f 4c 31 25 28 52 4e 25 29 2c 42 4c 4b 43 4f |COL1%(RN%),BLKCO| 00001000 4c 32 25 28 52 4e 25 29 2c 42 4c 4b 43 4f 4c 33 |L2%(RN%),BLKCOL3| 00001010 25 28 52 4e 25 29 2c 42 4c 4b 43 4f 4c 34 25 28 |%(RN%),BLKCOL4%(| 00001020 52 4e 25 29 2c 42 4c 4b 43 4f 4c 35 25 28 52 4e |RN%),BLKCOL5%(RN| 00001030 25 29 29 0d 07 94 09 20 ed 20 4d 25 0d 07 9e 09 |%)).... . M%....| 00001040 20 ed 20 4e 25 0d 07 a8 06 20 e1 0d 07 b2 05 20 | . N%.... ..... | 00001050 0d 07 bc 0b 20 dd f2 56 61 72 73 0d 07 c6 09 20 |.... ..Vars.... | 00001060 c8 a0 20 32 0d 07 d0 0d 20 2a 43 48 2e 20 31 20 |.. 2.... *CH. 1 | 00001070 33 0d 07 da 0d 20 2a 43 48 2e 20 32 20 36 0d 07 |3.... *CH. 2 6..| 00001080 e4 0f 20 43 4f 4d 50 53 43 52 25 3d 30 0d 07 ee |.. COMPSCR%=0...| 00001090 0f 20 55 53 45 52 53 43 52 25 3d 30 0d 07 f8 0f |. USERSCR%=0....| 000010a0 20 43 4f 4d 43 4f 4c 25 3d 31 35 0d 08 02 0f 20 | COMCOL%=15.... | 000010b0 55 53 45 52 43 4f 4c 25 3d 33 0d 08 0c 0e 20 43 |USERCOL%=3.... C| 000010c0 4f 4d 41 44 44 25 3d 30 0d 08 16 0f 20 55 53 45 |OMADD%=0.... USE| 000010d0 52 41 44 44 25 3d 30 0d 08 20 42 20 de 20 42 4c |RADD%=0.. B . BL| 000010e0 4b 43 4f 4c 31 25 28 36 29 2c 42 4c 4b 43 4f 4c |KCOL1%(6),BLKCOL| 000010f0 32 25 28 36 29 2c 42 4c 4b 43 4f 4c 33 25 28 36 |2%(6),BLKCOL3%(6| 00001100 29 2c 42 4c 4b 43 4f 4c 34 25 28 36 29 2c 42 4c |),BLKCOL4%(6),BL| 00001110 4b 43 4f 4c 35 25 28 36 29 0d 08 2a 10 20 e3 20 |KCOL5%(6)..*. . | 00001120 52 4e 25 3d 31 20 b8 20 36 0d 08 34 14 20 f3 20 |RN%=1 . 6..4. . | 00001130 42 4c 4b 43 4f 4c 31 25 28 52 4e 25 29 0d 08 3e |BLKCOL1%(RN%)..>| 00001140 14 20 f3 20 42 4c 4b 43 4f 4c 32 25 28 52 4e 25 |. . BLKCOL2%(RN%| 00001150 29 0d 08 48 14 20 f3 20 42 4c 4b 43 4f 4c 33 25 |)..H. . BLKCOL3%| 00001160 28 52 4e 25 29 0d 08 52 14 20 f3 20 42 4c 4b 43 |(RN%)..R. . BLKC| 00001170 4f 4c 34 25 28 52 4e 25 29 0d 08 5c 14 20 f3 20 |OL4%(RN%)..\. . | 00001180 42 4c 4b 43 4f 4c 35 25 28 52 4e 25 29 0d 08 66 |BLKCOL5%(RN%)..f| 00001190 0a 20 ed 20 52 4e 25 0d 08 70 04 0d 08 7a 12 20 |. . RN%..p...z. | 000011a0 dc 20 35 2c 35 2c 35 2c 34 37 2c 32 36 0d 08 84 |. 5,5,5,47,26...| 000011b0 12 20 dc 20 31 2c 31 2c 31 2c 34 33 2c 32 32 0d |. . 1,1,1,43,22.| 000011c0 08 8e 12 20 dc 20 34 2c 34 2c 34 2c 34 36 2c 32 |... . 4,4,4,46,2| 000011d0 35 0d 08 98 15 20 dc 20 32 30 2c 32 30 2c 32 30 |5.... . 20,20,20| 000011e0 2c 36 32 2c 34 31 0d 08 a2 15 20 dc 20 31 36 2c |,62,41.... . 16,| 000011f0 31 36 2c 31 36 2c 35 38 2c 33 37 0d 08 ac 15 20 |16,16,58,37.... | 00001200 dc 20 31 37 2c 31 37 2c 31 37 2c 35 39 2c 33 38 |. 17,17,17,59,38| 00001210 0d 08 b6 06 20 e1 0d 08 c0 04 0d 08 ca 0f 20 dd |.... ......... .| 00001220 f2 55 73 65 72 73 63 61 6e 0d 08 d4 0f 20 55 53 |.Userscan.... US| 00001230 45 52 41 44 44 25 3d 30 0d 08 de 11 20 e3 20 43 |ERADD%=0.... . C| 00001240 58 25 3d 31 20 b8 20 31 32 0d 08 e8 10 20 e3 20 |X%=1 . 12.... . | 00001250 43 59 25 3d 31 20 b8 20 37 0d 08 f2 22 20 42 31 |CY%=1 . 7..." B1| 00001260 25 3d 30 3a 42 32 25 3d 30 3a 42 33 25 3d 30 3a |%=0:B2%=0:B3%=0:| 00001270 42 34 25 3d 30 3a 42 35 25 3d 30 0d 08 fc 28 20 |B4%=0:B5%=0...( | 00001280 42 43 4f 4c 31 25 3d b0 28 43 58 25 2a 31 30 30 |BCOL1%=.(CX%*100| 00001290 29 2d 35 30 2c 28 43 59 25 2a 31 30 30 29 2d 31 |)-50,(CY%*100)-1| 000012a0 30 30 29 0d 09 06 18 20 e7 20 42 43 4f 4c 31 25 |00).... . BCOL1%| 000012b0 3d 36 33 20 8c 20 42 31 25 3d 31 0d 09 10 28 20 |=63 . B1%=1...( | 000012c0 42 43 4f 4c 32 25 3d b0 28 43 58 25 2a 31 30 30 |BCOL2%=.(CX%*100| 000012d0 29 2d 31 30 30 2c 28 43 59 25 2a 31 30 30 29 2d |)-100,(CY%*100)-| 000012e0 35 30 29 0d 09 1a 18 20 e7 20 42 43 4f 4c 32 25 |50).... . BCOL2%| 000012f0 3d 36 33 20 8c 20 42 32 25 3d 31 0d 09 24 22 20 |=63 . B2%=1..$" | 00001300 42 43 4f 4c 33 25 3d b0 28 43 58 25 2a 31 30 30 |BCOL3%=.(CX%*100| 00001310 29 2d 35 30 2c 43 59 25 2a 31 30 30 29 0d 09 2e |)-50,CY%*100)...| 00001320 18 20 e7 20 42 43 4f 4c 33 25 3d 36 33 20 8c 20 |. . BCOL3%=63 . | 00001330 42 33 25 3d 31 0d 09 38 22 20 42 43 4f 4c 34 25 |B3%=1..8" BCOL4%| 00001340 3d b0 43 58 25 2a 31 30 30 2c 28 43 59 25 2a 31 |=.CX%*100,(CY%*1| 00001350 30 30 29 2d 35 30 29 0d 09 42 18 20 e7 20 42 43 |00)-50)..B. . BC| 00001360 4f 4c 34 25 3d 36 33 20 8c 20 42 34 25 3d 31 0d |OL4%=63 . B4%=1.| 00001370 09 4c 24 20 42 35 25 3d b0 28 43 58 25 2a 31 30 |.L$ B5%=.(CX%*10| 00001380 30 29 2d 35 30 2c 28 43 59 25 2a 31 30 30 29 2d |0)-50,(CY%*100)-| 00001390 35 30 29 0d 09 56 3b 20 e7 20 28 42 31 25 2b 42 |50)..V; . (B1%+B| 000013a0 32 25 2b 42 33 25 2b 42 34 25 3d 34 20 80 20 42 |2%+B3%+B4%=4 . B| 000013b0 35 25 3c 3e 55 53 45 52 43 4f 4c 25 20 80 20 42 |5%<>USERCOL% . B| 000013c0 35 25 3c 3e 43 4f 4d 43 4f 4c 25 29 20 8c 0d 09 |5%<>COMCOL%) ...| 000013d0 60 10 20 55 53 45 52 53 43 52 25 2b 3d 31 0d 09 |`. USERSCR%+=1..| 000013e0 6a 0f 20 55 53 45 52 41 44 44 25 3d 31 0d 09 74 |j. USERADD%=1..t| 000013f0 0d 20 e6 20 30 20 c8 9c 20 30 0d 09 7e 24 20 c8 |. . 0 .. 0..~$ .| 00001400 8f 20 28 43 58 25 2a 31 30 30 29 2d 35 30 2c 28 |. (CX%*100)-50,(| 00001410 43 59 25 2a 31 30 30 29 2d 35 30 2c 33 34 0d 09 |CY%*100)-50,34..| 00001420 88 10 20 e6 20 34 32 20 c8 9c 20 31 39 32 0d 09 |.. . 42 .. 192..| 00001430 92 27 20 c8 8f 20 c8 90 20 28 43 58 25 2a 31 30 |.' .. .. (CX%*10| 00001440 30 29 2d 35 30 2c 28 43 59 25 2a 31 30 30 29 2d |0)-50,(CY%*100)-| 00001450 35 30 2c 33 30 0d 09 9c 10 20 e6 20 36 33 20 c8 |50,30.... . 63 .| 00001460 9c 20 31 39 32 0d 09 a6 27 20 c8 8f 20 c8 90 20 |. 192...' .. .. | 00001470 28 43 58 25 2a 31 30 30 29 2d 35 30 2c 28 43 59 |(CX%*100)-50,(CY| 00001480 25 2a 31 30 30 29 2d 35 30 2c 32 35 0d 09 b0 16 |%*100)-50,25....| 00001490 20 e6 20 55 53 45 52 43 4f 4c 25 20 c8 9c 20 32 | . USERCOL% .. 2| 000014a0 35 35 0d 09 ba 27 20 c8 8f 20 c8 90 20 28 43 58 |55...' .. .. (CX| 000014b0 25 2a 31 30 30 29 2d 35 30 2c 28 43 59 25 2a 31 |%*100)-50,(CY%*1| 000014c0 30 30 29 2d 35 30 2c 32 30 0d 09 c4 06 20 cd 0d |00)-50,20.... ..| 000014d0 09 ce 0a 20 ed 20 43 59 25 0d 09 d8 0a 20 ed 20 |... . CY%.... . | 000014e0 43 58 25 0d 09 e2 06 20 e1 0d 09 ec 04 0d 09 f6 |CX%.... ........| 000014f0 0c 20 dd f2 73 63 6f 72 65 0d 0a 00 0b 20 c8 91 |. ..score.... ..| 00001500 20 30 2c 30 0d 0a 0a 10 20 e6 20 34 32 20 c8 9c | 0,0.... . 42 ..| 00001510 20 31 39 32 0d 0a 14 19 20 c8 93 20 c8 90 20 36 | 192.... .. .. 6| 00001520 32 34 2c 39 31 30 2c 33 36 34 2c 35 36 0d 0a 1e |24,910,364,56...| 00001530 19 20 c8 93 20 c8 90 20 36 32 32 2c 38 30 36 2c |. .. .. 622,806,| 00001540 33 36 34 2c 35 36 0d 0a 28 08 20 ef 20 35 0d 0a |364,56..(. . 5..| 00001550 32 0e 20 ec 20 36 38 30 2c 39 35 30 0d 0a 3c 0e |2. . 680,950..<.| 00001560 20 e6 20 34 32 20 c8 9c 20 30 0d 0a 46 1d 20 f1 | . 42 .. 0..F. .| 00001570 20 22 4d 59 20 53 43 4f 52 45 20 3a 20 22 3b 43 | "MY SCORE : ";C| 00001580 4f 4d 50 53 43 52 25 0d 0a 50 0e 20 ec 20 36 38 |OMPSCR%..P. . 68| 00001590 30 2c 38 34 32 0d 0a 5a 1f 20 f1 20 22 59 4f 55 |0,842..Z. . "YOU| 000015a0 52 20 53 43 4f 52 45 20 3a 20 22 3b 55 53 45 52 |R SCORE : ";USER| 000015b0 53 43 52 25 0d 0a 64 0e 20 ec 20 36 38 36 2c 39 |SCR%..d. . 686,9| 000015c0 35 36 0d 0a 6e 15 20 e6 20 43 4f 4d 43 4f 4c 25 |56..n. . COMCOL%| 000015d0 20 c8 9c 20 32 35 35 0d 0a 78 1d 20 f1 20 22 4d | .. 255..x. . "M| 000015e0 59 20 53 43 4f 52 45 20 3a 20 22 3b 43 4f 4d 50 |Y SCORE : ";COMP| 000015f0 53 43 52 25 0d 0a 82 0e 20 ec 20 36 38 36 2c 38 |SCR%.... . 686,8| 00001600 34 36 0d 0a 8c 14 20 e6 20 55 53 45 52 43 4f 4c |46.... . USERCOL| 00001610 25 20 c8 9c 20 30 0d 0a 96 1f 20 f1 20 22 59 4f |% .. 0.... . "YO| 00001620 55 52 20 53 43 4f 52 45 20 3a 20 22 3b 55 53 45 |UR SCORE : ";USE| 00001630 52 53 43 52 25 0d 0a a0 1d 20 e7 20 43 4f 4d 50 |RSCR%.... . COMP| 00001640 53 43 52 25 2b 55 53 45 52 53 43 52 25 3d 38 34 |SCR%+USERSCR%=84| 00001650 20 8c 0d 0a aa 0e 20 f2 47 61 6d 65 4f 76 65 72 | ..... .GameOver| 00001660 0d 0a b4 04 0d 0a be 06 20 e0 0d 0a c8 06 20 cd |........ ..... .| 00001670 0d 0a d2 0d 20 c8 91 20 34 30 2c 33 36 0d 0a dc |.... .. 40,36...| 00001680 06 20 e1 0d 0a e6 04 0d 0a f0 0f 20 dd f2 43 6f |. ......... ..Co| 00001690 6d 70 73 63 61 6e 0d 0a fa 0e 20 43 4f 4d 41 44 |mpscan.... COMAD| 000016a0 44 25 3d 30 0d 0b 04 11 20 e3 20 43 58 25 3d 31 |D%=0.... . CX%=1| 000016b0 20 b8 20 31 32 0d 0b 0e 10 20 e3 20 43 59 25 3d | . 12.... . CY%=| 000016c0 31 20 b8 20 37 0d 0b 18 22 20 42 31 25 3d 30 3a |1 . 7..." B1%=0:| 000016d0 42 32 25 3d 30 3a 42 33 25 3d 30 3a 42 34 25 3d |B2%=0:B3%=0:B4%=| 000016e0 30 3a 42 35 25 3d 30 0d 0b 22 28 20 42 43 4f 4c |0:B5%=0.."( BCOL| 000016f0 31 25 3d b0 28 43 58 25 2a 31 30 30 29 2d 35 30 |1%=.(CX%*100)-50| 00001700 2c 28 43 59 25 2a 31 30 30 29 2d 31 30 30 29 0d |,(CY%*100)-100).| 00001710 0b 2c 18 20 e7 20 42 43 4f 4c 31 25 3d 36 33 20 |.,. . BCOL1%=63 | 00001720 8c 20 42 31 25 3d 31 0d 0b 36 28 20 42 43 4f 4c |. B1%=1..6( BCOL| 00001730 32 25 3d b0 28 43 58 25 2a 31 30 30 29 2d 31 30 |2%=.(CX%*100)-10| 00001740 30 2c 28 43 59 25 2a 31 30 30 29 2d 35 30 29 0d |0,(CY%*100)-50).| 00001750 0b 40 18 20 e7 20 42 43 4f 4c 32 25 3d 36 33 20 |.@. . BCOL2%=63 | 00001760 8c 20 42 32 25 3d 31 0d 0b 4a 22 20 42 43 4f 4c |. B2%=1..J" BCOL| 00001770 33 25 3d b0 28 43 58 25 2a 31 30 30 29 2d 35 30 |3%=.(CX%*100)-50| 00001780 2c 43 59 25 2a 31 30 30 29 0d 0b 54 18 20 e7 20 |,CY%*100)..T. . | 00001790 42 43 4f 4c 33 25 3d 36 33 20 8c 20 42 33 25 3d |BCOL3%=63 . B3%=| 000017a0 31 0d 0b 5e 22 20 42 43 4f 4c 34 25 3d b0 43 58 |1..^" BCOL4%=.CX| 000017b0 25 2a 31 30 30 2c 28 43 59 25 2a 31 30 30 29 2d |%*100,(CY%*100)-| 000017c0 35 30 29 0d 0b 68 18 20 e7 20 42 43 4f 4c 34 25 |50)..h. . BCOL4%| 000017d0 3d 36 33 20 8c 20 42 34 25 3d 31 0d 0b 72 24 20 |=63 . B4%=1..r$ | 000017e0 42 35 25 3d b0 28 43 58 25 2a 31 30 30 29 2d 35 |B5%=.(CX%*100)-5| 000017f0 30 2c 28 43 59 25 2a 31 30 30 29 2d 35 30 29 0d |0,(CY%*100)-50).| 00001800 0b 7c 3b 20 e7 20 28 42 31 25 2b 42 32 25 2b 42 |.|; . (B1%+B2%+B| 00001810 33 25 2b 42 34 25 3d 34 20 80 20 42 35 25 3c 3e |3%+B4%=4 . B5%<>| 00001820 55 53 45 52 43 4f 4c 25 20 80 20 42 35 25 3c 3e |USERCOL% . B5%<>| 00001830 43 4f 4d 43 4f 4c 25 29 20 8c 0d 0b 86 10 20 43 |COMCOL%) ..... C| 00001840 4f 4d 50 53 43 52 25 2b 3d 31 0d 0b 90 0e 20 43 |OMPSCR%+=1.... C| 00001850 4f 4d 41 44 44 25 3d 31 0d 0b 9a 0d 20 e6 20 30 |OMADD%=1.... . 0| 00001860 20 c8 9c 20 30 0d 0b a4 24 20 c8 8f 20 28 43 58 | .. 0...$ .. (CX| 00001870 25 2a 31 30 30 29 2d 35 30 2c 28 43 59 25 2a 31 |%*100)-50,(CY%*1| 00001880 30 30 29 2d 35 30 2c 33 34 0d 0b ae 10 20 e6 20 |00)-50,34.... . | 00001890 34 32 20 c8 9c 20 31 32 38 0d 0b b8 27 20 c8 8f |42 .. 128...' ..| 000018a0 20 c8 90 20 28 43 58 25 2a 31 30 30 29 2d 35 30 | .. (CX%*100)-50| 000018b0 2c 28 43 59 25 2a 31 30 30 29 2d 35 30 2c 33 30 |,(CY%*100)-50,30| 000018c0 0d 0b c2 10 20 e6 20 36 33 20 c8 9c 20 31 32 38 |.... . 63 .. 128| 000018d0 0d 0b cc 27 20 c8 8f 20 c8 90 20 28 43 58 25 2a |...' .. .. (CX%*| 000018e0 31 30 30 29 2d 35 30 2c 28 43 59 25 2a 31 30 30 |100)-50,(CY%*100| 000018f0 29 2d 35 30 2c 32 35 0d 0b d6 15 20 e6 20 43 4f |)-50,25.... . CO| 00001900 4d 43 4f 4c 25 20 c8 9c 20 32 35 35 0d 0b e0 27 |MCOL% .. 255...'| 00001910 20 c8 8f 20 c8 90 20 28 43 58 25 2a 31 30 30 29 | .. .. (CX%*100)| 00001920 2d 35 30 2c 28 43 59 25 2a 31 30 30 29 2d 35 30 |-50,(CY%*100)-50| 00001930 2c 32 30 0d 0b ea 06 20 cd 0d 0b f4 0a 20 ed 20 |,20.... ..... . | 00001940 43 59 25 0d 0b fe 0a 20 ed 20 43 58 25 0d 0c 08 |CY%.... . CX%...| 00001950 06 20 e1 0d 0c 12 04 0d 0c 1c 34 20 dd f2 50 6c |. ........4 ..Pl| 00001960 69 6e 74 68 28 41 25 2c 42 25 2c 43 25 2c 44 25 |inth(A%,B%,C%,D%| 00001970 2c 56 25 2c 50 25 2c 43 31 25 2c 43 32 25 2c 43 |,V%,P%,C1%,C2%,C| 00001980 33 25 2c 43 34 25 2c 43 35 25 29 0d 0c 26 29 20 |3%,C4%,C5%)..&) | 00001990 e7 20 50 25 3d 30 20 8c 20 e6 20 43 34 25 20 c8 |. P%=0 . . C4% .| 000019a0 9c 20 31 39 32 20 8b 20 e6 20 43 32 25 20 c8 9c |. 192 . . C2% ..| 000019b0 20 31 32 38 0d 0c 30 18 20 c8 93 20 c8 90 20 41 | 128..0. .. .. A| 000019c0 25 2c 42 25 2c 43 25 2c 44 25 2f 32 0d 0c 3a 29 |%,B%,C%,D%/2..:)| 000019d0 20 e7 20 50 25 3d 30 20 8c 20 e6 20 43 32 25 20 | . P%=0 . . C2% | 000019e0 c8 9c 20 31 32 38 20 8b 20 e6 20 43 34 25 20 c8 |.. 128 . . C4% .| 000019f0 9c 20 31 39 32 0d 0c 44 1f 20 c8 93 20 c8 90 20 |. 192..D. .. .. | 00001a00 41 25 2c 42 25 2b 28 44 25 2f 32 29 2c 43 25 2c |A%,B%+(D%/2),C%,| 00001a10 44 25 2f 32 0d 0c 4e 27 20 e7 20 50 25 3d 30 20 |D%/2..N' . P%=0 | 00001a20 8c 20 e6 20 43 35 25 20 c8 9c 20 32 35 35 20 8b |. . C5% .. 255 .| 00001a30 20 e6 20 43 33 25 20 c8 9c 20 30 0d 0c 58 0c 20 | . C3% .. 0..X. | 00001a40 ec 20 41 25 2c 42 25 0d 0c 62 0f 20 ec 20 41 25 |. A%,B%..b. . A%| 00001a50 2c 42 25 2b 44 25 0d 0c 6c 1e 20 f0 20 26 35 35 |,B%+D%..l. . &55| 00001a60 2c 41 25 2b 28 44 25 2f 32 29 2c 42 25 2b 28 44 |,A%+(D%/2),B%+(D| 00001a70 25 2f 32 29 0d 0c 76 29 20 e7 20 50 25 3d 30 20 |%/2)..v) . P%=0 | 00001a80 8c 20 e6 20 43 33 25 20 c8 9c 20 31 32 38 20 8b |. . C3% .. 128 .| 00001a90 20 e6 20 43 35 25 20 c8 9c 20 32 35 35 0d 0c 80 | . C5% .. 255...| 00001aa0 0f 20 ec 20 41 25 2b 43 25 2c 42 25 0d 0c 8a 12 |. . A%+C%,B%....| 00001ab0 20 ec 20 41 25 2b 43 25 2c 42 25 2b 44 25 0d 0c | . A%+C%,B%+D%..| 00001ac0 94 21 20 f0 20 26 35 35 2c 43 25 2d 28 44 25 2f |.! . &55,C%-(D%/| 00001ad0 32 29 2b 41 25 2c 42 25 2b 28 44 25 2f 32 29 0d |2)+A%,B%+(D%/2).| 00001ae0 0c 9e 25 20 e7 20 50 25 3d 30 20 8c 20 e6 20 30 |..% . P%=0 . . 0| 00001af0 20 c8 9c 20 30 20 8b 20 e6 20 43 31 25 20 c8 9c | .. 0 . . C1% ..| 00001b00 20 32 35 35 0d 0c a8 2a 20 c8 93 20 c8 90 20 41 | 255...* .. .. A| 00001b10 25 2b 56 25 2c 42 25 2b 56 25 2c 43 25 2d 28 56 |%+V%,B%+V%,C%-(V| 00001b20 25 2a 32 29 2c 44 25 2d 28 56 25 2a 32 29 0d 0c |%*2),D%-(V%*2)..| 00001b30 b2 06 20 e1 0d 0c bc 04 0d 0c c6 13 20 dd f2 48 |.. ......... ..H| 00001b40 6f 72 28 42 58 25 2c 42 59 25 29 0d 0c d0 0f 20 |or(BX%,BY%).... | 00001b50 e6 20 33 20 c8 9c 20 32 35 35 0d 0c da 1c 20 c8 |. 3 .. 255.... .| 00001b60 93 20 c8 90 20 42 58 25 2c 42 59 25 2d 31 30 2c |. .. BX%,BY%-10,| 00001b70 31 30 30 2c 32 30 0d 0c e4 10 20 e6 20 36 33 20 |100,20.... . 63 | 00001b80 c8 9c 20 32 35 35 0d 0c ee 1b 20 c8 93 20 c8 90 |.. 255.... .. ..| 00001b90 20 42 58 25 2c 42 59 25 2d 35 2c 31 30 30 2c 31 | BX%,BY%-5,100,1| 00001ba0 30 0d 0c f8 0e 20 e6 20 34 32 20 c8 9c 20 30 0d |0.... . 42 .. 0.| 00001bb0 0d 02 15 20 c8 8f 20 c8 90 20 42 58 25 2c 42 59 |... .. .. BX%,BY| 00001bc0 25 2c 32 30 0d 0d 0c 19 20 c8 8f 20 c8 90 20 42 |%,20.... .. .. B| 00001bd0 58 25 2b 31 30 30 2c 42 59 25 2c 32 30 0d 0d 16 |X%+100,BY%,20...| 00001be0 0e 20 e6 20 36 33 20 c8 9c 20 30 0d 0d 20 15 20 |. . 63 .. 0.. . | 00001bf0 c8 8f 20 c8 90 20 42 58 25 2c 42 59 25 2c 31 35 |.. .. BX%,BY%,15| 00001c00 0d 0d 2a 19 20 c8 8f 20 c8 90 20 42 58 25 2b 31 |..*. .. .. BX%+1| 00001c10 30 30 2c 42 59 25 2c 31 35 0d 0d 34 10 20 e6 20 |00,BY%,15..4. . | 00001c20 36 33 20 c8 9c 20 32 35 35 0d 0d 3e 15 20 c8 8f |63 .. 255..>. ..| 00001c30 20 c8 90 20 42 58 25 2c 42 59 25 2c 31 30 0d 0d | .. BX%,BY%,10..| 00001c40 48 19 20 c8 8f 20 c8 90 20 42 58 25 2b 31 30 30 |H. .. .. BX%+100| 00001c50 2c 42 59 25 2c 31 30 0d 0d 52 16 20 d4 20 31 2c |,BY%,10..R. . 1,| 00001c60 2d 31 30 2c 42 58 25 2b 33 35 30 2c 32 0d 0d 5c |-10,BX%+350,2..\| 00001c70 06 20 e1 0d 0d 66 04 0d 0d 70 14 20 dd f2 56 65 |. ...f...p. ..Ve| 00001c80 72 74 28 42 58 25 2c 42 59 25 29 0d 0d 7a 0f 20 |rt(BX%,BY%)..z. | 00001c90 e6 20 33 20 c8 9c 20 32 35 35 0d 0d 84 1c 20 c8 |. 3 .. 255.... .| 00001ca0 93 20 c8 90 20 42 58 25 2d 31 30 2c 42 59 25 2c |. .. BX%-10,BY%,| 00001cb0 32 30 2c 31 30 30 0d 0d 8e 10 20 e6 20 36 33 20 |20,100.... . 63 | 00001cc0 c8 9c 20 32 35 35 0d 0d 98 1b 20 c8 93 20 c8 90 |.. 255.... .. ..| 00001cd0 20 42 58 25 2d 35 2c 42 59 25 2c 31 30 2c 31 30 | BX%-5,BY%,10,10| 00001ce0 30 0d 0d a2 0e 20 e6 20 34 32 20 c8 9c 20 30 0d |0.... . 42 .. 0.| 00001cf0 0d ac 15 20 c8 8f 20 c8 90 20 42 58 25 2c 42 59 |... .. .. BX%,BY| 00001d00 25 2c 32 30 0d 0d b6 19 20 c8 8f 20 c8 90 20 42 |%,20.... .. .. B| 00001d10 58 25 2c 42 59 25 2b 31 30 30 2c 32 30 0d 0d c0 |X%,BY%+100,20...| 00001d20 0e 20 e6 20 36 33 20 c8 9c 20 30 0d 0d ca 15 20 |. . 63 .. 0.... | 00001d30 c8 8f 20 c8 90 20 42 58 25 2c 42 59 25 2c 31 35 |.. .. BX%,BY%,15| 00001d40 0d 0d d4 19 20 c8 8f 20 c8 90 20 42 58 25 2c 42 |.... .. .. BX%,B| 00001d50 59 25 2b 31 30 30 2c 31 35 0d 0d de 10 20 e6 20 |Y%+100,15.... . | 00001d60 36 33 20 c8 9c 20 32 35 35 0d 0d e8 15 20 c8 8f |63 .. 255.... ..| 00001d70 20 c8 90 20 42 58 25 2c 42 59 25 2c 31 30 0d 0d | .. BX%,BY%,10..| 00001d80 f2 19 20 c8 8f 20 c8 90 20 42 58 25 2c 42 59 25 |.. .. .. BX%,BY%| 00001d90 2b 31 30 30 2c 31 30 0d 0d fc 16 20 d4 20 31 2c |+100,10.... . 1,| 00001da0 2d 31 30 2c 42 58 25 2b 33 35 30 2c 32 0d 0e 06 |-10,BX%+350,2...| 00001db0 06 20 e1 0d 0e 10 04 0d 0e 1a 1c 20 dd f2 4c 6f |. ......... ..Lo| 00001dc0 67 6f 28 4c 58 25 2c 4c 59 25 2c 4c 43 25 2c 4c |go(LX%,LY%,LC%,L| 00001dd0 54 25 29 0d 0e 24 27 20 e7 20 4c 43 25 3d 31 20 |T%)..$' . LC%=1 | 00001de0 8c 20 e6 20 34 32 20 c8 9c 20 4c 54 25 20 8b 20 |. . 42 .. LT% . | 00001df0 e6 20 37 20 c8 9c 20 32 35 35 0d 0e 2e 0a 20 ec |. 7 .. 255.... .| 00001e00 20 30 2c 30 0d 0e 38 0e 20 ec 20 30 2c 4c 59 25 | 0,0..8. . 0,LY%| 00001e10 2f 32 0d 0e 42 16 20 f0 20 26 35 35 2c 4c 58 25 |/2..B. . &55,LX%| 00001e20 2f 35 2c 4c 59 25 2f 34 0d 0e 4c 27 20 e7 20 4c |/5,LY%/4..L' . L| 00001e30 43 25 3d 31 20 8c 20 e6 20 34 32 20 c8 9c 20 4c |C%=1 . . 42 .. L| 00001e40 54 25 20 8b 20 e6 20 33 20 c8 9c 20 32 35 35 0d |T% . . 3 .. 255.| 00001e50 0e 56 0e 20 ec 20 30 2c 4c 59 25 2f 32 0d 0e 60 |.V. . 0,LY%/2..`| 00001e60 0c 20 ec 20 30 2c 4c 59 25 0d 0e 6a 1a 20 f0 20 |. . 0,LY%..j. . | 00001e70 26 35 35 2c 4c 58 25 2f 35 2c 28 4c 59 25 2f 34 |&55,LX%/5,(LY%/4| 00001e80 29 2a 33 0d 0e 74 28 20 e7 20 4c 43 25 3d 31 20 |)*3..t( . LC%=1 | 00001e90 8c 20 e6 20 34 32 20 c8 9c 20 4c 54 25 20 8b 20 |. . 42 .. LT% . | 00001ea0 e6 20 31 35 20 c8 9c 20 32 35 35 0d 0e 7e 1c 20 |. 15 .. 255..~. | 00001eb0 c8 93 20 c8 90 20 4c 58 25 2f 35 2c 30 2c 4c 58 |.. .. LX%/5,0,LX| 00001ec0 25 2f 35 2c 4c 59 25 0d 0e 88 12 20 ec 20 28 4c |%/5,LY%.... . (L| 00001ed0 58 25 2f 35 29 2a 32 2c 30 0d 0e 92 12 20 ec 20 |X%/5)*2,0.... . | 00001ee0 28 4c 58 25 2f 35 29 2a 33 2c 30 0d 0e 9c 28 20 |(LX%/5)*3,0...( | 00001ef0 e7 20 4c 43 25 3d 31 20 8c 20 e6 20 34 32 20 c8 |. LC%=1 . . 42 .| 00001f00 9c 20 4c 54 25 20 8b 20 e6 20 31 32 20 c8 9c 20 |. LT% . . 12 .. | 00001f10 32 35 35 0d 0e a6 26 20 f0 20 26 35 35 2c 28 4c |255...& . &55,(L| 00001f20 58 25 2f 35 29 2a 32 2b 28 28 4c 58 25 2f 35 29 |X%/5)*2+((LX%/5)| 00001f30 2f 32 29 2c 4c 59 25 2f 32 0d 0e b0 14 20 ec 20 |/2),LY%/2.... . | 00001f40 28 4c 58 25 2f 35 29 2a 32 2c 4c 59 25 0d 0e ba |(LX%/5)*2,LY%...| 00001f50 14 20 ec 20 28 4c 58 25 2f 35 29 2a 33 2c 4c 59 |. . (LX%/5)*3,LY| 00001f60 25 0d 0e c4 27 20 e7 20 4c 43 25 3d 31 20 8c 20 |%...' . LC%=1 . | 00001f70 e6 20 34 32 20 c8 9c 20 4c 54 25 20 8b 20 e6 20 |. 42 .. LT% . . | 00001f80 38 20 c8 9c 20 32 35 35 0d 0e ce 26 20 f0 20 26 |8 .. 255...& . &| 00001f90 35 35 2c 28 4c 58 25 2f 35 29 2a 32 2b 28 28 4c |55,(LX%/5)*2+((L| 00001fa0 58 25 2f 35 29 2f 32 29 2c 4c 59 25 2f 32 0d 0e |X%/5)/2),LY%/2..| 00001fb0 d8 28 20 e7 20 4c 43 25 3d 31 20 8c 20 e6 20 34 |.( . LC%=1 . . 4| 00001fc0 32 20 c8 9c 20 4c 54 25 20 8b 20 e6 20 35 36 20 |2 .. LT% . . 56 | 00001fd0 c8 9c 20 32 35 35 0d 0e e2 22 20 c8 93 20 c8 90 |.. 255..." .. ..| 00001fe0 20 28 4c 58 25 2f 35 29 2a 33 2c 30 2c 4c 58 25 | (LX%/5)*3,0,LX%| 00001ff0 2f 35 2f 32 2c 4c 59 25 0d 0e ec 28 20 e7 20 4c |/5/2,LY%...( . L| 00002000 43 25 3d 31 20 8c 20 e6 20 34 32 20 c8 9c 20 4c |C%=1 . . 42 .. L| 00002010 54 25 20 8b 20 e6 20 35 35 20 c8 9c 20 32 35 35 |T% . . 55 .. 255| 00002020 0d 0e f6 34 20 c8 93 20 c8 90 20 28 28 4c 58 25 |...4 .. .. ((LX%| 00002030 2f 35 29 2a 34 29 2d 28 28 4c 58 25 2f 35 29 2f |/5)*4)-((LX%/5)/| 00002040 33 29 2c 30 2c 28 28 4c 58 25 2f 35 29 2f 32 29 |3),0,((LX%/5)/2)| 00002050 2c 4c 59 25 0d 0f 00 26 20 e7 20 4c 43 25 3d 31 |,LY%...& . LC%=1| 00002060 20 8c 20 e6 20 34 32 20 c8 9c 20 4c 54 25 20 8b | . . 42 .. LT% .| 00002070 20 e6 20 35 37 20 c8 9c 20 30 0d 0f 0a 38 20 c8 | . 57 .. 0...8 .| 00002080 93 20 c8 90 20 28 28 4c 58 25 2f 35 29 2a 34 29 |. .. ((LX%/5)*4)| 00002090 2d 28 28 4c 58 25 2f 35 29 2f 32 29 2c 28 4c 59 |-((LX%/5)/2),(LY| 000020a0 25 2f 34 29 2a 33 2c 4c 58 25 2f 35 2c 4c 59 25 |%/4)*3,LX%/5,LY%| 000020b0 2f 34 0d 0f 14 06 20 e1 0d 0f 1e 05 20 0d 0f 28 |/4.... ..... ..(| 000020c0 0f 20 dd f2 54 69 74 6c 65 53 63 72 0d 0f 32 0d |. ..TitleScr..2.| 000020d0 20 2a 46 58 20 32 31 2c 30 0d 0f 3c 0d 20 2a 46 | *FX 21,0..<. *F| 000020e0 58 20 32 31 2c 39 0d 0f 46 0b 20 c8 91 20 30 2c |X 21,9..F. .. 0,| 000020f0 30 0d 0f 50 2f 20 f2 50 6c 69 6e 74 68 28 30 2c |0..P/ .Plinth(0,| 00002100 30 2c 31 32 37 39 2c 31 30 32 33 2c 32 30 2c 31 |0,1279,1023,20,1| 00002110 2c 34 32 2c 32 31 2c 32 31 2c 36 33 2c 36 33 29 |,42,21,21,63,63)| 00002120 0d 0f 5a 0e 20 c8 91 20 34 35 2c 32 34 35 0d 0f |..Z. .. 45,245..| 00002130 64 18 20 f2 4c 6f 67 6f 28 31 32 39 38 2c 36 35 |d. .Logo(1298,65| 00002140 30 2c 31 2c 30 29 0d 0f 6e 0e 20 c8 91 20 36 30 |0,1,0)..n. .. 60| 00002150 2c 32 36 30 0d 0f 78 1a 20 f2 4c 6f 67 6f 28 31 |,260..x. .Logo(1| 00002160 32 39 38 2c 36 35 30 2c 30 2c 31 32 38 29 0d 0f |298,650,0,128)..| 00002170 82 0c 20 c8 91 20 35 30 2c 30 0d 0f 8c 0f 20 e3 |.. .. 50,0.... .| 00002180 20 4e 25 3d 30 20 b8 20 35 0d 0f 96 6f 20 f2 50 | N%=0 . 5...o .P| 00002190 6c 69 6e 74 68 28 4e 25 2a 31 39 36 2c 31 38 30 |linth(N%*196,180| 000021a0 2c 31 39 36 2c 34 30 2c 31 30 2c 31 2c 42 4c 4b |,196,40,10,1,BLK| 000021b0 43 4f 4c 31 25 28 4e 25 2b 31 29 2c 42 4c 4b 43 |COL1%(N%+1),BLKC| 000021c0 4f 4c 32 25 28 4e 25 2b 31 29 2c 42 4c 4b 43 4f |OL2%(N%+1),BLKCO| 000021d0 4c 33 25 28 4e 25 2b 31 29 2c 42 4c 4b 43 4f 4c |L3%(N%+1),BLKCOL| 000021e0 34 25 28 4e 25 2b 31 29 2c 42 4c 4b 43 4f 4c 35 |4%(N%+1),BLKCOL5| 000021f0 25 28 4e 25 2b 31 29 29 0d 0f a0 6f 20 f2 50 6c |%(N%+1))...o .Pl| 00002200 69 6e 74 68 28 4e 25 2a 31 39 36 2c 39 35 30 2c |inth(N%*196,950,| 00002210 31 39 36 2c 34 30 2c 31 30 2c 31 2c 42 4c 4b 43 |196,40,10,1,BLKC| 00002220 4f 4c 31 25 28 4e 25 2b 31 29 2c 42 4c 4b 43 4f |OL1%(N%+1),BLKCO| 00002230 4c 32 25 28 4e 25 2b 31 29 2c 42 4c 4b 43 4f 4c |L2%(N%+1),BLKCOL| 00002240 33 25 28 4e 25 2b 31 29 2c 42 4c 4b 43 4f 4c 34 |3%(N%+1),BLKCOL4| 00002250 25 28 4e 25 2b 31 29 2c 42 4c 4b 43 4f 4c 35 25 |%(N%+1),BLKCOL5%| 00002260 28 4e 25 2b 31 29 29 0d 0f aa 09 20 ed 20 4e 25 |(N%+1)).... . N%| 00002270 0d 0f b4 0b 20 c8 91 20 30 2c 30 0d 0f be 30 20 |.... .. 0,0...0 | 00002280 f2 50 6c 69 6e 74 68 28 39 32 34 2c 35 30 2c 33 |.Plinth(924,50,3| 00002290 30 30 2c 31 30 30 2c 31 30 2c 30 2c 34 32 2c 32 |00,100,10,0,42,2| 000022a0 31 2c 32 31 2c 36 33 2c 36 33 29 0d 0f c8 2f 20 |1,21,63,63).../ | 000022b0 f2 50 6c 69 6e 74 68 28 39 33 36 2c 36 32 2c 32 |.Plinth(936,62,2| 000022c0 37 36 2c 37 36 2c 31 30 2c 31 2c 34 32 2c 32 31 |76,76,10,1,42,21| 000022d0 2c 32 31 2c 36 33 2c 36 33 29 0d 0f d2 30 20 f2 |,21,63,63)...0 .| 000022e0 50 6c 69 6e 74 68 28 34 30 30 2c 35 30 2c 34 37 |Plinth(400,50,47| 000022f0 36 2c 31 30 30 2c 31 30 2c 30 2c 34 32 2c 32 31 |6,100,10,0,42,21| 00002300 2c 32 31 2c 36 33 2c 36 33 29 0d 0f dc 2f 20 f2 |,21,63,63).../ .| 00002310 50 6c 69 6e 74 68 28 34 31 32 2c 36 32 2c 34 35 |Plinth(412,62,45| 00002320 32 2c 37 36 2c 31 30 2c 31 2c 34 32 2c 32 31 2c |2,76,10,1,42,21,| 00002330 32 31 2c 36 33 2c 36 33 29 0d 0f e6 2f 20 f2 50 |21,63,63).../ .P| 00002340 6c 69 6e 74 68 28 35 30 2c 35 30 2c 33 30 30 2c |linth(50,50,300,| 00002350 31 30 30 2c 31 30 2c 30 2c 34 32 2c 32 31 2c 32 |100,10,0,42,21,2| 00002360 31 2c 36 33 2c 36 33 29 0d 0f f0 2e 20 f2 50 6c |1,63,63).... .Pl| 00002370 69 6e 74 68 28 36 32 2c 36 32 2c 32 37 36 2c 37 |inth(62,62,276,7| 00002380 36 2c 31 30 2c 31 2c 34 32 2c 32 31 2c 32 31 2c |6,10,1,42,21,21,| 00002390 36 33 2c 36 33 29 0d 0f fa 0e 20 e6 20 34 32 20 |63,63).... . 42 | 000023a0 c8 9c 20 30 0d 10 04 08 20 ef 20 35 0d 10 0e 0e |.. 0.... . 5....| 000023b0 20 ec 20 31 30 38 2c 31 31 30 0d 10 18 13 20 f1 | . 108,110.... .| 000023c0 22 4b 2e 53 2e 50 61 72 64 65 73 69 22 0d 10 22 |"K.S.Pardesi".."| 000023d0 0e 20 ec 20 34 36 36 2c 31 31 30 0d 10 2c 1d 20 |. . 466,110..,. | 000023e0 f1 22 50 72 65 73 73 20 41 6e 79 20 4b 65 79 20 |."Press Any Key | 000023f0 74 6f 20 50 6c 61 79 22 0d 10 36 0e 20 ec 20 39 |to Play"..6. . 9| 00002400 38 34 2c 31 31 30 0d 10 40 14 20 f1 20 22 53 2e |84,110..@. . "S.| 00002410 53 2e 50 61 72 64 65 73 69 22 0d 10 4a 10 20 e6 |S.Pardesi"..J. .| 00002420 20 36 33 20 c8 9c 20 32 35 35 0d 10 54 0e 20 ec | 63 .. 255..T. .| 00002430 20 31 31 36 2c 31 31 38 0d 10 5e 13 20 f1 22 4b | 116,118..^. ."K| 00002440 2e 53 2e 50 61 72 64 65 73 69 22 0d 10 68 0e 20 |.S.Pardesi"..h. | 00002450 ec 20 34 37 32 2c 31 31 38 0d 10 72 1d 20 f1 22 |. 472,118..r. ."| 00002460 50 72 65 73 73 20 41 6e 79 20 4b 65 79 20 74 6f |Press Any Key to| 00002470 20 50 6c 61 79 22 0d 10 7c 0e 20 ec 20 39 39 32 | Play"..|. . 992| 00002480 2c 31 31 38 0d 10 86 14 20 f1 20 22 53 2e 53 2e |,118.... . "S.S.| 00002490 50 61 72 64 65 73 69 22 0d 10 90 09 20 41 24 3d |Pardesi".... A$=| 000024a0 be 0d 10 9a 11 20 d4 20 32 2c 2d 31 35 2c 31 30 |..... . 2,-15,10| 000024b0 2c 32 0d 10 a4 06 20 e1 0d 10 ae 04 0d 10 b8 11 |,2.... .........| 000024c0 20 dd f2 64 65 6c 61 79 28 44 4c 25 29 0d 10 c2 | ..delay(DL%)...| 000024d0 11 20 e3 20 57 25 3d 31 20 b8 20 44 4c 25 0d 10 |. . W%=1 . DL%..| 000024e0 cc 09 20 ed 20 57 25 0d 10 d6 06 20 e1 0d 10 e0 |.. . W%.... ....| 000024f0 05 20 0d 10 ea 0d 20 dd f2 4c 6f 73 65 46 58 0d |. .... ..LoseFX.| 00002500 10 f4 0d 20 2a 43 48 2e 20 31 20 35 0d 10 fe 1c |... *CH. 1 5....| 00002510 20 e3 20 53 4f 25 3d 31 30 30 30 20 b8 20 34 30 | . SO%=1000 . 40| 00002520 30 20 88 20 2d 32 30 30 0d 11 08 13 20 d4 20 31 |0 . -200.... . 1| 00002530 2c 2d 31 35 2c 53 4f 25 2c 31 30 0d 11 12 12 20 |,-15,SO%,10.... | 00002540 f2 64 65 6c 61 79 28 32 35 30 30 30 29 0d 11 1c |.delay(25000)...| 00002550 0a 20 ed 20 53 4f 25 0d 11 26 13 20 d4 20 31 2c |. . SO%..&. . 1,| 00002560 2d 31 35 2c 33 30 30 2c 32 30 0d 11 30 06 20 e1 |-15,300,20..0. .| 00002570 0d 11 3a 04 0d 11 44 0c 20 dd f2 57 69 6e 46 58 |..:...D. ..WinFX| 00002580 0d 11 4e 0d 20 2a 43 48 2e 20 31 20 32 0d 11 58 |..N. *CH. 1 2..X| 00002590 0d 20 2a 43 48 2e 20 32 20 32 0d 11 62 10 20 e3 |. *CH. 2 2..b. .| 000025a0 20 53 4f 25 3d 31 20 b8 20 35 0d 11 6c 13 20 d4 | SO%=1 . 5..l. .| 000025b0 20 31 2c 2d 31 35 2c 31 30 30 2c 31 30 0d 11 76 | 1,-15,100,10..v| 000025c0 13 20 d4 20 32 2c 2d 31 35 2c 31 31 30 2c 31 30 |. . 2,-15,110,10| 000025d0 0d 11 80 12 20 f2 64 65 6c 61 79 28 31 30 30 30 |.... .delay(1000| 000025e0 30 29 0d 11 8a 0a 20 ed 20 53 4f 25 0d 11 94 06 |0).... . SO%....| 000025f0 20 e1 0d 11 9e 04 0d 11 a8 0f 20 dd f2 47 61 6d | ......... ..Gam| 00002600 65 4f 76 65 72 0d 11 b2 0a 20 57 4e 25 3d 30 0d |eOver.... WN%=0.| 00002610 11 bc 20 20 e7 20 55 53 45 52 53 43 52 25 3e 43 |.. . USERSCR%>C| 00002620 4f 4d 50 53 43 52 25 20 8c 20 57 4e 25 3d 31 0d |OMPSCR% . WN%=1.| 00002630 11 c6 20 20 e7 20 55 53 45 52 53 43 52 25 3c 43 |.. . USERSCR%<C| 00002640 4f 4d 50 53 43 52 25 20 8c 20 57 4e 25 3d 30 0d |OMPSCR% . WN%=0.| 00002650 11 d0 04 0d 11 da 20 20 e7 20 55 53 45 52 53 43 |...... . USERSC| 00002660 52 25 3d 43 4f 4d 50 53 43 52 25 20 8c 20 57 4e |R%=COMPSCR% . WN| 00002670 25 3d 32 0d 11 e4 0d 20 52 4e 25 3d b3 28 35 29 |%=2.... RN%=.(5)| 00002680 0d 11 ee 6a 20 f2 50 6c 69 6e 74 68 28 31 30 33 |...j .Plinth(103| 00002690 34 2c 37 38 36 2c 32 31 34 2c 32 31 30 2c 31 30 |4,786,214,210,10| 000026a0 2c 31 2c 42 4c 4b 43 4f 4c 31 25 28 52 4e 25 29 |,1,BLKCOL1%(RN%)| 000026b0 2c 42 4c 4b 43 4f 4c 32 25 28 52 4e 25 29 2c 42 |,BLKCOL2%(RN%),B| 000026c0 4c 4b 43 4f 4c 33 25 28 52 4e 25 20 29 2c 42 4c |LKCOL3%(RN% ),BL| 000026d0 4b 43 4f 4c 34 25 28 52 4e 25 29 2c 42 4c 4b 43 |KCOL4%(RN%),BLKC| 000026e0 4f 4c 35 25 28 52 4e 25 29 29 0d 11 f8 33 20 f2 |OL5%(RN%))...3 .| 000026f0 44 6f 69 74 28 31 30 33 34 2c 39 30 35 2c 32 31 |Doit(1034,905,21| 00002700 34 2c 32 31 30 2c 22 89 20 50 52 45 53 53 20 88 |4,210,". PRESS .| 00002710 22 2c 31 30 2c 31 2c 31 2c 52 4e 25 29 0d 12 02 |",10,1,1,RN%)...| 00002720 31 20 f2 44 6f 69 74 28 31 30 33 34 2c 38 35 35 |1 .Doit(1034,855| 00002730 2c 32 31 34 2c 32 31 30 2c 22 89 20 41 4e 59 20 |,214,210,". ANY | 00002740 88 22 2c 31 30 2c 31 2c 31 2c 52 4e 25 29 0d 12 |.",10,1,1,RN%)..| 00002750 0c 31 20 f2 44 6f 69 74 28 31 30 33 34 2c 38 30 |.1 .Doit(1034,80| 00002760 35 2c 32 31 34 2c 32 31 30 2c 22 89 20 4b 45 59 |5,214,210,". KEY| 00002770 20 88 22 2c 31 30 2c 31 2c 31 2c 52 4e 25 29 0d | .",10,1,1,RN%).| 00002780 12 16 04 0d 12 20 0d 20 52 4e 25 3d b3 28 35 29 |..... . RN%=.(5)| 00002790 0d 12 2a 68 20 f2 50 6c 69 6e 74 68 28 33 36 30 |..*h .Plinth(360| 000027a0 2c 37 38 36 2c 32 31 30 2c 32 31 30 2c 31 30 2c |,786,210,210,10,| 000027b0 31 2c 42 4c 4b 43 4f 4c 31 25 28 52 4e 25 29 2c |1,BLKCOL1%(RN%),| 000027c0 42 4c 4b 43 4f 4c 32 25 28 52 4e 25 29 2c 42 4c |BLKCOL2%(RN%),BL| 000027d0 4b 43 4f 4c 33 25 28 52 4e 25 29 2c 42 4c 4b 43 |KCOL3%(RN%),BLKC| 000027e0 4f 4c 34 25 28 52 4e 25 29 2c 42 4c 4b 43 4f 4c |OL4%(RN%),BLKCOL| 000027f0 35 25 28 52 4e 25 29 29 0d 12 34 04 0d 12 3e 32 |5%(RN%))..4...>2| 00002800 20 f2 44 6f 69 74 28 33 36 30 2c 38 38 30 2c 32 | .Doit(360,880,2| 00002810 31 30 2c 32 31 30 2c 22 47 41 4d 45 20 4f 56 45 |10,210,"GAME OVE| 00002820 52 22 2c 31 30 2c 31 2c 31 2c 52 4e 25 29 0d 12 |R",10,1,1,RN%)..| 00002830 48 0e 20 e7 20 57 4e 25 3d 30 20 8c 0d 12 52 04 |H. . WN%=0 ...R.| 00002840 0d 12 5c 32 20 f2 44 6f 69 74 28 33 36 30 2c 38 |..\2 .Doit(360,8| 00002850 33 30 2c 32 31 30 2c 32 31 30 2c 22 89 20 49 20 |30,210,210,". I | 00002860 57 49 4e 20 88 22 2c 31 30 2c 31 2c 31 2c 52 4e |WIN .",10,1,1,RN| 00002870 25 29 0d 12 66 0c 20 f2 4c 6f 73 65 46 58 0d 12 |%)..f. .LoseFX..| 00002880 70 06 20 cd 0d 12 7a 0e 20 e7 20 57 4e 25 3d 31 |p. ...z. . WN%=1| 00002890 20 8c 0d 12 84 34 20 f2 44 6f 69 74 28 33 36 30 | ....4 .Doit(360| 000028a0 2c 38 33 30 2c 32 31 30 2c 32 31 30 2c 22 89 20 |,830,210,210,". | 000028b0 59 4f 55 20 57 49 4e 20 88 22 2c 31 30 2c 31 2c |YOU WIN .",10,1,| 000028c0 31 2c 52 4e 25 29 0d 12 8e 0b 20 f2 57 69 6e 46 |1,RN%).... .WinF| 000028d0 58 0d 12 98 06 20 cd 0d 12 a2 04 0d 12 ac 0e 20 |X.... ......... | 000028e0 e7 20 57 4e 25 3d 32 20 8c 0d 12 b6 31 20 f2 44 |. WN%=2 ....1 .D| 000028f0 6f 69 74 28 33 36 30 2c 38 33 30 2c 32 31 30 2c |oit(360,830,210,| 00002900 32 31 30 2c 22 89 20 44 52 41 57 20 88 22 2c 31 |210,". DRAW .",1| 00002910 30 2c 31 2c 31 2c 52 4e 25 29 0d 12 c0 14 20 d4 |0,1,1,RN%).... .| 00002920 20 32 2c 2d 31 35 2c 31 30 30 30 2c 35 30 0d 12 | 2,-15,1000,50..| 00002930 ca 06 20 cd 0d 12 d4 0d 20 2a 46 58 20 32 31 2c |.. ..... *FX 21,| 00002940 30 0d 12 de 09 20 41 24 3d be 0d 12 e8 11 20 d4 |0.... A$=..... .| 00002950 20 32 2c 2d 31 35 2c 31 30 2c 32 0d 12 f2 06 20 | 2,-15,10,2.... | 00002960 f9 0d 12 fc 06 20 e1 0d 13 06 04 0d 13 10 30 20 |..... ........0 | 00002970 dd f2 44 6f 69 74 28 58 31 25 2c 59 31 25 2c 4c |..Doit(X1%,Y1%,L| 00002980 45 25 2c 48 45 25 2c 54 24 2c 42 44 52 25 2c 4f |E%,HE%,T$,BDR%,O| 00002990 50 25 2c 46 4c 25 2c 44 43 25 29 0d 13 1a 2e 20 |P%,FL%,DC%).... | 000029a0 f4 20 2a 20 4f 50 25 3d 30 20 49 46 20 4e 4f 54 |. * OP%=0 IF NOT| 000029b0 20 43 48 4f 53 45 4e 20 49 45 20 53 48 4f 57 4e | CHOSEN IE SHOWN| 000029c0 20 49 4e 20 42 2f 57 20 2a 0d 13 24 32 20 f4 20 | IN B/W *..$2 . | 000029d0 2a 20 46 4c 25 3d 31 20 49 46 20 44 4f 4e 54 20 |* FL%=1 IF DONT | 000029e0 57 41 4e 54 20 54 4f 20 44 52 41 57 20 50 4c 49 |WANT TO DRAW PLI| 000029f0 4e 54 48 20 41 47 41 49 4e 20 2a 0d 13 2e 75 20 |NTH AGAIN *...u | 00002a00 e7 20 46 4c 25 3c 3e 31 20 8c 20 f2 50 6c 69 6e |. FL%<>1 . .Plin| 00002a10 74 68 28 58 31 25 2c 59 31 25 2c 4c 45 25 2c 48 |th(X1%,Y1%,LE%,H| 00002a20 45 25 2c 38 2c 42 44 52 25 2c 42 4c 4b 43 4f 4c |E%,8,BDR%,BLKCOL| 00002a30 31 25 28 44 43 25 29 2c 42 4c 4b 43 4f 4c 32 25 |1%(DC%),BLKCOL2%| 00002a40 28 44 43 25 29 2c 42 4c 4b 43 4f 4c 33 25 28 44 |(DC%),BLKCOL3%(D| 00002a50 43 25 29 2c 42 4c 4b 43 4f 4c 34 25 28 44 43 25 |C%),BLKCOL4%(DC%| 00002a60 29 2c 42 4c 4b 43 4f 4c 35 25 28 44 43 25 29 29 |),BLKCOL5%(DC%))| 00002a70 0d 13 38 11 20 53 5a 25 3d a9 28 54 24 29 2a 31 |..8. SZ%=.(T$)*1| 00002a80 36 0d 13 42 15 20 58 54 41 25 3d 28 4c 45 25 2d |6..B. XTA%=(LE%-| 00002a90 53 5a 25 29 2f 32 0d 13 4c 0e 20 e7 20 4f 50 25 |SZ%)/2..L. . OP%| 00002aa0 3d 30 20 8c 0d 13 56 19 20 e6 20 42 4c 4b 43 4f |=0 ...V. . BLKCO| 00002ab0 4c 33 25 28 44 43 25 29 20 c8 9c 20 30 0d 13 60 |L3%(DC%) .. 0..`| 00002ac0 18 20 ec 20 58 31 25 2b 58 54 41 25 2c 59 31 25 |. . X1%+XTA%,Y1%| 00002ad0 2b 34 32 2d 38 0d 13 6a 09 20 f1 20 54 24 0d 13 |+42-8..j. . T$..| 00002ae0 74 10 20 e6 20 36 33 20 c8 9c 20 32 35 35 0d 13 |t. . 63 .. 255..| 00002af0 7e 18 20 ec 20 58 31 25 2b 58 54 41 25 2b 34 2c |~. . X1%+XTA%+4,| 00002b00 59 31 25 2b 34 34 0d 13 88 09 20 f1 20 54 24 0d |Y1%+44.... . T$.| 00002b10 13 92 06 20 cc 0d 13 9c 19 20 e6 20 42 4c 4b 43 |... ..... . BLKC| 00002b20 4f 4c 33 25 28 44 43 25 29 20 c8 9c 20 30 0d 13 |OL3%(DC%) .. 0..| 00002b30 a6 18 20 ec 20 58 31 25 2b 58 54 41 25 2c 59 31 |.. . X1%+XTA%,Y1| 00002b40 25 2b 34 32 2d 38 0d 13 b0 09 20 f1 20 54 24 0d |%+42-8.... . T$.| 00002b50 13 ba 10 20 e6 20 36 33 20 c8 9c 20 32 35 35 0d |... . 63 .. 255.| 00002b60 13 c4 18 20 ec 20 58 31 25 2b 58 54 41 25 2b 34 |... . X1%+XTA%+4| 00002b70 2c 59 31 25 2b 34 34 0d 13 ce 09 20 f1 20 54 24 |,Y1%+44.... . T$| 00002b80 0d 13 d8 06 20 cd 0d 13 e2 06 20 e1 0d 13 ec 04 |.... ..... .....| 00002b90 0d 13 f6 0e 20 dd f2 47 6f 28 57 54 25 29 0d 14 |.... ..Go(WT%)..| 00002ba0 00 0e 20 ec 20 34 35 32 2c 33 34 36 0d 14 0a 0e |.. . 452,346....| 00002bb0 20 ec 20 37 35 32 2c 34 34 36 0d 14 14 0d 20 2a | . 752,446.... *| 00002bc0 53 47 45 54 20 57 54 0d 14 1e 10 20 2a 53 43 48 |SGET WT.... *SCH| 00002bd0 4f 4f 53 45 20 57 54 0d 14 28 0e 20 57 54 52 25 |OOSE WT..(. WTR%| 00002be0 3d b3 28 35 29 0d 14 32 2a 20 f2 44 6f 69 74 28 |=.(5)..2* .Doit(| 00002bf0 34 35 32 2c 33 34 36 2c 33 30 30 2c 31 30 30 2c |452,346,300,100,| 00002c00 22 22 2c 31 30 2c 31 2c 30 2c 57 54 52 25 29 0d |"",10,1,0,WTR%).| 00002c10 14 3c 0e 20 e7 20 57 54 25 3d 31 20 8c 0d 14 46 |.<. . WT%=1 ...F| 00002c20 35 20 f2 44 6f 69 74 28 34 35 32 2c 33 36 36 2c |5 .Doit(452,366,| 00002c30 33 30 30 2c 31 30 30 2c 22 84 20 4d 59 20 54 55 |300,100,". MY TU| 00002c40 52 4e 20 84 22 2c 31 30 2c 31 2c 31 2c 57 54 52 |RN .",10,1,1,WTR| 00002c50 25 29 0d 14 50 06 20 cc 0d 14 5a 37 20 f2 44 6f |%)..P. ...Z7 .Do| 00002c60 69 74 28 34 35 32 2c 33 36 36 2c 33 30 30 2c 31 |it(452,366,300,1| 00002c70 30 30 2c 22 84 20 59 4f 55 52 20 54 55 52 4e 20 |00,". YOUR TURN | 00002c80 84 22 2c 31 30 2c 31 2c 31 2c 57 54 52 25 29 0d |.",10,1,1,WTR%).| 00002c90 14 64 06 20 cd 0d 14 6e 12 20 f2 64 65 6c 61 79 |.d. ...n. .delay| 00002ca0 28 32 30 30 30 30 29 0d 14 78 12 20 f0 20 26 45 |(20000)..x. . &E| 00002cb0 44 2c 34 35 32 2c 33 34 36 0d 14 82 06 20 e1 0d |D,452,346.... ..| 00002cc0 ff |.| 00002cc1
.