_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

REM.PAU.1.LOGO

FILE INFORMATION

FILENAME(S): REM.PAU.1.LOGO

FILE TYPE(S): DEL

FILE SIZE: 4.4K

FIRST SEEN: 2025-11-30 21:11:01

APPEARS ON: 1 disk(s)

FILE HASH

55ddca083bcca338c7f3928752ebf0bf75bf0ab4b6110cef008fdc51cd0536a3

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOGO REM.PAU.1.LOGO DEL DuncanTwain 24 5 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 4F 52 4D 0D 20 41 4C 53  20 28 20 45 45 4E 56 41  |ORM. ALS ( EENVA|
00000010: 4E 20 3A 41 54 54 20 3C  20 30 20 3A 44 45 43 20  |N :ATT < 0 :DEC |
00000020: 3C 20 30 20 3A 53 55 53  20 3C 20 30 20 3A 52 45  |< 0 :SUS < 0 :RE|
00000030: 4C 20 3C 20 30 20 3A 41  54 54 20 3E 20 31 35 20  |L < 0 :ATT > 15 |
00000040: 3A 44 45 43 20 3E 20 31  35 20 3A 53 55 53 20 3E  |:DEC > 15 :SUS >|
00000050: 20 31 35 20 3A 52 45 4C  20 3E 20 31 35 20 29 20  | 15 :REL > 15 ) |
00000060: 44 41 4E 20 50 52 20 5B  47 45 54 41 4C 4C 45 4E  |DAN PR [GETALLEN|
00000070: 20 4D 4F 45 54 45 4E 20  54 55 53 53 45 4E 20 30  | MOETEN TUSSEN 0|
00000080: 20 45 4E 20 31 35 5D 0D  20 4D 41 41 4B 20 22 41  | EN 15]. MAAK "A|
00000090: 44 20 42 49 54 4F 52 20  28 20 42 49 54 41 4E 44  |D BITOR ( BITAND|
000000A0: 20 3A 41 54 54 20 31 35  20 29 20 2A 20 31 36 20  | :ATT 15 ) * 16 |
000000B0: 28 20 42 49 54 41 4E 44  20 3A 41 44 20 31 35 20  |( BITAND :AD 15 |
000000C0: 29 0D 20 4D 41 41 4B 20  22 41 44 20 42 49 54 4F  |). MAAK "AD BITO|
000000D0: 52 20 28 20 42 49 54 41  4E 44 20 3A 44 45 43 20  |R ( BITAND :DEC |
000000E0: 31 35 20 29 20 28 20 42  49 54 41 4E 44 20 3A 41  |15 ) ( BITAND :A|
000000F0: 44 20 32 34 30 20 29 0D  20 4D 41 41 4B 20 22 53  |D 240 ). MAAK "S|
00000100: 52 20 42 49 54 4F 52 20  28 20 42 49 54 41 4E 44  |R BITOR ( BITAND|
00000110: 20 3A 53 55 53 20 31 35  20 29 20 2A 20 31 36 20  | :SUS 15 ) * 16 |
00000120: 28 20 42 49 54 41 4E 44  20 3A 53 52 20 31 35 20  |( BITAND :SR 15 |
00000130: 29 0D 20 4D 41 41 4B 20  22 53 52 20 42 49 54 4F  |). MAAK "SR BITO|
00000140: 52 20 28 20 42 49 54 41  4E 44 20 3A 52 45 4C 20  |R ( BITAND :REL |
00000150: 31 35 20 29 20 28 20 42  49 54 41 4E 44 20 3A 53  |15 ) ( BITAND :S|
00000160: 52 20 32 34 30 20 29 0D  20 4D 41 41 4B 20 22 47  |R 240 ). MAAK "G|
00000170: 4F 4C 46 20 3A 47 4F 4C  46 56 4F 52 4D 0D 45 4E  |OLF :GOLFVORM.EN|
00000180: 44 0D 0D 54 4F 20 53 4A  4A 4A 20 3A 44 55 55 52  |D..TO SJJJ :DUUR|
00000190: 0D 20 4B 4C 41 4E 4B 20  39 20 35 20 30 20 30 20  |. KLANK 9 5 0 0 |
000001A0: 31 32 39 20 54 4F 4F 4E  20 5B 43 5D 20 3A 44 55  |129 TOON [C] :DU|
000001B0: 55 52 0D 45 4E 44 0D 0D  54 4F 20 47 45 53 4A 4A  |UR.END..TO GESJJ|
000001C0: 4A 20 3A 44 55 52 45 4E  0D 20 41 4C 53 20 4C 45  |J :DUREN. ALS LE|
000001D0: 45 47 3F 20 3A 44 55 52  45 4E 20 44 41 4E 20 53  |EG? :DUREN DAN S|
000001E0: 54 4F 50 0D 20 53 4A 4A  4A 20 45 45 52 53 54 45  |TOP. SJJJ EERSTE|
000001F0: 20 3A 44 55 52 45 4E 0D  20 47 45 53 4A 4A 4A 20  | :DUREN. GESJJJ |
00000200: 4D 45 20 3A 44 55 52 45  4E 0D 45 4E 44 0D 0D 54  |ME :DUREN.END..T|
00000210: 4F 20 21 5A 0D 20 57 45  47 20 5A 45 54 20 57 45  |O !Z. WEG ZET WE|
00000220: 47 20 5A 45 54 31 20 57  45 47 20 5A 45 54 52 49  |G ZET1 WEG ZETRI|
00000230: 4A 20 57 45 47 20 5A 45  54 57 4F 4F 52 44 20 57  |J WEG ZETWOORD W|
00000240: 45 47 20 5A 45 54 52 41  4E 44 20 57 45 47 20 42  |EG ZETRAND WEG B|
00000250: 45 47 49 4E 20 57 45 47  20 4E 41 41 52 50 4C 20  |EGIN WEG NAARPL |
00000260: 57 45 47 20 50 4C 41 41  54 53 20 57 45 47 20 4B  |WEG PLAATS WEG K|
00000270: 4F 4C 4F 4D 20 57 45 47  20 52 45 47 45 4C 20 57  |OLOM WEG REGEL W|
00000280: 45 47 20 21 5A 0D 20 2E  47 43 4F 4C 4C 20 50 52  |EG !Z. .GCOLL PR|
00000290: 20 2E 4E 4F 44 45 53 0D  45 4E 44 0D 0D 54 4F 20  | .NODES.END..TO |
000002A0: 50 4C 41 41 54 53 0D 20  52 45 53 55 4C 54 41 41  |PLAATS. RESULTAA|
000002B0: 54 20 53 41 4D 45 4E 20  4B 4F 4C 4F 4D 20 52 45  |T SAMEN KOLOM RE|
000002C0: 47 45 4C 0D 45 4E 44 0D  0D 54 4F 20 4B 4F 4C 4F  |GEL.END..TO KOLO|
000002D0: 4D 0D 20 52 45 53 20 49  4E 54 45 47 45 52 20 28  |M. RES INTEGER (|
000002E0: 20 58 50 4F 53 20 2F 20  38 20 29 20 2B 20 31 39  | XPOS / 8 ) + 19|
000002F0: 0D 45 4E 44 0D 0D 54 4F  20 5A 45 54 57 4F 4F 52  |.END..TO ZETWOOR|
00000300: 44 20 3A 57 4F 4F 52 44  0D 20 50 4F 20 56 44 20  |D :WOORD. PO VD |
00000310: 4E 41 41 52 48 4F 45 4B  20 39 30 0D 20 41 4C 53  |NAARHOEK 90. ALS|
00000320: 20 4B 4F 4C 4F 4D 20 3E  20 33 37 20 41 4C 53 20  | KOLOM > 37 ALS |
00000330: 52 45 47 45 4C 20 3C 20  31 38 20 44 41 4E 20 4E  |REGEL < 18 DAN N|
00000340: 41 41 52 50 4C 20 30 20  52 45 47 45 4C 20 2B 20  |AARPL 0 REGEL + |
00000350: 31 20 41 4E 44 45 52 53  20 4E 41 41 52 50 4C 20  |1 ANDERS NAARPL |
00000360: 30 20 30 0D 20 41 4C 53  20 3A 57 4F 4F 52 44 20  |0 0. ALS :WOORD |
00000370: 3D 20 22 20 44 41 4E 20  53 54 45 4D 50 45 4C 20  |= " DAN STEMPEL |
00000380: 22 20 4E 41 41 52 58 20  58 50 4F 53 20 2B 20 38  |" NAARX XPOS + 8|
00000390: 20 53 54 4F 50 0D 20 53  54 45 4D 50 45 4C 20 45  | STOP. STEMPEL E|
000003A0: 45 52 53 54 45 20 3A 57  4F 4F 52 44 20 4E 41 41  |ERSTE :WOORD NAA|
000003B0: 52 58 20 58 50 4F 53 20  2B 20 38 0D 20 5A 45 54  |RX XPOS + 8. ZET|
000003C0: 57 4F 4F 52 44 20 4D 45  20 3A 57 4F 4F 52 44 0D  |WOORD ME :WOORD.|
000003D0: 45 4E 44 0D 0D 54 4F 20  4E 41 41 52 50 4C 20 3A  |END..TO NAARPL :|
000003E0: 4B 4F 4C 4F 4D 20 3A 52  45 47 45 4C 0D 20 4C 4F  |KOLOM :REGEL. LO|
000003F0: 4B 41 41 4C 20 22 50 20  4D 41 41 4B 20 22 50 20  |KAAL "P MAAK "P |
00000400: 45 45 52 53 54 45 20 54  4F 45 53 54 41 4E 44 20  |EERSTE TOESTAND |
00000410: 50 4F 0D 20 41 4C 53 20  28 20 45 45 4E 56 41 4E  |PO. ALS ( EENVAN|
00000420: 20 3A 52 45 47 45 4C 20  3E 20 31 38 20 3A 52 45  | :REGEL > 18 :RE|
00000430: 47 45 4C 20 3C 20 30 20  3A 4B 4F 4C 4F 4D 20 3C  |GEL < 0 :KOLOM <|
00000440: 20 30 20 3A 4B 4F 4C 4F  4D 20 3E 20 33 38 20 29  | 0 :KOLOM > 38 )|
00000450: 20 44 41 4E 20 50 52 49  4E 54 20 5B 42 55 49 54  | DAN PRINT [BUIT|
00000460: 45 4E 20 52 41 4E 44 5D  20 53 54 4F 50 0D 20 4E  |EN RAND] STOP. N|
00000470: 41 41 52 58 20 28 20 3A  4B 4F 4C 4F 4D 20 2D 20  |AARX ( :KOLOM - |
00000480: 31 39 20 29 20 2A 20 38  0D 20 4E 41 41 52 59 20  |19 ) * 8. NAARY |
00000490: 28 20 31 32 20 2D 20 3A  52 45 47 45 4C 20 29 20  |( 12 - :REGEL ) |
000004A0: 2A 20 31 30 2E 34 0D 20  41 4C 53 20 3A 50 20 44  |* 10.4. ALS :P D|
000004B0: 41 4E 20 50 4E 0D 45 4E  44 0D 0D 54 4F 20 52 45  |AN PN.END..TO RE|
000004C0: 47 45 4C 0D 20 52 45 53  20 49 4E 54 45 47 45 52  |GEL. RES INTEGER|
000004D0: 20 28 20 31 32 2E 31 20  2D 20 59 50 4F 53 20 2F  | ( 12.1 - YPOS /|
000004E0: 20 31 30 2E 34 20 29 0D  45 4E 44 0D 0D 54 4F 20  | 10.4 ).END..TO |
000004F0: 5A 45 54 31 20 3A 54 45  4B 53 54 0D 20 41 4C 53  |ZET1 :TEKST. ALS|
00000500: 20 57 4F 4F 52 44 3F 20  3A 54 45 4B 53 54 20 44  | WOORD? :TEKST D|
00000510: 41 4E 20 5A 45 54 57 4F  4F 52 44 20 3A 54 45 4B  |AN ZETWOORD :TEK|
00000520: 53 54 20 4E 41 41 52 58  20 58 50 4F 53 20 2D 20  |ST NAARX XPOS - |
00000530: 38 20 4B 4F 4D 20 53 54  4F 50 0D 20 41 4C 53 20  |8 KOM STOP. ALS |
00000540: 4C 45 45 47 3F 20 3A 54  45 4B 53 54 20 44 41 4E  |LEEG? :TEKST DAN|
00000550: 20 4E 41 41 52 58 20 58  50 4F 53 20 2D 20 38 20  | NAARX XPOS - 8 |
00000560: 4B 4F 4D 20 53 54 4F 50  0D 20 5A 45 54 57 4F 4F  |KOM STOP. ZETWOO|
00000570: 52 44 20 45 45 52 53 54  45 20 3A 54 45 4B 53 54  |RD EERSTE :TEKST|
00000580: 20 5A 45 54 31 20 4D 45  20 3A 54 45 4B 53 54 0D  | ZET1 ME :TEKST.|
00000590: 45 4E 44 0D 0D 54 4F 20  5A 45 54 52 49 4A 20 3A  |END..TO ZETRIJ :|
000005A0: 4E 20 3A 54 4F 45 54 53  0D 20 4C 4F 4B 41 41 4C  |N :TOETS. LOKAAL|
000005B0: 20 22 54 20 4C 4F 4B 41  41 4C 20 22 50 0D 20 4D  | "T LOKAAL "P. M|
000005C0: 41 41 4B 20 22 50 20 45  45 52 53 54 45 20 54 4F  |AAK "P EERSTE TO|
000005D0: 45 53 54 41 4E 44 0D 20  41 4C 53 20 4E 49 45 54  |ESTAND. ALS NIET|
000005E0: 20 47 45 54 41 4C 3F 20  3A 4E 20 50 52 49 4E 54  | GETAL? :N PRINT|
000005F0: 20 5B 47 45 54 41 4C 20  45 45 52 53 54 5D 20 53  | [GETAL EERST] S|
00000600: 54 4F 50 0D 20 41 4C 53  20 3A 4E 20 3E 20 30 20  |TOP. ALS :N > 0 |
00000610: 4D 41 41 4B 20 22 54 20  31 20 41 4E 44 45 52 53  |MAAK "T 1 ANDERS|
00000620: 20 4D 41 41 4B 20 22 54  20 28 20 2D 20 31 20 29  | MAAK "T ( - 1 )|
00000630: 0D 20 41 4C 53 20 4C 45  45 47 3F 20 3A 54 4F 45  |. ALS LEEG? :TOE|
00000640: 54 53 20 44 41 4E 20 4D  41 41 4B 20 22 54 4F 45  |TS DAN MAAK "TOE|
00000650: 54 53 20 22 20 41 4E 44  45 52 53 20 41 4C 53 20  |TS " ANDERS ALS |
00000660: 4C 49 4A 53 54 3F 20 3A  54 4F 45 54 53 20 44 41  |LIJST? :TOETS DA|
00000670: 4E 20 4D 41 41 4B 20 22  54 4F 45 54 53 20 45 45  |N MAAK "TOETS EE|
00000680: 52 53 54 45 20 45 45 52  53 54 45 20 3A 54 4F 45  |RSTE EERSTE :TOE|
00000690: 54 53 20 41 4E 44 45 52  53 20 4D 41 41 4B 20 22  |TS ANDERS MAAK "|
000006A0: 54 4F 45 54 53 20 45 45  52 53 54 45 20 3A 54 4F  |TOETS EERSTE :TO|
000006B0: 45 54 53 0D 20 50 4F 20  48 45 52 48 41 41 4C 20  |ETS. PO HERHAAL |
000006C0: 3A 4E 20 2A 20 3A 54 20  5B 53 54 45 4D 50 45 4C  |:N * :T [STEMPEL|
000006D0: 20 3A 54 4F 45 54 53 20  56 54 20 38 20 2A 20 3A  | :TOETS VT 8 * :|
000006E0: 54 5D 0D 20 41 4C 53 20  3A 50 20 44 41 4E 20 50  |T]. ALS :P DAN P|
000006F0: 4E 0D 45 4E 44 0D 0D 54  4F 20 4B 41 4E 54 45 45  |N.END..TO KANTEE|
00000700: 4C 0D 20 52 45 20 39 30  20 56 54 20 35 20 52 45  |L. RE 90 VT 5 RE|
00000710: 20 39 30 20 56 54 20 35  20 4C 49 20 39 30 20 56  | 90 VT 5 LI 90 V|
00000720: 54 20 35 20 4C 49 20 39  30 20 56 54 20 35 0D 45  |T 5 LI 90 VT 5.E|
00000730: 4E 44 0D 0D 54 4F 20 4B  41 53 54 45 45 4C 0D 20  |ND..TO KASTEEL. |
00000740: 4E 42 20 4D 53 20 50 4F  20 41 54 20 35 30 0D 20  |NB MS PO AT 50. |
00000750: 41 54 20 32 30 0D 20 52  45 20 39 30 20 56 54 20  |AT 20. RE 90 VT |
00000760: 38 30 0D 20 56 54 20 34  30 0D 20 50 4E 20 41 54  |80. VT 40. PN AT|
00000770: 20 31 37 30 0D 20 41 54  20 37 30 0D 20 4C 49 20  | 170. AT 70. LI |
00000780: 39 30 20 56 54 20 38 30  20 4C 49 20 39 30 20 56  |90 VT 80 LI 90 V|
00000790: 54 20 31 30 20 52 45 20  39 30 20 56 54 20 32 30  |T 10 RE 90 VT 20|
000007A0: 20 48 45 52 48 41 41 4C  20 35 20 5B 4B 41 4E 54  | HERHAAL 5 [KANT|
000007B0: 45 45 4C 5D 0D 20 52 45  20 39 30 20 56 54 20 35  |EEL]. RE 90 VT 5|
000007C0: 20 52 45 20 39 30 20 56  54 20 32 30 20 52 45 20  | RE 90 VT 20 RE |
000007D0: 39 30 20 56 54 20 31 30  20 4C 49 20 39 30 20 56  |90 VT 10 LI 90 V|
000007E0: 54 20 38 30 0D 20 41 54  20 36 30 20 52 45 20 31  |T 80. AT 60 RE 1|
000007F0: 38 30 20 48 45 52 48 41  41 4C 20 31 30 20 5B 4B  |80 HERHAAL 10 [K|
00000800: 41 4E 54 45 45 4C 5D 0D  20 48 45 52 48 41 41 4C  |ANTEEL]. HERHAAL|
00000810: 20 35 20 5B 4B 41 4E 54  45 45 4C 5D 0D 20 52 45  | 5 [KANTEEL]. RE|
00000820: 20 39 30 20 56 54 20 35  20 4C 49 20 39 30 20 41  | 90 VT 5 LI 90 A|
00000830: 54 20 36 30 20 56 54 20  38 30 0D 20 4C 49 20 39  |T 60 VT 80. LI 9|
00000840: 30 20 56 54 20 31 30 20  52 45 20 39 30 20 56 54  |0 VT 10 RE 90 VT|
00000850: 20 32 30 0D 20 48 45 52  48 41 41 4C 20 35 20 5B  | 20. HERHAAL 5 [|
00000860: 4B 41 4E 54 45 45 4C 5D  20 52 45 20 39 30 20 56  |KANTEEL] RE 90 V|
00000870: 54 20 35 20 52 45 20 39  30 20 56 54 20 32 30 20  |T 5 RE 90 VT 20 |
00000880: 52 45 20 39 30 20 56 54  20 31 30 20 4C 49 20 39  |RE 90 VT 10 LI 9|
00000890: 30 20 56 54 20 38 30 0D  20 4C 49 20 39 30 20 47  |0 VT 80. LI 90 G|
000008A0: 55 4D 20 56 54 20 32 30  20 50 45 4E 20 50 4F 20  |UM VT 20 PEN PO |
000008B0: 4E 42 0D 20 41 54 20 36  30 0D 20 41 54 20 35 0D  |NB. AT 60. AT 5.|
000008C0: 20 52 45 20 39 30 20 50  4E 20 56 54 20 35 0D 20  | RE 90 PN VT 5. |
000008D0: 47 55 4D 20 41 54 20 35  20 4C 49 20 39 30 20 50  |GUM AT 5 LI 90 P|
000008E0: 45 4E 0D 20 56 54 20 32  30 0D 20 41 54 20 32 35  |EN. VT 20. AT 25|
000008F0: 0D 20 56 54 20 32 35 0D  20 4C 49 20 39 30 20 56  |. VT 25. LI 90 V|
00000900: 54 20 31 35 20 4C 49 20  39 30 20 56 54 20 32 35  |T 15 LI 90 VT 25|
00000910: 0D 45 4E 44 0D 0D 54 4F  20 5A 45 54 52 41 4E 44  |.END..TO ZETRAND|
00000920: 0D 20 4C 4F 4B 41 41 4C  20 22 58 30 20 4D 41 41  |. LOKAAL "X0 MAA|
00000930: 4B 20 22 58 30 20 58 50  4F 53 20 4C 4F 4B 41 41  |K "X0 XPOS LOKAA|
00000940: 4C 20 22 59 30 20 4D 41  41 4B 20 22 59 30 20 59  |L "Y0 MAAK "Y0 Y|
00000950: 50 4F 53 0D 20 50 4F 20  4E 41 41 52 58 59 20 2D  |POS. PO NAARXY -|
00000960: 20 31 36 30 20 31 33 30  20 50 4E 20 4E 41 41 52  | 160 130 PN NAAR|
00000970: 59 20 2D 20 37 35 20 4E  41 41 52 58 20 31 35 39  |Y - 75 NAARX 159|
00000980: 20 4E 41 41 52 59 20 31  33 30 20 4E 41 41 52 58  | NAARY 130 NAARX|
00000990: 20 2D 20 31 36 30 0D 20  50 4F 20 4E 41 41 52 58  | - 160. PO NAARX|
000009A0: 59 20 3A 58 30 20 3A 59  30 0D 45 4E 44 0D 0D 54  |Y :X0 :Y0.END..T|
000009B0: 4F 20 42 45 47 49 4E 0D  20 50 4F 20 4E 41 41 52  |O BEGIN. PO NAAR|
000009C0: 50 4C 20 30 20 30 20 4D  53 20 4E 41 41 52 48 4F  |PL 0 0 MS NAARHO|
000009D0: 45 4B 20 39 30 0D 45 4E  44 0D 0D 54 4F 20 5A 45  |EK 90.END..TO ZE|
000009E0: 54 20 3A 54 45 4B 53 54  0D 20 53 50 52 4F 4F 4B  |T :TEKST. SPROOK|
000009F0: 20 30 20 4B 4F 4D 20 5A  45 54 31 20 3A 54 45 4B  | 0 KOM ZET1 :TEK|
00000A00: 53 54 0D 20 41 4C 53 20  52 45 47 45 4C 20 3C 20  |ST. ALS REGEL < |
00000A10: 31 38 20 44 41 4E 20 4E  41 41 52 50 4C 20 30 20  |18 DAN NAARPL 0 |
00000A20: 52 45 47 45 4C 20 2B 20  31 20 41 4E 44 45 52 53  |REGEL + 1 ANDERS|
00000A30: 20 4E 41 41 52 50 4C 20  30 20 30 0D 45 4E 44 0D  | NAARPL 0 0.END.|
00000A40: 0D 54 4F 20 52 41 41 4D  0D 20 48 45 52 48 41 41  |.TO RAAM. HERHAA|
00000A50: 4C 20 34 20 5B 52 45 20  39 30 20 56 49 45 52 4B  |L 4 [RE 90 VIERK|
00000A60: 41 4E 54 5D 0D 20 50 4F  20 56 54 20 34 35 20 50  |ANT]. PO VT 45 P|
00000A70: 4E 20 52 45 20 39 30 20  56 54 20 34 35 20 48 45  |N RE 90 VT 45 HE|
00000A80: 52 48 41 41 4C 20 34 20  5B 52 45 20 39 30 20 56  |RHAAL 4 [RE 90 V|
00000A90: 54 20 39 30 5D 0D 45 4E  44 0D 0D 54 4F 20 44 49  |T 90].END..TO DI|
00000AA0: 41 4D 41 4E 54 20 0D 45  4E 44 0D 0D 54 4F 20 41  |AMANT .END..TO A|
00000AB0: 43 48 54 48 4F 45 4B 0D  20 48 45 52 48 41 41 4C  |CHTHOEK. HERHAAL|
00000AC0: 20 38 20 5B 56 54 20 32  35 20 52 45 20 34 35 5D  | 8 [VT 25 RE 45]|
00000AD0: 0D 45 4E 44 0D 0D 54 4F  20 56 49 45 52 4B 41 4E  |.END..TO VIERKAN|
00000AE0: 54 0D 20 48 45 52 48 41  41 4C 20 34 20 5B 56 54  |T. HERHAAL 4 [VT|
00000AF0: 20 34 30 20 52 45 20 39  30 5D 0D 45 4E 44 0D 0D  | 40 RE 90].END..|
00000B00: 54 4F 20 26 42 0D 20 26  26 20 22 50 52 49 4E 54  |TO &B. && "PRINT|
00000B10: 42 0D 45 4E 44 0D 0D 54  4F 20 21 48 0D 20 57 45  |B.END..TO !H. WE|
00000B20: 47 20 5B 42 45 57 41 41  52 50 20 4F 4E 54 48 4F  |G [BEWAARP ONTHO|
00000B30: 55 44 20 50 52 4F 47 20  41 4E 54 57 4F 4F 52 44  |UD PROG ANTWOORD|
00000B40: 31 20 49 4E 20 45 45 4E  55 49 54 20 50 45 4E 20  |1 IN EENUIT PEN |
00000B50: 42 4F 4F 47 4A 45 20 57  41 43 48 54 20 53 50 41  |BOOGJE WACHT SPA|
00000B60: 54 49 45 20 53 50 20 52  55 49 4D 54 45 20 26 56  |TIE SP RUIMTE &V|
00000B70: 20 26 4C 20 26 50 20 26  5A 20 26 4D 20 26 53 20  | &L &P &Z &M &S |
00000B80: 26 26 20 26 42 20 21 48  5D 0D 45 4E 44 0D 0D 54  |&& &B !H].END..T|
00000B90: 4F 20 42 45 57 41 41 52  50 20 3A 42 45 53 54 41  |O BEWAARP :BESTA|
00000BA0: 4E 44 20 3A 4E 41 4D 45  4E 0D 20 28 20 42 45 57  |ND :NAMEN. ( BEW|
00000BB0: 41 41 52 20 3A 42 45 53  54 41 4E 44 20 3A 4E 41  |AAR :BESTAND :NA|
00000BC0: 4D 45 4E 20 29 0D 20 50  52 20 22 42 45 57 41 41  |MEN ). PR "BEWAA|
00000BD0: 52 44 0D 45 4E 44 0D 0D  54 4F 20 4F 4E 54 48 4F  |RD.END..TO ONTHO|
00000BE0: 55 44 20 3A 4E 41 41 4D  0D 20 50 52 49 4E 54 31  |UD :NAAM. PRINT1|
00000BF0: 20 22 3E 20 44 45 46 49  4E 49 45 45 52 20 3A 4E  | "> DEFINIEER :N|
00000C00: 41 41 4D 20 5A 45 54 56  20 5B 5D 20 50 52 4F 47  |AAM ZETV [] PROG|
00000C10: 20 3A 4E 41 41 4D 20 41  4E 54 57 4F 4F 52 44 0D  | :NAAM ANTWOORD.|
00000C20: 45 4E 44 0D 0D 54 4F 20  50 52 4F 47 20 3A 4E 41  |END..TO PROG :NA|
00000C30: 41 4D 20 3A 43 4F 4D 4D  0D 20 41 4C 53 20 3A 43  |AM :COMM. ALS :C|
00000C40: 4F 4D 4D 20 3D 20 5B 45  4E 44 5D 20 50 52 49 4E  |OMM = [END] PRIN|
00000C50: 54 20 53 41 4D 45 4E 20  3A 4E 41 41 4D 20 5B 47  |T SAMEN :NAAM [G|
00000C60: 45 4C 45 45 52 44 5D 20  52 45 53 20 5B 5D 0D 20  |ELEERD] RES []. |
00000C70: 52 55 4E 20 3A 43 4F 4D  4D 20 50 52 49 4E 54 31  |RUN :COMM PRINT1|
00000C80: 20 22 3E 0D 20 52 45 53  20 5A 45 54 56 20 3A 43  | ">. RES ZETV :C|
00000C90: 4F 4D 4D 20 50 52 4F 47  20 3A 4E 41 41 4D 20 41  |OMM PROG :NAAM A|
00000CA0: 4E 54 57 4F 4F 52 44 0D  45 4E 44 0D 0D 54 4F 20  |NTWOORD.END..TO |
00000CB0: 41 4E 54 57 4F 4F 52 44  31 0D 20 4C 4F 4B 41 41  |ANTWOORD1. LOKAA|
00000CC0: 4C 20 22 41 20 4D 41 41  4B 20 22 41 20 41 4E 54  |L "A MAAK "A ANT|
00000CD0: 57 4F 4F 52 44 0D 20 41  4C 53 20 4C 45 45 47 3F  |WOORD. ALS LEEG?|
00000CE0: 20 3A 41 20 52 45 53 20  22 20 41 4E 44 45 52 53  | :A RES " ANDERS|
00000CF0: 20 52 45 53 20 45 45 52  53 54 45 20 3A 41 0D 45  | RES EERSTE :A.E|
00000D00: 4E 44 0D 0D 54 4F 20 49  4E 20 3A 4C 49 4A 53 54  |ND..TO IN :LIJST|
00000D10: 20 3A 54 45 4B 53 54 0D  20 41 4C 53 20 57 4F 4F  | :TEKST. ALS WOO|
00000D20: 52 44 3F 20 3A 54 45 4B  53 54 20 4D 41 41 4B 20  |RD? :TEKST MAAK |
00000D30: 22 54 45 4B 53 54 20 53  41 4D 45 4E 20 3A 54 45  |"TEKST SAMEN :TE|
00000D40: 4B 53 54 20 5B 5D 0D 20  41 4C 53 20 4C 45 45 47  |KST []. ALS LEEG|
00000D50: 3F 20 3A 54 45 4B 53 54  20 52 45 53 55 4C 54 41  |? :TEKST RESULTA|
00000D60: 41 54 20 22 57 41 41 52  0D 20 41 4C 53 20 4E 49  |AT "WAAR. ALS NI|
00000D70: 45 54 20 45 52 42 49 4A  3F 20 45 45 52 53 54 45  |ET ERBIJ? EERSTE|
00000D80: 20 3A 54 45 4B 53 54 20  3A 4C 49 4A 53 54 20 52  | :TEKST :LIJST R|
00000D90: 45 53 20 22 4E 49 45 54  57 0D 20 52 45 53 55 4C  |ES "NIETW. RESUL|
00000DA0: 54 41 41 54 20 49 4E 20  3A 4C 49 4A 53 54 20 4D  |TAAT IN :LIJST M|
00000DB0: 45 20 3A 54 45 4B 53 54  0D 45 4E 44 0D 0D 54 4F  |E :TEKST.END..TO|
00000DC0: 20 45 45 4E 55 49 54 20  3A 4C 49 4A 53 54 0D 20  | EENUIT :LIJST. |
00000DD0: 52 45 53 55 4C 54 41 41  54 20 53 41 4D 45 4E 20  |RESULTAAT SAMEN |
00000DE0: 5B 5D 20 45 4C 45 4D 45  4E 54 20 28 20 31 20 2B  |[] ELEMENT ( 1 +|
00000DF0: 20 52 41 4E 44 4F 4D 20  41 41 4E 54 41 4C 20 3A  | RANDOM AANTAL :|
00000E00: 4C 49 4A 53 54 20 29 20  3A 4C 49 4A 53 54 0D 45  |LIJST ) :LIJST.E|
00000E10: 4E 44 0D 0D 54 4F 20 50  45 4E 0D 20 4B 4C 20 31  |ND..TO PEN. KL 1|
00000E20: 0D 45 4E 44 0D 0D 54 4F  20 42 4F 4F 47 4A 45 20  |.END..TO BOOGJE |
00000E30: 3A 53 54 52 41 41 4C 0D  20 48 45 52 48 41 41 4C  |:STRAAL. HERHAAL|
00000E40: 20 31 30 20 5B 56 54 20  33 2E 31 34 31 20 2A 20  | 10 [VT 3.141 * |
00000E50: 3A 53 54 52 41 41 4C 20  2F 20 32 30 20 52 45 20  |:STRAAL / 20 RE |
00000E60: 39 5D 0D 45 4E 44 0D 0D  54 4F 20 57 41 43 48 54  |9].END..TO WACHT|
00000E70: 20 3A 54 49 4A 44 0D 20  48 45 52 48 41 41 4C 20  | :TIJD. HERHAAL |
00000E80: 37 35 30 20 2A 20 3A 54  49 4A 44 20 5B 5D 0D 45  |750 * :TIJD [].E|
00000E90: 4E 44 0D 0D 54 4F 20 53  50 41 54 49 45 20 3A 41  |ND..TO SPATIE :A|
00000EA0: 41 4E 54 41 4C 0D 20 41  4C 53 20 3A 41 41 4E 54  |ANTAL. ALS :AANT|
00000EB0: 41 4C 20 3D 20 31 20 52  45 53 20 43 48 41 52 20  |AL = 1 RES CHAR |
00000EC0: 33 32 0D 20 52 45 53 20  57 4F 4F 52 44 20 43 48  |32. RES WOORD CH|
00000ED0: 41 52 20 33 32 20 53 50  41 54 49 45 20 3A 41 41  |AR 32 SPATIE :AA|
00000EE0: 4E 54 41 4C 20 2D 20 31  0D 45 4E 44 0D 0D 54 4F  |NTAL - 1.END..TO|
00000EF0: 20 53 50 20 3A 41 41 4E  54 41 4C 0D 20 52 45 53  | SP :AANTAL. RES|
00000F00: 55 4C 54 41 41 54 20 53  50 41 54 49 45 20 3A 41  |ULTAAT SPATIE :A|
00000F10: 41 4E 54 41 4C 0D 45 4E  44 0D 0D 54 4F 20 52 55  |ANTAL.END..TO RU|
00000F20: 49 4D 54 45 0D 20 2E 47  43 4F 4C 4C 20 50 52 20  |IMTE. .GCOLL PR |
00000F30: 2E 4E 4F 44 45 53 0D 45  4E 44 0D 0D 54 4F 20 26  |.NODES.END..TO &|
00000F40: 56 0D 20 26 26 20 22 56  4F 52 4D 45 4E 0D 45 4E  |V. && "VORMEN.EN|
00000F50: 44 0D 0D 54 4F 20 26 4C  0D 20 26 26 20 22 4C 49  |D..TO &L. && "LI|
00000F60: 4A 53 54 45 4E 0D 45 4E  44 0D 0D 54 4F 20 26 50  |JSTEN.END..TO &P|
00000F70: 0D 20 26 26 20 22 50 52  49 4E 54 56 0D 45 4E 44  |. && "PRINTV.END|
00000F80: 0D 0D 54 4F 20 26 5A 0D  20 26 26 20 22 5A 45 54  |..TO &Z. && "ZET|
00000F90: 54 45 4E 0D 45 4E 44 0D  0D 54 4F 20 26 4D 0D 20  |TEN.END..TO &M. |
00000FA0: 26 26 20 22 4D 55 5A 49  45 4B 0D 45 4E 44 0D 0D  |&& "MUZIEK.END..|
00000FB0: 54 4F 20 26 53 0D 20 26  26 20 22 53 50 52 4F 4B  |TO &S. && "SPROK|
00000FC0: 45 4E 0D 45 4E 44 0D 0D  54 4F 20 26 26 20 3A 58  |EN.END..TO && :X|
00000FD0: 0D 20 53 43 48 52 49 4A  56 45 4E 0D 20 4D 41 41  |. SCHRIJVEN. MAA|
00000FE0: 4B 20 22 58 20 57 4F 4F  52 44 20 22 4C 4F 47 4F  |K "X WOORD "LOGO|
00000FF0: 20 3A 58 0D 20 50 52 20  53 41 4D 45 4E 20 3A 58  | :X. PR SAMEN :X|
00001000: 20 5B 57 4F 52 44 54 20  4E 55 20 47 45 4C 41 44  | [WORDT NU GELAD|
00001010: 45 4E 5D 0D 20 4C 41 41  44 20 3A 58 0D 45 4E 44  |EN]. LAAD :X.END|
00001020: 0D 0D 4D 41 41 4B 20 22  47 49 53 20 28 38 29 0D  |..MAAK "GIS (8).|
00001030: 4D 41 41 4B 20 22 46 49  53 20 28 36 29 0D 4D 41  |MAAK "FIS (6).MA|
00001040: 41 4B 20 22 44 49 53 20  28 33 29 0D 4D 41 41 4B  |AK "DIS (3).MAAK|
00001050: 20 22 43 49 53 20 28 31  29 0D 4D 41 41 4B 20 22  | "CIS (1).MAAK "|
00001060: 42 45 53 20 28 31 30 29  0D 4D 41 41 4B 20 22 41  |BES (10).MAAK "A|
00001070: 49 53 20 28 31 30 29 0D  4D 41 41 4B 20 22 47 20  |IS (10).MAAK "G |
00001080: 28 37 29 0D 4D 41 41 4B  20 22 46 20 28 35 29 0D  |(7).MAAK "F (5).|
00001090: 4D 41 41 4B 20 22 45 20  28 34 29 0D 4D 41 41 4B  |MAAK "E (4).MAAK|
000010A0: 20 22 44 20 28 32 29 0D  4D 41 41 4B 20 22 42 20  | "D (2).MAAK "B |
000010B0: 28 31 31 29 0D 4D 41 41  4B 20 22 4C 41 44 44 45  |(11).MAAK "LADDE|
000010C0: 52 20 5B 38 37 37 39 20  39 33 30 31 20 39 38 35  |R [8779 9301 985|
000010D0: 34 20 31 30 34 34 30 20  31 31 30 36 30 20 31 31  |4 10440 11060 11|
000010E0: 37 31 38 20 31 32 34 31  35 20 31 33 31 35 33 20  |718 12415 13153 |
000010F0: 31 33 39 33 35 20 31 34  37 36 34 20 31 35 37 34  |13935 14764 1574|
00001100: 32 20 31 36 35 37 32 20  31 37 35 35 37 20 31 38  |2 16572 17557 18|
00001110: 36 30 31 5D 0D 4D 41 41  4B 20 22 4F 43 54 41 41  |601].MAAK "OCTAA|
00001120: 46 20 28 31 29 0D 4D 41  41 4B 20 22 54 45 4D 50  |F (1).MAAK "TEMP|
00001130: 4F 20 28 32 30 29 0D 4D  41 41 4B 20 22 4C 50 20  |O (20).MAAK "LP |
00001140: 28 31 35 29 0D 4D 41 41  4B 20 22 48 50 20 28 31  |(15).MAAK "HP (1|
00001150: 35 29 0D 4D 41 41 4B 20  22 47 4F 4C 46 20 28 31  |5).MAAK "GOLF (1|
00001160: 37 29 0D 4D 41 41 4B 20  22 53 52 20 28 30 29 0D  |7).MAAK "SR (0).|
00001170: 4D 41 41 4B 20 22 41 44  20 28 39 29 0D 4D 41 41  |MAAK "AD (9).MAA|
00001180: 4B 20 22 43 20 28 30 29  0D 4D 41 41 4B 20 22 41  |K "C (0).MAAK "A|
00001190: 20 28 39 29 0D 4D 41 41  4B 20 22 53 54 41 52 54  | (9).MAAK "START|
000011A0: 4F 50 20 5B 5A 45 54 4F  50 5D 0D                 |OP [ZETOP].     |
ORM. ALS ( EENVAN :ATT < 0 :DEC < 0 :SUS
 < 0 :REL < 0 :ATT > 15 :DEC > 15 :SUS >
 15 :REL > 15 ) DAN PR [GETALLEN MOETEN 
TUSSEN 0 EN 15]. MAAK "AD BITOR ( BITAND
 :ATT 15 ) * 16 ( BITAND :AD 15 ). MAAK 
