100   ' MAZE MASTER›140   ' BY STEPHEN EVERMAN & PAUL PRATT›180   ' (c)1987, ANTIC PUBLISHING INC.›190   VIDEORAM=PEEK(1102)*65536+ABS(PEEK(1104))›195   A$= CHR$(0)+CHR$(0)+CHR$(0)+CHR$(0)›197   A=VARPTR(A$):A1=INT(A/65536):A2=A-(A1*65536)'used in copyform as pointer›210   CO=1:OFF=0:OON=1:NUM=1:MZON=OFF›220   FULLW 2:CLEARW 2:HANDLE=2:A#=GB:CONTROL=PEEK(A#)›240   GINTOUT=PEEK(A#+12):GINTIN=PEEK(A#+8)›260   RANDOMIZE 0:DIM MZ%(31,31),BK%(700,2),KOL%(16),BK2%(400,2)›280   RESTORE 5780:GOSUB KOLOR›285   GOTOXY 5,15:? CHR$(189);" 1987  PRATT & EVERMAN";CHR$(7);›320   COLOR 2,0,0,0:FOR X=0 TO 30:GOSUB POLYLINE:NEXT 'hide output box›340   RESTORE 5700:GOSUB PRSTRING›360   COLOR 2:GOTOXY 49,10:?"W     E":GOTOXY 52,9:?"N":GOTOXY 52,11:?"S"›380   COLOR 1:GOTOXY 48,13:?"TRACE  ON":GOTOXY 52,10›400   GOTOXY 38,15:?"MAKE   SHOW   PATH   RSET   QUIT"›420   COLOR 1,1,1,9:RESTORE 6780›440   FOR X=0 TO 3:READ A,B,C,D:LINEF A,B,C,D:NEXT›460   COLOR 1,3,3:FOR X=0 TO 27:READ A,B,C,D:LINEF A,B,C,D:NEXT›480   FILL 462,93›500   GOSUB DISPLAY.MAN 'poke top man into video ram›520   GOTOXY 5,15:?"WELCOME TO MAZE MASTER     ";:COLOR 2:? CHR$(3)›540   COLOR 1:GOTOXY 6,16:?"PLEASE CLICK ON MAKE"›560   MAIN:'***********************************************  ›580   WHILE FINI=OFF›600   GOSUB RAT:TI=TI+1›620   IF ABS(PEEK(1212))> 198 THEN POKE 1212,1 :S=S+1:IF S=60 THEN S=0:M=M+1›640   IF TIM=OON AND TI>20 THEN COLOR 3:GOTOXY 4,16:?" TIME:";S;"SEC ";M;"MIN "    :GOSUB SHOW:TI=0›660   IF MOU=1 AND  NOT(MX>436 AND MX<506 AND MY>102 AND MY<132) THEN GOSUB MAIN2›680   IF MX>434 AND MX<461 AND MY>111 AND MY<121 AND MOU=1 THEN GOSUB MOV.W›700   IF MX>461 AND MX<484 AND MY>102 AND MY<111 AND MOU=1 THEN GOSUB MOV.N›720   IF MX>483 AND MX<506 AND MY>112 AND MY<121 AND MOU=1 THEN GOSUB MOV.E›740   IF MX>460 AND MX<489 AND MY>122 AND MY<132 AND MOU=1 THEN GOSUB MOV.S›760   'GOTOXY 4,15:? MX,MY:GOSUB SHOW›780   WEND:END '*********************************************** 
 
