10 'THIS VERSION OF "MAZE" DONE BY Jim Battle '82 --- 9/30/81
20 DEFINTA-Z:CLEAR100
30 CLS:INPUT"WHAT LEVEL OF DIFFICULTY (1-10)";D
40 IFD<1ORD>10THEN30   
50 CLS:PRINT@0,STRING$(64,191);
60 FORZ=15424TO16257STEP64
70 POKEZ,191:POKEZ+63,191:NEXT
80 PRINT@960,STRING$(63,191);
90 POKE16383,191
100 FORZ=404TO404+4*64STEP64
110 PRINT@Z,STRING$(24,191);:NEXT
120 PRINT@541,"     ";
130 PRINT@952,"XFINISH";
140 PRINT@888,"XXXXXXX";
150 T=0
160 FORZ=1TORND(20)*D:GOSUB360  :NEXT
170 A=15360+65:POKEA,42
180 T=T+1:PRINT@541,INT(T);:IFT>400THEN260  
190 OA=A:GOSUB360  
200 R=PEEK(14400)
210 IFR=2THEN270  
220 A=A+64*(R=8)-64*(R=16)+(R=32)-(R=64)
230 IFPEEK(A)=32POKEOA,32:POKEA,42:GOTO180  
240 IFPEEK(A)=88POKEOA,32:POKEA,42:GOTO330  
250 A=OA:GOTO180  
260 FORZ=1TO1500:NEXT
270 CLS:PRINTCHR$(23):PRINT@512,"Y O U   L O S E,  S U C K E R"
280 FORZ=1TO1500:NEXT
290 CLS:PRINT"PLAY AGAIN (Y/N)?";
300 A$=INKEY$:IFA$="Y"THEN20   
310 IFA$="N"CLS:PRINT"OK. GOODBYE!":END
320 GOTO300  
330 FORZ=0TO1500:NEXT
340 CLS:PRINTCHR$(23):PRINT@512,"Y O U   W I N,  P A L !"
350 GOTO280  
360 R=RND(1023)+15360:IFPEEK(R)<>32THEN360  
370 POKER,191:RETURN