"AD BITOR ( BITAND :DEC 15 ) ( BITAND :A
D 240 ). MAAK "SR BITOR ( BITAND :SUS 15
 ) * 16 ( BITAND :SR 15 ). MAAK "SR BITO
R ( BITAND :REL 15 ) ( BITAND :SR 240 ).
 MAAK "GOLF :GOLFVORM.END..TO SJJJ :DUUR
. KLANK 9 5 0 0 129 TOON [C] :DUUR.END..
TO GESJJJ :DUREN. ALS LEEG? :DUREN DAN S
TOP. SJJJ EERSTE :DUREN. GESJJJ ME :DURE
N.END..TO !Z. WEG ZET WEG ZET1 WEG ZETRI
J WEG ZETWOORD WEG ZETRAND WEG BEGIN WEG
 NAARPL WEG PLAATS WEG KOLOM WEG REGEL W
EG !Z. .GCOLL PR .NODES.END..TO PLAATS. 
RESULTAAT SAMEN KOLOM REGEL.END..TO KOLO
M. RES INTEGER ( XPOS / 8 ) + 19.END..TO
 ZETWOORD :WOORD. PO VD NAARHOEK 90. ALS
 KOLOM > 37 ALS REGEL < 18 DAN NAARPL 0 
REGEL + 1 ANDERS NAARPL 0 0. ALS :WOORD 
= " DAN STEMPEL " NAARX XPOS + 8 STOP. S
TEMPEL EERSTE :WOORD NAARX XPOS + 8. ZET
WOORD ME :WOORD.END..TO NAARPL :KOLOM :R
EGEL. LOKAAL "P MAAK "P EERSTE TOESTAND 
PO. ALS ( EENVAN :REGEL > 18 :REGEL < 0 
:KOLOM < 0 :KOLOM > 38 ) DAN PRINT [BUIT
EN RAND] STOP. NAARX ( :KOLOM - 19 ) * 8
. NAARY ( 12 - :REGEL ) * 10.4. ALS :P D
AN PN.END..TO REGEL. RES INTEGER ( 12.1 
- YPOS / 10.4 ).END..TO ZET1 :TEKST. ALS
 WOORD? :TEKST DAN ZETWOORD :TEKST NAARX
 XPOS - 8 KOM STOP. ALS LEEG? :TEKST DAN
 NAARX XPOS - 8 KOM STOP. ZETWOORD EERST