›800   MAIN2: '****** used to unclutter main and speed up room movement›820   IF MX>497 AND MX<552 AND MY>154 AND MY<169 AND MOU=1 AND MZON=OON THEN GOSUB RE.SET:COL=SCOL:ROW=SROW:GOSUB OUTPUT:NMOVE=0:S=-1:M=0:TI=33›840   IF MOU=1 AND F1=1 AND MY>154 AND MY<169 AND MX>331 AND MX<387 THEN GOSUB     MAKE.MAZE›860   IF MOU=1 AND MY>154 AND MY<169 AND MX>387 AND MX<440 AND MZON=OON AND F1=1  THEN GOSUB ANSW›880   IF MOU=1 AND MY>154 AND MY<169 AND MX>441 AND MX<497 AND MZON=OON AND F1=1   THEN GOSUB PATH›900   IF MOU=1 AND F1=1 AND MY>137 AND MY<150 AND MX>410 AND MX<530 THEN COLOR 1:  GOSUB TRAC›920   IF MOU=1 AND MY>154 AND MY<170 AND MX>553 AND MX<670 THEN COLOR 1:FINI=OON›940   RETURN  '*******************************›960   COPY:'**********›980   X1=278:Y1=96:X2=404:Y2=150:OFX=130:OFY=-65›1000  GOSUB VRO.COPYFORM 'copy empty screen over man›1020  RETURN›1040  MOV.W:'************›1060  IF (MZ%(COL,ROW-1)AND 2)<>2 OR MZON=OFF  THEN RETURN›1100  GOSUB COPY:ROW=ROW-1:GOSUB OUTPUT›1120  X1=300:Y1=0:X2=332:Y2=18:OFX=208:OFY=50›1140  GOSUB VRO.COPYFORM 'copy top man down into direction window›1160  RETURN›1180  MOV.E:'************›1200  IF (MZ%(COL,ROW+1)AND 8)<>8 OR MZON=OFF  THEN RETURN›1240  GOSUB COPY:ROW=ROW+1:GOSUB OUTPUT›1260  X1=300:Y1=0:X2=332:Y2=18:OFX=112:OFY=50:GOSUB VRO.COPYFORM›1300  RETURN›1320  MOV.N:'************›1340  IF (MZ%(COL-1,ROW)AND 4)<>4 OR MZON=OFF THEN RETURN›1380  GOSUB COPY:COL=COL-1:GOSUB OUTPUT›1400  X1=300:Y1=0:X2=332:Y2=18:OFX=160:OFY=68:GOSUB VRO.COPYFORM›1440  RETURN›1460  MOV.S:'************›1480  IF (MZ%(COL+1,ROW)AND 1)<>1 OR MZON=OFF THEN RETURN›1520  GOSUB COPY:COL=COL+1:GOSUB OUTPUT›1540  X1=300:Y1=0:X2=332:Y2=18:OFX=160:OFY=32:GOSUB VRO.COPYFORM›1580  RETURN›1600  MAKE.MAZE: '***************›1620  GOSUB COPY:GOSUB CLEAN:GOSUB RE.SET:GOSUB GETSIZE:MZON=OON:GOSUB WORK›1660  FOR X=0 TO 31:FOR Y=0 TO 31:MZ%(X,Y)=16:NEXT:NEXT'out of bounds detector›1680  ROW=INT(RND*WID)+1:COL=1:SROW=ROW:SCOL=COL ' maze entrance›1700  BK%(NUM,1)=COL:BK%(NUM,2)=ROW 'bk% used as map of direct way through maze›1720  FOR X=1 TO HEI:FOR Y=1 TO WID:MZ%(X,Y)=0:NEXT:NEXT' clean out array›1740  MZ%(COL,ROW)=1'open entrance top wall›1760  WHILE COL<HEI'   loop one. find single way through maze array›1780  GOSUB DIRECT 'pick random direction›1820  BK%(NUM,1)=COL:BK%(NUM,2)=ROW›1840  IF MZ%(COL-1,ROW)<>0 AND MZ%(COL+1,ROW)<>0 AND MZ%(COL,ROW-1)<>0 AND        MZ%(COL,ROW+1)<>0 THEN GOSUB RETRACE 'if traped back up & find new path›1860  WEND ' 
   end loop one. now single path through maze contained in bk%›1880  ' ecol & erow = maze exit:opnum= optimum # of moves from start to exit›1900  ECOL=COL:EROW=ROW:TNUM=0:OPNUM=NUM:QN=NUM-1›1920  MZ%(COL,ROW)=MZ%(COL,ROW)+4' open botton wall of exit›1922  '›1925  '  fill in all open space with dead end hallways›1930  WHILE TNUM<QN:TNUM=TNUM+1'move down main path looking for open areas›1940  COL=BK%(TNUM,1):ROW=BK%(TNUM,2):NUM=1:GOTOXY 2,15:? CHR$(7)›1945  ONCE=1 'used to prime while loops so done at least once›1950  '›1955  WHILE NUM>1 OR ONCE=1›1960  WHILE MZ%(COL-1,ROW)=0 OR MZ%(COL+1,ROW)=0 OR MZ%(COL,ROW-1)=0 OR MZ%(COL,ROW+1)=0 ' keep filling untel dead end   ' 2›1970  GOSUB DIRECT:BK2%(NUM,1)=COL:BK2%(NUM,2)=ROW›1980  WEND 'reached dead end. back up again looking for openings›2300  WHILE NUM>1 AND (MZ%(COL-1,ROW)<>0 AND MZ%(COL+1,ROW)<>0 AND                 MZ%(COL,ROW-1)<>0 AND MZ%(COL,ROW+1)<>0)›2310  NUM=NUM-1:COL=BK2%(NUM,1):ROW=BK2%(NUM,2)›2340  WEND:ONCE=0›2350  WEND›2360  WEND›2380  '›2480  COL=SCOL:ROW=SROW'reset array to entrance›2500  GOSUB OUTPUT:GOSUB CLEAN›2520  TIM=OON:S=0:M=0:NMOVE=0›2540  X1=300:Y1=0:X2=322:Y2=18:OFX=162:OFY=34›2560  GOSUB VRO.COPYFORM:RETURN 'copy man from above into box›2580  DIRECT: '********************************************›2600  ON INT(RND*16)+1 GOSUB RIS,FALL,LFT,RHT,LFT,RHT,LFT,RHT,RIS,RIS,RHT,LFT,RIS,RIS,FALL,RIS›2620  RETURN›2640  LFT:'********›2660  IF ROW<=0 OR MZ%(COL,ROW-1)<> 0 THEN RETURN›2680  MZ%(COL,ROW)=MZ%(COL,ROW)+8:ROW=ROW-1:NUM=NUM+1›2700  MZ%(COL,ROW)=MZ%(COL,ROW)+2›2720  RETURN›2740  RHT:'*********›2760  IF ROW>=WID OR MZ%(COL,ROW+1)<> 0 THEN RETURN›2780  MZ%(COL,ROW)=MZ%(COL,ROW)+2:ROW=ROW+1:NUM=NUM+1›2800  MZ%(COL,ROW)=MZ%(COL,ROW)+8›2820  RETURN›2840  FALL:'********›2860  IF COL>=HEI OR MZ%(COL+1,ROW)<> 0 THEN RETURN›2880  MZ%(COL,ROW)=MZ%(COL,ROW)+4:COL=COL+1:NUM=NUM+1›2900  MZ%(COL,ROW)=MZ%(COL,ROW)+1›2920  RETURN›2940  RIS:'********›2960  IF COL<=1 OR MZ%(COL-1,ROW)<> 0 THEN RETURN›2980  MZ%(COL,ROW)=MZ%(COL,ROW)+1:COL=COL-1:NUM=NUM+1›3000  MZ%(COL,ROW)=MZ%(COL,ROW)+4›3020  RETURN›3040  RETRACE:'**********›3060  GOTOXY 44,2:? CHR$(7)›3080  NUM=NUM+1:'FX=0›3100  WHILE MZ%(COL+1,ROW)<>0' while space below isn't empty›3120  NUM=NUM-1›3140  COL=BK%(NUM,1):ROW=BK%(NUM,2) 'back up one step›3160  WEND›3180  RETURN›3200  GETSIZE:'*******************›3210  GOSUB CLEAN:COLOR 1›3220  GOTOXY 0,15:? " WITH POINTER IN BOX ";:COLOR 2:? CHR$(1);›3230  COLOR  1:?" HOLD BUTTON"›3240  GOTOXY 2,16:?"AND PULL TO DESIRED MAZE SIZE";›3260  GOSUB RAT›3280  WHILE MOU<>1 OR F1=0:GOSUB RAT:WEND:GOSUB CLEAN›3300  WHILE MOU<>2›3320  GOSUB RAT›3340  IF MOU=1 AND MY>23 THEN GOSUB RUBBERBOX:GOSUB CLEAN›3360  WID=INT(PEEK(GINTOUT+2)/8):HEI=INT(PEEK(GINTOUT+4)/4)›3370  IF WID<3 THEN WID=3›3380  IF HEI<3 THEN HEI=3›3400  IF WID>30 THEN WID=30›3420  IF HEI>30 THEN HEI=30›3460  GOTOXY 2,15:? WID;"X";HEI;" CLICK MOUSE 2 IF OK"›3480  GOTOXY 4,16:? "OR RESIZE USING MOUSE 1";›3500  MOU=0: WHILE MOU=0:GOSUB RAT:WEND›3520  WEND›3540  CLEAN:'*************›3560  FOR X=15 TO 16›3580  GOTOXY 0,X:?"                                         ":NEXT›3600  RETURN›3604  WORK:'********›3606  GOSUB CLEAN:COLOR 2:GOTOXY 8,16:?"W O R K I N G";:RETURN›3620  PATH: '************›3640  GOTOXY 5,15:? CHR$(7):CL=SCOL:RW=SROW:PX=RW*8+12:PY=CL*4+6›3680  FOR X=1 TO OPNUM:CL=BK%(X,1):RW=BK%(X,2):OPX=PX:OPY=PY›3740  PX=RW*8+12:PY=CL*4+6:COLOR 1,0,2:LINEF OPX,OPY,PX,PY›3760  NEXT:RETURN›3780  TRAC: '************›3800  IF CO=1 THEN CO=0:GOTOXY 54,13:?"OFF";CHR$(7):RETURN›3820  IF CO=0 THEN CO=1:GOTOXY 54,13:?"ON ";CHR$(7):RETURN›3840  OUTPUT:'*************************›3880  GOTOXY 5,15:? CHR$(7);:NMOVE=NMOVE+1:POINTX=ROW*8+12:POINTY=COL*4+6›3900  COLOR 1,0,0:LINEF OPOINTX,OPOINTY,OPOINTX,OPOINTY›3920  OPOINTX=POINTX:OPOINTY=POINTY›3940  COLOR 1,0,CO:LINEF POINTX,POINTY,POINTX,POINTY›3960  '   north door›3980  IF ((MZ%(COL,ROW) AND 1)=1) THEN C=0 ELSE C=1›4000  COLOR 1,0,C,0:LINEF 413,7,528,7›4020  IF CO=1 THEN LINEF ROW*8+8,COL*4+4,ROW*8+16,COL*4+4›4040  '   east door›4060  IF ((MZ%(COL,ROW) AND 2)=2) THEN C=0 ELSE C=1›4080  COLOR 1,0,C,0:LINEF 538,12,538,62›4100  IF CO=1 THEN LINEF ROW*8+16,COL*4+5-C,ROW*8+16,COL*4+7+C›4120  '   south door›4140  IF ((MZ%(COL,ROW) AND 4)=4) THEN C=0 ELSE C=1›4160  COLOR 1,0,C,0:LINEF 413,67,528,67›4180  IF CO=1 THEN LINEF ROW*8+8,COL*4+8,ROW*8+15+C,COL*4+8›4200  '    west door›4220  IF ((MZ%(COL,ROW) AND 8)=8) THEN C=0 ELSE C=1›4240  COLOR 1,0,C,0:LINEF 403,12,403,62›4260  IF CO=1 THEN LINEF ROW*8+8,COL*4+5-C,ROW*8+8,COL*4+7+C›4280  IF COL=ECOL AND ROW=EROW AND FSTOP=OFF  THEN GOSUB YOUDIDIT›4300  RETURN›4320  RE.SET:'**************›4340  GOTOXY 2,15:? CHR$(7):GOSUB WORK›4360  FOR Y=0 TO HEI*4+1 ' erase maze map directly from Video ram›4380  FOR X=4644 TO 4704 STEP 4›4400  POKE VIDEORAM+X+Y*160,0 'screen memory plane one›4420  POKE VIDEORAM+2+X+Y*160,0 'screen memory plane two.›4440  NEXT:NEXT:TIM=OON:RETURN›4460  YOUDIDIT:'************›4540  GOSUB CLEAN:RESTORE 6780:FOR X=0 TO 15:GOSUB KOLOR:? CHR$(7);›4560  FOR D=0 TO 100:NEXT:NEXT›4565  COLOR 1:GOTOXY 1,15:?"OPTIMUM # OF MOVES";OPNUM;"YOU'RE #"NMOVE›4570  GOTOXY 3,16:?"YOU'RE TIME WAS";M;"MIN ";S;"SEC"›4580  RESTORE 5780:GOSUB KOLOR:TIM=OFF:RETURN›4600  ANSW:'************************›4620  GOSUB CLEAN:GOTOXY 2,15:?"MOUSE BUTTON 1 FOR SCREEN"›4640  GOTOXY 2,16:?"MOUSE BUTTON 2 FOR PRINTER":GOSUB RAT›4660  WHILE (MOU<>1 AND MOU<>2) OR F1=0:GOSUB RAT:WEND›4680  IF MOU=1 THEN GOSUB ANSW2SCR›4700  IF MOU=2 THEN GOSUB ANSW2PTR›4720  GOSUB CLEAN:RETURN›4740  ANSW2PTR:'********›4760  GOSUB CLEAN:GOTOXY 6,15:?"PLEASE TURN ON PRINTER"›4780  GOTOXY 3,16:?"AND CLICK EITHER MOUSE BUTTON"›4800  GOSUB RAT:WHILE MOU=0 OR F1=0:GOSUB RAT:WEND›4820  ' Subroutine for Epson-compatible printers›4860  ESC=27           'escape key›4880  COMPRES=15      'compressed character mode›4900  SUB=83         'subscript mode›4920  LSPC=51       'set line spacing›4940  N216=14      '# of line spacings of 12/216" each›4960  LPRINT CHR$(COMPRS):LPRINT CHR$(ESC);CHR$(SUB)›4980  LPRINT CHR$(ESC);CHR$(LSPC);CHR$(N216);:LPRINT›5000  FOR COL=1 TO HEI:A$="-":B$="I":FOR ROW=1 TO WID›5020  IF ((MZ%(COL,ROW) AND 1)=1) THEN A$=A$+" -" ELSE A$=A$+"--"›5040  IF ((MZ%(COL,ROW) AND 2)=2) THEN B$=B$+"  " ELSE B$=B$+" I"›5060  NEXT:LPRINT A$:LPRINT B$:NEXT›5080  A$="-":COL=HEI:FOR ROW=1 TO WID›5100  IF ((MZ%(COL,ROW) AND 4)=4) THEN A$=A$+" -" ELSE A$=A$+"--"›5120  NEXT: LPRINT A$›5140  RETURN›5160  ANSW2SCR:'********›5180  ACOL=COL:COL=SCOL:AROW=ROW:ROW=SROW›5200  COLOR 1,1,1:FOR C=1 TO HEI:FOR R=1 TO WID:'GOSUB 3520:NEXT:NEXT›5220  IF ((MZ%(C,R) AND 1)<>1) THEN LINEF R*8+8,C*4+4,R*8+16,C*4+4›5240  IF ((MZ%(C,R) AND 2)<>2) THEN LINEF R*8+16,C*4+5,R*8+16,C*4+8›5260  IF ((MZ%(C,R) AND 4)<>4) THEN LINEF R*8+8,C*4+8,R*8+16,C*4+8›5280  IF ((MZ%(C,R) AND 8)<>8) THEN LINEF R*8+8,C*4+5,R*8+8,C*4+8›5300  NEXT:NEXT›5320  COL=ACOL:ROW=AROW:FSTOP=OON:GOSUB OUTPUT:FSTOP=OFF›5340  RETURN›5360  ' %%%%%%%%%%%%%%%%  VDI  &  GEM  %%%%%%%%%%%%%%%%%%%%%›5380  RAT:'***›5400  GINTOUT=PEEK(A#+12):GEMSYS(79)›5420  MX=PEEK(GINTOUT+2):MY=PEEK(GINTOUT+4):MOU=PEEK(GINTOUT+6)›5440  IF OLDMOU<>MOU THEN F1=1 ELSE F1=0 'stops fall-through of mouse button›5460  OLDMOU=MOU:RETURN›5480  POLYLINE:'****** cover basic output window in background color›5500  POKE CONTRL,6:POKE CONTRL+2,6:POKE CONTRL+4,0:POKE CONTRL+12,HANDLE›5520  POKE PTSIN,0+X:POKE PTSIN+2,0+X:POKE PTSIN+4,639-X:POKE PTSIN+6,0+X›5540  POKE PTSIN+8,639-X:POKE PTSIN+10,199-X:POKE PTSIN+12,0+X›5560  POKE PTSIN+14,199-X:POKE PTSIN+16,0+X:POKE PTSIN+18,0+X›5580  VDISYS(0):RETURN›5600  PRSTRING:' **** print outside output window ************›5620  READ ST,XST,YST›5640  POKE CONTRL,8:POKE CONTRL+2,1:POKE CONTRL+6,ST:POKE CONTRL+12,HANDLE›5660  FOR X=0 TO ST*2-1 STEP 2:READ CH:POKE INTIN+X,CH:NEXT›5680  POKE PTSIN,XST:POKE PTSIN+2,YST:VDISYS(0):RETURN›5700  DATA 28,210,13,77,0,65,0,90,0,69,0,0,0,0,0,0,0,0,0,0›5720  DATA 77,0,65,0,83,0,84,0,69,0,82›5740  KOLOR:'**********************›5760  FOR A=0 TO 3:READ B:KOL%(A)=B:NEXT›5780  DATA 33,1808,85,1907›5800  DEFDBL K:K = 1114:POKE K,VARPTR(KOL%(0))›5820  RETURN›5840  SHOW:'**********›5860  POKE CONTRL,122:POKE CONTRL+2,0:POKE CONTRL+6,1›5900  POKE CONTRL+12,HANDLE:POKE INTIN,0›5940  VDISYS(0):RETURN›6120  RUBBERBOX: '***************›6140  COLOR 1,1,1›6160  POKE CONTRL,70:POKE CONTRL+2,4:POKE CONTRL+4,3:POKE CONTRL+6,0›6180  POKE CONTRL+8,0:POKE CONTRL+12,2›6200  POKE GINTIN,16:POKE GINTIN+2,29:POKE GINTIN+4,30:POKE GINTIN+6,15›6220  GEMSYS(70)›6240  RETURN›6260  DISPLAY.MAN:'*****›6280  VIDRAM=VIDEORAM+236:RESTORE 6380›6300  FOR Y=0 TO 15:READ A,B›6320  POKE VIDRAM+Y*160,A›6340  POKE VIDRAM+2+Y*160,B›6360  NEXT›6380  DATA 1984,0,16376,0,0,4064,12312,1984,15480,896,65278,256,65534,0›6400  DATA 57334,0,57334,0,32764,0,7920,0,7920,0,7920,0,7920,0›6420  DATA 7920,0,16120,0,0›6440  RETURN›6460  VRO.COPYFORM: '*******›6520  POKE CONTRL,109:POKE CONTRL+2,4:POKE CONTRL+6,1:POKE CONTRL+12,HANDLE›6540  POKE CONTRL+14,A1:POKE CONTRL+16,A2:POKE CONTRL+18,A1:POKE CONTRL+20,A2›6560  POKE INTIN,3›6580  POKE PTSIN,X1 ' X TOP SOURSE›6600  POKE PTSIN+2,Y1 ' Y TOP SOURSE›6620  POKE PTSIN+4,X2 ' X BOT SOURSE›6640  POKE PTSIN+6,Y2   ' Y BOT SOURSE›6660  POKE PTSIN+8,X1+OFX'X TOP DESTINATION›6680  POKE PTSIN+10,Y1+OFY 'Y TOP DESTINATION›6700  POKE PTSIN+12,X2+OFX' X BOT DESTINATION›6720  POKE PTSIN+14,Y2+OFY ' Y BOT DESTINATION›6740  VDISYS(0)›6760  RETURN›6780  DATA 393,7,548,7,393,67,548,67,538,2,538,72,403,2,403,72›6800  DATA 393,2,548,2,548,2,548,72,393,72,548,72,393,2,393,72›6820  DATA 4,2,271,2,271,2,271,133,271,133,4,133,4,133,4,2›6840  DATA 330,132,606,132,606,132,606,148,606,148,330,148,330,148,330,132›6860  DATA 386,132,386,148,440,132,440,148,496,132,496,148,552,132,552,148›6880  DATA 410,115,530,115,530,115,530,128,530,128,410,128,410,128,410,115›6900  DATA 435,90,505,90,505,90,505,100,505,100,435,100,435,100,435,90›6920  DATA 460,80,482,80,482,80,482,110,482,110,460,110,460,110,460,80›