1000 'RoboRat 06-26-03                          (C) Copyright
1010 GOTO 1200 'Begin                           WhizWare, 2003
1020    SAVE "RoboRat":LIST-1200
1030 ON I GOTO 1020,1030,2430            'Rem for QB
1040 GOTO 1800 'Mask scr layout
1050 GOTO 2340 'Mset init Mouse
1060 GOTO 2410 'Mick CALL Mouse
1070 GOTO 2460 'GetM Mick or key
1080 GOTO 2590 'Time disp
1090 GOTO 2620 'Dlay for .5 sec
1100 GOTO 2650 'Next game/level
1110 GOTO 2830 'Show board & pix
1120 GOTO 2920 'Dem? button disp
1130 GOTO 3000 'Pick
1140 GOTO 3170   'Demo solution
1150 GOTO 3250   'Move Robo
1160 GOTO 3400     'High score?
1170 GOTO 3680       'Type name
1180 GOTO 3940   'Help & snd On/Off
1190 GOTO 4160   'Wins top10/clear
1200 DEFSTR M-Z:DEFINT C-L,X-Z:KEY OFF   'Begin
1210  RANDOMIZE TIMER:SCREEN 9:CLS  '640x350
1220  FOR I=1 TO 10:KEY I,"":NEXT:PLAY "MBT250L9"
1230  C=0:D=0:E=0:G=0:K=0:L=0:X=0:Y=0:B=0 'locals
1240  IT=1:XD=0:YD=0:XL=0:YL=0 'IndxTrack:XDisp:YDisp:XLen:YLen
1250  GM=0:GX=POINT(0):GY=POINT(1):CP=0 'GetMick:ColorPt
1260  DM=1:IS=1 'DoMenu:IfSound
1270  C0=0:C1=0:C2=0:C3=0 'end/level/bites/score
1280  DP=0:IT=1 'DirPtr:IndxTrack
1290  PG=SPACE$(60):PD=PG:PX=PG:PY=PG 'PosGame:PDemo:PlotX:PlotY on grid
1300  QB=SPACE$(70):Q2=MKI$(0):PI=SPACE$(13) 'PlayerID
1310  T1=TIME$:T2=T1:LSET T2="":PF="RoboRat.INI"
1320  DIM W(10) 'Winners
1330   W(0)="-1      Robo Rat File                   "
1340   W(1)=" 1    0 .............  mm-dd-yy hh:mm:ss"
1350    FOR I=2 TO 10:W(I)=W(1):NEXT
1360    FOR I=1 TO 10:RSET QB=STR$(I):MID$(W(I),1)=RIGHT$(QB,2):NEXT
1370  OPEN PF AS 1 LEN=42:FIELD 1,40 AS WF,2 AS WC:I=LOF(1)
1380    WHILE I=0:LSET WF=W(0):LSET WC=MKI$(2573):PUT 1
1390     FOR I=1 TO 10:LSET WF=W(I):PUT 1:NEXT:WEND
1400    GET 1,1:IS=ASC(MID$(WF,2))-48
1410     FOR I=1 TO 10:GET 1:LSET W(I)=WF:NEXT:CLOSE:RESET
1420  DIM T(29) 'Tracks
1430  ' A G M S Y
1440  ' B H N T Z
1450  ' C I O U [
1460  ' D J P V \
1470  ' E K Q W ]
1480  ' F L R X ^
1490   T(0)="FXVTNPD\Y":T(10)="BAGKQRXTN":T(20)="NZ^RPDBHL"
1500   T(1)="YMOCUWKLG":T(11)="^FEQO[YAC":T(21)="QNZ]KGL^Y"
1510   T(2)="CEAMR^[UI":T(12)="NTVJGY^RQ":T(22)="WKLXSGICF"
1520   T(3)="^LKWTZBFA":T(13)="E]ZBAGILX":T(23)="^FCASWQNZ"
1530   T(4)="OQMAD\]EF":T(14)="YGICFRQO[":T(24)="JL^ZTSADP"
1540   T(5)="WE]ZBASXR":T(15)="RMAC[YSWK":T(25)="HKWSXRPDA"
1550   T(6)="QOMACEWXL":T(16)="WUIKEAY^L":T(26)="[CAFRP\Z^"
1560   T(7)="HBAFXSGJP":T(17)="CFRPJGY[^":T(27)="LJVXSAF^Y"
1570   T(8)="MGY^LHTWQ":T(18)="YABTW]EC[":T(28)="CIGMP\ZTX"
1580   T(9)="EFAGHZ\PR":T(19)="SUCEQMGL^":T(29)="TBZ\JLXSA"
1590  DIM G(24) 'Mickey interface
1600   G(0)=&H8EB:G(1)=3:G(5)=&H8957:G(6)=&H8BE7:G(7)=&HFE7D:G(8)=&H458B
1610   G(9)=&H8B02:G(10)=&H45D:G(11)=&H4D8B:G(12)=&H8B06:G(13)=&H855
1620   G(14)=&H33CD:G(15)=&H5D89:G(16)=&H8904:G(17)=&H64D:G(18)=&H5589
1630   G(19)=&H5F08:G(20)=&HCB
1640  DIM D(1130),C(1130),H(220),K(400),F(30) 'Rat Data/Copy/Hack/Kurs/Flip
1650  GOSUB 1040 'Mask
1660  GX=604:GY=208:GOSUB 1050:DM=5 'Mset
1670  WHILE DM-8 '   **************************************   mainline
1680   IF DM=5 THEN GOSUB 1100:DM=0 'Next
1690   IF DM-9 THEN IF INSTR(PG," ")=2 THEN GOSUB 1100:DM=0 'Next
1700   IF DM=0 THEN GOSUB 1110:DM=1 'Show
1710   LOCATE  6,71:PRINT USING "#####";C1; 'level
1720   LOCATE  9,71:PRINT USING "#####";C2; 'bytes
1730   LOCATE 12,71:PRINT USING "#####";C3; 'score
1740   GOSUB 1130 'Pick
1750  WEND '   ********************************************   end main
1760  CLS:MID$(W(0),2)=HEX$(IS) 'sound flag
1770  OPEN PF AS 1 LEN=42:FIELD 1,40 AS WF,2 AS WC:GET 1,1 '10 scores
1780   FOR I=0 TO 10:LSET WF=W(I):PUT 1,I+1:NEXT:CLOSE:RESET
1790  END
1800 'Mask
1810  FOR I=0 TO 1127:READ D(I):NEXT:XL=D(0)-1:YL=D(1)-1  'Draw Rat Copy
1820   I=100:PUT(I,0),D:C=I-4
1830   FOR X=0 TO XL:FOR Y=0 TO YL:PSET(C,Y),POINT(X+I,Y):NEXT:C=C-1:NEXT
1840    GET(0,0)-STEP(XL,YL),C
1850  C=6:E=14:X=90                                       'Draw Cheese
1860   CIRCLE(X,X),30,C,-3.14,-3.68:CIRCLE(X,106),30,C,3.14,-3.68
1870   LINE(59,X)-STEP(0,15),C:LINE(X,X)-STEP(0,15),C:LINE(64,101)-STEP(0,14),C
1880   PAINT(63,92),E,C:PAINT(62,107),E,C:PAINT(68,107),E,C
1890    GET(60,X)-STEP(XL-64,YL-20),H
1900  CLS:PAINT(0,0),2:COLOR 9                                'legends
1910  LOCATE 2,69:PRINT " Robo Rat ";                           'Robo
1920   GET(544,14)-STEP(79,12),K:PUT(544,14),K,PRESET
1930  LOCATE 5,69:PRINT "  LEVEL   ";                           'Level
1940   GET(544,56)-STEP(60,12),K:PUT(549,56),K,PSET
1950   GET(544,56)-STEP(79,12),K:PUT(544,56),K,PRESET
1960  LOCATE 8,69:PRINT "  BITES   ";                           'Bites
1970   GET(544,98)-STEP(60,12),K:PUT(549,98),K,PSET
1980   GET(544,98)-STEP(79,12),K:PUT(544,98),K,PRESET
1990  LOCATE 11,69:PRINT "  SCORE   ";                          'Score
2000   GET(544,140)-STEP(60,12),K:PUT(549,140),K,PSET
2010   GET(544,140)-STEP(79,12),K:PUT(544,140),K,PRESET
2020  B=.33:D=37                                              'buttons
2030  C=14:CIRCLE(580,202),D,C,,,B:PAINT(580,202),C,C:COLOR 6   'New
2040   LOCATE 15,72:PRINT "New";
2050   LINE(568,208)-STEP(7,0),6:GET(568,196)-STEP(23,12),K
2060   LOCATE 15,72:PRINT "   ":PAINT(580,202),C,C:PUT(570,196),K,XOR
2070    CIRCLE(580,202),D,0,,,B:COLOR 15
2080  C=9:CIRCLE(580,244),D,C,,,B:PAINT(580,244),C,C            'Help
2090   LOCATE 18,71:PRINT "Help";
2100   LINE(560,250)-STEP(7,0),15:GET(560,238)-STEP(30,12),K
2110   LOCATE 18,71:PRINT "    ":PAINT(580,244),C,C:PUT(566,238),K,OR
2120    CIRCLE(580,244),D,0,,,B
2130  C=8:CIRCLE(580,287),D,C,,,B:PAINT(580,286),C,C            'Winners
2140   LOCATE 21,70:PRINT "Winners";
2150   LINE(552,292)-STEP(7,0),15:GET(552,280)-STEP(56,12),K
2160   LOCATE 21,70:PRINT "       ";:PAINT(580,287),C,C:PUT(553,280),K,OR
2170    CIRCLE(580,287),D,0,,,B
2180  C=4:CIRCLE(580,328),D,C,,,B:PAINT(580,328),C,C            'Exit
2190   LOCATE 24,71:PRINT "Exit";
2200   LINE(560,334)-STEP(7,0),15:GET(560,322)-STEP(30,12),K
2210   LOCATE 24,71:PRINT "    ";:PAINT(580,328),C,C:PUT(566,322),K,OR
2220    CIRCLE(580,328),D,0,,,B
2230  FOR X=230 TO 302 STEP 24:LINE(X,330)-STEP(18,14),6,BF:NEXT 'arrows
2240   PSET(234,337),15:DRAW "NE4NF4R10" 'L
2250   PSET(263,342),15:DRAW "NH5NE5U10" 'U
2260   PSET(287,332),15:DRAW "NG5NF5D10" 'D
2270   PSET(316,337),15:DRAW "NG4NH4L10" 'R
2280  COLOR 7:LOCATE 3,69:PRINT " ";T1;" ";:LOCATE 6,69:PRINT "          ";
2290  C=1:LOCATE 9,69:PRINT "          ";:LOCATE 12,69:PRINT "          ";
2300  FOR X=24 TO 500 STEP 100:FOR Y=18 TO 300 STEP 50     'gen plot index
2310   MID$(PX,C)=MKI$(X):MID$(PY,C)=MKI$(Y):C=C+2
2320  NEXT:NEXT
2330  RETURN
2340 'Mset
2350  G(1)=0:GOSUB 1060 'Mick RST
2360  G(1)=26:G(2)=80:G(3)=80:G(4)=50:GOSUB 1060 'Mick Speed
2370  G(1)=1:GOSUB 1060 'Mick ON
2380  G(1)=4:G(3)=GX:G(4)=GY:GOSUB 1060 'Mick POS
2390  G(1)=2:GOSUB 1060:G(1)=3 'OFF
2400 RETURN
2410 'Mick
2420  GM=VARPTR(G(0))
2430  CALL GM:GOTO 2450             'GW
2440  CALL ABSOLUTE(GM)             'QB
2450 RETURN
2460 'GetM
2470  CP=0:LSET Q2=MKI$(0)
2480  WHILE CP=0:GOSUB 1080 'Time
2490   G(1)=1:GOSUB 1060:G(1)=3:GOSUB 1060:CP=G(2) 'Mick On:Stat
2500   IF CP THEN G(1)=3:WHILE G(2):GOSUB 1060:WEND 'Mick wait
2510   IF ASC(Q2)=0 THEN MID$(Q2,1)=INKEY$:IF CVI(Q2) THEN CP=-1
2520  WEND:GX=G(3):GY=G(4):IF ASC(Q2)=27 THEN GOSUB 1050:GOTO 2460 'Mset
2530  G(1)=2:GOSUB 1060:G(2)=1:CP=POINT(GX,GY) 'Mick Off
2532  IF CP=14 THEN IF GX<540 THEN 2460
2540  IF ASC(Q2)=0 THEN 2580
2550  I=INSTR("NHWEDSCR",LEFT$(Q2,1))+INSTR("nhwedscr",LEFT$(Q2,1))
2560  IF I THEN CP=ASC(MID$("610,5777",I))-40:LSET Q2=MKI$(0) '14/9/8/4/13/15
2570  IF I=8 THEN GX=350 ELSE IF I>5 THEN GX=200 ELSE IF I=3 THEN GY=300
2580 RETURN
2590 'Time
2600  LSET T1=TIME$:IF T1<>T2 THEN LOCATE 3,70:PRINT T1;:LSET T2=T1
2610 RETURN
2620 'Dlay
2630  FOR I=1 TO 10:B=TIMER*10:WHILE B=TIMER*10:WEND:NEXT
2640 RETURN
2650 'Next
2660  LOCATE  9,71:PRINT USING "#####";C2; 'bytes
2670  LOCATE 12,71:PRINT USING "#####";C3; 'score
2680  IF C1=20 THEN C0=1:C1=21:GOSUB 1160:GOSUB 1120:GOTO 2820 'High:dem?
2690  IF DM=5 THEN C0=0:C1=0:C2=0:C3=0 'end/level/bites/score
2700  C1=C1+1:IF IS THEN PLAY "N23N22N23"
2710  IT=VAL(RIGHT$(T1,2)):E=IT>29:IF E THEN IT=IT-30
2720  LSET PG=T(IT):LSET PD=PG:IF E=0 THEN 2750
2730  FOR I=1 TO 9:C=INSTR("FEDCBALKJIHGRQPONMXWVUTS^]\[ZY",MID$(PG,I,1))
2740   MID$(PG,I)=CHR$(C+64):NEXT:LSET PD=PG
2750 LINE(16,10)-STEP(511,314),0,BF 'clear grid area
2760  IF C1=1 THEN 2820
2770  LSET QB="Yeah! Level":MID$(QB,INSTR(QB,"  "))=STR$(C1)
2780  MID$(QB,INSTR(QB,"  ")+1)="coming up...":COLOR 14
2790  LOCATE 12,22:PRINT LEFT$(QB,INSTR(QB,"  "));:COLOR 7
2800  FOR DM=1 TO 4:GOSUB 1090:NEXT:DM=0 'Dlay
2810  LINE(16,10)-STEP(511,314),0,BF 'clear grid area
2820 RETURN
2830 'Show
2840  C=ASC(PG):L=(C-64)*2-1:XD=CVI(MID$(PX,L)):YD=CVI(MID$(PY,L))
2850  D=INSTR("ABCDEF",CHR$(C)):E=INSTR("YZ[\]^",CHR$(C))
2860  IF D THEN DP=1 ELSE IF E THEN DP=0
2870  IF DP THEN PUT(XD,YD),C,PSET ELSE PUT(XD,YD),D,PSET
2880  FOR I=2 TO INSTR(PG," ")-1:C=ASC(MID$(PG,I))-64
2890   L=C*2-1:X=CVI(MID$(PX,L)):Y=CVI(MID$(PY,L)):PUT(X+30,Y+12),H,PSET
2900  NEXT
2910 RETURN
2920 'Dem?
2930  IF C0=1 THEN IF IS THEN FOR I=390 TO 260 STEP-10:SOUND I,1:NEXT
2940  LINE(16,10)-STEP(511,314),0,BF         'clear grid area
2950  LOCATE 13,33:PRINT "Demo?"
2960  LINE(255,180)-STEP(7,0),7:GET(255,168)-STEP(40,13),K
2970  LOCATE 13,33:PRINT "     ":CIRCLE(275,175),37,13,,,.33
2980  PAINT(273,175),13,13:PUT(255,168),K,OR:DM=9:C0=2
2990 RETURN
3000 'Pick
3010  GOSUB 1070:IF CVI(Q2)*C0 THEN 3010 'GetM
3020  I=INSTR("KMHP",RIGHT$(Q2,1)):IF I THEN 3120 'l/r/u/d
3030  C=0:WHILE CP=15:GX=GX-1:CP=POINT(GX,GY):WEND 'hi wht
3040  IF (CP=6)*C0 THEN 3120
3050  WHILE CP=6:I=2:CP=99
3060   IF GX<253 THEN I=1 ELSE IF GX<278 THEN I=4 ELSE IF GX<301 THEN I=3
3070  WEND:IF CP=99 THEN 3120
3080  IF CP=13 THEN GOSUB 1140:GOTO 3000 'demo
3090  IF CP=8 AND GY<275 THEN CP=14 'gray
3100  IF CP=14 THEN I=5 ELSE IF CP=9 THEN I=6 'new/help
3110  IF CP=8 THEN I=7 ELSE IF CP=4 THEN I=8 'wnrs/exit
3120 IF I THEN DM=I ELSE IF IS=0 THEN 3000 ELSE PLAY "N30N10":GOTO 3000 'oops
3130  IF DM<5 THEN GOSUB 1150:GOTO 3160 'move
3140  IF DM=6 THEN GOSUB 1180:GOTO 3000 'opts
3150  IF DM=7 THEN GOSUB 1190:GOTO 3000 'wins
3160 RETURN
3170 'Demo
3180  LINE(16,10)-STEP(511,314),0,BF 'clear
3190  LSET PG=PD:GOSUB 1110 'Show
3200  WHILE MID$(PG,2,1)>" ":GOSUB 1080 'Time
3210   GOSUB 1090:GOSUB 1090 'Dlay
3220   LINE(XD,YD)-STEP(XL,YL),0,BF:LSET PG=MID$(PG,2):GOSUB 1110 'Show
3230  WEND:GOSUB 1090:GOSUB 1090:GOSUB 1120 'Dlay:Dem?
3240 RETURN
3250 'Move
3260  CP=ASC(PG):ON DM GOTO 3270,3290,3310,3330
3270 IF INSTR("ABCDEF",CHR$(CP)) THEN 3350      'l
3280  CP=CP-6:IF INSTR(PG,CHR$(CP)) THEN 3360 ELSE 3270
3290 IF INSTR("YZ[\]^",CHR$(CP)) THEN 3350      'r
3300  CP=CP+6:IF INSTR(PG,CHR$(CP)) THEN 3360 ELSE 3290
3310 IF INSTR("AGMSY",CHR$(CP)) THEN 3350       'u
3320  CP=CP-1:IF INSTR(PG,CHR$(CP)) THEN 3360 ELSE 3310
3330 IF INSTR("FLRX^",CHR$(CP)) THEN 3350       'd
3340  CP=CP+1:IF INSTR(PG,CHR$(CP)) THEN 3360 ELSE 3330
3350 C0=1:GOSUB 1160:GOSUB 1120:GOTO 3390 'High:Dem?
3360 C2=C2+1:C3=(C1*10)*C2:IF IS THEN PLAY "N17N37"   'score
3370  I=INSTR(PG,CHR$(CP)):MID$(PG,I)=MID$(PG,I+1,99) 'make move
3380  MID$(PG,1)=CHR$(CP):LINE(XD,YD)-STEP(XL,YL),0,BF:GOSUB 1110 'Show
3390 RETURN
3400 'High
3410  I=10:E=0:WHILE C3=>VAL(MID$(W(I),3,5)) AND I>1:I=I-1:E=1:WEND
3420  IF E THEN CP=I:C0=2 ELSE 3670                      'top10 test
3430   LOCATE  9,71:PRINT USING "#####";C2; 'bytes
3440   LOCATE 12,71:PRINT USING "#####";C3; 'score
3450  FOR E=10 TO I+1 STEP-1:LSET W(E)=W(E-1):NEXT       'shift list
3460  LINE(16,10)-STEP(511,314),0,BF:IF C1<21 THEN 3530  'clear grid
3470  IF IS THEN FOR I=400 TO 600 STEP 10:SOUND I,1:NEXT 'siren
3480   LOCATE 9,29:COLOR 14:PRINT "MAXED ME OUT!":COLOR 7
3490  IF IS THEN FOR I=600 TO 400 STEP-10:SOUND I,1:NEXT
3500   X=230:Y=60:PUT(X,Y),D:L=Y+YL                      'flip
3510   FOR I=0 TO YL/2:GET(X,I+Y)-STEP(XL,0),K:GET(X,L)-STEP(XL,0),F
3520    PUT(X,I+Y),F,PSET:PUT(X,L),K,PSET:L=L-1:NEXT
3530 CIRCLE(277,175),97,13,,,.33:PAINT(277,175),13,13    'input area
3540  LOCATE 12,31:PRINT "Your name?":GET(240,154)-STEP(79,13),K
3550  LOCATE 12,33:PRINT "          ":PAINT(277,162),13,13
3560  PUT(238,152),K,OR:LOCATE 13,28:PRINT " ";PI;" ";
3570  IF IS AND C1<21 THEN FOR I=390 TO 260 STEP-10:SOUND I,1:NEXT 'sound
3580   LOCATE 13,29:GOSUB 1170:LSET PI=QB 'Type=pid
3590  I=CP:MID$(W(I),9)=PI
3600  RSET QB=STR$(C3):MID$(W(I),3)=RIGHT$(QB,5)         'store score
3610  LSET QB=DATE$:MID$(QB,7)=MID$(QB,9):C1=0:C2=0:C3=0
3620  L=10:MID$(W(I),24)=LEFT$(QB,8):MID$(W(I),33)=T1    'date:time
3630  FOR E=-1 TO 0:FOR I=1 TO L-1:B=VAL(MID$(W(I),3,5)) 'sort
3640   IF VAL(MID$(W(I+1),3,5))>B THEN SWAP W(I),W(I+1):L=I
3650  NEXT:E=L<I:NEXT
3660  FOR E=1 TO 10:RSET QB=STR$(E):MID$(W(E),1)=RIGHT$(QB,2):NEXT 'fix
3670 RETURN
3680 'Type
3690 L=CSRLIN:C=POS(0):K=C:D=LEN(PI):G=D+C-1:I=3:GOTO 3880
3700 K=K+(K>G)-(K<C):LOCATE L,K:LSET Q2=MKI$(0)
3710  X=K*8-8:Y=L*14-13+I:GET(X,Y)-STEP(7,11-I),K:PUT(X,Y),K,PRESET 'curs on
3720  WHILE CVI(Q2)=0:MID$(Q2,1)=INKEY$
3730   IF CVI(Q2)=0 THEN GOSUB 1080:LOCATE L,K 'Time
3740  WEND:PUT(X,Y),K,PSET                                          'curs off
3750  IF ASC(Q2)=27 THEN 3930 ELSE IF ASC(Q2)<32 THEN 3790
3760  IF I THEN PRINT LEFT$(Q2,1);:K=K+1:GOTO 3700                  'print
3770   FOR I=G TO K STEP-1:LOCATE L,I:PRINT CHR$(SCREEN(L,I-1));:NEXT 'ins
3780   LOCATE L,K-(K<C):PRINT LEFT$(Q2,1);:K=K+1:I=0:GOTO 3700
3790 ON INSTR("MKSRGO",RIGHT$(Q2,1)) GOTO 3810,3820,3840,3860,3870,3880,3900
3800  IF ASC(Q2)=13 THEN 3900 ELSE IF ASC(Q2)=8 THEN 3830 ELSE 3700
3810 K=K+1:I=0:GOTO 3700                          'M=rht
3820 K=K-1:I=0:GOTO 3700                          'K=lft
3830 K=K+(K>C):LOCATE L,K                         '8=backsp
3840 FOR I=K+1 TO G:PRINT CHR$(SCREEN(L,I));:NEXT 'S=Del
3850  LOCATE L,G:PRINT " ";:I=0:GOTO 3700
3860 I=I XOR 3:GOTO 3700                          'R=Ins
3870 K=C:I=0:GOTO 3700                            'G=home
3880 K=G:WHILE SCREEN(L,K)=0 OR SCREEN(L,K)=32:K=K-1:WEND 'O=End
3890  K=K+1:I=0:GOTO 3700
3900 LSET QB="":FOR I=1 TO D:MID$(QB,I)=CHR$(SCREEN(L,I+C-1)):NEXT '13=Ent
3910  I=INSTR(QB,CHR$(0)):IF I THEN MID$(QB,I)=" ":GOTO 3910
3920  WHILE ASC(QB)=32 AND LEFT$(QB,D)>SPACE$(D):LSET QB=MID$(QB,2,D):WEND
3930 RETURN
3940 'Help
3950  LINE(68,62)-STEP(404,212),0,BF
3960  LINE(70,64)-STEP(400,208),12,BF:LINE(73,67)-STEP(394,202),0,BF
3970  LOCATE  6,11:PRINT "RoboRat by Tom McIntire  WhizWare@BellSouth.net"
3980  LOCATE  8,11:PRINT "  This program may be freely copied with my"
3990  LOCATE  9,11:PRINT "compliments. It was coded in GW-BASIC 3.23 then"
4000  LOCATE 10,11:PRINT "compiled with QB 2.0 for DOS or most Windows."
4010  LOCATE 11,11:PRINT "  Object is to score points by moving Robo to a"
4020  LOCATE 12,11:PRINT "bite of cheese. Points = 1 Bite x 10 x Level."
4030  LOCATE 13,11:PRINT "Game ends if Robo misses a bite and scoots off"
4040  LOCATE 14,11:PRINT "the board. To move, use arrow keys or click on"
4050  LOCATE 15,11:PRINT "those at bottom of screen."
4060  LOCATE 16,11:PRINT "        Good luck and have fun.  TM :-)"
4070  LOCATE 19,11:PRINT "  лл Set sound                      лл Resume";
4080  LINE(120,264)-STEP(7,0),7:LINE(392,264)-STEP(7,0),7 'u/l
4090  PAINT(99,260),15,0:PAINT(372,260),15,0
4100 LOCATE 19,26:IF IS THEN PRINT "OFF"; ELSE PRINT "ON ";
4110  GOSUB 2460:IF CP-15 THEN 4110 ELSE IF GX>460 THEN 4110 'GetM
4120  IF GX<300 THEN IS=IS XOR 1:GOTO 4100
4130  IF C0 THEN GOSUB 1120:GOTO 4150 'Dem?
4140   LINE(68,62)-STEP(404,212),0,BF:GOSUB 1110 'Show
4150 RETURN
4160 'Wins
4170  LINE(76,78)-STEP(388,208),0,BF
4180  LINE(78,80)-STEP(384,204),11,BF:LINE(83,83)-STEP(375,198),0,BF
4190  LOCATE 8,14:PRINT "Top 10 Robo Rat scores    date     time";
4200   FOR I=1 TO 10:LOCATE 8+I,14
4210    PRINT LEFT$(W(I),2);" ";MID$(W(I),3);:NEXT
4220  LOCATE 20,13:PRINT "лл Clear scores";:LOCATE 20,47:PRINT "лл Resume";
4230  LINE(120,279)-STEP(7,0),7:LINE(392,279)-STEP(7,0),7 'u/l
4240  PAINT(100,272),15,0:PAINT(376,272),15,0
4250  GOSUB 1070:IF CP-15 THEN 4250 ELSE IF GX>450 THEN 4250 'GetM
4260  IF GX>200 THEN 4290 ELSE MID$(W(1),3)="    0 .............  "
4270  MID$(W(1),24)="mm-dd-yy ":MID$(W(1),33)="hh:mm:ss "
4280  FOR I=2 TO 10:MID$(W(I),3)=MID$(W(1),3):NEXT:GOTO 4160
4290  IF C0 THEN GOSUB 1120:GOTO 4310 'Dem?
4300   LINE(76,78)-STEP(388,208),0,BF:GOSUB 1110 'Show
4310 RETURN
4320 DATA 96,47,,,,,,,,,,,,,,-1023,,-249,240,,,,,,,,,-1024,,-249,224,,,-1024
4330 DATA ,-249,224,,,-250,1792,-1,-32513,,,1,128,,,,,-249,1792,-1,-32513
4340 DATA ,,-249,1792,-1,-32513,,,-225,32576,-1,-3841,,,,128,,,,,-225,16320
4350 DATA -1,-3841,,,-225,16320,-1,-3841,,,-129,-26,-1,-769,,,,1,,,,,3966
4360 DATA -25,-1,-769,,,3966,-25,-1,-769,,1792,4094,-17,-1,-1,,,-4095,16
4370 DATA ,,,1792,-3204,-9,-1,-1,,1792,-3204,-9,-1,-1,,3840,-2178,-9,-1
4380 DATA -1,192,,2177,8,,,,3584,-773,-5,-1,-1,192,3584,-773,-5,-1,-1,192
4390 DATA 7680,-773,-1,-1,-1,224,256,772,,,,,7424,-257,-131,-1,-1,224,7424
4400 DATA -257,-131,-1,-1,224,15616,-257,-3,-1,-1,240,512,256,2,,,,7424
4410 DATA -1,-67,-1,-1,240,7424,-1,-67,-1,-1,240,15616,-1,-67,-1,-1,248
4420 DATA 512,,66,,,,15616,-1,-34,-1,-1,248,15616,-1,-34,-1,-1,248,32000
4430 DATA -1,-34,-1,-1,254,512,,33,,,,15616,-1,-18,-1,-1,254,15616,-1,-18
4440 DATA -1,-1,254,32000,-1,-18,-1,-1,255,512,,17,,,,15872,-129,-10,-1
4450 DATA -1,255,15872,-129,-10,-1,-1,255,32256,-129,-10,-1,-1,-32513,256
4460 DATA 128,9,,,,7936,-97,-10,-1,-1,-32513,7936,-97,-10,-1,-1,-32513,16128
4470 DATA -97,-10,-1,-1,-16129,,96,9,,,,1792,-17,-10,-1,-1,-16129,1792,-17
4480 DATA -10,-1,-1,-16129,7936,-17,-10,-1,-1,-7937,,16,9,,,,3840,-1,-10
4490 DATA -1,-1,-16129,3840,-1,-10,-1,-1,-16129,7936,-1,-10,-1,-1,-7937
4500 DATA ,,9,,,,7936,-1,-18,-1,-1,-7937,7936,-1,-18,-1,-1,-7937,16128,-1
4510 DATA -18,-1,-1,-3841,,,17,,,,16128,-1,-3,-769,-253,-7937,16128,-1,-3
4520 DATA -769,-253,-7937,32512,-1,-3,-769,-253,-3841,,,2,768,252,,32512
4530 DATA -1,-5,-3073,-3,-3841,32512,-1,-5,-3073,-3,-3841,-256,-1,-5,-3073
4540 DATA -3,-1793,,,4,3072,2,,-256,-1,-25,-12289,-1,-3841,-256,-1,-25,-12289
4550 DATA -1,-3841,-255,-1,-25,-12289,-1,-1793,,,24,12288,,,-255,-1,-97
4560 DATA -16385,-1,-3841,-255,-1,-97,-16385,-1,-3841,-253,-1,-97,-16385
4570 DATA -1,-1793,,,96,16384,,,-253,-769,-129,32767,-1,-1793,-253,-769
4580 DATA -129,32767,-1,-1793,-249,-769,-129,32767,-1,-769,,768,128,-32768
4590 DATA ,,-253,-1,-1,-2,-1,-1793,-253,-1,-1,-2,-1,-1793,-249,-1,-1,-2
4600 DATA -1,-769,,,,1,,,-505,-225,-1,-3,-1,-1793,-505,-225,-1,-3,-1,-1793
4610 DATA -241,-1,-1,-3,-1,-769,,,,2,,,-761,-49,-1,-5,-1,-1793,-761,-49
4620 DATA -1,-5,-1,-1793,-241,-1,-1,-5,-1,-769,,,,4,,,-753,-49,-1,-5,-1
4630 DATA -769,-753,-49,-1,-5,-1,-769,-225,-1,-1,-5,-1,-257,,,,4,,,-1009
4640 DATA -241,-1,-9,-1,-769,-1009,-241,-1,-9,-1,-769,-225,-1,-1,-9,-1,-257
4650 DATA ,,,8,,,-481,-225,-1,-9,-1,-769,-481,-225,-1,-9,-1,-769,-193,-1
4660 DATA -1,-9,-1,-257,,,,8,,,-225,-1,-1,-9,-1,-769,-225,-1,-1,-9,-1,-769
4670 DATA -193,-1,-1,-9,-1,-257,,,,8,,,-225,-1,-1,-9,-1,-769,-225,-1,-1
4680 DATA -9,-1,-769,-129,-1,-1,-9,-1,-257,,,,8,,,-193,-1,-1,-9,-1,-769
4690 DATA -193,-1,-1,-9,-1,-769,-129,-1,-1,-9,-1,-257,,,,8,,,-193,-1,-1
4700 DATA -9,-1,-769,-193,-1,-1,-9,-1,-769,-129,-1,-1,-9,-1,-257,,,,8,,
4710 DATA -193,-1,-1,-9,-1,-769,-193,-1,-1,-9,-1,-769,-129,-1,-1,-9,-1,-257
4720 DATA ,,,8,,,-129,-1,-1,-9,-1,-1793,-129,-1,-1,-9,-1,-1793,-1,-1,-1
4730 DATA -9,-1,-769,,,,8,,,-129,-1,-1,-5,-1,-1793,-129,-1,-1,-5,-1,-1793
4740 DATA -1,-1,-1,-5,-1,-769,,,,4,,,-129,-1,-1025,-3,-1,-9985,-129,-1,-1025
4750 DATA -3,-1,-9985,-1,-1,-1025,-3,-1,-769,,,1024,2,,,-641,-1,-513,-3
4760 DATA -1,-20225,-641,-1,-513,-3,-1,-20225,-513,-1,-513,-3,-1,-1793,512
4770 DATA ,512,2,,,-641,-1,-513,-2,-1,24830,-641,-1,-513,-2,-1,24830,-513
4780 DATA -1,-513,-2,-1,-3841,512,,512,1,,,-3209,-61,-513,32767,-1,-16135
4790 DATA -3209,-61,-513,32767,-1,-16135,-3073,-1,-513,32767,-1,-7937,3072
4800 DATA ,512,-32768,,,-6345,-128,-513,-16385,-1,-32525,-6345,-128,-513
4810 DATA -16385,-1,-32525,-6273,-61,-513,-16385,-1,-16129,6144,,512,16384
4820 DATA ,,-29177,16128,-1537,-8193,-1,207,-29177,16128,-1537,-8193,-1
4830 DATA 207,-12481,16257,-1537,-8193,-1,-32513,12288,-16384,1536,8192
4840 DATA ,,,-12544,-7937,-4225,-1,188,,-12544,-7937,-4225,-1,188,-29169
4850 DATA -12543,-1,-4097,-1,255,,12288,,4096,,,,-2304,8188,29440,-769,112
4860 DATA ,-2304,8188,29440,-769,112,,-2303,-3,29567,-1,252,,2048,2,-29568
4870 DATA ,,,-1280,-3085,7679,-15361,192,,-1280,-3085,7679,-15361,192,,-255
4880 DATA -1,24063,-1,240,,,,-24064,,,,-1279,224,-8185,16128,,,-1279,224
4890 DATA -8185,16128,,,-253,-3073,-1,-1,192,,,,,,,,-7677,15,32512,-3841
4900 DATA ,,-7677,15,32512,-3841,,,-3321,16639,-225,-1,128,,,-32768,,,,
4910 DATA -8185,240,-32737,,,,-8185,240,-32737,,,,-4081,-32513,-4033,-4095
4920 DATA ,,256,,3840,254,,,,,,,,,,,,,,,-15553,240,-30852,255,,,8192,,2051