E :TEKST ZET1 ME :TEKST.END..TO ZETRIJ :
N :TOETS. LOKAAL "T LOKAAL "P. MAAK "P E
ERSTE TOESTAND. ALS NIET GETAL? :N PRINT
 [GETAL EERST] STOP. ALS :N > 0 MAAK "T 
1 ANDERS MAAK "T ( - 1 ). ALS LEEG? :TOE
TS DAN MAAK "TOETS " ANDERS ALS LIJST? :
TOETS DAN MAAK "TOETS EERSTE EERSTE :TOE
TS ANDERS MAAK "TOETS EERSTE :TOETS. PO 
HERHAAL :N * :T [STEMPEL :TOETS VT 8 * :
T]. ALS :P DAN PN.END..TO KANTEEL. RE 90
 VT 5 RE 90 VT 5 LI 90 VT 5 LI 90 VT 5.E
ND..TO KASTEEL. NB MS PO AT 50. AT 20. R
E 90 VT 80. VT 40. PN AT 170. AT 70. LI 
90 VT 80 LI 90 VT 10 RE 90 VT 20 HERHAAL
 5 [KANTEEL]. RE 90 VT 5 RE 90 VT 20 RE 
90 VT 10 LI 90 VT 80. AT 60 RE 180 HERHA
AL 10 [KANTEEL]. HERHAAL 5 [KANTEEL]. RE
 90 VT 5 LI 90 AT 60 VT 80. LI 90 VT 10 
