start tok64 d64-iOLweL
10 REM clear screen and set background and border colours
20 PRINT"{black}{clear}":POKE53280,6:POKE53281,7
30 POKE53272,21
40 PRINT"{down*9}"
50 PRINT"{space*14}**********
60 PRINT"{space*13}** {reverse on} maze {reverse off} **
70 PRINT"{space*14}**********
80 PRINT
90 PRINT
100 PRINT
110 PRINT"{down*5}{right*2}{space*7}tryck valfri tangent !
112 PRINT"{right*2}{space*12}(eller fire)
115 POKE198,0
120 GETa$:IFa$=""ANDPEEK(56320)<>111THEN120
130 PRINT"{clear}";
150 PRINT"{space*14}{reverse on} maze {reverse off}
160 PRINT"{down*2}du har blivit{right}insta{up}{left}{cm p}{down}ngd i en labyrint
170 PRINT"{down}ditt uppdrag a{up}{left}{cm p}{down}r att ta dig ut pa{up}{left}.{down} minsta {down}mo{up}{left}{cm p}{down}jliga tid.
180 PRINT
190 PRINT
200 PRINT"styr fyrkanten ({cm d}) med fo{up}{left}{cm p}{down}ljande{space*5}{down}{space*4}tangenter:
210 PRINT"{down}'p' = upp{space*11}'.' = ner
220 PRINT"{down}'l' = va{up}{left}{cm p}{down}nster","'"CHR$(PEEK(60334))"' = ho{up}{left}{cm p}{down}ger
221 PRINT"{down}el. joystick port#2"
230 PRINT:PRINT
240 PRINTSPC(12)"{reverse on}lycka till!
250 PRINT
260 FORt=1TO300:NEXT:POKE198,0
265 PRINT"{right} {right}{space*4}tryck valfri tangent !
270 GETa$:IFa$=""ANDPEEK(56320)<>111THEN270
280 PRINT"{clear}
350 DIMw(38,22),v(38,22),d(8):REM * arrays for maze
360 x=RND(-ti)
370 h=10:v=11
380 PRINT"{down*3}vill du ha en liten, medel eller stor {down}{space*2}labyrint ?{space*2}(l,m,s)
385 PRINT"{down}(joy {arrow left}=l ^=s fire=m)
390 GETa$:r=PEEK(56320)
400 x=ASC(a$+"^"):IFx=76ORr=123GOTO440
410 IFx=77ORr=111THENh=15:v=11:GOTO440
420 IFx=83ORr=126THENh=19:v=11:GOTO440
430 GOTO390
440 x=200:FORi=1TOh:w(i,0)=x:NEXTi
450 FORi=1TOv:w(0,i)=x:w(h+1,i)=x:NEXT
460 PRINT"{down*2}vill du se na{up}{left}{cm p}{down}r jag konstruerar{space*5}{down}{space*5}labyrinten ?(^j/n{arrow left})
470 GETa$:r=PEEK(56320):IFNOT(r=123ORr=126ORa$="j"ORa$="n")THEN470
480 f=0:IFa$="n"ORr=123THENf=1
482 PRINT"{down*2}{reverse on}f1{reverse off} = du lo{up}{left}{cm p}{down}ser labyrinten, {reverse on}f3{reverse off} = jag go{up}{left}{cm p}{down}r{space*2}{down}det.
483 PRINT"{arrow left}=du, ^=jag"
485 GETa$:r=PEEK(56320)
487 IFa$="{f3}"ORr=126THENco=-1:GOTO490
488 IFa$="{f1}"ORr=123GOTO490
489 GOTO485
490 z=INT(RND(1)*h+1)
500 PRINT"{clear}":PRINT" ";:FORi=1TOh:REM prints maze
510 :a$="{cm p*2}":IFi=zTHENa$="{space*2}"
520 :PRINTa$;:NEXTi
530 PRINT
540 :FORj=1TOv:PRINT"{cm m}";
550 : FORi=1TOh:PRINT" {cm m}";:NEXTi
560 :PRINT:PRINT"{cm m}";
570 FORi=1TOh:PRINT"{cm p}{sh @}";:NEXTi:PRINT:NEXTj
580 w(z,1)=1:c=2:r=z:s=1:GOTO630
590 IFr<>hTHENr=r+1:GOTO620
600 r=1:IFs<>vTHENs=s+1:GOTO620
610 s=1:GOTO630
620 IFw(r,s)=0GOTO590
630 FORj=1TO4:d(j)=0:NEXTj
640 d(1)=w(r-1,s)=0
650 d(2)=w(r,s-1)=0
660 d(3)=w(r+1,s)=0
670 d(4)=w(r,s+1)=0AND(c>v*hORs<v)
680 d=0:FORj=1TO4:d=d+d(j):NEXTj
690 IFd=0GOTO590
700 x=RND(1)*d
710 FORd=1TO4:x=x-d(d):IFx<0THENNEXTd
720 ONdGOTO740,760,830,780
730 STOP
740 r=r-1:v(r,s)=2
750 GOTO770
760 s=s-1:v(r,s)=1
770 GOSUB1170:GOTO850
780 IFs<vGOTO800
790 x=200:FORj=1TOh:w(j,v+1)=x:NEXTj
800 v(r,s)=v(r,s)OR1
810 GOSUB1170:s=s+1:IFs>vANDc<h*v+1THENc=c+1:GOTO610
820 GOTO850
830 v(r,s)=v(r,s)OR2
840 GOSUB1170:r=r+1
850 w(r,s)=c:c=c+1
860 IFc<h*v+2GOTO630
870 IFf<>1GOTO890
880 PRINT"{home}{down*2}";:FORs=1TOv:PRINT"{right}";:FORr=1TOh:GOSUB1200:NEXTr:PRINT:PRINT:NEXTs
890 r=z:s=1:GETa$:GETa$:GETa$
895 PRINT"{home}"TAB(31)"q slutar"
900 ti$="{0*6}":REM set clock
910 r1=r:s1=s:a$="{cm d}":GOSUB1140
915 IFcoTHEN1250
920 PRINT"{home}{reverse on}"ti$
930 d=PEEK(197):e=PEEK(56320):IFd=64ANDe=127THEN920:REM get direction
940 IFd=44ORe=125GOTO1010
63999 REM "Invalid BASIC input d64-iOLweL
stop tok64
(bastext 1.0)