DIN4
FILE INFORMATION
FILENAME(S): DIN4
FILE TYPE(S): PRG
FILE SIZE: 9.7K
FIRST SEEN: 2025-11-30 21:09:57
APPEARS ON: 1 disk(s)
FILE HASH
518caaaab91ac44ccc8d0c927e3da40a57f38a73c88cec80aa4d2d227a37bf3e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCREENSET | DIN4 | PRG | DuncanTwain | 2 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 10 27 3B 4D 41 43 52 4F 20 49 4E 50 |..$..';MACRO INP|
00000010: 55 54 A0 41 44 52 2C 4D 41 58 2C 58 2C 59 2C 43 |UT.ADR,MAX,X,Y,C|
00000020: 4F 4C 4F 52 00 48 08 42 27 3B 2A 20 4D 41 43 52 |OLOR.H.B';* MACR|
00000030: 4F 20 54 45 58 54 20 41 44 52 45 53 2C 58 2C 59 |O TEXT ADRES,X,Y|
00000040: 2C 4B 4C 45 55 52 20 2A 00 53 08 74 27 AA 24 43 |,KLEUR *.S.t'.$C|
00000050: 30 30 30 00 5E 08 A6 27 B7 42 45 47 49 4E 00 6F |000.^..'.BEGIN.o|
00000060: 08 D8 27 44 49 53 50 4C 20 D6 33 34 35 38 39 00 |..'DISPL .34589.|
00000070: 7C 08 0A 28 41 53 20 49 4E 4B 45 59 00 86 08 3C ||..(AS INKEY...<|
00000080: 28 20 C4 23 36 34 00 8F 08 6E 28 20 F7 41 53 00 |( .#64...n( .AS.|
00000090: 9B 08 A0 28 20 D6 33 34 35 39 32 00 A8 08 D2 28 |...( .34592....(|
000000A0: 20 43 4C 52 48 4F 4D 45 00 B4 08 04 29 20 D5 42 | CLRHOME....) .B|
000000B0: 45 47 49 4E 00 C5 08 36 29 4D 49 52 52 4F 20 D6 |EGIN...6)MIRRO .|
000000C0: 33 34 35 38 39 00 D3 08 68 29 41 53 33 20 49 4E |34589...h)AS3 IN|
000000D0: 4B 45 59 00 DD 08 9A 29 20 C4 23 36 34 00 E7 08 |KEY....) .#64...|
000000E0: CC 29 20 F7 41 53 33 00 F3 08 FE 29 20 D6 24 38 |.) .AS3....) .$8|
000000F0: 46 32 35 00 FF 08 30 2A 20 D6 24 43 43 37 44 00 |F25...0* .$CC7D.|
00000100: 0D 09 62 2A 41 53 32 20 49 4E 4B 45 59 00 17 09 |..b*AS2 INKEY...|
00000110: 94 2A 20 C4 23 36 34 00 21 09 C6 2A 20 F7 41 53 |.* .#64.!..* .AS|
00000120: 32 00 2D 09 F8 2A 20 D6 33 34 35 39 32 00 39 09 |2.-..* .34592.9.|
00000130: F9 2A 20 D6 33 38 37 36 38 00 46 09 2A 2B 20 43 |.* .38768.F.*+ C|
00000140: 4C 52 48 4F 4D 45 00 52 09 5C 2B 20 D5 42 45 47 |LRHOME.R.\+ .BEG|
00000150: 49 4E 00 6F 09 84 2B 3B 2A 2A 2A 2A 2A 2A 2A 2A |IN.o..+;********|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000170: 7F 09 8E 2B 4C 4F 53 4C 20 D6 36 35 34 31 38 00 |...+LOSL .65418.|
00000180: 89 09 F4 2B 20 CA 23 36 35 00 97 09 F5 2B 20 D2 |...+ .#65....+ .|
00000190: 57 45 36 2B 24 30 35 00 A3 09 F6 2B 20 D5 4C 4F |WE6+$05....+ .LO|
000001A0: 53 53 4C 00 B6 09 F7 2B 57 45 36 20 A8 22 3F 50 |SSL....+WE6 ."?P|
000001B0: 49 43 20 41 2A 22 00 C8 09 F8 2B 4C 4F 53 53 4C |IC A*"....+LOSSL|
000001C0: 20 43 4C 52 48 4F 4D 45 00 D8 09 F9 2B 20 4C 4F | CLRHOME....+ LO|
000001D0: 41 44 A0 57 45 36 2C 37 00 ED 09 FA 2B 20 44 49 |AD.WE6,7....+ DI|
000001E0: 53 4B 45 52 52 4F 52 A0 30 2C 30 2C 30 00 F6 09 |SKERROR.0,0,0...|
000001F0: FB 2B 20 C4 23 30 00 03 0A FC 2B 20 F6 54 57 45 |.+ .#0....+ .TWE|
00000200: 45 53 4C 00 0F 0A FD 2B 20 D6 33 34 35 38 39 00 |ESL....+ .34589.|
00000210: 22 0A FE 2B 44 44 20 50 41 55 53 45 A0 31 30 30 |"..+DD PAUSE.100|
00000220: 30 30 00 35 0A 00 2C 20 53 43 52 45 45 4E 43 4F |00.5.., SCREENCO|
00000230: 4C 4F 52 A0 31 00 49 0A 01 2C 54 57 45 45 53 4C |LOR.1.I..,TWEESL|
00000240: 20 C9 57 45 36 2B 24 30 35 00 57 0A 02 2C 20 CA | .WE6+$05.W.., .|
00000250: 57 45 36 2B 24 30 35 00 61 0A 03 2C 20 C4 23 38 |WE6+$05.a.., .#8|
00000260: 31 00 6D 0A 04 2C 20 F7 44 52 45 53 4C 00 79 0A |1.m.., .DRESL.y.|
00000270: 05 2C 20 D5 4C 4F 53 53 4C 00 8A 0A 06 2C 44 52 |., .LOSSL....,DR|
00000280: 45 53 4C 20 D6 33 34 35 39 32 00 97 0A 07 2C 20 |ESL .34592...., |
00000290: 43 4C 52 48 4F 4D 45 00 A3 0A 08 2C 20 D6 24 39 |CLRHOME...., .$9|
000002A0: 37 37 30 00 AF 0A 0A 2C 20 D5 42 45 47 49 4E 00 |770...., .BEGIN.|
000002B0: CF 0A 0B 2C 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...,;***********|
000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000002D0: DB 0A 10 2C 4C 4F 20 CA 23 36 35 00 E9 0A 11 2C |...,LO .#65....,|
000002E0: 20 D2 57 45 31 2B 24 30 35 00 F3 0A 24 2C 20 D5 | .WE1+$05...$, .|
000002F0: 4C 4F 53 00 06 0B 56 2C 57 45 31 20 A8 22 3F 50 |LOS...V,WE1 ."?P|
00000300: 49 43 20 41 2A 22 00 16 0B 88 2C 4C 4F 53 20 43 |IC A*"....,LOS C|
00000310: 4C 52 48 4F 4D 45 00 26 0B BA 2C 20 4C 4F 41 44 |LRHOME.&.., LOAD|
00000320: A0 57 45 31 2C 37 00 3B 0B EC 2C 20 44 49 53 4B |.WE1,7.;.., DISK|
00000330: 45 52 52 4F 52 A0 30 2C 30 2C 30 00 44 0B 1E 2D |ERROR.0,0,0.D..-|
00000340: 20 C4 23 30 00 4F 0B 50 2D 20 F6 54 57 45 45 00 | .#0.O.P- .TWEE.|
00000350: 5B 0B 82 2D 20 D6 33 34 35 38 39 00 6C 0B B4 2D |[..- .34589.l..-|
00000360: 20 50 41 55 53 45 A0 31 30 30 30 30 00 78 0B E6 | PAUSE.10000.x..|
00000370: 2D 20 D6 33 34 35 39 32 00 8B 0B 18 2E 20 53 43 |- .34592..... SC|
00000380: 52 45 45 4E 43 4F 4C 4F 52 A0 31 00 9D 0B 4A 2E |REENCOLOR.1...J.|
00000390: 54 57 45 45 20 C9 57 45 31 2B 24 30 35 00 AB 0B |TWEE .WE1+$05...|
000003A0: 7C 2E 20 CA 57 45 31 2B 24 30 35 00 B5 0B AE 2E ||. .WE1+$05.....|
000003B0: 20 C4 23 38 31 00 BF 0B E0 2E 20 F7 44 52 45 00 | .#81..... .DRE.|
000003C0: C9 0B 12 2F 20 D5 4C 4F 53 00 D9 0B 44 2F 44 52 |.../ .LOS...D/DR|
000003D0: 45 20 43 4C 52 48 4F 4D 45 00 E5 0B 76 2F 20 D5 |E CLRHOME...v/ .|
000003E0: 42 45 47 49 4E 00 05 0C 77 2F 3B 2A 2A 2A 2A 2A |BEGIN...w/;*****|
000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000400: 2A 2A 2A 2A 2A 00 14 0C A8 2F 49 4E 20 43 4C 52 |*****..../IN CLR|
00000410: 48 4F 4D 45 00 2C 0C DA 2F 20 57 49 4E 44 4F 57 |HOME.,../ WINDOW|
00000420: A0 32 2C 33 2C 33 35 2C 31 31 2C 30 00 46 0C 0C |.2,3,35,11,0.F..|
00000430: 30 57 49 4E 20 54 45 58 54 A0 54 45 4B 53 54 31 |0WIN TEXT.TEKST1|
00000440: 2C 33 2C 34 2C 30 00 5D 0C 3E 30 20 54 45 58 54 |,3,4,0.].>0 TEXT|
00000450: A0 54 45 4B 53 54 32 2C 33 2C 36 2C 30 00 74 0C |.TEKST2,3,6,0.t.|
00000460: 3F 30 20 54 45 58 54 A0 54 45 4B 53 54 35 2C 33 |?0 TEXT.TEKST5,3|
00000470: 2C 38 2C 30 00 8C 0C 70 30 20 54 45 58 54 A0 54 |,8,0...p0 TEXT.T|
00000480: 45 4B 53 54 33 2C 33 2C 31 30 2C 30 00 A4 0C A2 |EKST3,3,10,0....|
00000490: 30 20 54 45 58 54 A0 54 45 4B 53 54 34 2C 33 2C |0 TEXT.TEKST4,3,|
000004A0: 31 32 2C 30 00 AD 0C D4 30 51 51 20 E3 00 BA 0C |12,0....0QQ ....|
000004B0: 06 31 54 54 20 A5 31 34 2C 38 00 C4 0C 38 31 20 |.1TT .14,8...81 |
000004C0: A8 22 FF 22 00 D7 0C 6A 31 42 45 47 49 4E 20 50 |."."...j1BEGIN P|
000004D0: 52 49 4E 54 A0 54 54 00 EA 0C 9C 31 20 53 43 52 |RINT.TT....1 SCR|
000004E0: 45 45 4E 43 4F 4C 4F 52 A0 31 00 FD 0C CE 31 20 |EENCOLOR.1....1 |
000004F0: 42 4F 52 44 45 52 43 4F 4C 4F 52 A0 31 00 06 0D |BORDERCOLOR.1...|
00000500: 00 32 20 D6 49 4E 00 13 0D 32 32 45 45 4E 20 D6 |.2 .IN...22EEN .|
00000510: 57 49 4E 00 23 0D 64 32 20 43 55 52 53 4F 52 A0 |WIN.#.d2 CURSOR.|
00000520: 34 2C 33 00 2E 0D 96 32 20 CA 23 32 35 30 00 3A |4,3....2 .#250.:|
00000530: 0D C8 32 20 D6 24 46 46 44 32 00 49 0D FA 32 20 |..2 .$FFD2.I..2 |
00000540: 50 41 55 53 45 A0 31 30 30 00 57 0D 2C 33 49 4E |PAUSE.100.W.,3IN|
00000550: 30 20 49 4E 4B 45 59 00 61 0D 5E 33 20 C4 23 30 |0 INKEY.a.^3 .#0|
00000560: 31 00 6C 0D 90 33 20 F6 49 4E 4A 31 00 78 0D C2 |1.l..3 .INJ1.x..|
00000570: 33 20 D5 44 49 53 50 4C 00 86 0D F4 33 49 4E 4A |3 .DISPL....3INJ|
00000580: 31 20 C4 23 36 34 00 90 0D 26 34 20 F7 49 4E 30 |1 .#64...&4 .IN0|
00000590: 00 9A 0D 58 34 20 D6 57 49 4E 00 AA 0D 8A 34 20 |...X4 .WIN....4 |
000005A0: 43 55 52 53 4F 52 A0 36 2C 33 00 B5 0D BC 34 20 |CURSOR.6,3....4 |
000005B0: CA 23 32 35 30 00 C1 0D EE 34 20 D6 24 46 46 44 |.#250....4 .$FFD|
000005C0: 32 00 D0 0D 20 35 20 50 41 55 53 45 A0 31 30 30 |2... 5 PAUSE.100|
000005D0: 00 DE 0D 52 35 49 4E 31 20 49 4E 4B 45 59 00 E8 |...R5IN1 INKEY..|
000005E0: 0D 84 35 20 C4 23 30 31 00 F3 0D B6 35 20 F6 49 |..5 .#01....5 .I|
000005F0: 4E 4A 32 00 FC 0D E8 35 20 D5 4C 4F 00 0A 0E 1A |NJ2....5 .LO....|
00000600: 36 49 4E 4A 32 20 C4 23 36 34 00 14 0E 4C 36 20 |6INJ2 .#64...L6 |
00000610: F7 49 4E 31 00 1E 0E 7E 36 20 D6 57 49 4E 00 2E |.IN1...~6 .WIN..|
00000620: 0E B0 36 20 43 55 52 53 4F 52 A0 38 2C 33 00 39 |..6 CURSOR.8,3.9|
00000630: 0E E2 36 20 CA 23 32 35 30 00 45 0E 14 37 20 D6 |..6 .#250.E..7 .|
00000640: 24 46 46 44 32 00 54 0E 46 37 20 50 41 55 53 45 |$FFD2.T.F7 PAUSE|
00000650: A0 31 30 30 00 62 0E 78 37 49 4E 32 20 49 4E 4B |.100.b.x7IN2 INK|
00000660: 45 59 00 6C 0E AA 37 20 C4 23 30 31 00 77 0E DC |EY.l..7 .#01.w..|
00000670: 37 20 F6 49 4E 4A 33 00 82 0E 0E 38 20 D5 4C 4F |7 .INJ3....8 .LO|
00000680: 53 4C 00 90 0E 40 38 49 4E 4A 33 20 C4 23 36 34 |SL...@8INJ3 .#64|
00000690: 00 9A 0E 72 38 20 F7 49 4E 32 00 A4 0E A4 38 20 |...r8 .IN2....8 |
000006A0: D6 57 49 4E 00 B5 0E D6 38 20 43 55 52 53 4F 52 |.WIN....8 CURSOR|
000006B0: A0 31 30 2C 33 00 C0 0E 08 39 20 CA 23 32 35 30 |.10,3....9 .#250|
000006C0: 00 CC 0E 3A 39 20 D6 24 46 46 44 32 00 DB 0E 6C |...:9 .$FFD2...l|
000006D0: 39 20 50 41 55 53 45 A0 31 30 30 00 E9 0E 9E 39 |9 PAUSE.100....9|
000006E0: 49 4E 33 20 49 4E 4B 45 59 00 F3 0E D0 39 20 C4 |IN3 INKEY....9 .|
000006F0: 23 30 31 00 FE 0E 02 3A 20 F6 49 4E 4A 34 00 0A |#01....: .INJ4..|
00000700: 0F 34 3A 20 D5 4D 49 52 52 4F 00 18 0F 66 3A 49 |.4: .MIRRO...f:I|
00000710: 4E 4A 34 20 C4 23 36 34 00 22 0F 98 3A 20 F7 49 |NJ4 .#64."..: .I|
00000720: 4E 33 00 2C 0F CB 3A 20 D6 57 49 4E 00 3D 0F CC |N3.,..: .WIN.=..|
00000730: 3A 20 43 55 52 53 4F 52 A0 31 32 2C 33 00 48 0F |: CURSOR.12,3.H.|
00000740: CD 3A 20 CA 23 32 35 30 00 54 0F CE 3A 20 D6 24 |.: .#250.T..: .$|
00000750: 46 46 44 32 00 63 0F CF 3A 20 50 41 55 53 45 A0 |FFD2.c..: PAUSE.|
00000760: 31 30 30 00 71 0F D0 3A 49 4E 34 20 49 4E 4B 45 |100.q..:IN4 INKE|
00000770: 59 00 7B 0F D1 3A 20 C4 23 30 31 00 86 0F D2 3A |Y.{..: .#01....:|
00000780: 20 F6 49 4E 4A 35 00 8F 0F D3 3A 20 D5 51 51 00 | .INJ5....: .QQ.|
00000790: 9D 0F D4 3A 49 4E 4A 35 20 C4 23 36 34 00 A7 0F |...:INJ5 .#64...|
000007A0: D6 3A 20 F7 49 4E 34 00 B1 0F D7 3A 20 D5 45 45 |.: .IN4....: .EE|
000007B0: 4E 00 B8 0F FC 3A 20 E3 00 D2 0F 2E 3B 54 45 4B |N....: .....;TEK|
000007C0: 53 54 31 20 A8 22 20 44 49 53 50 4C 41 59 20 20 |ST1 ." DISPLAY |
000007D0: FF 22 00 02 10 60 3B 54 45 4B 53 54 32 20 A8 22 |."...`;TEKST2 ."|
000007E0: 20 44 49 53 50 4C 41 59 20 41 4C 4C 20 50 49 43 | DISPLAY ALL PIC|
000007F0: 27 53 20 4F 4E 20 44 49 53 4B 2D 54 55 52 42 4F |'S ON DISK-TURBO|
00000800: FF 22 00 33 10 61 3B 54 45 4B 53 54 35 20 A8 22 |.".3.a;TEKST5 ."|
00000810: 20 44 49 53 50 4C 41 59 20 41 4C 4C 20 20 50 49 | DISPLAY ALL PI|
00000820: 43 27 53 20 4F 4E 20 44 49 53 4B 2D 53 4C 4F 57 |C'S ON DISK-SLOW|
00000830: 20 FF 22 00 5E 10 92 3B 54 45 4B 53 54 33 20 A8 | .".^..;TEKST3 .|
00000840: 22 20 4D 49 52 52 4F 52 20 20 20 20 20 20 20 20 |" MIRROR |
00000850: 20 20 20 20 20 20 20 20 20 20 20 20 FF 22 00 89 | ."..|
00000860: 10 C4 3B 54 45 4B 53 54 34 20 A8 22 20 45 58 49 |..;TEKST4 ." EXI|
00000870: 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T |
00000880: 20 20 20 20 20 20 20 FF 22 00 A6 10 F6 3B A1 57 | ."....;.W|
00000890: 49 4E 44 4F 57 A0 58 2C 59 2C 58 31 2C 59 31 2C |INDOW.X,Y,X1,Y1,|
000008A0: 43 4F 4C 56 41 4C 00 AF 10 28 3C 20 C2 23 58 00 |COLVAL...(< .#X.|
000008B0: B8 10 5A 3C 20 D3 54 39 00 C1 10 8C 3C 20 C2 23 |..Z< .T9....< .#|
000008C0: 59 00 CA 10 BE 3C 20 D3 54 38 00 D6 10 F0 3C 20 |Y....< .T8....< |
000008D0: D5 42 45 47 49 4E 00 E2 10 22 3D 54 31 20 A8 22 |.BEGIN..."=T1 ."|
000008E0: B0 22 00 EE 10 54 3D 54 32 20 A8 22 AE 22 00 FA |."...T=T2 ."."..|
000008F0: 10 86 3D 54 33 20 A8 22 AD 22 00 06 11 B8 3D 54 |..=T3 ."."....=T|
00000900: 37 20 A8 22 BD 22 00 12 11 EA 3D 54 34 20 A8 22 |7 ."."....=T4 ."|
00000910: DD 22 00 1E 11 1C 3E 54 35 20 A8 22 C0 22 00 2A |."....>T5 .".".*|
00000920: 11 4E 3E 54 36 20 A8 22 20 22 00 35 11 80 3E 54 |.N>T6 ." ".5..>T|
00000930: 38 20 A5 30 30 00 40 11 B2 3E 54 39 20 A5 30 30 |8 .00.@..>T9 .00|
00000940: 00 51 11 E4 3E 53 45 54 20 CA 23 43 4F 4C 56 41 |.Q..>SET .#COLVA|
00000950: 4C 00 5D 11 16 3F 20 D2 24 30 32 38 36 00 6B 11 |L.]..? .$0286.k.|
00000960: 48 3F 50 4F 49 4E 54 20 C2 54 38 00 74 11 7A 3F |H?POINT .T8.t.z?|
00000970: 20 C3 54 39 00 7B 11 AC 3F 20 E5 00 87 11 DE 3F | .T9.{..? .....?|
00000980: 20 D6 24 46 46 46 30 00 8E 11 10 40 20 E3 00 9D | .$FFF0....@ ...|
00000990: 11 42 40 42 45 47 49 4E 20 D6 53 45 54 00 A6 11 |.B@BEGIN .SET...|
000009A0: 74 40 20 CA 54 31 00 B2 11 A6 40 20 D6 24 46 46 |t@ .T1....@ .$FF|
000009B0: 44 32 00 BC 11 D8 40 20 C2 23 30 30 00 C5 11 0A |D2....@ .#00....|
000009C0: 41 20 CA 54 35 00 D4 11 3C 41 45 45 4E 20 D6 24 |A .T5...<AEEN .$|
000009D0: 46 46 44 32 00 DB 11 6E 41 20 EF 00 E7 11 A0 41 |FFD2...nA .....A|
000009E0: 20 C0 23 58 31 2D 32 00 F1 11 D2 41 20 F6 45 45 | .#X1-2....A .EE|
000009F0: 4E 00 FA 11 04 42 20 CA 54 32 00 06 12 36 42 20 |N....B .T2...6B |
00000A00: D6 24 46 46 44 32 00 13 12 68 42 44 52 49 45 20 |.$FFD2...hBDRIE |
00000A10: C9 54 38 00 1D 12 9A 42 20 D6 53 45 54 00 26 12 |.T8....B .SET.&.|
00000A20: CC 42 20 CA 54 34 00 32 12 FE 42 20 D6 24 46 46 |.B .T4.2..B .$FF|
00000A30: 44 32 00 3C 12 30 43 20 C2 23 30 30 00 45 12 62 |D2.<.0C .#00.E.b|
00000A40: 43 20 CA 54 36 00 55 12 94 43 45 45 4E 4E 20 D6 |C .T6.U..CEENN .|
00000A50: 24 46 46 44 32 00 5C 12 C6 43 20 EF 00 68 12 F8 |$FFD2.\..C ..h..|
00000A60: 43 20 C0 23 58 31 2D 32 00 73 12 2A 44 20 F6 45 |C .#X1-2.s.*D .E|
00000A70: 45 4E 4E 00 7C 12 5C 44 20 CA 54 34 00 88 12 8E |ENN.|.\D .T4....|
00000A80: 44 20 D6 24 46 46 44 32 00 91 12 C0 44 20 CA 54 |D .$FFD2....D .T|
00000A90: 38 00 9D 12 F2 44 20 C4 23 59 31 2B 31 00 A8 12 |8....D .#Y1+1...|
00000AA0: 24 45 20 F6 44 52 49 45 00 B1 12 56 45 20 C9 54 |$E .DRIE...VE .T|
00000AB0: 38 00 BB 12 88 45 20 D6 53 45 54 00 C4 12 BA 45 |8....E .SET....E|
00000AC0: 20 CA 54 33 00 D0 12 EC 45 20 D6 24 46 46 44 32 | .T3....E .$FFD2|
00000AD0: 00 DA 12 1E 46 20 C2 23 30 30 00 E3 12 50 46 20 |....F .#00...PF |
00000AE0: CA 54 35 00 F4 12 82 46 45 45 4E 4E 4E 20 D6 24 |.T5....FEENNN .$|
00000AF0: 46 46 44 32 00 FB 12 B4 46 20 EF 00 07 13 E6 46 |FFD2....F .....F|
00000B00: 20 C0 23 58 31 2D 32 00 13 13 18 47 20 F6 45 45 | .#X1-2....G .EE|
00000B10: 4E 4E 4E 00 1C 13 4A 47 20 CA 54 37 00 28 13 7C |NNN...JG .T7.(.||
00000B20: 47 20 D6 24 46 46 44 32 00 2E 13 AE 47 A2 00 52 |G .$FFD2....G..R|
00000B30: 13 E0 47 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..G;************|
00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B50: 2A 2A 00 69 13 12 48 A1 53 43 52 45 42 FF FF D0 |**.i..H.SCREB...|
00000B60: D0 D0 FF FF FF 4F 4C 4F 52 00 76 13 44 48 20 C3 |.....OLOR.v.DH .|
00000B70: 23 43 4F 4C 4F 52 00 82 13 76 48 20 D4 35 33 32 |#COLOR...vH .532|
00000B80: 38 31 00 88 13 A8 48 A2 00 AC 13 DA 48 3B 2A 2A |81....H.....H;**|
00000B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C3 13 0C |************....|
00000BB0: 49 A1 42 4F 52 44 45 52 43 4F 4C 4F 52 A0 43 4F |I.BORDERCOLOR.CO|
00000BC0: 4C 4F 52 00 D0 13 3E 49 20 C3 23 43 4F 4C 4F 52 |LOR...>I .#COLOR|
00000BD0: 00 DC 13 70 49 20 D4 35 33 32 38 30 00 E2 13 A2 |...pI .53280....|
00000BE0: 49 A2 00 06 14 D4 49 3B 2A 2A 2A 2A 2A 2A 2A 2A |I.....I;********|
00000BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C00: 2A 2A 2A 2A 2A 2A 00 1B 14 06 4A A1 46 49 4C 4C |******....J.FILL|
00000C10: 43 4F 4C 4F 52 A0 43 4F 4C 4F 52 00 28 14 38 4A |COLOR.COLOR.(.8J|
00000C20: 20 CA 23 43 4F 4C 4F 52 00 33 14 6A 4A 20 C2 23 | .#COLOR.3.jJ .#|
00000C30: 24 30 30 00 45 14 9C 4A 54 45 58 31 20 D2 24 44 |$00.E..JTEX1 .$D|
00000C40: 38 30 30 2C 58 00 53 14 CE 4A 20 D2 24 44 39 30 |800,X.S..J .$D90|
00000C50: 30 2C 58 00 61 14 00 4B 20 D2 24 44 41 30 30 2C |0,X.a..K .$DA00,|
00000C60: 58 00 68 14 32 4B 20 EF 00 73 14 64 4B 20 F6 54 |X.h.2K ..s.dK .T|
00000C70: 45 58 31 00 85 14 96 4B 54 45 58 32 20 D2 24 44 |EX1....KTEX2 .$D|
00000C80: 42 30 30 2C 58 00 8C 14 C8 4B 20 EF 00 97 14 FA |B00,X....K .....|
00000C90: 4B 20 C0 23 24 45 38 00 A2 14 2C 4C 20 F6 54 45 |K .#$E8...,L .TE|
00000CA0: 58 32 00 A8 14 5E 4C A2 00 CC 14 90 4C 3B 2A 2A |X2...^L.....L;**|
00000CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DA 14 C2 |************....|
00000CD0: 4C A1 43 4F 4C 4F 52 49 4E 43 00 E5 14 F4 4C 20 |L.COLORINC....L |
00000CE0: C2 23 24 30 30 00 F7 14 26 4D 54 45 58 31 20 C9 |.#$00...&MTEX1 .|
00000CF0: 24 44 38 30 30 2C 58 00 05 15 58 4D 20 C9 24 44 |$D800,X...XM .$D|
00000D00: 39 30 30 2C 58 00 13 15 8A 4D 20 C9 24 44 41 30 |900,X....M .$DA0|
00000D10: 30 2C 58 00 1A 15 BC 4D 20 EF 00 25 15 EE 4D 20 |0,X....M ..%..M |
00000D20: F6 54 45 58 31 00 37 15 20 4E 54 45 58 32 20 C9 |.TEX1.7. NTEX2 .|
00000D30: 24 44 42 30 30 2C 58 00 3E 15 52 4E 20 EF 00 49 |$DB00,X.>.RN ..I|
00000D40: 15 84 4E 20 C0 23 24 45 38 00 54 15 B6 4E 20 F6 |..N .#$E8.T..N .|
00000D50: 54 45 58 32 00 5A 15 E8 4E A2 00 7E 15 1A 4F 3B |TEX2.Z..N..~..O;|
00000D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8B |**************..|
00000D80: 15 4C 4F A1 43 4C 52 48 4F 4D 45 00 96 15 7E 4F |.LO.CLRHOME...~O|
00000D90: 20 CA 23 31 34 37 00 A2 15 B0 4F 20 D6 24 46 46 | .#147....O .$FF|
00000DA0: 44 32 00 A8 15 E2 4F A2 00 CC 15 14 50 3B 2A 2A |D2....O.....P;**|
00000DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F0 15 46 |************...F|
00000DD0: 50 3B 2A 20 4D 41 43 52 4F 20 54 45 58 54 20 41 |P;* MACRO TEXT A|
00000DE0: 44 52 45 53 2C 58 2C 59 2C 4B 4C 45 55 52 20 2A |DRES,X,Y,KLEUR *|
00000DF0: 00 14 16 78 50 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...xP;**********|
00000E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E10: 2A 2A 2A 2A 00 34 16 AA 50 A1 54 45 58 54 A0 54 |****.4..P.TEXT.T|
00000E20: 41 44 52 2C 58 56 41 4C 2C 59 56 41 4C 2C 43 4F |ADR,XVAL,YVAL,CO|
00000E30: 4C 56 41 4C 00 42 16 DC 50 20 CA 23 43 4F 4C 56 |LVAL.B..P .#COLV|
00000E40: 41 4C 00 4E 16 0E 51 20 D2 24 30 32 38 36 00 5A |AL.N..Q .$0286.Z|
00000E50: 16 40 51 20 C2 23 59 56 41 4C 00 66 16 72 51 20 |.@Q .#YVAL.f.rQ |
00000E60: C3 23 58 56 41 4C 00 6D 16 A4 51 20 E5 00 79 16 |.#XVAL.m..Q ..y.|
00000E70: D6 51 20 D6 24 46 46 46 30 00 84 16 08 52 20 C2 |.Q .$FFF0....R .|
00000E80: 23 24 30 30 00 95 16 3A 52 54 45 58 31 20 CA 54 |#$00...:RTEX1 .T|
00000E90: 41 44 52 2C 58 00 A0 16 6C 52 20 C4 23 24 46 46 |ADR,X...lR .#$FF|
00000EA0: 00 AB 16 9E 52 20 F7 54 45 58 32 00 B7 16 D0 52 |....R .TEX2....R|
00000EB0: 20 D6 24 46 46 44 32 00 BE 16 02 53 20 EF 00 C9 | .$FFD2....S ...|
00000EC0: 16 34 53 20 D5 54 45 58 31 00 D4 16 66 53 54 45 |.4S .TEX1...fSTE|
00000ED0: 58 32 20 E4 00 DA 16 98 53 A2 00 FC 16 CA 53 3B |X2 .....S.....S;|
00000EE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1E 17 FC |************....|
00000F00: 53 3B 2A 20 4D 41 43 52 4F 20 50 52 49 4E 54 20 |S;* MACRO PRINT |
00000F10: 41 44 52 45 53 20 20 20 20 20 20 20 20 2A 00 40 |ADRES *.@|
00000F20: 17 2E 54 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..T;************|
00000F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F40: 00 50 17 60 54 A1 50 52 49 4E 54 A0 54 41 44 52 |.P.`T.PRINT.TADR|
00000F50: 00 5B 17 92 54 20 C2 23 24 30 30 00 6C 17 C4 54 |.[..T .#$00.l..T|
00000F60: 54 45 58 31 20 CA 54 41 44 52 2C 58 00 77 17 F6 |TEX1 .TADR,X.w..|
00000F70: 54 20 C4 23 24 46 46 00 82 17 28 55 20 F7 54 45 |T .#$FF...(U .TE|
00000F80: 58 32 00 8E 17 5A 55 20 D6 24 46 46 44 32 00 95 |X2...ZU .$FFD2..|
00000F90: 17 8C 55 20 EF 00 A0 17 BE 55 20 D5 54 45 58 31 |..U .....U .TEX1|
00000FA0: 00 AB 17 F0 55 54 45 58 32 20 E4 00 B6 17 22 56 |....UTEX2 ...."V|
00000FB0: 20 CA 23 24 30 44 00 C2 17 54 56 20 D6 24 46 46 | .#$0D...TV .$FF|
00000FC0: 44 32 00 C8 17 86 56 A2 00 EA 17 B8 56 3B 2A 2A |D2....V.....V;**|
00000FD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000FE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0C 18 EA 56 3B |**********....V;|
00000FF0: 2A 20 4D 41 43 52 4F 20 4B 45 59 20 57 41 49 54 |* MACRO KEY WAIT|
00001000: 20 20 20 20 20 20 20 20 20 20 20 2A 00 2E 18 1C | *....|
00001010: 57 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |W;**************|
00001020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3C |**************.<|
00001030: 18 4E 57 A1 4B 45 59 A0 57 41 49 54 00 4B 18 80 |.NW.KEY.WAIT.K..|
00001040: 57 54 45 58 31 20 C2 23 24 30 30 00 57 18 B2 57 |WTEX1 .#$00.W..W|
00001050: 20 D3 24 30 30 43 36 00 63 18 E4 57 20 CA 24 30 | .$00C6.c..W .$0|
00001060: 30 43 35 00 6F 18 16 58 20 C4 23 57 41 49 54 00 |0C5.o..X .#WAIT.|
00001070: 7A 18 48 58 20 F6 54 45 58 31 00 80 18 7A 58 A2 |z.HX .TEX1...zX.|
00001080: 00 90 18 AC 58 A1 43 55 52 53 4F 52 A0 58 2C 59 |....X.CURSOR.X,Y|
00001090: 00 99 18 DE 58 20 C2 23 58 00 A2 18 10 59 20 C3 |....X .#X....Y .|
000010A0: 23 59 00 A9 18 42 59 20 E5 00 B5 18 74 59 20 D6 |#Y...BY ....tY .|
000010B0: 24 46 46 46 30 00 BB 18 A6 59 A2 00 C6 18 D8 59 |$FFF0....Y.....Y|
000010C0: A1 49 4E 4B 45 59 00 D1 18 0A 5A 20 C2 23 24 30 |.INKEY....Z .#$0|
000010D0: 30 00 DD 18 3C 5A 20 D3 24 30 30 43 36 00 E9 18 |0...<Z .$00C6...|
000010E0: 6E 5A 20 CA 24 30 30 43 35 00 EF 18 A0 5A A2 00 |nZ .$00C5....Z..|
000010F0: FC 18 D2 5A A1 50 41 55 53 45 A0 50 00 06 19 04 |...Z.PAUSE.P....|
00001100: 5B 20 C2 23 30 30 00 11 19 36 5B 20 C3 23 24 46 |[ .#00...6[ .#$F|
00001110: 46 00 1D 19 68 5B 20 D6 24 45 45 42 33 00 24 19 |F...h[ .$EEB3.$.|
00001120: 9A 5B 20 EF 00 30 19 CC 5B 20 C0 23 3C 28 50 29 |.[ ..0..[ .#<(P)|
00001130: 00 3A 19 FE 5B 20 F6 2A 2D 36 00 41 19 30 5C 20 |.:..[ .*-6.A.0\ |
00001140: ED 00 4D 19 62 5C 20 C1 23 3E 28 50 29 00 58 19 |..M.b\ .#>(P).X.|
00001150: 94 5C 20 F6 2A 2D 31 31 00 5E 19 C6 5C A2 00 84 |.\ .*-11.^..\...|
00001160: 19 F8 5C 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..\;************|
00001170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001180: 2A 2A 2A 2A 00 AA 19 2A 5D 3B 2A 20 20 48 45 52 |****...*];* HER|
00001190: 42 49 45 27 53 20 44 49 53 4B 20 4D 41 43 52 4F |BIE'S DISK MACRO|
000011A0: 27 53 20 20 31 2E 31 20 20 2A 00 D0 19 5C 5D 3B |'S 1.1 *...\];|
000011B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011D0: 00 DF 19 8E 5D 3B 4D 41 43 52 4F 20 44 49 52 00 |....];MACRO DIR.|
000011E0: 04 1A C0 5D 3B 4D 41 43 52 4F 20 4C 4F 41 44 A0 |...];MACRO LOAD.|
000011F0: 4E 41 41 4D 41 44 52 45 53 2C 4C 45 4E 47 54 45 |NAAMADRES,LENGTE|
00001200: 4E 41 41 4D 00 27 1A F2 5D 3B 4D 41 43 52 4F 20 |NAAM.'..];MACRO |
00001210: 53 41 56 45 A0 4E 41 4D 41 44 52 2C 4C 2C 41 44 |SAVE.NAMADR,L,AD|
00001220: 52 31 2C 41 44 52 32 00 4B 1A 24 5E 3B 4D 41 43 |R1,ADR2.K.$^;MAC|
00001230: 52 4F 20 53 43 52 41 54 43 48 A0 4E 41 41 4D 41 |RO SCRATCH.NAAMA|
00001240: 44 52 45 53 2C 4C 45 4E 47 54 45 00 6B 1A 56 5E |DRES,LENGTE.k.V^|
00001250: 3B 4D 41 43 52 4F 20 44 49 53 4B 53 54 41 54 55 |;MACRO DISKSTATU|
00001260: 53 A0 58 2C 59 2C 43 4F 4C 4F 52 00 8A 1A 88 5E |S.X,Y,COLOR....^|
00001270: 3B 4D 41 43 52 4F 20 44 49 53 4B 45 52 52 4F 52 |;MACRO DISKERROR|
00001280: A0 58 2C 59 2C 43 4F 4C 4F 52 00 9E 1A BA 5E 3B |.X,Y,COLOR....^;|
00001290: 4D 41 43 52 4F 20 44 49 53 4B 49 4E 49 54 00 B1 |MACRO DISKINIT..|
000012A0: 1A EC 5E 3B 4D 41 43 52 4F 20 44 49 53 4B 56 41 |..^;MACRO DISKVA|
000012B0: 4C 00 D7 1A 1E 5F 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |L...._;*********|
000012C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012D0: 2A 2A 2A 2A 2A 2A 2A 00 E0 1A 50 5F A1 44 49 52 |*******...P_.DIR|
000012E0: 00 EB 1A 82 5F 20 CA 23 24 32 34 00 F7 1A B4 5F |...._ .#$24...._|
000012F0: 20 D2 24 30 31 30 30 00 03 1B E6 5F 20 D6 24 41 | .$0100...._ .$A|
00001300: 41 44 37 00 0E 1B 18 60 20 CA 23 24 30 31 00 15 |AD7....` .#$01..|
00001310: 1B 4A 60 20 DA 00 20 1B 7C 60 20 C2 23 24 30 30 |.J` .. .|` .#$00|
00001320: 00 2C 1B AE 60 20 D6 24 46 46 42 44 00 37 1B E0 |.,..` .$FFBD.7..|
00001330: 60 20 C2 23 24 30 38 00 42 1B 12 61 20 C3 23 24 |` .#$08.B..a .#$|
00001340: 36 30 00 4E 1B 44 61 20 D6 24 46 46 42 41 00 5A |60.N.Da .$FFBA.Z|
00001350: 1B 76 61 20 D6 24 46 33 44 35 00 64 1B A8 61 20 |.va .$F3D5.d..a |
00001360: CA 24 42 41 00 70 1B DA 61 20 D6 24 46 46 42 34 |.$BA.p..a .$FFB4|
00001370: 00 7A 1B 0C 62 20 CA 24 42 39 00 86 1B 3E 62 20 |.z..b .$B9...>b |
00001380: D6 24 46 46 39 36 00 91 1B 70 62 20 CA 23 24 30 |.$FF96...pb .#$0|
00001390: 30 00 9B 1B A2 62 20 D2 24 39 30 00 A6 1B D4 62 |0....b .$90....b|
000013A0: 20 C3 23 24 30 33 00 B4 1B 06 63 54 45 58 30 20 | .#$03....cTEX0 |
000013B0: D4 24 46 46 00 C0 1B 38 63 20 D6 24 46 46 41 35 |.$FF...8c .$FFA5|
000013C0: 00 CA 1B 6A 63 20 D2 24 46 45 00 D4 1B 9C 63 20 |...jc .$FE....c |
000013D0: C3 24 39 30 00 DF 1B CE 63 20 F6 54 45 58 34 00 |.$90....c .TEX4.|
000013E0: EB 1B 00 64 20 D6 24 46 46 41 35 00 F5 1B 32 64 |...d .$FFA5...2d|
000013F0: 20 C3 24 39 30 00 00 1C 64 64 20 F6 54 45 58 34 | .$90...dd .TEX4|
00001400: 00 0A 1C 96 64 20 C3 24 46 46 00 11 1C C8 64 20 |....d .$FF....d |
00001410: EC 00 1C 1C FA 64 20 F6 54 45 58 30 00 26 1C 2C |.....d .TEX0.&.,|
00001420: 65 20 C2 24 46 45 00 32 1C 5E 65 20 D6 24 42 44 |e .$FE.2.^e .$BD|
00001430: 43 44 00 3D 1C 90 65 20 D6 54 45 58 35 00 4D 1C |CD.=..e .TEX5.M.|
00001440: C2 65 54 45 58 31 20 D6 24 46 46 41 35 00 57 1C |.eTEX1 .$FFA5.W.|
00001450: F4 65 20 C2 24 39 30 00 62 1C 26 66 20 F6 54 45 |.e .$90.b.&f .TE|
00001460: 58 34 00 69 1C 58 66 20 DA 00 70 1C 8A 66 20 D8 |X4.i.Xf ..p..f .|
00001470: 00 7B 1C BC 66 20 F7 54 45 58 32 00 87 1C EE 66 |.{..f .TEX2....f|
00001480: 20 D6 24 46 46 44 32 00 92 1C 20 67 20 D5 54 45 | .$FFD2... g .TE|
00001490: 58 31 00 A2 1C 52 67 54 45 58 32 20 D6 24 41 41 |X1...RgTEX2 .$AA|
000014A0: 44 37 00 AD 1C 84 67 20 CA 23 24 30 30 00 B7 1C |D7....g .#$00...|
000014B0: B6 67 20 D2 24 43 36 00 C1 1C E8 67 20 CA 24 43 |.g .$C6....g .$C|
000014C0: 35 00 CB 1C 1A 68 20 C4 23 36 30 00 D6 1C 4C 68 |5....h .#60...Lh|
000014D0: 20 F7 54 45 58 37 00 E0 1C 7E 68 20 C4 23 36 33 | .TEX7...~h .#63|
000014E0: 00 EB 1C B0 68 20 F7 54 45 58 34 00 FA 1C E2 68 |....h .TEX4....h|
000014F0: 54 45 58 33 20 C3 23 24 30 32 00 05 1D 14 69 20 |TEX3 .#$02....i |
00001500: D5 54 45 58 30 00 15 1D 46 69 54 45 58 34 20 D6 |.TEX0...FiTEX4 .|
00001510: 24 46 36 34 32 00 20 1D 78 69 20 CA 23 24 30 38 |$F642. .xi .#$08|
00001520: 00 2A 1D AA 69 20 D2 24 42 41 00 36 1D DC 69 20 |.*..i .$BA.6..i |
00001530: D6 24 46 46 42 34 00 41 1D 0E 6A 20 CA 23 24 36 |.$FFB4.A..j .#$6|
00001540: 46 00 4B 1D 40 6A 20 D2 24 42 39 00 57 1D 72 6A |F.K.@j .$B9.W.rj|
00001550: 20 D6 24 46 46 39 36 00 63 1D A4 6A 20 D6 24 46 | .$FF96.c..j .$F|
00001560: 46 41 42 00 6E 1D D6 6A 20 CA 23 24 30 30 00 78 |FAB.n..j .#$00.x|
00001570: 1D 08 6B 20 D2 24 43 36 00 84 1D 3A 6B 20 D5 54 |..k .$C6...:k .T|
00001580: 45 58 31 30 00 93 1D 6C 6B 54 45 58 35 20 CA 23 |EX10...lkTEX5 .#|
00001590: 24 32 30 00 9F 1D 9E 6B 20 D5 24 46 46 44 32 00 |$20....k .$FFD2.|
000015A0: AB 1D D0 6B 20 C2 24 30 32 46 37 00 B7 1D 02 6C |...k .$02F7....l|
000015B0: 20 D6 24 46 46 43 39 00 C2 1D 34 6C 20 F4 54 45 | .$FFC9...4l .TE|
000015C0: 58 36 00 CE 1D 66 6C 20 D5 24 45 30 46 39 00 D9 |X6...fl .$E0F9..|
000015D0: 1D 98 6C 54 45 58 36 20 E3 00 E8 1D CA 6C 54 45 |..lTEX6 .....lTE|
000015E0: 58 37 20 C2 23 24 30 30 00 F8 1D FC 6C 54 45 58 |X7 .#$00....lTEX|
000015F0: 38 20 D6 24 45 45 42 33 00 FF 1D 2E 6D 20 EF 00 |8 .$EEB3....m ..|
00001600: 0A 1E 60 6D 20 F6 54 45 58 38 00 19 1E 92 6D 54 |..`m .TEX8....mT|
00001610: 45 58 39 20 CA 23 24 30 30 00 23 1E C4 6D 20 D2 |EX9 .#$00.#..m .|
00001620: 24 43 36 00 2D 1E F6 6D 20 CA 24 43 35 00 37 1E |$C6.-..m .$C5.7.|
00001630: 28 6E 20 C4 23 36 30 00 42 1E 5A 6E 20 F6 54 45 |(n .#60.B.Zn .TE|
00001640: 58 39 00 4D 1E 8C 6E 20 D5 54 45 58 33 00 59 1E |X9.M..n .TEX3.Y.|
00001650: BE 6E 54 45 58 31 30 20 E4 00 5F 1E F0 6E A2 00 |.nTEX10 .._..n..|
00001660: 84 1E 22 6F 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.."o;***********|
00001670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001680: 2A 2A 2A 2A 00 9E 1E 54 6F A1 44 49 53 4B 53 54 |****...To.DISKST|
00001690: 41 54 55 53 A0 58 2C 59 2C 43 4F 4C 4F 52 00 A8 |ATUS.X,Y,COLOR..|
000016A0: 1E 86 6F 20 D5 45 45 4E 00 BB 1E B8 6F 54 45 58 |..o .EEN....oTEX|
000016B0: 31 30 30 20 A8 22 44 4F 53 3A 22 00 CB 1E EA 6F |100 ."DOS:"....o|
000016C0: 45 45 4E 20 CA 23 43 4F 4C 4F 52 00 D7 1E 1C 70 |EEN .#COLOR....p|
000016D0: 20 D2 24 30 32 38 36 00 E0 1E 4E 70 20 C2 23 59 | .$0286...Np .#Y|
000016E0: 00 E9 1E 80 70 20 C3 23 58 00 F0 1E B2 70 20 E5 |....p .#X....p .|
000016F0: 00 FC 1E E4 70 20 D6 24 46 46 46 30 00 05 1F 16 |....p .$FFF0....|
00001700: 71 20 C2 23 30 00 14 1F 48 71 20 CA 54 45 58 31 |q .#0...Hq .TEX1|
00001710: 30 30 2C 58 00 20 1F 7A 71 20 D6 24 46 46 44 32 |00,X. .zq .$FFD2|
00001720: 00 27 1F AC 71 20 EF 00 30 1F DE 71 20 C0 23 34 |.'..q ..0..q .#4|
00001730: 00 3A 1F 10 72 20 F6 2A 2D 39 00 43 1F 42 72 20 |.:..r .*-9.C.Br |
00001740: CA 23 30 00 4A 1F 74 72 20 DA 00 51 1F A6 72 20 |.#0.J.tr ..Q..r |
00001750: D8 00 5D 1F D8 72 20 D6 24 46 46 42 44 00 67 1F |..]..r .$FFBD.g.|
00001760: 0A 73 20 CA 23 31 35 00 70 1F 3C 73 20 C2 23 38 |.s .#15.p.<s .#8|
00001770: 00 77 1F 6E 73 20 DA 00 83 1F A0 73 20 D6 24 46 |.w.ns .....s .$F|
00001780: 46 42 41 00 8F 1F D2 73 20 D6 24 46 46 43 30 00 |FBA....s .$FFC0.|
00001790: 99 1F 04 74 20 C2 23 31 35 00 A5 1F 36 74 20 D6 |...t .#15...6t .|
000017A0: 24 46 46 43 36 00 B0 1F 68 74 20 C3 23 24 30 30 |$FFC6...ht .#$00|
000017B0: 00 C1 1F 9A 74 54 45 58 39 38 20 D6 24 46 46 43 |....tTEX98 .$FFC|
000017C0: 46 00 CC 1F CC 74 20 C4 23 24 30 44 00 D8 1F FE |F....t .#$0D....|
000017D0: 74 20 F7 54 45 58 39 39 00 E4 1F 30 75 20 D6 24 |t .TEX99...0u .$|
000017E0: 46 46 44 32 00 F0 1F 62 75 20 D5 54 45 58 39 38 |FFD2...bu .TEX98|
000017F0: 00 FF 1F 94 75 54 45 58 39 39 20 CA 23 31 35 00 |....uTEX99 .#15.|
00001800: 0B 20 C6 75 20 D6 24 46 46 43 33 00 17 20 F8 75 |. .u .$FFC3.. .u|
00001810: 20 D6 24 46 46 45 37 00 20 20 2A 76 20 CA 23 30 | .$FFE7. *v .#0|
00001820: 00 2A 20 5C 76 20 D2 24 43 36 00 30 20 8E 76 A2 |.* \v .$C6.0 .v.|
00001830: 00 56 20 C0 76 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.V .v;**********|
00001840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001850: 2A 2A 2A 2A 2A 2A 00 6F 20 F2 76 A1 44 49 53 4B |******.o .v.DISK|
00001860: 45 52 52 4F 52 A0 58 2C 59 2C 43 4F 4C 4F 52 00 |ERROR.X,Y,COLOR.|
00001870: 7C 20 24 77 20 CA 23 43 4F 4C 4F 52 00 88 20 56 || $w .#COLOR.. V|
00001880: 77 20 D2 24 30 32 38 36 00 91 20 88 77 20 C2 23 |w .$0286.. .w .#|
00001890: 59 00 9A 20 BA 77 20 C3 23 58 00 A1 20 EC 77 20 |Y.. .w .#X.. .w |
000018A0: E5 00 AD 20 1E 78 20 D6 24 46 46 46 30 00 B6 20 |... .x .$FFF0.. |
000018B0: 50 78 20 CA 23 30 00 BD 20 82 78 20 DA 00 C4 20 |Px .#0.. .x ... |
000018C0: B4 78 20 D8 00 D0 20 E6 78 20 D6 24 46 46 42 44 |.x ... .x .$FFBD|
000018D0: 00 DA 20 18 79 20 CA 23 31 35 00 E3 20 4A 79 20 |.. .y .#15.. Jy |
000018E0: C2 23 38 00 EA 20 7C 79 20 DA 00 F6 20 AE 79 20 |.#8.. |y ... .y |
000018F0: D6 24 46 46 42 41 00 02 21 E0 79 20 D6 24 46 46 |.$FFBA..!.y .$FF|
00001900: 43 30 00 0C 21 12 7A 20 C2 23 31 35 00 18 21 44 |C0..!.z .#15..!D|
00001910: 7A 20 D6 24 46 46 43 36 00 23 21 76 7A 20 C3 23 |z .$FFC6.#!vz .#|
00001920: 24 30 30 00 34 21 A8 7A 54 45 58 39 38 20 D6 24 |$00.4!.zTEX98 .$|
00001930: 46 46 43 46 00 3D 21 DA 7A 20 C1 23 30 00 49 21 |FFCF.=!.z .#0.I!|
00001940: 0C 7B 20 F7 54 45 58 39 37 00 55 21 3E 7B 54 45 |.{ .TEX97.U!>{TE|
00001950: 58 39 36 20 ED 00 60 21 70 7B 20 C4 23 24 30 44 |X96 ..`!p{ .#$0D|
00001960: 00 6C 21 A2 7B 20 F7 54 45 58 39 39 00 78 21 D4 |.l!.{ .TEX99.x!.|
00001970: 7B 20 D6 24 46 46 44 32 00 84 21 06 7C 20 D5 54 |{ .$FFD2..!.| .T|
00001980: 45 58 39 38 00 96 21 38 7C 54 45 58 39 39 20 D4 |EX98..!8|TEX99 .|
00001990: 54 45 58 31 30 33 00 A0 21 6A 7C 20 CA 23 31 35 |TEX103..!j| .#15|
000019A0: 00 AC 21 9C 7C 20 D6 24 46 46 43 33 00 B8 21 CE |..!.| .$FFC3..!.|
000019B0: 7C 20 D6 24 46 46 45 37 00 C1 21 00 7D 20 CA 23 || .$FFE7..!.} .#|
000019C0: 30 00 CB 21 32 7D 20 D2 24 43 36 00 D8 21 64 7D |0..!2} .$C6..!d}|
000019D0: 20 D5 54 45 58 31 30 32 00 E7 21 96 7D 54 45 58 | .TEX102..!.}TEX|
000019E0: 39 37 20 C4 23 34 38 00 F3 21 C8 7D 20 F7 54 45 |97 .#48..!.} .TE|
000019F0: 58 39 39 00 FD 21 FA 7D 20 C4 23 34 39 00 09 22 |X99..!.} .#49.."|
00001A00: 2C 7E 20 F7 54 45 58 39 39 00 10 22 5E 7E 20 DA |,~ .TEX99.."^~ .|
00001A10: 00 19 22 90 7E 20 C2 23 30 00 28 22 C2 7E 20 CA |..".~ .#0.(".~ .|
00001A20: 54 45 58 31 30 30 2C 58 00 34 22 F4 7E 20 D6 24 |TEX100,X.4".~ .$|
00001A30: 46 46 44 32 00 3B 22 26 7F 20 EF 00 45 22 58 7F |FFD2.;"&. ..E"X.|
00001A40: 20 C0 23 32 30 00 4F 22 8A 7F 20 F6 2A 2D 39 00 | .#20.O".. .*-9.|
00001A50: 56 22 BC 7F 20 D9 00 5F 22 EE 7F 20 C3 23 30 00 |V".. .._".. .#0.|
00001A60: 6B 22 20 80 20 D5 54 45 58 39 36 00 8C 22 52 80 |k" . .TEX96.."R.|
00001A70: 54 45 58 31 30 30 20 A8 22 44 4F 53 20 45 52 52 |TEX100 ."DOS ERR|
00001A80: 4F 52 20 4D 45 53 53 41 47 45 3A 22 00 96 22 84 |OR MESSAGE:"..".|
00001A90: 80 20 A5 24 30 44 00 AA 22 B6 80 54 45 58 31 30 |. .$0D.."..TEX10|
00001AA0: 31 20 A5 24 30 44 2C 24 30 44 00 C8 22 E8 80 20 |1 .$0D,$0D..".. |
00001AB0: A8 22 2A 4C 4F 4F 4B 49 4E 47 20 46 4F 52 20 4E |."*LOOKING FOR N|
00001AC0: 45 58 54 20 50 49 43 22 00 D7 22 1A 81 54 45 58 |EXT PIC".."..TEX|
00001AD0: 31 30 33 20 A5 30 30 00 EA 22 4C 81 54 45 58 31 |103 .00.."L.TEX1|
00001AE0: 30 32 20 C2 54 45 58 31 30 33 00 F7 22 7E 81 20 |02 .TEX103.."~. |
00001AF0: F7 54 45 58 31 30 34 00 02 23 B0 81 20 C2 23 24 |.TEX104..#.. .#$|
00001B00: 30 30 00 11 23 E2 81 20 CA 54 45 58 31 30 31 2C |00..#.. .TEX101,|
00001B10: 58 00 1D 23 14 82 20 D6 24 46 46 44 32 00 24 23 |X..#.. .$FFD2.$#|
00001B20: 46 82 20 EF 00 2E 23 78 82 20 C0 23 32 33 00 38 |F. ...#x. .#23.8|
00001B30: 23 AA 82 20 F6 2A 2D 39 00 48 23 DC 82 20 50 41 |#.. .*-9.H#.. PA|
00001B40: 55 53 45 A0 31 30 30 30 00 55 23 0E 83 54 45 58 |USE.1000.U#..TEX|
00001B50: 31 30 34 20 E4 00 5B 23 40 83 A2 00 81 23 72 83 |104 ..[#@....#r.|
00001B60: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00001B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B80: 2A 00 8F 23 A4 83 A1 44 49 53 4B 49 4E 49 54 00 |*..#...DISKINIT.|
00001B90: 9A 23 D6 83 20 D5 54 57 45 45 00 AA 23 08 84 4E |.#.. .TWEE..#..N|
00001BA0: 41 41 4D 20 A8 22 49 2F 30 22 00 B7 23 3A 84 54 |AAM ."I/0"..#:.T|
00001BB0: 57 45 45 20 CA 23 33 00 C6 23 6C 84 20 C3 23 3E |WEE .#3..#l. .#>|
00001BC0: 28 4E 41 41 4D 29 00 D5 23 9E 84 20 C2 23 3C 28 |(NAAM)..#.. .#<(|
00001BD0: 4E 41 41 4D 29 00 E1 23 D0 84 20 D6 24 46 46 42 |NAAM)..#.. .$FFB|
00001BE0: 44 00 EB 23 02 85 20 CA 23 31 35 00 F4 23 34 85 |D..#.. .#15..#4.|
00001BF0: 20 C2 23 38 00 FE 23 66 85 20 C3 23 31 35 00 0A | .#8..#f. .#15..|
00001C00: 24 98 85 20 D6 24 46 46 42 41 00 16 24 CA 85 20 |$.. .$FFBA..$.. |
00001C10: D6 24 46 46 43 30 00 20 24 FC 85 20 CA 23 31 35 |.$FFC0. $.. .#15|
00001C20: 00 2C 24 2E 86 20 D6 24 46 46 43 33 00 38 24 60 |.,$.. .$FFC3.8$`|
00001C30: 86 20 D6 24 46 46 45 37 00 3E 24 92 86 A2 00 64 |. .$FFE7.>$....d|
00001C40: 24 C4 86 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |$..;************|
00001C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001C60: 2A 2A 2A 2A 00 71 24 F6 86 A1 44 49 53 4B 56 41 |****.q$...DISKVA|
00001C70: 4C 00 7C 24 28 87 20 D5 44 52 49 45 00 8B 24 5A |L.|$(. .DRIE..$Z|
00001C80: 87 4E 41 41 4D 33 20 A8 22 56 22 00 98 24 8C 87 |.NAAM3 ."V"..$..|
00001C90: 44 52 49 45 20 CA 23 31 00 A8 24 BE 87 20 C3 23 |DRIE .#1..$.. .#|
00001CA0: 3E 28 4E 41 41 4D 33 29 00 B8 24 F0 87 20 C2 23 |>(NAAM3)..$.. .#|
00001CB0: 3C 28 4E 41 41 4D 33 29 00 C4 24 22 88 20 D6 24 |<(NAAM3)..$". .$|
00001CC0: 46 46 42 44 00 CE 24 54 88 20 CA 23 31 35 00 D7 |FFBD..$T. .#15..|
00001CD0: 24 86 88 20 C2 23 38 00 E1 24 B8 88 20 C3 23 31 |$.. .#8..$.. .#1|
00001CE0: 35 00 ED 24 EA 88 20 D6 24 46 46 42 41 00 F9 24 |5..$.. .$FFBA..$|
00001CF0: 1C 89 20 D6 24 46 46 43 30 00 03 25 4E 89 20 CA |.. .$FFC0..%N. .|
00001D00: 23 31 35 00 0F 25 80 89 20 D6 24 46 46 43 33 00 |#15..%.. .$FFC3.|
00001D10: 1B 25 B2 89 20 D6 24 46 46 45 37 00 21 25 E4 89 |.%.. .$FFE7.!%..|
00001D20: A2 00 48 25 16 8A 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |..H%..;*********|
00001D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001D40: 2A 2A 2A 2A 2A 2A 2A 2A 00 67 25 48 8A A1 4C 4F |********.g%H..LO|
00001D50: 41 44 A0 4E 41 41 4D 41 44 52 45 53 2C 4C 45 4E |AD.NAAMADRES,LEN|
00001D60: 47 54 45 4E 41 41 4D 00 72 25 7A 8A 20 CA 23 24 |GTENAAM.r%z. .#$|
00001D70: 30 34 00 7D 25 AC 8A 20 C2 23 24 30 38 00 88 25 |04.}%.. .#$08..%|
00001D80: DE 8A 20 C3 23 24 30 31 00 94 25 10 8B 20 D6 24 |.. .#$01..%.. .$|
00001D90: 46 46 42 41 00 A6 25 42 8B 20 CA 23 4C 45 4E 47 |FFBA..%B. .#LENG|
00001DA0: 54 45 4E 41 41 4D 00 BA 25 74 8B 20 C2 23 3C 28 |TENAAM..%t. .#<(|
00001DB0: 4E 41 41 4D 41 44 52 45 53 29 00 CE 25 A6 8B 20 |NAAMADRES)..%.. |
00001DC0: C3 23 3E 28 4E 41 41 4D 41 44 52 45 53 29 00 DA |.#>(NAAMADRES)..|
00001DD0: 25 D8 8B 20 D6 24 46 46 42 44 00 E5 25 0A 8C 20 |%.. .$FFBD..%.. |
00001DE0: CA 23 24 30 30 00 F0 25 3C 8C 20 C2 23 24 46 46 |.#$00..%<. .#$FF|
00001DF0: 00 FB 25 6E 8C 20 C3 23 24 46 46 00 07 26 A0 8C |..%n. .#$FF..&..|
00001E00: 20 D6 24 46 46 44 35 00 0D 26 D2 8C A2 00 34 26 | .$FFD5..&....4&|
00001E10: 04 8D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
00001E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E30: 2A 2A 2A 2A 00 51 26 36 8D A1 53 41 56 45 A0 4E |****.Q&6..SAVE.N|
00001E40: 41 4D 41 44 52 2C 4C 2C 41 44 52 31 2C 41 44 52 |AMADR,L,ADR1,ADR|
00001E50: 32 00 5C 26 68 8D 20 CA 23 24 30 34 00 67 26 9A |2.\&h. .#$04.g&.|
00001E60: 8D 20 C2 23 24 30 38 00 72 26 CC 8D 20 C3 23 24 |. .#$08.r&.. .#$|
00001E70: 30 31 00 7E 26 FE 8D 20 D6 24 46 46 42 41 00 87 |01.~&.. .$FFBA..|
00001E80: 26 30 8E 20 CA 23 4C 00 98 26 62 8E 20 C2 23 3C |&0. .#L..&b. .#<|
00001E90: 28 4E 41 4D 41 44 52 29 00 A9 26 94 8E 20 C3 23 |(NAMADR)..&.. .#|
00001EA0: 3E 28 4E 41 4D 41 44 52 29 00 B5 26 C6 8E 20 D6 |>(NAMADR)..&.. .|
00001EB0: 24 46 46 42 44 00 C4 26 F8 8E 20 CA 23 3C 28 41 |$FFBD..&.. .#<(A|
00001EC0: 44 52 31 29 00 CE 26 2A 8F 20 D2 24 30 32 00 DD |DR1)..&*. .$02..|
00001ED0: 26 5C 8F 20 CA 23 3E 28 41 44 52 31 29 00 E7 26 |&\. .#>(ADR1)..&|
00001EE0: 8E 8F 20 D2 24 30 33 00 F6 26 C0 8F 20 C2 23 3C |.. .$03..&.. .#<|
00001EF0: 28 41 44 52 32 29 00 05 27 F2 8F 20 C3 23 3E 28 |(ADR2)..'.. .#>(|
00001F00: 41 44 52 32 29 00 10 27 24 90 20 CA 23 24 30 32 |ADR2)..'$. .#$02|
00001F10: 00 1C 27 56 90 20 D6 24 46 46 44 38 00 22 27 88 |..'V. .$FFD8."'.|
00001F20: 90 A2 00 48 27 BA 90 3B 2A 2A 2A 2A 2A 2A 2A 2A |...H'..;********|
00001F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F40: 2A 2A 2A 2A 2A 2A 2A 2A 00 66 27 EC 90 A1 53 43 |********.f'...SC|
00001F50: 52 41 54 43 48 A0 4E 41 41 4D 41 44 52 45 53 2C |RATCH.NAAMADRES,|
00001F60: 4C 45 4E 47 54 45 00 72 27 1E 91 20 D5 42 45 47 |LENGTE.r'.. .BEG|
00001F70: 49 4E 00 92 27 50 91 4E 41 41 4D 20 A8 22 53 30 |IN..'P.NAAM ."S0|
00001F80: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |: |
00001F90: 20 22 00 A1 27 82 91 42 45 47 49 4E 20 C2 23 30 | "..'..BEGIN .#0|
00001FA0: 30 00 B9 27 B4 91 54 45 58 32 30 30 20 CA 4E 41 |0..'..TEX200 .NA|
00001FB0: 41 4D 41 44 52 45 53 2C 58 00 CA 27 E6 91 20 D2 |AMADRES,X..'.. .|
00001FC0: 4E 41 41 4D 2B 24 30 33 2C 58 00 D1 27 18 92 20 |NAAM+$03,X..'.. |
00001FD0: EF 00 DF 27 4A 92 20 C0 23 4C 45 4E 47 54 45 00 |...'J. .#LENGTE.|
00001FE0: EC 27 7C 92 20 F6 54 45 58 32 30 30 00 FC 27 AE |.'|. .TEX200..'.|
00001FF0: 92 20 CA 23 4C 45 4E 47 54 45 2B 33 00 0B 28 E0 |. .#LENGTE+3..(.|
00002000: 92 20 C3 23 3E 28 4E 41 41 4D 29 00 1A 28 12 93 |. .#>(NAAM)..(..|
00002010: 20 C2 23 3C 28 4E 41 41 4D 29 00 26 28 44 93 20 | .#<(NAAM).&(D. |
00002020: D6 24 46 46 42 44 00 30 28 76 93 20 CA 23 31 35 |.$FFBD.0(v. .#15|
00002030: 00 39 28 A8 93 20 C2 23 38 00 43 28 DA 93 20 C3 |.9(.. .#8.C(.. .|
00002040: 23 31 35 00 4F 28 0C 94 20 D6 24 46 46 42 41 00 |#15.O(.. .$FFBA.|
00002050: 5B 28 3E 94 20 D6 24 46 46 43 30 00 65 28 70 94 |[(>. .$FFC0.e(p.|
00002060: 20 CA 23 31 35 00 71 28 A2 94 20 D6 24 46 46 43 | .#15.q(.. .$FFC|
00002070: 33 00 7D 28 D4 94 20 D6 24 46 46 45 37 00 83 28 |3.}(.. .$FFE7..(|
00002080: 06 95 A2 00 A9 28 38 95 3B 2A 2A 2A 2A 2A 2A 2A |.....(8.;*******|
00002090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000020A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CC 28 6A 95 3B 4D |*********..(j.;M|
000020B0: 41 43 52 4F 20 49 4E 50 55 54 A0 41 44 52 2C 4D |ACRO INPUT.ADR,M|
000020C0: 41 58 2C 58 2C 59 2C 43 4F 4C 4F 52 00 F2 28 9C |AX,X,Y,COLOR..(.|
000020D0: 95 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
000020E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000020F0: 2A 2A 00 17 29 CE 95 3B 53 45 54 20 47 4C 4F 42 |**..)..;SET GLOB|
00002100: 41 4C 20 49 4E 50 55 54 42 41 53 45 20 54 4F 20 |AL INPUTBASE TO |
00002110: 49 4E 50 42 41 53 45 00 37 29 00 96 3B 28 49 4E |INPBASE.7)..;(IN|
00002120: 50 42 41 53 45 3D 53 54 41 52 54 20 53 55 42 52 |PBASE=START SUBR|
00002130: 4F 55 54 49 4E 45 29 00 59 29 32 96 3B 52 45 4D |OUTINE).Y)2.;REM|
00002140: 20 20 20 20 20 20 49 4E 49 54 49 4E 50 55 54 A0 | INITINPUT.|
00002150: 30 2C 30 2C 30 2C 30 2C 30 00 6B 29 64 96 3B 52 |0,0,0,0,0.k)d.;R|
00002160: 45 4D 20 20 20 20 20 20 52 54 53 00 8E 29 96 96 |EM RTS..)..|
00002170: 3B 28 43 41 4C 4C 20 49 4E 49 54 49 4E 50 55 54 |;(CALL INITINPUT|
00002180: 20 54 4F 20 49 4E 54 49 41 4C 49 53 45 29 00 94 | TO INTIALISE)..|
00002190: 29 C8 96 3B 00 B9 29 FA 96 3B 2A 20 49 4E 50 55 |)..;..)..;* INPU|
000021A0: 54 20 57 4F 52 44 54 20 56 41 4E 41 46 20 41 44 |T WORDT VANAF AD|
000021B0: 52 45 53 20 28 41 44 52 29 00 D5 29 2C 97 3B 2A |RES (ADR)..),.;*|
000021C0: 20 4E 45 45 52 47 45 5A 45 54 20 49 4E 20 46 4F | NEERGEZET IN FO|
000021D0: 52 4D 41 54 3A 00 F0 29 5E 97 3B 2A 20 4C 45 4E |RMAT:..)^.;* LEN|
000021E0: 47 54 45 49 4E 50 55 54 2C 49 4E 50 55 54 2C 30 |GTEINPUT,INPUT,0|
000021F0: 00 F6 29 90 97 3B 00 1C 2A C2 97 3B 2A 2A 2A 2A |..)..;..*..;****|
00002200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3D 2A F4 |************.=*.|
00002220: 97 A1 49 4E 49 54 49 4E 50 55 54 A0 41 44 52 2C |..INITINPUT.ADR,|
00002230: 4D 41 58 2C 58 2C 59 2C 43 4F 4C 4F 52 00 50 2A |MAX,X,Y,COLOR.P*|
00002240: 26 98 49 4E 50 42 41 53 45 20 D5 54 45 58 35 38 |&.INPBASE .TEX58|
00002250: 00 62 2A 58 98 54 45 58 35 31 20 A5 3E 28 41 44 |.b*X.TEX51 .>(AD|
00002260: 52 29 00 74 2A 8A 98 54 45 58 35 32 20 A5 3C 28 |R).t*..TEX52 .<(|
00002270: 41 44 52 29 00 83 2A BC 98 54 45 58 35 33 20 A5 |ADR)..*..TEX53 .|
00002280: 4D 41 58 00 90 2A EE 98 54 45 58 35 34 20 A5 58 |MAX..*..TEX54 .X|
00002290: 00 9D 2A 20 99 54 45 58 35 35 20 A5 59 00 AE 2A |..* .TEX55 .Y..*|
000022A0: 52 99 54 45 58 35 30 20 A5 43 4F 4C 4F 52 00 BF |R.TEX50 .COLOR..|
000022B0: 2A 84 99 54 45 58 35 38 20 C2 54 45 58 35 30 00 |*..TEX58 .TEX50.|
000022C0: CB 2A B6 99 20 D3 24 30 32 38 36 00 D7 2A E8 99 |.*.. .$0286..*..|
000022D0: 20 C2 54 45 58 35 31 00 E1 2A 1A 9A 20 D3 24 30 | .TEX51..*.. .$0|
000022E0: 33 00 ED 2A 4C 9A 20 C2 54 45 58 35 32 00 F7 2A |3..*L. .TEX52..*|
000022F0: 7E 9A 20 D3 24 30 32 00 03 2B B0 9A 20 C2 54 45 |~. .$02..+.. .TE|
00002300: 58 35 34 00 0F 2B E2 9A 20 C3 54 45 58 35 35 00 |X54..+.. .TEX55.|
00002310: 16 2B 14 9B 20 E5 00 22 2B 46 9B 20 D6 24 46 46 |.+.. .."+F. .$FF|
00002320: 46 30 00 32 2B 78 9B 54 45 58 32 33 20 C2 23 24 |F0.2+x.TEX23 .#$|
00002330: 30 30 00 3E 2B AA 9B 20 D3 54 45 58 32 32 00 4A |00.>+.. .TEX22.J|
00002340: 2B DC 9B 20 D5 54 45 58 32 30 00 58 2B 0E 9C 54 |+.. .TEX20.X+..T|
00002350: 45 58 32 32 20 A5 30 30 00 68 2B 40 9C 54 45 58 |EX22 .00.h+@.TEX|
00002360: 32 30 20 CA 23 31 38 35 00 74 2B 72 9C 20 D6 24 |20 .#185.t+r. .$|
00002370: 46 46 44 32 00 85 2B A4 9C 54 45 58 32 31 20 D6 |FFD2..+..TEX21 .|
00002380: 24 46 46 45 34 00 91 2B D6 9C 20 C9 54 45 58 32 |$FFE4..+.. .TEX2|
00002390: 32 00 9D 2B 08 9D 20 C3 54 45 58 32 32 00 A9 2B |2..+.. .TEX22..+|
000023A0: 3A 9D 20 C1 54 45 58 35 33 00 B5 2B 6C 9D 20 F7 |:. .TEX53..+l. .|
000023B0: 54 45 58 32 39 00 C0 2B 9E 9D 20 C4 23 24 30 30 |TEX29..+.. .#$00|
000023C0: 00 CC 2B D0 9D 20 F6 54 45 58 32 34 00 D8 2B 02 |..+.. .TEX24..+.|
000023D0: 9E 20 C7 54 45 58 32 32 00 E4 2B 34 9E 20 D5 54 |. .TEX22..+4. .T|
000023E0: 45 58 32 31 00 F3 2B 66 9E 54 45 58 32 34 20 C4 |EX21..+f.TEX24 .|
000023F0: 23 31 33 00 FF 2B 98 9E 20 F7 54 45 58 32 38 00 |#13..+.. .TEX28.|
00002400: 0A 2C CA 9E 20 C4 23 31 34 38 00 16 2C FC 9E 20 |.,.. .#148..,.. |
00002410: F7 54 45 58 32 31 00 21 2C 2E 9F 20 C4 23 31 35 |.TEX21.!,.. .#15|
00002420: 37 00 2D 2C 60 9F 20 F7 54 45 58 32 31 00 37 2C |7.-,`. .TEX21.7,|
00002430: 92 9F 20 C4 23 32 39 00 43 2C C4 9F 20 F7 54 45 |.. .#29.C,.. .TE|
00002440: 58 32 31 00 4D 2C F6 9F 20 C4 23 31 37 00 59 2C |X21.M,.. .#17.Y,|
00002450: 28 A0 20 F7 54 45 58 32 31 00 64 2C 5A A0 20 C4 |(. .TEX21.d,Z. .|
00002460: 23 31 34 35 00 70 2C 8C A0 20 F7 54 45 58 32 31 |#145.p,.. .TEX21|
00002470: 00 7A 2C BE A0 20 C4 23 32 30 00 86 2C F0 A0 20 |.z,.. .#20..,.. |
00002480: F6 54 45 58 32 36 00 91 2C 22 A1 20 C1 23 24 30 |.TEX26..,". .#$0|
00002490: 31 00 9D 2C 54 A1 20 F6 54 45 58 32 35 00 A8 2C |1..,T. .TEX25..,|
000024A0: 86 A1 20 C3 23 24 30 30 00 B4 2C B8 A1 20 D4 54 |.. .#$00..,.. .T|
000024B0: 45 58 32 32 00 C0 2C EA A1 20 D5 54 45 58 32 31 |EX22..,.. .TEX21|
000024C0: 00 D1 2C 1C A2 54 45 58 32 35 20 C7 54 45 58 32 |..,..TEX25 .TEX2|
000024D0: 32 00 DD 2C 4E A2 20 C7 54 45 58 32 32 00 E9 2C |2..,N. .TEX22..,|
000024E0: 80 A2 20 D5 54 45 58 32 37 00 FC 2C B2 A2 54 45 |.. .TEX27..,..TE|
000024F0: 58 32 36 20 D2 28 24 30 32 29 2C 59 00 08 2D E4 |X26 .($02),Y..-.|
00002500: A2 54 45 58 32 37 20 D8 00 13 2D 16 A3 20 CA 23 |.TEX27 ...-.. .#|
00002510: 31 35 37 00 1F 2D 48 A3 20 D6 24 46 46 44 32 00 |157..-H. .$FFD2.|
00002520: 26 2D 7A A3 20 D7 00 32 2D AC A3 20 D6 24 46 46 |&-z. ..2-.. .$FF|
00002530: 44 32 00 3E 2D DE A3 20 D5 54 45 58 32 30 00 4D |D2.>-.. .TEX20.M|
00002540: 2D 10 A4 54 45 58 32 38 20 CA 23 32 30 00 59 2D |-..TEX28 .#20.Y-|
00002550: 42 A4 20 D6 24 46 46 44 32 00 65 2D 74 A4 20 C3 |B. .$FFD2.e-t. .|
00002560: 54 45 58 32 32 00 6F 2D A6 A4 20 CA 23 30 30 00 |TEX22.o-.. .#00.|
00002570: 7D 2D D8 A4 20 D2 28 24 30 32 29 2C 59 00 89 2D |}-.. .($02),Y..-|
00002580: 0A A5 20 C7 54 45 58 32 32 00 95 2D 3C A5 20 CA |.. .TEX22..-<. .|
00002590: 54 45 58 32 32 00 A0 2D 6E A5 20 C3 23 24 30 30 |TEX22..-n. .#$00|
000025A0: 00 AE 2D A0 A5 20 D2 28 24 30 32 29 2C 59 00 B5 |..-.. .($02),Y..|
000025B0: 2D D2 A5 20 E3 00 C4 2D 04 A6 54 45 58 32 39 20 |-.. ...-..TEX29 |
000025C0: CA 23 32 30 00 D5 2D 36 A6 54 45 58 33 30 20 D6 |.#20..-6.TEX30 .|
000025D0: 24 46 46 44 32 00 DC 2D 68 A6 20 EC 00 E8 2D 9A |$FFD2..-h. ...-.|
000025E0: A6 20 F6 54 45 58 33 30 00 F4 2D CC A6 20 D5 54 |. .TEX30..-.. .T|
000025F0: 45 58 32 33 00 FA 2D FE A6 A2 00 20 2E 30 A7 3B |EX23..-.... .0.;|
00002600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002620: 00 3D 2E 62 A7 A1 49 4E 50 55 54 A0 41 44 52 2C |.=.b..INPUT.ADR,|
00002630: 4D 41 58 2C 58 2C 59 2C 43 4F 4C 4F 52 00 49 2E |MAX,X,Y,COLOR.I.|
00002640: 94 A7 20 D5 54 45 58 35 38 00 5B 2E C6 A7 54 45 |.. .TEX58.[...TE|
00002650: 58 35 36 20 A5 3E 28 41 44 52 29 00 68 2E F8 A7 |X56 .>(ADR).h...|
00002660: 20 A5 3C 28 41 44 52 29 00 74 2E 2A A8 20 A5 4D | .<(ADR).t.*. .M|
00002670: 41 58 2B 32 00 7C 2E 5C A8 20 A5 59 00 84 2E 8E |AX+2.|.\. .Y....|
00002680: A8 20 A5 58 00 90 2E C0 A8 20 A5 43 4F 4C 4F 52 |. .X..... .COLOR|
00002690: 00 A0 2E F2 A8 54 45 58 35 38 20 C2 23 24 30 30 |.....TEX58 .#$00|
000026A0: 00 B3 2E 24 A9 54 45 58 35 37 20 CA 54 45 58 35 |...$.TEX57 .TEX5|
000026B0: 36 2C 58 00 C9 2E 56 A9 20 D2 49 4E 50 55 54 42 |6,X...V. .INPUTB|
000026C0: 41 53 45 2B 24 30 33 2C 58 00 D0 2E 88 A9 20 EF |ASE+$03,X..... .|
000026D0: 00 D9 2E BA A9 20 C0 23 36 00 E5 2E EC A9 20 F6 |..... .#6..... .|
000026E0: 54 45 58 35 37 00 F5 2E 1E AA 20 D6 49 4E 50 55 |TEX57..... .INPU|
000026F0: 54 42 41 53 45 00 FB 2E 50 AA A2 00 00 00 |TBASE...P..... |
..$..';MACRO INPUT ADR,MAX,X,Y,COLOR.H.B
';* MACRO TEXT ADRES,X,Y,KLEUR *.S.T'.$C
000.^..'.BEGIN.O.X'DISPL V34589.|..(AS I
NKEY...<( D#64...N( .AS... ( V34592...R(
CLRHOME....) UBEGIN.E.6)MIRRO V34589.S.
H)AS3 INKEY....) D#64...L) .AS3....) V$8
F25...0* V$CC7D...B*AS2 INKEY....* D#64.
!.F* .AS2.-..* V34592.9..* V38768.F.*+ C
LRHOME.R.\+ UBEGIN.O..+;****************
*******...+LOSL V65418....+ J#65....+ R
WE6+$05....+ ULOSSL....+WE6 ."?PIC A*".H
..+LOSSL CLRHOME.X..+ LOAD WE6,7....+ DI
SKERROR 0,0,0....+ D#0....+ .TWEESL....+
V34589."..+DD PAUSE 10000.5.., SCREENCO
LOR 1.I..,TWEESL IWE6+$05.W.., JWE6+$05.
A.., D#81.M.., .DRESL.Y.., ULOSSL....,DR
ESL V34592...., CLRHOME...., V$9770....,
UBEGIN.O..,;**************************.
...,LO J#65...., RWE1+$05...$, ULOS...V,
WE1 ."?PIC A*"....,LOS CLRHOME.&.., LOAD
WE1,7.;.., DISKERROR 0,0,0.D..- D#0.O.P
- .TWEE.[..- V34589.L..- PAUSE 10000.X..
- V34592..... SCREENCOLOR 1...J.TWEE IWE
1+$05...|. JWE1+$05..... D#81..... .DRE.
I../ ULOS.Y.D/DRE CLRHOME...V/ UBEGIN...
W/;**************************..../IN CLR
HOME.,.Z/ WINDOW 2,3,35,11,0.F..0WIN TEX
T TEKST1,3,4,0.].>0 TEXT TEKST2,3,6,0.T.
?0 TEXT TEKST5,3,8,0...P0 TEXT TEKST3,3,
10,0....0 TEXT TEKST4,3,12,0...T0QQ ....
.1TT .14,8.D.81 .".".W.J1BEGIN PRINT TT.
...1 SCREENCOLOR 1...N1 BORDERCOLOR 1...
.2 VIN...22EEN VWIN.#.D2 CURSOR 4,3....2
J#250.:.H2 V$FFD2.I..2 PAUSE 100.W.,3IN
0 INKEY.A.^3 D#01.L..3 .INJ1.X.B3 UDISPL
....3INJ1 D#64...&4 .IN0...X4 VWIN....4
CURSOR 6,3....4 J#250.A..4 V$FFD2.P. 5 P
AUSE 100...R5IN1 INKEY....5 D#01....5 .I
NJ2....5 ULO....6INJ2 D#64...L6 .IN1...~
6 VWIN....6 CURSOR 8,3.9..6 J#250.E..7 V
$FFD2.T.F7 PAUSE 100.B.X7IN2 INKEY.L..7
D#01.W..7 .INJ3....8 ULOSL...@8INJ3 D#64
...R8 .IN2....8 VWIN...V8 CURSOR 10,3...
.9 J#250.L.:9 V$FFD2...L9 PAUSE 100....9
IN3 INKEY...P9 D#01....: .INJ4...4: UMIR
RO...F:INJ4 D#64."..: .IN3.,.K: VWIN.=.L
: CURSOR 12,3.H.M: J#250.T.N: V$FFD2.C.O
: PAUSE 100.Q.P:IN4 INKEY.{.Q: D#01...R:
.INJ5...S: UQQ...T:INJ5 D#64...V: .IN4.
..W: UEEN....: ..R..;TEKST1 ." DISPLAY
."...`;TEKST2 ." DISPLAY ALL PIC'S ON DI
SK-TURBO.".3.A;TEKST5 ." DISPLAY ALL PI
C'S ON DISK-SLOW .".^..;TEKST3 ." MIRROR
."...D;TEKST4 ." EXI
T ."....;.WINDOW X,
Y,X1,Y1,COLVAL...(< B#X...Z< ST9.A..< B#
Y.J..< ST8.V..< UBEGIN..."=T1 ."."...T=T
2 ."."....=T3 ."."....=T7 ."."....=T4 ."
."....>T5 .".".*.N>T6 ." ".5..>T8 .00.@.
.>T9 .00.Q..>SET J#COLVAL.]..? R$0286.K.
H?POINT BT8.T.Z? CT9.{..? .....? V$FFF0.
...@ ....B@BEGIN VSET...T@ JT1....@ V$FF
D2...X@ B#00.E..A JT5.T.<AEEN V$FFD2...N
A .... A .#X1-2...RA .EEN....B JT2...6B
V$FFD2...HBDRIE IT8....B VSET.&.LB JT4.2
..B V$FFD2.<.0C B#00.E.BC JT6.U..CEENN V
$FFD2.\.FC ..H..C .#X1-2.S.*D .EENN.|.\D
JT4....D V$FFD2....D JT8....D D#Y1+1...
$E .DRIE...VE IT8....E VSET.D..E JT3.P..
E V$FFD2.Z..F B#00...PF JT5....FEENNN V$
FFD2....F .....F .#X1-2....G .EENNN...JG
JT7.(.|G V$FFD2....G..R..G;************
******************.I..H.SCREB..PPP...OLO
R.V.DH C#COLOR...VH T53281....H....ZH;**
****************************.C..I.BORDER
COLOR COLOR.P.>I C#COLOR...PI T53280....
I....TI;******************************..
..J.FILLCOLOR COLOR.(.8J J#COLOR.3.JJ B#
$00.E..JTEX1 R$D800,X.S.NJ R$D900,X.A..K
R$DA00,X.H.2K ..S.DK .TEX1....KTEX2 R$D
B00,X...HK .....K .#$E8...,L .TEX2...^L.
.L..L;******************************.Z.B
L.COLORINC....L B#$00...&MTEX1 I$D800,X.
..XM I$D900,X....M I$DA00,X....M ..%..M
.TEX1.7. NTEX2 I$DB00,X.>.RN ..I..N .#$E
8.T..N .TEX2.Z..N..~..O;****************
**************...LO.CLRHOME...~O J#147..
..O V$FFD2....O..L..P;******************
************...FP;* MACRO TEXT ADRES,X,Y
,KLEUR *...XP;**************************
****.4..P.TEXT TADR,XVAL,YVAL,COLVAL.B..
P J#COLVAL.N..Q R$0286.Z.@Q B#YVAL.F.RQ
C#XVAL.M..Q ..Y.VQ V$FFF0....R B#$00...:
RTEX1 JTADR,X. .LR D#$FF....R .TEX2...PR
V$FFD2....S ..I.4S UTEX1.T.FSTEX2 ..Z..
S....JS;****************************....
S;* MACRO PRINT ADRES *.@..T;****
************************.P.`T.PRINT TADR
.[..T B#$00.L.DTTEX1 JTADR,X.W..T D#$FF.
..(U .TEX2...ZU V$FFD2....U .. ..U UTEX1
....UTEX2 ...."V J#$0D.B.TV V$FFD2.H..V.
....V;****************************....V;
* MACRO KEY WAIT *....W;******
**********************.<.NW.KEY WAIT.K..
WTEX1 B#$00.W..W S$00C6.C..W J$00C5.O..X
D#WAIT.Z.HX .TEX1...ZX.....X.CURSOR X,Y
....X B#X....Y C#Y...BY ....TY V$FFF0...
.Y..F.XY.INKEY.Q..Z B#$00...<Z S$00C6...
NZ J$00C5... Z....RZ.PAUSE P....[ B#00..
.6[ C#$FF...H[ V$EEB3.$..[ ..0.L[ .#<(P)
.:..[ .*-6.A.0\ ..M.B\ A#>(P).X..\ .*-11
.^.F\.....\;****************************
****...*];* HERBIE'S DISK MACRO'S 1.1
*.P.\];********************************
....];MACRO DIR....];MACRO LOAD NAAMADRE
S,LENGTENAAM.'..];MACRO SAVE NAMADR,L,AD
R1,ADR2.K.$^;MACRO SCRATCH NAAMADRES,LEN
GTE.K.V^;MACRO DISKSTATUS X,Y,COLOR....^
;MACRO DISKERROR X,Y,COLOR....^;MACRO DI
SKINIT....^;MACRO DISKVAL.W.._;*********
***********************...P_.DIR...._ J#
$24...._ R$0100...._ V$AAD7....` J#$01..
.J` Z. .|` B#$00.,..` V$FFBD.7..` B#$08.
B..A C#$60.N.DA V$FFBA.Z.VA V$F3D5.D..A
J$BA.P.ZA V$FFB4.Z..B J$B9...>B V$FF96..
.PB J#$00....B R$90...TB C#$03....CTEX0
T$FF...8C V$FFA5.J.JC R$FE.T..C C$90...N
C .TEX4....D V$FFA5...2D C$90...DD .TEX4
....D C$FF...HD .....D .TEX0.&.,E B$FE.2
.^E V$BDCD.=..E VTEX5.M.BETEX1 V$FFA5.W.
.E B$90.B.&F .TEX4.I.XF Z.P..F X.{..F .T
EX2....F V$FFD2... G UTEX1...RGTEX2 V$AA
D7....G J#$00....G R$C6.A..G J$C5.K..H D
#60.V.LH .TEX7...~H D#63....H .TEX4....H
TEX3 C#$02....I UTEX0...FITEX4 V$F642. .
XI J#$08.*..I R$BA.6..I V$FFB4.A..J J#$6
F.K.@J R$B9.W.RJ V$FF96.C..J V$FFAB.N.VJ
J#$00.X..K R$C6...:K UTEX10...LKTEX5 J#
$20....K U$FFD2...PK B$02F7....L V$FFC9.
B.4L .TEX6.N.FL U$E0F9.Y..LTEX6 ....JLTE
X7 B#$00....LTEX8 V$EEB3....M ....`M .TE
X8....MTEX9 J#$00.#.DM R$C6.-..M J$C5.7.
(N D#60.B.ZN .TEX9.M..N UTEX3.Y..NTEX10
.._..N...."O;***************************
****...TO.DISKSTATUS X,Y,COLOR....O UEEN
....OTEX100 ."DOS:".K..OEEN J#COLOR.W..P
R$0286...NP B#Y....P C#X....P .....P V$
FFF0....Q B#0...HQ JTEX100,X. .ZQ V$FFD2
.'..Q ..0..Q .#4.:..R .*-9.C.BR J#0.J.TR
Z.Q..R X.].XR V$FFBD.G..S J#15.P.<S B#8
.W.NS Z... S V$FFBA...RS V$FFC0....T B#1
5...6T V$FFC6...HT C#$00.A..TTEX98 V$FFC
F.L.LT D#$0D.X..T .TEX99...0U V$FFD2...B
U UTEX98....UTEX99 J#15.. FU V$FFC3.. .U
V$FFE7. *V J#0.* \V R$C6.0 .V..V .V;**
******************************.O .V.DISK
ERROR X,Y,COLOR.| $W J#COLOR.. VW R$0286
.. .W B#Y.. .W C#X.. .W ... .X V$FFF0..
PX J#0.. .X Z.D .X X.P .X V$FFBD.Z .Y J#
15.. JY B#8.. |Y Z.. .Y V$FFBA..!.Y V$FF
C0..!.Z B#15..!DZ V$FFC6.#!VZ C#$00.4!.Z
TEX98 V$FFCF.=!ZZ A#0.I!.{ .TEX97.U!>{TE
X96 ..`!P{ D#$0D.L!.{ .TEX99.X!T{ V$FFD2
..!.| UTEX98..!8|TEX99 TTEX103. !J| J#15
..!.| V$FFC3..!N| V$FFE7.A!.} J#0.K!2} R
$C6.X!D} UTEX102..!.}TEX97 D#48..!H} .TE
X99..!.} D#49..",~ .TEX99.."^~ Z..".~ B#
0.("B~ JTEX100,X.4".~ V$FFD2.;"& ..E"X
.#20.O". .*-9.V". Y._". C#0.K" . UTE
X96.."R.TEX100 ."DOS ERROR MESSAGE:"..".
. .$0D.."..TEX101 .$0D,$0D.H".. ."*LOOKI
NG FOR NEXT PIC".W"..TEX103 .00.."L.TEX1
02 BTEX103.."~. .TEX104..#.. B#$00..#..
JTEX101,X..#.. V$FFD2.$#F. ...#X. .#23.8
#.. .*-9.H#.. PAUSE 1000.U#..TEX104 ..[#
@....#R.;*******************************
*..#...DISKINIT..#V. UTWEE..#..NAAM ."I/
0"..#:.TWEE J#3.F#L. C#>(NAAM).U#.. B#<(
NAAM)..#P. V$FFBD..#.. J#15..#4. B#8..#F
. C#15..$.. V$FFBA..$J. V$FFC0. $.. J#15
.,$.. V$FFC3.8$`. V$FFE7.>$....D$D.;****
****************************.Q$...DISKVA
L.|$(. UDRIE..$Z.NAAM3 ."V"..$..DRIE J#1
..$.. C#>(NAAM3)..$.. B#<(NAAM3).D$". V$
FFBD.N$T. J#15.W$.. B#8..$.. C#15..$.. V
$FFBA..$.. V$FFC0..%N. J#15..%.. V$FFC3.
.%.. V$FFE7.!%....H%..;*****************
****************.G%H..LOAD NAAMADRES,LEN
GTENAAM.R%Z. J#$04.}%.. B#$08..%.. C#$01
..%.. V$FFBA..%B. J#LENGTENAAM..%T. B#<(
NAAMADRES).N%.. C#>(NAAMADRES).Z%X. V$FF
BD..%.. J#$00..%<. B#$FF..%N. C#$FF..& .
V$FFD5..&R...4&..;*********************
************.Q&6..SAVE NAMADR,L,ADR1,ADR
2.\&H. J#$04.G&.. B#$08.R&L. C#$01.~&..
V$FFBA..&0. J#L..&B. B#<(NAMADR)..&.. C#
>(NAMADR)..&F. V$FFBD.D&.. J#<(ADR1).N&*
. R$02..&\. J#>(ADR1)..&.. R$03..&.. B#<
(ADR2)..'.. C#>(ADR2)..'$. J#$02..'V. V$
FFD8."'....H'..;************************
********.F'...SCRATCH NAAMADRES,LENGTE.R
'.. UBEGIN..'P.NAAM ."S0:
"..'..BEGIN B#00..'..TEX200 JNAAMADRES,
X.J'.. RNAAM+$03,X.Q'.. ...'J. .#LENGTE.
.'|. .TEX200..'.. J#LENGTE+3..(.. C#>(NA
AM)..(.. B#<(NAAM).&(D. V$FFBD.0(V. J#15
.9(.. B#8.C(Z. C#15.O(.. V$FFBA.[(>. V$F
FC0.E(P. J#15.Q(.. V$FFC3.}(T. V$FFE7..(
.....(8.;*******************************
*.L(J.;MACRO INPUT ADR,MAX,X,Y,COLOR..(.
.;********************************..)N.;
SET GLOBAL INPUTBASE TO INPBASE.7)..;(IN
PBASE=START SUBROUTINE).Y)2.;REM IN
ITINPUT 0,0,0,0,0.K)D.;REM RTS..)..
;(CALL INITINPUT TO INTIALISE)..)H.;..).
.;* INPUT WORDT VANAF ADRES (ADR).U),.;*
NEERGEZET IN FORMAT:..)^.;* LENGTEINPUT
,INPUT,0..)..;..*B.;********************
************.=*...INITINPUT ADR,MAX,X,Y,
COLOR.P*&.INPBASE UTEX58.B*X.TEX51 .>(AD
R).T*..TEX52 .<(ADR)..*..TEX53 .MAX..*..
TEX54 .X..* .TEX55 .Y..*R.TEX50 .COLOR..
*..TEX58 BTEX50.K*.. S$0286.W*.. BTEX51.
.*.. S$03..*L. BTEX52..*~. S$02..+.. BTE
X54..+.. CTEX55..+.. .."+F. V$FFF0.2+X.T
EX23 B#$00.>+.. STEX22.J+.. UTEX20.X+..T
EX22 .00.H+@.TEX20 J#185.T+R. V$FFD2..+.
.TEX21 V$FFE4..+V. ITEX22..+.. CTEX22..+
:. ATEX53..+L. .TEX29..+.. D#$00.L+P. .T
EX24.X+.. GTEX22..+4. UTEX21..+F.TEX24 D
#13..+.. .TEX28..,J. D#148..,.. .TEX21.!
,.. D#157.-,`. .TEX21.7,.. D#29.C,D. .TE
X21.M,.. D#17.Y,( .TEX21.D,Z D#145.P,.
.TEX21.Z,. D#20..,. .TEX26..,". A#$0
1..,T. .TEX25..,.. C#$00..,.. TTEX22..,.
. UTEX21.Q,..TEX25 GTEX22..,N. GTEX22..,
.. UTEX27..,..TEX26 R($02),Y..-..TEX27 X
..-.. J#157..-H. V$FFD2.&-Z. W.2-.. V$FF
D2.>-.. UTEX20.M-..TEX28 J#20.Y-B. V$FFD
2.E-T. CTEX22.O-.. J#00.}-X. R($02),Y..-
.. GTEX22..-<. JTEX22. -N. C#$00..- . R(
$02),Y..-R. ..D-..TEX29 J#20.U-6.TEX30 V
$FFD2..-H. ...-.. .TEX30..-L. UTEX23..-.
... .0.;********************************
.=.B..INPUT ADR,MAX,X,Y,COLOR.I... UTEX5
8.[.F.TEX56 .>(ADR).H... .<(ADR).T.*. .M
AX+2.|.\. .Y..... .X..... .COLOR. ...TEX
58 B#$00...$.TEX57 JTEX56,X.I.V. RINPUTB
ASE+$03,X.P... ..Y... .#6..... .TEX57...
.. VINPUTBASE...P.....
> CLICK IMAGE PREVIEW FOR FULL MODAL