RE 90 VT 20. HERHAAL 5 [KANTEEL] RE 90 V
T 5 RE 90 VT 20 RE 90 VT 10 LI 90 VT 80.
 LI 90 GUM VT 20 PEN PO NB. AT 60. AT 5.
 RE 90 PN VT 5. GUM AT 5 LI 90 PEN. VT 2
0. AT 25. VT 25. LI 90 VT 15 LI 90 VT 25
.END..TO ZETRAND. LOKAAL "X0 MAAK "X0 XP
OS LOKAAL "Y0 MAAK "Y0 YPOS. PO NAARXY -
 160 130 PN NAARY - 75 NAARX 159 NAARY 1
30 NAARX - 160. PO NAARXY :X0 :Y0.END..T
O BEGIN. PO NAARPL 0 0 MS NAARHOEK 90.EN
D..TO ZET :TEKST. SPROOK 0 KOM ZET1 :TEK
ST. ALS REGEL < 18 DAN NAARPL 0 REGEL + 
1 ANDERS NAARPL 0 0.END..TO RAAM. HERHAA
L 4 [RE 90 VIERKANT]. PO VT 45 PN RE 90 
VT 45 HERHAAL 4 [RE 90 VT 90].END..TO DI
AMANT .END..TO ACHTHOEK. HERHAAL 8 [VT 2
5 RE 45].END..TO VIERKANT. HERHAAL 4 [VT
 40 RE 90].END..TO &B. && "PRINTB.END..T
