ARENDARVON
FILE INFORMATION
FILENAME(S): ARENDARVON
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-12-01 02:26:10
APPEARS ON: 1 disk(s)
FILE HASH
bb3fc12d7fd16355bf4906b1305beda6f561aaa320d04e589beab9f6658cce10
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ADVENTURE S | ARENDARVON | PRG | Shine | 21 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 0B 00 8F 20 2A |********.O.... *|
00000030: 41 52 45 4E 44 41 52 56 4F 4E 20 43 41 53 54 4C |ARENDARVON CASTL|
00000040: 45 2C 20 56 45 52 53 49 45 20 31 2E 31 4E 2A 00 |E, VERSIE 1.1N*.|
00000050: 76 08 0C 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |v.... **********|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 2A 2A 2A 2A 2A 2A 00 91 08 14 00 8D 20 34 30 30 |******...... 400|
00000080: 30 3A 8F 20 49 4E 49 54 49 41 4C 49 53 41 54 49 |0:. INITIALISATI|
00000090: 45 00 B2 08 1E 00 9E 20 33 39 37 32 38 3A 8F 20 |E...... 39728:. |
000000A0: 41 4C 41 44 49 4E 20 49 4E 54 45 52 50 52 45 54 |ALADIN INTERPRET|
000000B0: 45 52 00 C7 08 28 00 42 41 53 20 B2 20 C2 28 53 |ER...(.BAS . .(S|
000000C0: 41 20 AA 20 33 30 29 00 FB 08 32 00 91 20 42 41 |A . 30)...2.. BA|
000000D0: 53 20 8D 20 31 30 30 30 2C 33 31 30 30 2C 33 30 |S . 1000,3100,30|
000000E0: 30 30 2C 32 30 30 30 2C 33 32 30 30 2C 33 33 30 |00,2000,3200,330|
000000F0: 30 2C 33 34 30 30 2C 33 35 30 30 00 14 09 3C 00 |0,3400,3500...<.|
00000100: 8B 20 42 41 53 20 B1 B2 20 31 30 20 A7 20 8D 20 |. BAS .. 10 . . |
00000110: 33 31 30 30 00 1D 09 46 00 89 20 33 30 00 30 09 |3100...F.. 30.0.|
00000120: 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |d.. ************|
00000130: 00 43 09 65 00 8F 20 2A 4C 45 45 53 20 57 4F 4F |.C.e.. *LEES WOO|
00000140: 52 44 2A 00 56 09 66 00 8F 20 2A 2A 2A 2A 2A 2A |RD*.V.f.. ******|
00000150: 2A 2A 2A 2A 2A 2A 00 63 09 6E 00 57 44 24 20 B2 |******.c.n.WD$ .|
00000160: 20 22 22 00 6C 09 78 00 84 34 2C 43 00 90 09 82 | "".l.x..4,C....|
00000170: 00 8B 20 43 20 B2 20 31 33 20 A7 20 57 44 B2 57 |.. C . 13 . WD.W|
00000180: 44 AA 31 3A 99 20 22 13 11 11 22 3B 57 44 3A 8E |D.1:. "...";WD:.|
00000190: 00 A5 09 8C 00 57 44 24 20 B2 20 57 44 24 20 AA |.....WD$ . WD$ .|
000001A0: 20 C7 28 43 29 00 AF 09 96 00 89 20 31 32 30 00 | .(C)...... 120.|
000001B0: BE 09 E8 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 00 CD |..... ********..|
000001C0: 09 E9 03 8F 20 2A 50 41 52 53 45 52 2A 00 DC 09 |.... *PARSER*...|
000001D0: EA 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 00 E8 09 F2 |... ********....|
000001E0: 03 85 20 22 22 3B 43 24 00 FA 09 FC 03 8B 20 43 |.. "";C$...... C|
000001F0: 24 20 B2 20 22 22 20 A7 20 8E 00 17 0A 06 04 8D |$ . "" . .......|
00000200: 20 31 31 35 30 3A 20 8F 20 56 4F 4C 47 45 4E 44 | 1150: . VOLGEND|
00000210: 45 20 57 4F 4F 52 44 00 30 0A 10 04 8D 20 31 32 |E WOORD.0.... 12|
00000220: 33 30 3A 20 8F 20 5A 4F 45 4B 20 57 4F 4F 52 44 |30: . ZOEK WOORD|
00000230: 00 44 0A 1A 04 8B 20 49 44 20 B2 20 30 20 A7 20 |.D.... ID . 0 . |
00000240: 31 30 32 30 00 6A 0A 24 04 91 20 4D 44 25 28 49 |1020.j.$.. MD%(I|
00000250: 44 2C 33 29 20 89 20 31 30 37 30 2C 31 30 38 30 |D,3) . 1070,1080|
00000260: 2C 31 31 30 30 2C 31 31 33 30 00 8A 0A 2E 04 97 |,1100,1130......|
00000270: 20 53 41 20 AA 20 31 34 2C 4D 44 25 28 49 44 2C | SA . 14,MD%(ID,|
00000280: 32 29 3A 20 89 20 31 30 32 30 00 BC 0A 38 04 8B |2): . 1020...8..|
00000290: 20 C2 28 53 41 20 AA 20 31 29 20 B2 20 30 20 A7 | .(SA . 1) . 0 .|
000002A0: 20 97 20 53 41 20 AA 20 31 2C 20 4D 44 25 28 49 | . SA . 1, MD%(I|
000002B0: 44 2C 32 29 3A 20 89 20 31 30 32 30 00 EE 0A 42 |D,2): . 1020...B|
000002C0: 04 8B 20 C2 28 53 41 20 AA 20 32 29 20 B2 20 30 |.. .(SA . 2) . 0|
000002D0: 20 A7 20 97 20 53 41 20 AA 20 32 2C 20 4D 44 25 | . . SA . 2, MD%|
000002E0: 28 49 44 2C 32 29 3A 20 89 20 31 30 32 30 00 0C |(ID,2): . 1020..|
000002F0: 0B 4C 04 44 20 B2 20 C2 28 53 41 20 AA 20 39 29 |.L.D . .(SA . 9)|
00000300: 20 AA 20 4D 44 25 28 49 44 2C 32 29 00 2D 0B 56 | . MD%(ID,2).-.V|
00000310: 04 97 20 53 41 20 AA 20 31 31 2C 28 44 20 AB 20 |.. SA . 11,(D . |
00000320: 34 20 AC 20 B5 28 44 20 AD 20 35 29 29 00 38 0B |4 . .(D . 5)).8.|
00000330: 60 04 89 20 31 30 32 30 00 4F 0B 6A 04 97 20 53 |`.. 1020.O.j.. S|
00000340: 41 20 AA 20 34 2C 4D 44 25 28 49 44 2C 32 29 00 |A . 4,MD%(ID,2).|
00000350: 5A 0B 74 04 89 20 31 30 32 30 00 71 0B 7E 04 8F |Z.t.. 1020.q.~..|
00000360: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000370: 2A 00 88 0B 7F 04 8F 20 2A 56 4F 4C 47 45 4E 44 |*...... *VOLGEND|
00000380: 45 20 57 4F 4F 52 44 2A 00 9F 0B 80 04 8F 20 2A |E WOORD*...... *|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000003A0: AC 0B 88 04 57 44 24 20 B2 20 22 22 00 BE 0B 92 |....WD$ . ""....|
000003B0: 04 43 48 24 20 B2 20 C8 28 43 24 2C 31 29 00 CF |.CH$ . .(C$,1)..|
000003C0: 0B 9C 04 43 24 20 B2 20 CA 28 43 24 2C 32 29 00 |...C$ . .(C$,2).|
000003D0: F1 0B A6 04 8B 20 43 48 24 20 B2 20 22 20 22 20 |..... CH$ . " " |
000003E0: AF 20 57 44 24 20 B2 20 22 22 20 A7 20 31 31 37 |. WD$ . "" . 117|
000003F0: 30 00 0F 0C B0 04 8B 20 43 48 24 20 B2 20 22 20 |0...... CH$ . " |
00000400: 22 20 B0 20 43 48 24 B2 20 22 22 20 A7 20 8E 00 |" . CH$. "" . ..|
00000410: 23 0C BA 04 57 44 24 20 B2 20 57 44 24 20 AA 20 |#...WD$ . WD$ . |
00000420: 43 48 24 00 2E 0C C4 04 89 20 31 31 37 30 00 41 |CH$...... 1170.A|
00000430: 0C CE 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000440: 2A 00 54 0C CF 04 8F 20 2A 5A 4F 45 4B 20 57 4F |*.T.... *ZOEK WO|
00000450: 4F 52 44 2A 00 67 0C D0 04 8F 20 2A 2A 2A 2A 2A |ORD*.g.... *****|
00000460: 2A 2A 2A 2A 2A 2A 2A 00 7E 0C D8 04 49 44 20 B2 |*******.~...ID .|
00000470: 20 30 3A 20 4C 20 B2 20 C3 28 57 44 24 29 00 A3 | 0: L . .(WD$)..|
00000480: 0C E2 04 8B 20 4C 20 B1 20 35 20 A7 20 4C 20 B2 |.... L . 5 . L .|
00000490: 20 35 3A 20 57 44 24 20 B2 20 C8 28 20 57 44 24 | 5: WD$ . .( WD$|
000004A0: 2C 4C 29 00 B4 0C EC 04 81 20 49 20 B2 20 31 20 |,L)...... I . 1 |
000004B0: A4 20 4E 43 00 E5 0C F6 04 8B 20 C8 28 54 58 54 |. NC...... .(TXT|
000004C0: 24 28 4D 44 25 28 49 2C 31 29 29 2C 4C 29 20 B2 |$(MD%(I,1)),L) .|
000004D0: 20 57 44 24 20 A7 20 49 44 20 B2 20 49 3A 20 49 | WD$ . ID . I: I|
000004E0: 20 B2 20 4E 43 00 EB 0C 00 05 82 00 F1 0C 0A 05 | . NC...........|
000004F0: 8E 00 07 0D D0 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000500: 2A 2A 2A 2A 2A 2A 2A 00 1D 0D D1 07 8F 20 2A 44 |*******...... *D|
00000510: 49 53 50 4C 41 59 20 54 45 4B 53 54 2A 00 33 0D |ISPLAY TEKST*.3.|
00000520: D2 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000530: 2A 2A 2A 00 5C 0D DA 07 54 58 54 20 B2 20 C2 28 |***.\...TXT . .(|
00000540: 33 30 30 30 30 29 20 AA 20 C2 28 33 30 30 30 31 |30000) . .(30001|
00000550: 29 20 AC 20 32 35 36 20 AA 20 4E 57 00 68 0D E4 |) . 256 . NW.h..|
00000560: 07 52 57 20 B2 20 33 39 00 7B 0D EE 07 54 24 20 |.RW . 39.{...T$ |
00000570: B2 20 54 58 54 24 28 54 58 54 29 00 A1 0D F8 07 |. TXT$(TXT).....|
00000580: 8B 20 C3 28 54 24 29 20 B2 20 30 20 A7 20 97 20 |. .(T$) . 0 . . |
00000590: 35 31 2C 46 31 3A 20 97 20 35 32 2C 46 32 3A 20 |51,F1: . 52,F2: |
000005A0: 8E 00 B3 0D 02 08 43 48 24 20 B2 20 C8 28 54 24 |......CH$ . .(T$|
000005B0: 2C 32 29 00 DD 0D 0C 08 57 49 20 B2 20 28 C6 28 |,2).....WI . (.(|
000005C0: 43 48 24 29 20 AB 20 35 29 20 AC 20 31 32 37 20 |CH$) . 5) . 127 |
000005D0: AA 20 C6 28 C9 28 43 48 24 2C 31 29 29 00 EE 0D |. .(.(CH$,1))...|
000005E0: 16 08 54 24 20 B2 20 CA 28 54 24 2C 33 29 00 01 |..T$ . .(T$,3)..|
000005F0: 0E 20 08 57 44 24 20 B2 20 54 58 54 24 28 57 49 |. .WD$ . TXT$(WI|
00000600: 29 00 1A 0E 2A 08 8B 20 C6 28 57 44 24 29 20 B2 |)...*.. .(WD$) .|
00000610: 20 33 36 20 A7 20 32 31 39 30 00 2C 0E 34 08 50 | 36 . 2190.,.4.P|
00000620: 53 20 B2 20 B9 28 44 55 4D 4D 59 29 00 45 0E 3E |S . .(DUMMY).E.>|
00000630: 08 50 53 20 B2 20 50 53 20 AA 20 C3 28 57 44 24 |.PS . PS . .(WD$|
00000640: 29 20 AA 20 31 00 5C 0E 48 08 8B 20 50 53 20 B1 |) . 1.\.H.. PS .|
00000650: 20 52 57 20 A7 20 8D 20 32 31 35 30 00 6B 0E 52 | RW . . 2150.k.R|
00000660: 08 99 20 57 44 24 3B 22 20 22 3B 00 76 0E 5C 08 |.. WD$;" ";.v.\.|
00000670: 89 20 32 30 34 30 00 99 0E 66 08 8B 20 C6 28 57 |. 2040...f.. .(W|
00000680: 44 24 29 20 B2 20 32 30 20 AF 20 C3 28 57 44 24 |D$) . 20 . .(WD$|
00000690: 29 20 B2 20 32 20 A7 20 8E 00 9F 0E 70 08 99 00 |) . 2 . ....p...|
000006A0: BA 0E 7A 08 8B 20 C6 28 57 44 24 29 20 B2 20 32 |..z.. .(WD$) . 2|
000006B0: 30 20 A7 20 99 20 22 20 22 3B 00 C0 0E 84 08 8E |0 . . " ";......|
000006C0: 00 D5 0E 8E 08 4A 50 20 B2 20 C5 28 CA 28 57 44 |.....JP . .(.(WD|
000006D0: 24 2C 32 29 29 00 F3 0E 98 08 4E 56 B2 B5 28 4A |$,2)).....NV..(J|
000006E0: 50 AD 33 31 29 3A 4A 50 B2 4A 50 AB 28 4E 56 AC |P.31):JP.JP.(NV.|
000006F0: 33 31 29 00 0C 0F A2 08 8B 20 4A 50 20 B2 20 30 |31)...... JP . 0|
00000700: 20 A7 20 99 3A 20 89 20 32 30 34 30 00 3D 0F AC | . .: . 2040.=..|
00000710: 08 8B 20 4A 50 20 B1 20 31 33 20 A7 20 57 44 24 |.. JP . 13 . WD$|
00000720: 20 B2 20 C4 28 C2 28 53 41 20 AA 20 33 31 20 AA | . .(.(SA . 31 .|
00000730: 20 4A 50 29 29 3A 20 89 20 32 31 30 30 00 6F 0F | JP)): . 2100.o.|
00000740: B6 08 54 24 20 B2 20 54 58 54 24 28 C2 28 53 41 |..T$ . TXT$(.(SA|
00000750: 20 AA 20 33 31 20 AA 20 4A 50 29 20 AA 20 4E 57 | . 31 . JP) . NW|
00000760: 20 AA 20 4E 54 20 AA 4E 56 29 20 AA 20 54 24 00 | . NT .NV) . T$.|
00000770: 7A 0F C0 08 89 20 32 30 34 30 00 89 0F B8 0B 8F |z.... 2040......|
00000780: 20 2A 2A 2A 2A 2A 2A 2A 2A 00 98 0F B9 0B 8F 20 | ********...... |
00000790: 2A 52 45 54 55 52 4E 2A 00 A7 0F BA 0B 8F 20 2A |*RETURN*...... *|
000007A0: 2A 2A 2A 2A 2A 2A 2A 00 B7 0F C2 0B 53 50 20 B2 |*******.....SP .|
000007B0: 20 53 50 20 AB 20 31 00 C8 0F CC 0B 41 50 20 B2 | SP . 1.....AP .|
000007C0: 20 53 54 4B 28 53 50 29 00 D3 0F D6 0B 8D 20 34 | STK(SP)...... 4|
000007D0: 33 30 30 00 D9 0F E0 0B 8E 00 F3 0F 1C 0C 8F 20 |300............ |
000007E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007F0: 2A 2A 2A 00 0D 10 1D 0C 8F 20 2A 41 4C 41 44 49 |***...... *ALADI|
00000800: 4E 20 53 55 42 52 4F 55 54 49 4E 45 2A 00 27 10 |N SUBROUTINE*.'.|
00000810: 1E 0C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000820: 2A 2A 2A 2A 2A 2A 2A 00 4B 10 26 0C 53 54 4B 28 |*******.K.&.STK(|
00000830: 53 50 29 20 B2 20 C2 28 32 35 32 29 20 AC 20 32 |SP) . .(252) . 2|
00000840: 35 36 20 AA 20 C2 28 32 35 31 29 00 5B 10 30 0C |56 . .(251).[.0.|
00000850: 53 50 20 B2 20 53 50 20 AA 20 31 00 6D 10 3A 0C |SP . SP . 1.m.:.|
00000860: 41 50 B2 42 45 47 49 4E AA 36 30 30 30 00 78 10 |AP.BEGIN.6000.x.|
00000870: 44 0C 8D 20 34 33 30 30 00 7E 10 4E 0C 8E 00 97 |D.. 4300.~.N....|
00000880: 10 80 0C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000890: 2A 2A 2A 2A 2A 2A 2A 00 B0 10 81 0C 8F 20 2A 52 |*******...... *R|
000008A0: 41 4E 44 4F 4D 20 47 45 4E 45 52 41 54 4F 52 2A |ANDOM GENERATOR*|
000008B0: 00 C9 10 82 0C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
000008C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DC 10 8A 0C 58 20 |*********.....X |
000008D0: B2 20 C2 28 53 41 20 AA 20 32 38 29 00 F4 10 94 |. .(SA . 28)....|
000008E0: 0C 58 20 B2 20 B5 28 BB 28 31 29 20 AC 20 58 29 |.X . .(.(1) . X)|
000008F0: 20 AA 20 31 00 03 11 9E 0C 97 20 53 41 20 AA 20 | . 1...... SA . |
00000900: 33 2C 58 00 09 11 A8 0C 8E 00 16 11 E4 0C 8F 20 |3,X............ |
00000910: 2A 2A 2A 2A 2A 2A 00 23 11 E5 0C 8F 20 2A 53 41 |******.#.... *SA|
00000920: 56 45 2A 00 30 11 E6 0C 8F 20 2A 2A 2A 2A 2A 2A |VE*.0.... ******|
00000930: 00 58 11 EE 0C 85 22 46 49 4C 45 4E 41 41 4D 20 |.X...."FILENAAM |
00000940: 28 4F 46 20 41 4C 4C 45 45 4E 20 3C 52 45 54 55 |(OF ALLEEN <RETU|
00000950: 52 4E 3E 29 22 3B 46 24 00 6A 11 F8 0C 8B 20 46 |RN>)";F$.j.... F|
00000960: 24 20 B2 20 22 22 20 A7 20 8E 00 A1 11 02 0D 5A |$ . "" . ......Z|
00000970: 31 20 B2 20 C2 28 32 35 31 29 3A 20 5A 32 20 B2 |1 . .(251): Z2 .|
00000980: 20 C2 28 32 35 32 29 3A 20 5A 33 20 B2 20 C2 28 | .(252): Z3 . .(|
00000990: 32 35 33 29 3A 20 5A 34 20 B2 20 C2 28 32 35 34 |253): Z4 . .(254|
000009A0: 29 00 D0 11 0C 0D 97 20 32 35 31 2C 20 37 32 3A |)...... 251, 72:|
000009B0: 20 97 20 32 35 32 2C 31 31 37 3A 20 97 20 32 35 | . 252,117: . 25|
000009C0: 33 2C 31 30 33 3A 20 97 20 32 35 34 2C 31 32 33 |3,103: . 254,123|
000009D0: 00 E9 11 16 0D 8F 20 43 41 53 2E 3A 4F 50 45 4E |...... CAS.:OPEN|
000009E0: 20 34 2C 31 2C 31 2C 46 24 00 F8 11 17 0D 9F 20 | 4,1,1,F$...... |
000009F0: 34 2C 38 2C 31 2C 46 24 00 02 12 20 0D 9E 20 36 |4,8,1,F$... .. 6|
00000A00: 37 39 00 10 12 2A 0D 46 24 B2 22 22 3A A0 20 34 |79...*.F$."":. 4|
00000A10: 00 3B 12 34 0D 97 20 32 35 31 2C 5A 31 3A 20 97 |.;.4.. 251,Z1: .|
00000A20: 20 32 35 32 2C 5A 32 3A 20 97 20 32 35 33 2C 5A | 252,Z2: . 253,Z|
00000A30: 33 3A 20 97 20 32 35 34 2C 5A 34 00 41 12 3E 0D |3: . 254,Z4.A.>.|
00000A40: 8E 00 4E 12 48 0D 8F 20 2A 2A 2A 2A 2A 2A 00 5B |..N.H.. ******.[|
00000A50: 12 49 0D 8F 20 2A 4C 4F 41 44 2A 00 68 12 4A 0D |.I.. *LOAD*.h.J.|
00000A60: 8F 20 2A 2A 2A 2A 2A 2A 00 90 12 52 0D 85 22 46 |. ******...R.."F|
00000A70: 49 4C 45 4E 41 41 4D 20 28 4F 46 20 41 4C 4C 45 |ILENAAM (OF ALLE|
00000A80: 45 4E 20 3C 52 45 54 55 52 4E 3E 29 22 3B 46 24 |EN <RETURN>)";F$|
00000A90: 00 A2 12 5C 0D 8B 20 46 24 20 B2 20 22 22 20 A7 |...\.. F$ . "" .|
00000AA0: 20 8E 00 BB 12 70 0D 8F 20 43 41 53 2E 3A 4F 50 | ....p.. CAS.:OP|
00000AB0: 45 4E 20 31 2C 31 2C 30 2C 46 24 00 CA 12 71 0D |EN 1,1,0,F$...q.|
00000AC0: 9F 20 31 2C 38 2C 30 2C 46 24 00 D4 12 7A 0D 9E |. 1,8,0,F$...z..|
00000AD0: 20 36 39 31 00 E2 12 84 0D 46 24 B2 22 22 3A A0 | 691.....F$."":.|
00000AE0: 20 31 00 E8 12 8E 0D 8E 00 F8 12 AC 0D 8F 20 2A | 1............ *|
00000AF0: 2A 2A 2A 2A 2A 2A 2A 2A 00 08 13 AD 0D 8F 20 2A |********...... *|
00000B00: 52 45 53 54 41 52 54 2A 00 18 13 AE 0D 8F 20 2A |RESTART*...... *|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 00 21 13 B6 0D 85 20 43 |********.!.... C|
00000B20: 24 00 3F 13 C0 0D 99 20 22 43 4F 50 49 45 52 45 |$.?.... "COPIERE|
00000B30: 4E 20 53 54 41 54 55 53 2D 41 52 52 41 59 22 00 |N STATUS-ARRAY".|
00000B40: 52 13 CA 0D 81 20 49 20 B2 20 30 20 A4 20 53 49 |R.... I . 0 . SI|
00000B50: 5A 45 00 6D 13 D4 0D 97 20 53 41 20 AA 20 49 2C |ZE.m.... SA . I,|
00000B60: 20 C2 28 35 30 30 30 30 20 AA 20 49 29 00 75 13 | .(50000 . I).u.|
00000B70: DE 0D 82 20 49 00 89 13 E8 0D 41 50 B2 42 45 47 |... I.....AP.BEG|
00000B80: 49 4E 3A 8D 20 34 33 30 30 00 93 13 F2 0D 99 20 |IN:. 4300...... |
00000B90: 22 93 22 00 99 13 FC 0D 8E 00 AF 13 A0 0F 8F 20 |"."............ |
00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000BB0: C5 13 A1 0F 8F 20 2A 49 4E 49 54 49 41 4C 49 53 |..... *INITIALIS|
00000BC0: 41 54 49 45 2A 00 DB 13 A2 0F 8F 20 2A 2A 2A 2A |ATIE*...... ****|
00000BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F0 13 AA 0F |***********.....|
00000BE0: 41 44 52 B2 33 30 30 30 32 3A 8D 20 34 37 30 30 |ADR.30002:. 4700|
00000BF0: 00 09 14 B4 0F 99 20 22 49 4E 4C 45 5A 45 4E 20 |...... "INLEZEN |
00000C00: 44 41 54 41 46 49 4C 45 22 00 32 14 BE 0F 97 20 |DATAFILE".2.... |
00000C10: 35 31 2C 34 37 3A 20 97 20 35 32 2C 31 31 37 3A |51,47: . 52,117:|
00000C20: 20 97 20 35 35 2C 34 37 3A 20 97 20 35 36 2C 31 | . 55,47: . 56,1|
00000C30: 31 37 00 53 14 C8 0F 8F 20 43 41 53 2E 3A 4F 50 |17.S.... CAS.:OP|
00000C40: 45 4E 20 34 2C 31 2C 30 2C 22 44 41 54 41 46 49 |EN 4,1,0,"DATAFI|
00000C50: 4C 45 22 00 70 14 C9 0F 9F 20 34 2C 38 2C 32 2C |LE".p.... 4,8,2,|
00000C60: 22 44 41 54 41 46 49 4C 45 2C 53 45 51 2C 52 22 |"DATAFILE,SEQ,R"|
00000C70: 00 87 14 DC 0F 8D 20 31 30 30 3A 20 4E 43 20 B2 |...... 100: NC .|
00000C80: 20 C5 28 57 44 24 29 00 9E 14 E6 0F 8D 20 31 30 | .(WD$)...... 10|
00000C90: 30 3A 20 4E 57 20 B2 20 C5 28 57 44 24 29 00 B5 |0: NW . .(WD$)..|
00000CA0: 14 F0 0F 8D 20 31 30 30 3A 20 4E 54 20 B2 20 C5 |.... 100: NT . .|
00000CB0: 28 57 44 24 29 00 CC 14 FA 0F 8D 20 31 30 30 3A |(WD$)...... 100:|
00000CC0: 20 4E 44 20 B2 20 C5 28 57 44 24 29 00 DC 14 04 | ND . .(WD$)....|
00000CD0: 10 86 20 4D 44 25 28 4E 43 2C 33 29 00 ED 14 0E |.. MD%(NC,3)....|
00000CE0: 10 81 20 49 20 B2 20 31 20 A4 20 4E 43 00 0A 15 |.. I . 1 . NC...|
00000CF0: 18 10 8D 20 31 30 30 3A 20 4D 44 25 28 49 2C 31 |... 100: MD%(I,1|
00000D00: 29 20 B2 20 C5 28 57 44 24 29 00 27 15 22 10 8D |) . .(WD$).'."..|
00000D10: 20 31 30 30 3A 20 4D 44 25 28 49 2C 32 29 20 B2 | 100: MD%(I,2) .|
00000D20: 20 C5 28 57 44 24 29 00 44 15 2C 10 8D 20 31 30 | .(WD$).D.,.. 10|
00000D30: 30 3A 20 4D 44 25 28 49 2C 33 29 20 B2 20 C5 28 |0: MD%(I,3) . .(|
00000D40: 57 44 24 29 00 4C 15 36 10 82 20 49 00 62 15 40 |WD$).L.6.. I.b.@|
00000D50: 10 4E 52 20 B2 20 4E 57 20 AA 20 4E 54 20 AA 20 |.NR . NW . NT . |
00000D60: 4E 44 00 71 15 4A 10 86 20 54 58 54 24 28 4E 52 |ND.q.J.. TXT$(NR|
00000D70: 29 00 89 15 54 10 81 20 49 20 B2 20 31 20 A4 20 |)...T.. I . 1 . |
00000D80: 4E 52 3A 20 8D 20 31 30 30 00 BD 15 5E 10 8B 20 |NR: . 100...^.. |
00000D90: C6 28 57 44 24 29 20 B2 20 38 20 AF 20 49 20 B3 |.(WD$) . 8 . I .|
00000DA0: B2 20 4E 57 20 A7 20 57 44 24 20 B2 20 C7 28 32 |. NW . WD$ . .(2|
00000DB0: 30 29 20 AA 20 CA 28 57 44 24 2C 32 29 00 CF 15 |0) . .(WD$,2)...|
00000DC0: 68 10 54 58 54 24 28 49 29 20 B2 20 57 44 24 00 |h.TXT$(I) . WD$.|
00000DD0: D7 15 72 10 82 20 49 00 DF 15 7C 10 A0 20 34 00 |..r.. I...|.. 4.|
00000DE0: FE 15 86 10 99 20 22 47 45 48 45 55 47 45 4E 20 |..... "GEHEUGEN |
00000DF0: 52 45 4F 52 47 41 4E 49 53 45 52 45 4E 22 00 27 |REORGANISEREN".'|
00000E00: 16 90 10 44 55 4D 4D 59 20 B2 20 B8 28 30 29 3A |...DUMMY . .(0):|
00000E10: 20 46 31 20 B2 20 C2 28 35 31 29 3A 20 46 32 20 | F1 . .(51): F2 |
00000E20: B2 20 C2 28 35 32 29 00 49 16 9A 10 53 41 B2 33 |. .(52).I...SA.3|
00000E30: 30 30 32 34 3A 42 45 47 49 4E B2 33 31 36 39 37 |0024:BEGIN.31697|
00000E40: 3A 41 50 B2 42 45 47 49 4E 00 61 16 A4 10 8D 20 |:AP.BEGIN.a.... |
00000E50: 34 35 30 30 3A 8D 20 34 33 30 30 3A 99 20 22 93 |4500:. 4300:. ".|
00000E60: 22 00 67 16 AE 10 8E 00 83 16 CC 10 8F 20 2A 2A |".g.......... **|
00000E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E80: 2A 2A 2A 00 9F 16 CD 10 8F 20 2A 50 4F 4B 45 20 |***...... *POKE |
00000E90: 41 4C 41 44 49 4E 20 50 4F 49 4E 54 45 52 2A 00 |ALADIN POINTER*.|
00000EA0: BB 16 CE 10 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
00000EB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E4 16 D6 10 |***********.....|
00000EC0: 48 42 20 B2 20 B5 28 41 50 20 AD 20 32 35 36 29 |HB . .(AP . 256)|
00000ED0: 3A 20 4C 42 20 B2 20 41 50 20 AB 20 48 42 20 AC |: LB . AP . HB .|
00000EE0: 20 32 35 36 00 FB 16 E0 10 97 20 32 35 32 2C 48 | 256...... 252,H|
00000EF0: 42 3A 20 97 20 32 35 31 2C 4C 42 00 01 17 EA 10 |B: . 251,LB.....|
00000F00: 8E 00 1F 17 94 11 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000F20: 3D 17 95 11 8F 20 2A 43 4F 50 49 45 52 45 4E 20 |=.... *COPIEREN |
00000F30: 53 54 41 54 55 53 2D 41 52 52 41 59 2A 00 5B 17 |STATUS-ARRAY*.[.|
00000F40: 96 11 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6A 17 9E 11 |***********.j...|
00000F60: 53 49 5A 45 B2 41 50 AB 53 41 00 88 17 A8 11 99 |SIZE.AP.SA......|
00000F70: 20 22 43 4F 50 49 45 52 45 4E 20 53 54 41 54 55 | "COPIEREN STATU|
00000F80: 53 2D 41 52 52 41 59 22 00 9B 17 B2 11 81 20 49 |S-ARRAY"...... I|
00000F90: 20 B2 20 30 20 A4 20 53 49 5A 45 00 B6 17 BC 11 | . 0 . SIZE.....|
00000FA0: 97 20 35 30 30 30 30 20 AA 20 49 2C 20 C2 28 53 |. 50000 . I, .(S|
00000FB0: 41 20 AA 20 49 29 00 BE 17 C6 11 82 20 49 00 C4 |A . I)...... I..|
00000FC0: 17 D0 11 8E 00 D9 17 5C 12 8F 20 2A 2A 2A 2A 2A |.......\.. *****|
00000FD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 17 5D 12 8F 20 |*********...].. |
00000FE0: 2A 4C 4F 41 44 20 41 4C 41 44 41 54 41 2A 00 03 |*LOAD ALADATA*..|
00000FF0: 18 5E 12 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.^.. ***********|
00001000: 2A 2A 2A 00 37 18 66 12 83 20 31 36 39 2C 32 35 |***.7.f.. 169,25|
00001010: 31 2C 31 36 36 2C 32 35 33 2C 31 36 34 2C 32 35 |1,166,253,164,25|
00001020: 34 2C 33 32 2C 32 31 36 2C 32 35 35 2C 31 33 33 |4,32,216,255,133|
00001030: 2C 32 35 33 2C 39 36 00 6B 18 70 12 83 20 31 36 |,253,96.k.p.. 16|
00001040: 39 2C 20 30 20 2C 31 36 36 2C 32 35 31 2C 31 36 |9, 0 ,166,251,16|
00001050: 34 2C 32 35 32 2C 33 32 2C 32 31 33 2C 32 35 35 |4,252,32,213,255|
00001060: 2C 31 33 33 2C 32 35 33 2C 39 36 00 7F 18 7A 12 |,133,253,96...z.|
00001070: 81 20 49 20 B2 20 36 37 39 20 A4 20 37 30 32 00 |. I . 679 . 702.|
00001080: 8F 18 84 12 87 20 41 3A 20 97 20 49 2C 20 41 00 |..... A: . I, A.|
00001090: 97 18 8E 12 82 20 49 00 B0 18 98 12 99 20 22 93 |..... I...... ".|
000010A0: 49 4E 4C 45 5A 45 4E 20 41 4C 41 44 41 54 41 22 |INLEZEN ALADATA"|
000010B0: 00 D0 18 A2 12 8F 20 43 41 53 2E 3A 4F 50 45 4E |...... CAS.:OPEN|
000010C0: 20 31 2C 31 2C 30 2C 22 41 4C 41 44 41 54 41 22 | 1,1,0,"ALADATA"|
000010D0: 00 E6 18 A3 12 9F 20 31 2C 38 2C 30 2C 22 41 4C |...... 1,8,0,"AL|
000010E0: 41 44 41 54 41 22 00 F0 18 AC 12 9E 20 36 39 31 |ADATA"...... 691|
000010F0: 00 F8 18 B6 12 A0 20 31 00 FE 18 C0 12 8E 00 12 |...... 1........|
00001100: 19 88 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00001110: 2A 2A 00 26 19 92 13 8F 20 2A 4D 41 41 4B 20 42 |**.&.... *MAAK B|
00001120: 41 43 4B 55 50 2A 00 3A 19 9C 13 8F 20 2A 2A 2A |ACKUP*.:.... ***|
00001130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 45 19 A1 13 8D |**********.E....|
00001140: 20 33 35 32 30 00 6B 19 A6 13 99 20 22 93 53 54 | 3520.k.... ".ST|
00001150: 4F 50 20 4C 45 47 45 20 44 49 53 4B 45 54 54 45 |OP LEGE DISKETTE|
00001160: 20 49 4E 20 46 4C 4F 50 50 59 22 00 8B 19 B0 13 | IN FLOPPY".....|
00001170: 85 20 22 44 52 55 4B 20 44 41 4E 20 4F 50 20 3C |. "DRUK DAN OP <|
00001180: 52 45 54 55 52 4E 3E 22 3B 43 24 00 A8 19 BA 13 |RETURN>";C$.....|
00001190: 8F 20 43 41 53 2E 3A 53 41 56 45 20 22 41 52 45 |. CAS.:SAVE "ARE|
000011A0: 4E 44 41 52 56 4F 4E 22 00 BF 19 C4 13 94 20 22 |NDARVON"...... "|
000011B0: 41 52 45 4E 44 41 52 56 4F 4E 22 2C 38 2C 31 00 |ARENDARVON",8,1.|
000011C0: D6 19 CE 13 5A 31 B2 C2 28 32 35 31 29 3A 97 20 |....Z1..(251):. |
000011D0: 32 35 31 2C 34 38 00 EE 19 D8 13 5A 32 B2 C2 28 |251,48.....Z2..(|
000011E0: 32 35 32 29 3A 97 20 32 35 32 2C 31 31 37 00 06 |252):. 252,117..|
000011F0: 1A E2 13 5A 33 B2 C2 28 32 35 33 29 3A 97 20 32 |...Z3..(253):. 2|
00001200: 35 33 2C 32 33 33 00 1E 1A EC 13 5A 34 B2 C2 28 |53,233.....Z4..(|
00001210: 32 35 34 29 3A 97 20 32 35 34 2C 31 35 36 00 3E |254):. 254,156.>|
00001220: 1A F6 13 8F 20 43 41 53 2E 3A 4F 50 45 4E 20 34 |.... CAS.:OPEN 4|
00001230: 2C 31 2C 31 2C 22 41 4C 41 44 41 54 41 22 00 54 |,1,1,"ALADATA".T|
00001240: 1A 00 14 9F 20 34 2C 38 2C 31 2C 22 41 4C 41 44 |.... 4,8,1,"ALAD|
00001250: 41 54 41 22 00 5E 1A 0A 14 9E 20 36 37 39 00 66 |ATA".^.... 679.f|
00001260: 1A 14 14 A0 20 34 00 7C 1A 1E 14 97 20 32 35 31 |.... 4.|.... 251|
00001270: 2C 5A 31 3A 97 20 32 35 32 2C 5A 32 00 92 1A 28 |,Z1:. 252,Z2...(|
00001280: 14 97 20 32 35 33 2C 5A 33 3A 97 20 32 35 34 2C |.. 253,Z3:. 254,|
00001290: 5A 34 00 B3 1A 32 14 8F 20 43 41 53 2E 3A 4F 50 |Z4...2.. CAS.:OP|
000012A0: 45 4E 20 34 2C 31 2C 31 2C 22 44 41 54 41 46 49 |EN 4,1,1,"DATAFI|
000012B0: 4C 45 22 00 D0 1A 3C 14 9F 20 34 2C 38 2C 34 2C |LE"...<.. 4,8,4,|
000012C0: 22 44 41 54 41 46 49 4C 45 2C 53 45 51 2C 57 22 |"DATAFILE,SEQ,W"|
000012D0: 00 EA 1A 41 14 99 3A 99 20 22 53 41 56 49 4E 47 |...A..:. "SAVING|
000012E0: 20 44 41 54 41 46 49 4C 45 22 00 FF 1A 46 14 57 | DATAFILE"...F.W|
000012F0: 44 24 B2 C4 28 4E 43 29 3A 8D 20 35 34 30 30 00 |D$..(NC):. 5400.|
00001300: 14 1B 50 14 57 44 24 B2 C4 28 4E 57 29 3A 8D 20 |..P.WD$..(NW):. |
00001310: 35 34 30 30 00 29 1B 5A 14 57 44 24 B2 C4 28 4E |5400.).Z.WD$..(N|
00001320: 54 29 3A 8D 20 35 34 30 30 00 3E 1B 64 14 57 44 |T):. 5400.>.d.WD|
00001330: 24 B2 C4 28 4E 44 29 3A 8D 20 35 34 30 30 00 4D |$..(ND):. 5400.M|
00001340: 1B 6E 14 81 20 49 B2 31 20 A4 20 4E 43 00 5B 1B |.n.. I.1 . NC.[.|
00001350: 78 14 81 20 4A B2 31 20 A4 20 33 00 76 1B 79 14 |x.. J.1 . 3.v.y.|
00001360: 57 44 24 B2 C4 28 4D 44 25 28 49 2C 4A 29 29 3A |WD$..(MD%(I,J)):|
00001370: 8D 20 35 34 30 30 00 7E 1B 7A 14 82 20 4A 00 86 |. 5400.~.z.. J..|
00001380: 1B 82 14 82 20 49 00 95 1B 8C 14 81 20 49 B2 31 |.... I...... I.1|
00001390: 20 A4 20 4E 52 00 AC 1B 96 14 57 44 24 B2 54 58 | . NR.....WD$.TX|
000013A0: 54 24 28 49 29 3A 8D 20 35 34 30 30 00 B4 1B A0 |T$(I):. 5400....|
000013B0: 14 82 20 49 00 BC 1B AA 14 A0 20 34 00 CB 1B B4 |.. I...... 4....|
000013C0: 14 99 20 22 4B 4C 41 41 52 21 22 00 D1 1B BE 14 |.. "KLAAR!".....|
000013D0: 80 00 E4 1B 18 15 81 20 50 B2 31 20 A4 20 C3 28 |....... P.1 . .(|
000013E0: 57 44 24 29 00 F9 1B 22 15 98 34 2C C6 28 CA 28 |WD$)..."..4,.(.(|
000013F0: 57 44 24 2C 50 2C 31 29 29 00 FF 1B 2C 15 82 00 |WD$,P,1))...,...|
00001400: 09 1C 36 15 98 34 2C 31 33 00 0F 1C 40 15 8E 00 |..6..4,13...@...|
00001410: 00 00 |.. |
..(.... ********************************
.O.... *ARENDARVON CASTLE, VERSIE 1.1N*.
V.... ********************************..
.... 4000:. INITIALISATIE...... 39728:.
ALADIN INTERPRETER.G.(.BAS . B(SA . 30).
..2.. BAS . 1000,3100,3000,2000,3200,330
0,3400,3500...<.. BAS .. 10 . . 3100...F
.. 30.0.D.. ************.C.E.. *LEES WOO
RD*.V.F.. ************.C.N.WD$ . "".L.X.
.4,C...... C . 13 . WD.WD.1:. "...";WD:.
.....WD$ . WD$ . G(C)...... 120...... **
******.M.... *PARSER*...... ********....
.. "";C$...... C$ . "" . ....... 1150: .
VOLGENDE WOORD.0.... 1230: . ZOEK WOORD
.D.... ID . 0 . 1020.J.$.. MD%(ID,3) . 1
070,1080,1100,1130...... SA . 14,MD%(ID,
2): . 1020...8.. B(SA . 1) . 0 . . SA .
1, MD%(ID,2): . 1020...B.. B(SA . 2) . 0
. . SA . 2, MD%(ID,2): . 1020...L.D . B
(SA . 9) . MD%(ID,2).-.V.. SA . 11,(D .
4 . .(D . 5)).8.`.. 1020.O.J.. SA . 4,MD
%(ID,2).Z.T.. 1020.Q.~.. ***************
*..... *VOLGENDE WOORD*...... *********
*******.....WD$ . "".....CH$ . H(C$,1).O
...C$ . J(C$,2)...... CH$ . " " . WD$ .
"" . 1170...... CH$ . " " . CH$. "" . ..
#...WD$ . WD$ . CH$...D.. 1170.A.N.. ***
*********.T.O.. *ZOEK WOORD*.G.P.. *****
*******.~.X.ID . 0: L . C(WD$)...... L .
5 . L . 5: WD$ . H( WD$,L)...... I . 1
. NC...... H(TXT$(MD%(I,1)),L) . WD$ . I
D . I: I . NC...............P.. ********
*******...Q.. *DISPLAY TEKST*.3.R.. ****
***********.\.Z.TXT . B(30000) . B(30001
) . 256 . NW.H...RW . 39.{...T$ . TXT$(T
XT)...... C(T$) . 0 . . 51,F1: . 52,F2:
......CH$ . H(T$,2).....WI . (F(CH$) . 5
) . 127 . F(I(CH$,1)).....T$ . J(T$,3)..
. .WD$ . TXT$(WI)...*.. F(WD$) . 36 . 21
90.,.4.PS . .(DUMMY).E.>.PS . PS . C(WD$
) . 1.\.H.. PS . RW . . 2150.K.R.. WD$;"
";.V.\.. 2040...F.. F(WD$) . 20 . C(WD$
) . 2 . ....P.....Z.. F(WD$) . 20 . . "
";.......U...JP . E(J(WD$,2)).....NV..(J
P.31):JP.JP.(NV.31)...... JP . 0 . .: .
2040.=.... JP . 13 . WD$ . D(B(SA . 31 .
JP)): . 2100.O...T$ . TXT$(B(SA . 31 .
JP) . NW . NT .NV) . T$.Z.... 2040......
********...... *RETURN*...... ********.
..B.SP . SP . 1.H.L.AP . STK(SP).S.V.. 4
300.Y.......... *******************.....
. *ALADIN SUBROUTINE*.'.... ************
*******.K.&.STK(SP) . B(252) . 256 . B(2
51).[.0.SP . SP . 1.M.:.AP.BEGIN.6000.X.
D.. 4300.~.N........ ******************.
..... *RANDOM GENERATOR*.I.... *********
*********.....X . B(SA . 28).....X . .(.
(1) . X) . 1...... SA . 3,X............
******.#.... *SAVE*.0.... ******.X...."F
ILENAAM (OF ALLEEN <RETURN>)";F$.J.... F
$ . "" . ......Z1 . B(251): Z2 . B(252):
Z3 . B(253): Z4 . B(254).P.... 251, 72:
. 252,117: . 253,103: . 254,123...... C
AS.:OPEN 4,1,1,F$...... 4,8,1,F$... .. 6
79...*.F$."": 4.;.4.. 251,Z1: . 252,Z2:
. 253,Z3: . 254,Z4.A.>...N.H.. ******.[
.I.. *LOAD*.H.J.. ******...R.."FILENAAM
(OF ALLEEN <RETURN>)";F$...\.. F$ . "" .
....P.. CAS.:OPEN 1,1,0,F$.J.Q.. 1,8,0,
F$.T.Z.. 691.....F$."": 1............ *
********...... *RESTART*...... *********
.!.... C$.?.... "COPIEREN STATUS-ARRAY".
R.J.. I . 0 . SIZE.M.T.. SA . I, B(50000
. I).U.... I.....AP.BEGIN:. 4300......
"."......... .. ***************.E.... *I
NITIALISATIE*...... ***************.....
ADR.30002:. 4700...... "INLEZEN DATAFILE
".2.... 51,47: . 52,117: . 55,47: . 56,1
17.S.H.. CAS.:OPEN 4,1,0,"DATAFILE".P.I.
. 4,8,2,"DATAFILE,SEQ,R"...... 100: NC .
E(WD$)...... 100: NW . E(WD$)...... 100
: NT . E(WD$).L.... 100: ND . E(WD$)....
.. MD%(NC,3)...... I . 1 . NC...... 100:
MD%(I,1) . E(WD$).'.".. 100: MD%(I,2) .
E(WD$).D.,.. 100: MD%(I,3) . E(WD$).L.6
.. I.B.@.NR . NW . NT . ND.Q.J.. TXT$(NR
)...T.. I . 1 . NR: . 100...^.. F(WD$) .
8 . I .. NW . WD$ . G(20) . J(WD$,2).O.
H.TXT$(I) . WD$.W.R.. I...|. 4...... "G
EHEUGEN REORGANISEREN".'...DUMMY . .(0):
F1 . B(51): F2 . B(52).I...SA.30024:BEG
IN.31697:AP.BEGIN.A.... 4500:. 4300:. ".
".G.......L.. *********************...M.
. *POKE ALADIN POINTER*...N.. **********
***********...V.HB . .(AP . 256): LB . A
P . HB . 256...... 252,HB: . 251,LB.....
....... ***********************.=.... *C
OPIEREN STATUS-ARRAY*.[.... ************
***********.J...SIZE.AP.SA...... "COPIER
EN STATUS-ARRAY"...... I . 0 . SIZE.....
. 50000 . I, B(SA . I)...F.. I.D.P...Y.\
.. **************...].. *LOAD ALADATA*..
.^.. **************.7.F.. 169,251,166,25
3,164,254,32,216,255,133,253,96.K.P.. 16
9, 0 ,166,251,164,252,32,213,255,133,253
,96..Z.. I . 679 . 702...... A: . I, A.
..... I...... ".INLEZEN ALADATA".P.... C
AS.:OPEN 1,1,0,"ALADATA"...... 1,8,0,"AL
ADATA"...... 691..... 1............ ***
**********.&.... *MAAK BACKUP*.:.... ***
**********.E.... 3520.K.... ".STOP LEGE
DISKETTE IN FLOPPY"...... "DRUK DAN OP <
RETURN>";C$...... CAS.:SAVE "ARENDARVON"
...D.. "ARENDARVON",8,1.V.N.Z1.B(251):.
251,48...X.Z2.B(252):. 252,117.....Z3.B(
253):. 253,233.....Z4.B(254):. 254,156.>
.... CAS.:OPEN 4,1,1,"ALADATA".T.... 4,8
,1,"ALADATA".^.... 679.F... 4.|.... 251
,Z1:. 252,Z2...(.. 253,Z3:. 254,Z4...2..
CAS.:OPEN 4,1,1,"DATAFILE".P.<.. 4,8,4,
"DATAFILE,SEQ,W"...A..:. "SAVING DATAFIL
E"...F.WD$.D(NC):. 5400...P.WD$.D(NW):.
5400.).Z.WD$.D(NT):. 5400.>.D.WD$.D(ND):
. 5400.M.N.. I.1 . NC.[.X.. J.1 . 3.V.Y.
WD$.D(MD%(I,J)):. 5400.~.Z.. J...... I..
.... I.1 . NR.....WD$.TXT$(I):. 5400...
.. I..... 4.K.... "KLAAR!".Q..........
P.1 . C(WD$)..."..4,F(J(WD$,P,1))...,...
..6..4,13...@.....
> CLICK IMAGE PREVIEW FOR FULL MODAL