SOMMENDOOLHOF
FILE INFORMATION
FILENAME(S): SOMMENDOOLHOF
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-12-01 20:43:42
APPEARS ON: 1 disk(s)
FILE HASH
15afbb845650cae48d95c69005cedcc1dfd6e872345bae56f82c6ece57ebc38e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| EDUCATIEF | SOMMENDOOLHOF | PRG | mace | 27 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 0A 00 8F 20 2A 2A 20 53 4F 4D 4D 45 |..).... ** SOMME|
00000010: 4D 20 44 4F 4F 4C 48 4F 46 20 56 4F 4F 52 20 4F |M DOOLHOF VOOR O|
00000020: 4E 5A 45 20 2A 2A 2A 2A 2A 00 51 08 14 00 8F 20 |NZE *****.Q.... |
00000030: 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 44 |* COMMODORE 64 D|
00000040: 4F 4F 52 20 43 4F 4D 50 46 52 45 41 4B 20 38 33 |OOR COMPFREAK 83|
00000050: 2A 00 79 08 1E 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.y.... ********|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 92 08 64 00 8F 20 |*********...d.. |
00000080: 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 45 20 2A |*** INITIALIZE *|
00000090: 2A 2A 00 AA 08 6E 00 52 45 24 B2 C7 28 31 33 29 |**...n.RE$..(13)|
000000A0: 3A 51 55 24 B2 C7 28 33 34 29 00 CA 08 78 00 56 |:QU$..(34)...x.V|
000000B0: 54 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |T$."............|
000000C0: 11 11 11 11 11 11 11 11 11 22 00 FB 08 82 00 53 |.........".....S|
000000D0: 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |P$." |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 20 20 20 20 20 22 00 12 09 8C 00 | ".....|
00000100: 96 A5 52 28 58 29 B2 B5 28 BB 28 31 29 AC 58 AA |..R(X)..(.(1).X.|
00000110: 31 29 00 1E 09 96 00 50 4C B2 31 32 32 35 00 3A |1).....PL.1225.:|
00000120: 09 C8 00 8F 20 2A 2A 2A 20 54 45 4B 45 4E 20 44 |.... *** TEKEN D|
00000130: 4F 4F 4C 48 4F 46 20 2A 2A 2A 00 44 09 CD 00 54 |OOLHOF ***.D...T|
00000140: 31 B2 54 49 00 60 09 D2 00 97 35 33 32 38 30 2C |1.TI.`....53280,|
00000150: 38 3A 97 35 33 32 38 31 2C 30 3A 99 22 93 05 22 |8:.53281,0:.".."|
00000160: 00 7E 09 D4 00 99 22 20 20 20 20 20 20 20 20 20 |.~...." |
00000170: 20 20 20 20 20 20 20 20 A6 A6 D7 A6 A6 22 00 A0 | ....."..|
00000180: 09 D6 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
00000190: 20 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 A6 A6 22 | ..... ....."|
000001A0: 00 C5 09 D8 00 99 22 20 20 20 20 20 20 20 20 20 |......" |
000001B0: A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 A6 A6 20 20 20 |..... ..... |
000001C0: A6 A6 D7 A6 A6 00 EE 09 DA 00 99 22 20 20 20 20 |..........." |
000001D0: 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 A6 A6 20 20 | ..... ..... |
000001E0: 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 A6 A6 00 1D | ..... .......|
000001F0: 0A DC 00 99 22 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 |...." ..... ..|
00000200: D7 A6 A6 20 20 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 |... ..... ..|
00000210: D7 A6 A6 20 20 20 A6 A6 D7 A6 A6 DA 22 00 47 0A |... ......".G.|
00000220: DE 00 99 22 20 20 20 20 20 A6 A6 D7 A6 A6 20 20 |..." ..... |
00000230: 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 A6 A6 20 20 | ..... ..... |
00000240: 20 A6 A6 D7 A6 A6 22 00 6D 0A E0 00 99 22 20 20 | .....".m...." |
00000250: 20 20 20 20 20 20 20 A6 A6 D7 A6 A6 20 20 20 A6 | ..... .|
00000260: A6 D7 A6 A6 20 20 20 A6 A6 A6 D7 A6 22 00 8F 0A |.... ....."...|
00000270: E2 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00000280: 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 A6 A6 22 00 | ..... .....".|
00000290: AD 0A E4 00 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
000002A0: 20 20 20 20 20 20 20 A6 A6 D7 A6 A6 22 00 BA 0A | ....."...|
000002B0: E6 00 99 22 20 20 20 20 4E 22 00 C7 0A E8 00 99 |..." N"......|
000002C0: 22 20 20 20 20 DD 22 00 D7 0A EA 00 99 22 20 57 |" ."......" W|
000002D0: 20 C3 DB C3 20 45 22 00 E4 0A EC 00 99 22 20 20 | ... E"......" |
000002E0: 20 20 DD 22 00 F0 0A EE 00 99 22 20 20 20 20 53 | ."......" S|
000002F0: 00 16 0B FA 00 8F 20 2A 2A 2A 20 53 45 54 20 55 |...... *** SET U|
00000300: 50 20 49 4E 49 54 49 41 4C 20 50 4F 53 49 54 49 |P INITIAL POSITI|
00000310: 4F 4E 20 2A 2A 2A 00 32 0B 04 01 50 4C B2 31 32 |ON ***.2...PL.12|
00000320: 32 35 3A 50 50 B2 C2 28 50 4C 29 3A 97 50 4C 2C |25:PP..(PL):.PL,|
00000330: 34 32 00 46 0B 2C 01 8F 20 2A 2A 2A 20 42 45 47 |42.F.,.. *** BEG|
00000340: 49 4E 20 2A 2A 2A 00 73 0B 36 01 99 56 54 24 3B |IN ***.s.6..VT$;|
00000350: 53 50 24 3B 53 50 24 3B 53 50 24 3B 56 54 24 3B |SP$;SP$;SP$;VT$;|
00000360: 22 20 57 45 4C 4B 45 20 52 49 43 48 54 49 4E 47 |" WELKE RICHTING|
00000370: 20 3F 22 00 87 0B 40 01 5A 24 B2 22 4E 53 45 57 | ?"...@.Z$."NSEW|
00000380: 22 3A 8D 31 30 30 30 00 AB 0B 4A 01 4D 56 B2 C5 |":.1000...J.MV..|
00000390: 28 CA 28 22 2D 34 30 2B 34 30 2B 30 31 2D 30 31 |(.("-40+40+01-01|
000003A0: 22 2C 5A AC 33 AB 32 2C 33 29 29 00 CF 0B 54 01 |",Z.3.2,3))...T.|
000003B0: 97 50 4C 2C 50 50 3A 50 4C B2 50 4C AA 4D 56 3A |.PL,PP:PL.PL.MV:|
000003C0: 50 50 B2 C2 28 50 4C 29 3A 97 50 4C 2C 34 32 00 |PP..(PL):.PL,42.|
000003D0: E9 0B 5E 01 8F 20 2A 2A 2A 20 42 45 47 49 4E 20 |..^.. *** BEGIN |
000003E0: 48 49 45 52 20 2A 2A 2A 2A 00 F8 0B 68 01 8B 50 |HIER ****...h..P|
000003F0: 50 B2 39 30 A7 39 30 30 00 07 0C 72 01 8B 50 50 |P.90.900...r..PP|
00000400: B2 33 32 A7 34 30 30 00 17 0C 7C 01 8B 50 50 B2 |.32.400...|..PP.|
00000410: 31 30 32 A7 33 30 30 00 20 0C 86 01 89 34 35 30 |102.300. ....450|
00000420: 00 3F 0C 90 01 8F 20 2A 2A 2A 20 56 41 4C 20 56 |.?.... *** VAL V|
00000430: 41 4E 20 48 45 54 20 50 41 44 20 2A 2A 2A 2A 00 |AN HET PAD ****.|
00000440: 74 0C 9A 01 99 56 54 24 3B 53 50 24 3B 53 50 24 |t....VT$;SP$;SP$|
00000450: 3B 56 54 24 3B 22 20 4B 49 4A 4B 20 55 49 54 20 |;VT$;" KIJK UIT |
00000460: 4A 45 20 56 49 45 4C 20 56 41 4E 20 48 45 54 20 |JE VIEL VAN HET |
00000470: 50 41 44 22 00 90 0C 9F 01 99 22 20 54 45 52 55 |PAD"......" TERU|
00000480: 47 20 4E 41 41 52 20 42 45 47 49 4E 20 21 21 22 |G NAAR BEGIN !!"|
00000490: 00 A3 0C A4 01 58 B2 32 3A 8D 31 31 30 30 3A 89 |.....X.2:.1100:.|
000004A0: 32 31 30 00 C0 0C C2 01 8F 20 2A 2A 2A 20 4B 45 |210...... *** KE|
000004B0: 55 5A 45 20 50 52 4F 42 4C 45 45 4D 20 2A 2A 2A |UZE PROBLEEM ***|
000004C0: 00 E1 0C CC 01 50 54 B2 A5 52 28 34 29 3A 91 50 |.....PT..R(4):.P|
000004D0: 54 89 35 30 30 2C 35 35 30 2C 36 30 30 2C 36 35 |T.500,550,600,65|
000004E0: 30 00 F3 0C F4 01 8F 20 2A 2A 2A 20 41 44 44 20 |0...... *** ADD |
000004F0: 2A 2A 2A 00 1A 0D FE 01 41 B2 A5 52 28 39 29 3A |***.....A..R(9):|
00000500: 42 B2 A5 52 28 39 29 3A 43 B2 41 AA 42 3A 4F 50 |B..R(9):C.A.B:OP|
00000510: 24 B2 22 2B 22 3A 89 38 30 30 00 31 0D 26 02 8F |$."+":.800.1.&..|
00000520: 20 2A 2A 2A 20 53 55 42 54 52 41 43 54 20 2A 2A | *** SUBTRACT **|
00000530: 2A 00 57 0D 30 02 41 B2 A5 52 28 39 39 29 3A 42 |*.W.0.A..R(99):B|
00000540: B2 A5 52 28 39 29 3A 8B 42 B1 41 A7 46 B2 41 3A |..R(9):.B.A.F.A:|
00000550: 41 B2 42 3A 42 B2 46 00 6E 0D 3A 02 43 B2 41 AB |A.B:B.F.n.:.C.A.|
00000560: 42 3A 4F 50 24 B2 22 2D 22 3A 89 38 30 30 00 8B |B:OP$."-":.800..|
00000570: 0D 58 02 8F 20 2A 2A 2A 20 56 45 52 4D 45 4E 49 |.X.. *** VERMENI|
00000580: 47 56 55 4C 44 49 47 20 2A 2A 2A 00 9F 0D 62 02 |GVULDIG ***...b.|
00000590: 41 B2 A5 52 28 39 29 3A 42 B2 A5 52 28 39 29 00 |A..R(9):B..R(9).|
000005A0: B6 0D 6C 02 43 B2 41 AC 42 3A 4F 50 24 B2 22 2A |..l.C.A.B:OP$."*|
000005B0: 22 3A 89 38 30 30 00 DB 0D 8A 02 8F 20 2A 2A 2A |":.800...... ***|
000005C0: 45 45 4E 20 47 45 54 41 4C 20 4F 4E 44 45 52 20 |EEN GETAL ONDER |
000005D0: 44 45 20 54 49 45 4E 20 2A 2A 2A 00 09 0E 94 02 |DE TIEN ***.....|
000005E0: 99 56 54 24 3B 53 50 24 3B 53 50 24 3B 56 54 24 |.VT$;SP$;SP$;VT$|
000005F0: 3B 22 20 54 45 4C 20 44 45 5A 45 20 47 45 54 41 |;" TEL DEZE GETA|
00000600: 4C 4C 45 4E 20 4F 50 22 3B 00 1B 0E 9E 02 58 B2 |LLEN OP";.....X.|
00000610: 32 3A 8D 31 31 30 30 3A 43 B2 30 00 37 0E A8 02 |2:.1100:C.0.7...|
00000620: 81 49 B2 31 A4 33 3A 44 50 B2 A5 52 28 39 29 3A |.I.1.3:DP..R(9):|
00000630: 44 50 B2 35 AB 44 50 00 62 0E B2 02 58 B2 A5 52 |DP.5.DP.b...X..R|
00000640: 28 39 29 3A 97 31 38 38 30 AA 44 50 2C 58 AA 34 |(9):.1880.DP,X.4|
00000650: 38 3A 43 B2 43 AA 58 3A 58 B2 2E 38 3A 8D 31 31 |8:C.C.X:X..8:.11|
00000660: 30 30 00 7A 0E B7 02 97 31 38 38 30 AA 44 50 2C |00.z....1880.DP,|
00000670: 33 32 3A 82 49 3A 89 38 35 30 00 9A 0E 20 03 8F |32:.I:.850... ..|
00000680: 20 2A 2A 2A 20 53 54 45 4C 20 48 45 54 20 50 52 | *** STEL HET PR|
00000690: 4F 42 4C 45 45 4D 20 2A 2A 2A 00 B0 0E 2A 03 99 |OBLEEM ***...*..|
000006A0: 56 54 24 3B 53 50 24 3B 53 50 24 3B 56 54 24 3B |VT$;SP$;SP$;VT$;|
000006B0: 00 C1 0E 34 03 41 24 B2 CA 28 C4 28 41 29 2C 32 |...4.A$..(.(A),2|
000006C0: 29 00 D2 0E 3E 03 42 24 B2 CA 28 C4 28 42 29 2C |)...>.B$..(.(B),|
000006D0: 32 29 00 FB 0E 48 03 99 22 20 57 41 54 20 20 49 |2)...H.." WAT I|
000006E0: 53 20 22 3B 41 24 3B 22 20 22 3B 4F 50 24 3B 22 |S ";A$;" ";OP$;"|
000006F0: 20 22 3B 42 24 3B 22 3F 20 22 3B 00 05 0F 52 03 | ";B$;"? ";...R.|
00000700: 8D 31 32 30 30 00 14 0F 5C 03 8B 41 4E B3 B1 43 |.1200...\..AN..C|
00000710: A7 38 38 30 00 34 0F 66 03 99 22 20 47 4F 45 44 |.880.4.f.." GOED|
00000720: 20 5A 4F 22 3A 58 B2 2E 35 3A 8D 31 31 30 30 3A | ZO":X..5:.1100:|
00000730: 89 33 30 30 00 50 0F 70 03 99 22 91 20 46 4F 55 |.300.P.p..". FOU|
00000740: 54 20 21 21 20 48 45 54 20 57 41 53 20 22 3B 43 |T !! HET WAS ";C|
00000750: 00 6F 0F 75 03 58 B2 31 3A 8D 31 31 30 30 3A 99 |.o.u.X.1:.1100:.|
00000760: 56 54 24 3B 53 50 24 3B 53 50 24 3B 56 54 24 00 |VT$;SP$;SP$;VT$.|
00000770: 78 0F 7A 03 89 34 35 30 00 91 0F 84 03 8F 20 2A |x.z..450...... *|
00000780: 2A 2A 20 45 49 4E 44 45 20 53 50 45 4C 20 2A 2A |** EINDE SPEL **|
00000790: 2A 00 AD 0F 8E 03 54 32 B2 54 49 3A 99 56 54 24 |*.....T2.TI:.VT$|
000007A0: 3B 53 50 24 3B 53 50 24 3B 56 54 24 3B 00 F7 0F |;SP$;SP$;VT$;...|
000007B0: 98 03 99 22 20 47 4F 45 44 20 5A 4F 21 20 4A 45 |..." GOED ZO! JE|
000007C0: 20 48 45 42 54 20 44 45 20 44 4F 4F 4C 48 4F 46 | HEBT DE DOOLHOF|
000007D0: 20 41 46 47 45 4C 45 47 44 20 49 4E 22 3B B5 28 | AFGELEGD IN";.(|
000007E0: 28 54 32 AB 54 31 29 AD 36 30 29 3B 22 53 45 43 |(T2.T1).60);"SEC|
000007F0: 4F 4E 44 45 4E 22 3B 00 16 10 A2 03 99 22 20 2D |ONDEN";......" -|
00000800: 20 4E 4F 47 20 45 45 4E 20 4B 45 45 52 20 3F 20 | NOG EEN KEER ? |
00000810: 28 59 2F 4E 29 22 00 33 10 AC 03 A1 41 24 3A 8B |(Y/N)".3....A$:.|
00000820: 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 A7 |A$.."Y".A$.."N".|
00000830: 39 34 30 00 41 10 B6 03 8B 41 24 B2 22 59 22 A7 |940.A....A$."Y".|
00000840: 8A 00 4C 10 DE 03 99 22 93 22 3A 80 00 66 10 E8 |..L....".":..f..|
00000850: 03 8F 20 2A 2A 2A 20 41 57 41 49 54 20 49 4E 50 |.. *** AWAIT INP|
00000860: 55 54 20 2A 2A 2A 00 7A 10 F2 03 A1 41 24 3A 8B |UT ***.z....A$:.|
00000870: 41 24 B2 22 22 A7 31 30 35 30 00 89 10 FC 03 81 |A$."".1050......|
00000880: 5A B2 31 A4 C3 28 5A 24 29 00 9D 10 06 04 8B CA |Z.1..(Z$).......|
00000890: 28 5A 24 2C 5A 2C 31 29 B2 41 24 A7 8E 00 AA 10 |(Z$,Z,1).A$.....|
000008A0: 10 04 82 5A 3A 89 31 30 31 30 00 C1 10 1A 04 97 |...Z:.1010......|
000008B0: 50 4C 2C 33 32 3A 58 B2 2E 30 31 3A 8D 31 31 30 |PL,32:X..01:.110|
000008C0: 30 00 D8 10 24 04 97 50 4C 2C 34 32 3A 58 B2 2E |0...$..PL,42:X..|
000008D0: 30 31 3A 8D 31 31 30 30 00 E2 10 2E 04 89 31 30 |01:.1100......10|
000008E0: 31 30 00 FF 10 4C 04 8F 20 2A 2A 20 44 45 4C 41 |10...L.. ** DELA|
000008F0: 59 20 58 20 53 45 43 4F 4E 44 53 20 2A 2A 2A 00 |Y X SECONDS ***.|
00000900: 14 11 56 04 81 54 B2 31 A4 58 AC 31 30 30 30 3A |..V..T.1.X.1000:|
00000910: 82 54 3A 8E 00 3A 11 B0 04 8F 20 2A 2A 2A 20 41 |.T:..:.... *** A|
00000920: 57 41 49 54 20 47 45 54 53 20 55 4E 54 49 4C 20 |WAIT GETS UNTIL |
00000930: 52 45 54 55 52 4E 20 2A 2A 2A 00 43 11 BA 04 41 |RETURN ***.C...A|
00000940: 4E B2 30 00 67 11 C4 04 5A 24 B2 22 30 31 32 33 |N.0.g...Z$."0123|
00000950: 34 35 36 37 38 39 22 AA 52 45 24 AA C7 28 32 30 |456789".RE$..(20|
00000960: 29 3A 8D 31 30 30 30 00 90 11 CE 04 8B 5A B2 31 |):.1000......Z.1|
00000970: 32 AF 41 4E B1 30 A7 99 C7 28 32 30 29 3B 3A 41 |2.AN.0...(20);:A|
00000980: 4E B2 B5 28 41 4E AD 31 30 29 3A 89 31 32 32 30 |N..(AN.10):.1220|
00000990: 00 9F 11 D8 04 8B 5A B2 31 32 A7 31 32 32 30 00 |......Z.12.1220.|
000009A0: B0 11 E2 04 99 41 24 3B 3A 8B 5A B2 31 31 A7 8E |.....A$;:.Z.11..|
000009B0: 00 CF 11 EC 04 41 4E B2 41 4E AC 31 30 AA 5A AB |.....AN.AN.10.Z.|
000009C0: 31 3A 44 45 B2 44 45 AA 31 3A 89 31 32 32 30 00 |1:DE.DE.1:.1220.|
000009D0: 00 00 |.. |
..).... ** SOMMEM DOOLHOF VOOR ONZE ****
*.Q.... * COMMODORE 64 DOOR COMPFREAK 83
*.Y.... ********************************
*...D.. *** INITIALIZE ***...N.RE$.G(13)
:QU$.G(34).J.X.VT$."....................
.".....SP$."
".......R(X)..(.(1).X.1).....P
L.1225.:.H.. *** TEKEN DOOLHOF ***.D.M.T
1.TI.`.R..53280,8:.53281,0:."..".~.T.."
..W..". .V.."
..W.. ..W..".E.X.." ..W..
..W.. ..W.....Z.." ..W.. ..W..
..W.. ..W........" ..W.. ..W.. ..
W.. ..W.. ..W..Z".G...." ..W..
..W.. ..W.. ..W..".M...." .
.W.. ..W.. ...W."......"
..W.. ..W.."......" .
.W.."......" N".G...." .".W...." W
C.C E"......" ."......" S...... *
** SET UP INITIAL POSITION ***.2...PL.12
25:PP.B(PL):.PL,42.F.,.. *** BEGIN ***.S
.6..VT$;SP$;SP$;SP$;VT$;" WELKE RICHTING
?"...@.Z$."NSEW":.1000...J.MV.E(J("-40+
40+01-01",Z.3.2,3)).O.T..PL,PP:PL.PL.MV:
PP.B(PL):.PL,42...^.. *** BEGIN HIER ***
*...H..PP.90.900...R..PP.32.400...|..PP.
102.300. ....450.?.... *** VAL VAN HET P
AD ****.T....VT$;SP$;SP$;VT$;" KIJK UIT
JE VIEL VAN HET PAD"......" TERUG NAAR B
EGIN !!".....X.2:.1100:.210...B.. *** KE
UZE PROBLEEM ***...L.PT..R(4):.PT.500,55
0,600,650...... *** ADD ***.....A..R(9):
B..R(9):C.A.B:OP$."+":.800.1.&.. *** SUB
TRACT ***.W.0.A..R(99):B..R(9):.B.A.F.A:
A.B:B.F.N.:.C.A.B:OP$."-":.800...X.. ***
VERMENIGVULDIG ***...B.A..R(9):B..R(9).
..L.C.A.B:OP$."*":.800...... ***EEN GETA
L ONDER DE TIEN ***......VT$;SP$;SP$;VT$
;" TEL DEZE GETALLEN OP";.....X.2:.1100:
C.0.7....I.1.3:DP..R(9):DP.5.DP.B...X..R
(9):.1880.DP,X.48:C.C.X:X..8:.1100.Z....
1880.DP,32:.I:.850... .. *** STEL HET PR
OBLEEM ***...*..VT$;SP$;SP$;VT$;.A.4.A$.
J(D(A),2).R.>.B$.J(D(B),2)...H.." WAT I
S ";A$;" ";OP$;" ";B$;"? ";...R..1200...
\..AN..C.880.4.F.." GOED ZO":X..5:.1100:
.300.P.P..". FOUT !! HET WAS ";C.O.U.X.1
:.1100:.VT$;SP$;SP$;VT$.X.Z..450...... *
** EINDE SPEL ***.....T2.TI:.VT$;SP$;SP$
;VT$;......" GOED ZO! JE HEBT DE DOOLHOF
AFGELEGD IN";.((T2.T1).60);"SECONDEN";.
....." - NOG EEN KEER ? (Y/N)".3....A$:.
A$.."Y".A$.."N".940.A....A$."Y"...L...."
.":..F.... *** AWAIT INPUT ***.Z....A$:.
A$."".1050......Z.1.C(Z$)......J(Z$,Z,1)
.A$........Z:.1010.A....PL,32:X..01:.110
0.X.$..PL,42:X..01:.1100......1010...L..
** DELAY X SECONDS ***...V..T.1.X.1000:
.T:..:.... *** AWAIT GETS UNTIL RETURN *
**.C...AN.0.G.D.Z$."0123456789".RE$.G(20
):.1000...N..Z.12.AN.0..G(20);:AN..(AN.1
0):.1220...X..Z.12.1220......A$;:.Z.11..
.O...AN.AN.10.Z.1:DE.DE.1:.1220...
> CLICK IMAGE PREVIEW FOR FULL MODAL