O !H. WEG [BEWAARP ONTHOUD PROG ANTWOORD
1 IN EENUIT PEN BOOGJE WACHT SPATIE SP R
UIMTE &V &L &P &Z &M &S && &B !H].END..T
O BEWAARP :BESTAND :NAMEN. ( BEWAAR :BES
TAND :NAMEN ). PR "BEWAARD.END..TO ONTHO
UD :NAAM. PRINT1 "> DEFINIEER :NAAM ZETV
 [] PROG :NAAM ANTWOORD.END..TO PROG :NA
AM :COMM. ALS :COMM = [END] PRINT SAMEN 
:NAAM [GELEERD] RES []. RUN :COMM PRINT1
 ">. RES ZETV :COMM PROG :NAAM ANTWOORD.
END..TO ANTWOORD1. LOKAAL "A MAAK "A ANT
WOORD. ALS LEEG? :A RES " ANDERS RES EER
STE :A.END..TO IN :LIJST :TEKST. ALS WOO
RD? :TEKST MAAK "TEKST SAMEN :TEKST []. 
ALS LEEG? :TEKST RESULTAAT "WAAR. ALS NI
ET ERBIJ? EERSTE :TEKST :LIJST RES "NIET
W. RESULTAAT IN :LIJST ME :TEKST.END..TO
 EENUIT :LIJST. RESULTAAT SAMEN [] ELEME
