10 ! Man styr en * i en labyrint
20 ! Program av Magnus 1991
30 ! F}r andv{ndas i egna program.
40 ! 
50 ! M}ste avbrytas med RESET   <7759>
60 ! 
70 INTEGER : NO EXTEND 
80 POKE 55000,62,23,187,250,253,214,1,80,0,6,8,33,0,120,203,57
90 POKE 55016,48,1,25,203,35,203,18,16,245,205,1,215,22,0,25,126
100 POKE 55032,33,0,0,111,201,33,0,0,201,58,6,215,95,201,0,62
110 POKE 55048,23,187,250,253,214,1,80,0,6,8,33,0,120,203,57,48
120 POKE 55064,1,25,203,35,203,18,16,245,205,1,215,22,0,25,58,43
130 POKE 55080,215,119,201,0,62,1,50,116,215,50,118,215,62,40,50,115
140 POKE 55096,215,50,117,215,58,117,215,50,6,215,62,32,50,43,215,58
150 POKE 55112,118,215,95,205,7,215,58,115,215,50,6,215,62,42,50,43
160 POKE 55128,215,58,116,215,95,205,7,215,58,115,215,50,117,215,58,116
170 POKE 55144,215,50,118,215,205,119,215,195,60,215,201,0,0,0,0,58
180 POKE 55160,227,255,254,56,202,143,215,254,50,202,153,215,254,52,202,163
190 POKE 55176,215,254,54,202,173,215,201,58,116,215,61,50,116,215,195,180
200 POKE 55192,215,58,116,215,60,50,116,215,195,180,215,58,115,215,61,50
210 POKE 55208,115,215,195,180,215,58,115,215,60,50,115,215,62,0,50,227
220 POKE 55224,255,58,115,215,50,6,215,58,116,215,95,205,216,214,62,32
230 POKE 55240,189,202,216,215,58,117,215,50,115,215,58,118,215,50,116,215
240 POKE 55256,201
250 REM Startadress =  55084 
260 ! Program Peekcur(y,x)  av Magnus 1991
270 ! poke 55046,xpos : call 55000,ypos
280 ! Labyrint av Magnus
290 DIM A$=320
300 INTEGER 
310 ; CHR$(12)
320 DATA ""
330 DATA "                                                                              "
340 DATA "                                                                              "
350 DATA "        "
360 DATA "                                                                            "
370 DATA "                                                                            "
380 DATA "                "
390 DATA "                                                                          "
400 DATA "                                                                          "
410 DATA "                               "
420 DATA "                                                                         "
430 DATA "                                                                        "
440 DATA "                                                                        "
450 DATA "                         "
460 DATA "                                                                          "
470 DATA "                                                                          "
480 DATA "                     "
490 DATA "                                                                            "
500 DATA "                                                                            "
510 DATA "        "
520 DATA "                                                                              "
530 DATA "                                                                              "
540 DATA ""
550 DATA "'"
560 X=40 : Y=1
570 READ A$ : IF A$="'" THEN 590
580 ; A$; : GOTO 570
590 Z=CALL(55084)