NT ( 1 + RANDOM AANTAL :LIJST ) :LIJST.E
ND..TO PEN. KL 1.END..TO BOOGJE :STRAAL.
 HERHAAL 10 [VT 3.141 * :STRAAL / 20 RE 
9].END..TO WACHT :TIJD. HERHAAL 750 * :T
IJD [].END..TO SPATIE :AANTAL. ALS :AANT
AL = 1 RES CHAR 32. RES WOORD CHAR 32 SP
ATIE :AANTAL - 1.END..TO SP :AANTAL. RES
ULTAAT SPATIE :AANTAL.END..TO RUIMTE. .G
COLL PR .NODES.END..TO &V. && "VORMEN.EN
D..TO &L. && "LIJSTEN.END..TO &P. && "PR
INTV.END..TO &Z. && "ZETTEN.END..TO &M. 
&& "MUZIEK.END..TO &S. && "SPROKEN.END..
TO && :X. SCHRIJVEN. MAAK "X WOORD "LOGO
 :X. PR SAMEN :X [WORDT NU GELADEN]. LAA
D :X.END..MAAK "GIS (8).MAAK "FIS (6).MA
AK "DIS (3).MAAK "CIS (1).MAAK "BES (10)
.MAAK "AIS (10).MAAK "G (7).MAAK "F (5).
MAAK "E (4).MAAK "D (2).MAAK "B (11).MAA
K "LADDER [8779 9301 9854 10440 11060 11
718 12415 13153 13935 14764 15742 16572 
17557 18601].MAAK "OCTAAF (1).MAAK "TEMP
O (20).MAAK "LP (15).MAAK "HP (15).MAAK 
"GOLF (17).MAAK "SR (0).MAAK "AD (9).MAA
K "C (0).MAAK "A (9).MAAK "STARTOP [ZETO
P].
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL