DIN2
FILE INFORMATION
FILENAME(S): DIN2
FILE TYPE(S): PRG
FILE SIZE: 9.2K
FIRST SEEN: 2025-11-30 21:09:57
APPEARS ON: 1 disk(s)
FILE HASH
528240c6c91744b820a9a4a54ee4f0f21682d87ba478f34922b169d5ff2dcf57
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCREENSET | DIN2 | PRG | DuncanTwain | 31 | 4 | 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 3A 09 |2.-..* .34592.:.|
00000130: 2A 2B 20 43 4C 52 48 4F 4D 45 00 46 09 5C 2B 20 |*+ CLRHOME.F.\+ |
00000140: D5 42 45 47 49 4E 00 63 09 8E 2B 3B 2A 2A 2A 2A |.BEGIN.c..+;****|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 2A 2A 2A 00 6D 09 C0 2B 20 CA 23 36 35 00 7B 09 |***.m..+ .#65.{.|
00000170: F2 2B 20 D2 57 45 31 2B 24 30 35 00 85 09 24 2C |.+ .WE1+$05...$,|
00000180: 20 D5 4C 4F 53 00 98 09 56 2C 57 45 31 20 A8 22 | .LOS...V,WE1 ."|
00000190: 3F 50 49 43 20 41 2A 22 00 A8 09 88 2C 4C 4F 53 |?PIC A*"....,LOS|
000001A0: 20 43 4C 52 48 4F 4D 45 00 B8 09 BA 2C 20 4C 4F | CLRHOME...., LO|
000001B0: 41 44 A0 57 45 31 2C 37 00 CD 09 EC 2C 20 44 49 |AD.WE1,7...., DI|
000001C0: 53 4B 45 52 52 4F 52 A0 30 2C 30 2C 30 00 D6 09 |SKERROR.0,0,0...|
000001D0: 1E 2D 20 C4 23 30 00 E1 09 50 2D 20 F6 54 57 45 |.- .#0...P- .TWE|
000001E0: 45 00 ED 09 82 2D 20 D6 33 34 35 38 39 00 FE 09 |E....- .34589...|
000001F0: B4 2D 20 50 41 55 53 45 A0 31 30 30 30 30 00 0A |.- PAUSE.10000..|
00000200: 0A E6 2D 20 D6 33 34 35 39 32 00 1D 0A 18 2E 20 |..- .34592..... |
00000210: 53 43 52 45 45 4E 43 4F 4C 4F 52 A0 31 00 2F 0A |SCREENCOLOR.1./.|
00000220: 4A 2E 54 57 45 45 20 C9 57 45 31 2B 24 30 35 00 |J.TWEE .WE1+$05.|
00000230: 3D 0A 7C 2E 20 CA 57 45 31 2B 24 30 35 00 47 0A |=.|. .WE1+$05.G.|
00000240: AE 2E 20 C4 23 38 31 00 51 0A E0 2E 20 F7 44 52 |.. .#81.Q... .DR|
00000250: 45 00 5B 0A 12 2F 20 D5 4C 4F 53 00 6B 0A 44 2F |E.[../ .LOS.k.D/|
00000260: 44 52 45 20 43 4C 52 48 4F 4D 45 00 77 0A 76 2F |DRE CLRHOME.w.v/|
00000270: 20 D5 42 45 47 49 4E 00 86 0A A8 2F 49 4E 20 43 | .BEGIN..../IN C|
00000280: 4C 52 48 4F 4D 45 00 9D 0A DA 2F 20 57 49 4E 44 |LRHOME..../ WIND|
00000290: 4F 57 A0 34 2C 33 2C 32 39 2C 39 2C 30 00 B7 0A |OW.4,3,29,9,0...|
000002A0: 0C 30 57 49 4E 20 54 45 58 54 A0 54 45 4B 53 54 |.0WIN TEXT.TEKST|
000002B0: 31 2C 35 2C 34 2C 30 00 CE 0A 3E 30 20 54 45 58 |1,5,4,0...>0 TEX|
000002C0: 54 A0 54 45 4B 53 54 32 2C 35 2C 36 2C 30 00 E5 |T.TEKST2,5,6,0..|
000002D0: 0A 70 30 20 54 45 58 54 A0 54 45 4B 53 54 33 2C |.p0 TEXT.TEKST3,|
000002E0: 35 2C 38 2C 30 00 FD 0A A2 30 20 54 45 58 54 A0 |5,8,0....0 TEXT.|
000002F0: 54 45 4B 53 54 34 2C 35 2C 31 30 2C 30 00 06 0B |TEKST4,5,10,0...|
00000300: D4 30 51 51 20 E3 00 13 0B 06 31 54 54 20 A5 31 |.0QQ .....1TT .1|
00000310: 34 2C 38 00 1D 0B 38 31 20 A8 22 FF 22 00 30 0B |4,8...81 .".".0.|
00000320: 6A 31 42 45 47 49 4E 20 50 52 49 4E 54 A0 54 54 |j1BEGIN PRINT.TT|
00000330: 00 43 0B 9C 31 20 53 43 52 45 45 4E 43 4F 4C 4F |.C..1 SCREENCOLO|
00000340: 52 A0 31 00 56 0B CE 31 20 42 4F 52 44 45 52 43 |R.1.V..1 BORDERC|
00000350: 4F 4C 4F 52 A0 31 00 5F 0B 00 32 20 D6 49 4E 00 |OLOR.1._..2 .IN.|
00000360: 6C 0B 32 32 45 45 4E 20 D6 57 49 4E 00 7C 0B 64 |l.22EEN .WIN.|.d|
00000370: 32 20 43 55 52 53 4F 52 A0 34 2C 35 00 87 0B 96 |2 CURSOR.4,5....|
00000380: 32 20 CA 23 32 35 30 00 93 0B C8 32 20 D6 24 46 |2 .#250....2 .$F|
00000390: 46 44 32 00 A2 0B FA 32 20 50 41 55 53 45 A0 31 |FD2....2 PAUSE.1|
000003A0: 30 30 00 B0 0B 2C 33 49 4E 30 20 49 4E 4B 45 59 |00...,3IN0 INKEY|
000003B0: 00 BA 0B 5E 33 20 C4 23 30 31 00 C5 0B 90 33 20 |...^3 .#01....3 |
000003C0: F6 49 4E 4A 31 00 D1 0B C2 33 20 D5 44 49 53 50 |.INJ1....3 .DISP|
000003D0: 4C 00 DF 0B F4 33 49 4E 4A 31 20 C4 23 36 34 00 |L....3INJ1 .#64.|
000003E0: E9 0B 26 34 20 F7 49 4E 30 00 F3 0B 58 34 20 D6 |..&4 .IN0...X4 .|
000003F0: 57 49 4E 00 03 0C 8A 34 20 43 55 52 53 4F 52 A0 |WIN....4 CURSOR.|
00000400: 36 2C 35 00 0E 0C BC 34 20 CA 23 32 35 30 00 1A |6,5....4 .#250..|
00000410: 0C EE 34 20 D6 24 46 46 44 32 00 29 0C 20 35 20 |..4 .$FFD2.). 5 |
00000420: 50 41 55 53 45 A0 31 30 30 00 37 0C 52 35 49 4E |PAUSE.100.7.R5IN|
00000430: 31 20 49 4E 4B 45 59 00 41 0C 84 35 20 C4 23 30 |1 INKEY.A..5 .#0|
00000440: 31 00 4C 0C B6 35 20 F6 49 4E 4A 32 00 55 0C E8 |1.L..5 .INJ2.U..|
00000450: 35 20 D5 4C 4F 00 63 0C 1A 36 49 4E 4A 32 20 C4 |5 .LO.c..6INJ2 .|
00000460: 23 36 34 00 6D 0C 4C 36 20 F7 49 4E 31 00 77 0C |#64.m.L6 .IN1.w.|
00000470: 7E 36 20 D6 57 49 4E 00 87 0C B0 36 20 43 55 52 |~6 .WIN....6 CUR|
00000480: 53 4F 52 A0 38 2C 35 00 92 0C E2 36 20 CA 23 32 |SOR.8,5....6 .#2|
00000490: 35 30 00 9E 0C 14 37 20 D6 24 46 46 44 32 00 AD |50....7 .$FFD2..|
000004A0: 0C 46 37 20 50 41 55 53 45 A0 31 30 30 00 BB 0C |.F7 PAUSE.100...|
000004B0: 78 37 49 4E 32 20 49 4E 4B 45 59 00 C5 0C AA 37 |x7IN2 INKEY....7|
000004C0: 20 C4 23 30 31 00 D0 0C DC 37 20 F6 49 4E 4A 33 | .#01....7 .INJ3|
000004D0: 00 DC 0C 0E 38 20 D5 4D 49 52 52 4F 00 EA 0C 40 |....8 .MIRRO...@|
000004E0: 38 49 4E 4A 33 20 C4 23 36 34 00 F4 0C 72 38 20 |8INJ3 .#64...r8 |
000004F0: F7 49 4E 32 00 FE 0C A4 38 20 D6 57 49 4E 00 0F |.IN2....8 .WIN..|
00000500: 0D D6 38 20 43 55 52 53 4F 52 A0 31 30 2C 35 00 |..8 CURSOR.10,5.|
00000510: 1A 0D 08 39 20 CA 23 32 35 30 00 26 0D 3A 39 20 |...9 .#250.&.:9 |
00000520: D6 24 46 46 44 32 00 35 0D 6C 39 20 50 41 55 53 |.$FFD2.5.l9 PAUS|
00000530: 45 A0 31 30 30 00 43 0D 9E 39 49 4E 33 20 49 4E |E.100.C..9IN3 IN|
00000540: 4B 45 59 00 4D 0D D0 39 20 C4 23 30 31 00 58 0D |KEY.M..9 .#01.X.|
00000550: 02 3A 20 F6 49 4E 4A 34 00 61 0D 34 3A 20 D5 51 |.: .INJ4.a.4: .Q|
00000560: 51 00 6F 0D 66 3A 49 4E 4A 34 20 C4 23 36 34 00 |Q.o.f:INJ4 .#64.|
00000570: 79 0D 98 3A 20 F7 49 4E 33 00 83 0D CA 3A 20 D5 |y..: .IN3....: .|
00000580: 45 45 4E 00 8A 0D FC 3A 20 E3 00 A4 0D 2E 3B 54 |EEN....: .....;T|
00000590: 45 4B 53 54 31 20 A8 22 20 44 49 53 50 4C 41 59 |EKST1 ." DISPLAY|
000005A0: 20 20 FF 22 00 CF 0D 60 3B 54 45 4B 53 54 32 20 | ."...`;TEKST2 |
000005B0: A8 22 20 44 49 53 50 4C 41 59 20 41 4C 4C 20 50 |." DISPLAY ALL P|
000005C0: 49 43 27 53 20 4F 4E 20 44 49 53 4B 20 FF 22 00 |IC'S ON DISK .".|
000005D0: FA 0D 92 3B 54 45 4B 53 54 33 20 A8 22 20 4D 49 |...;TEKST3 ." MI|
000005E0: 52 52 4F 52 20 20 20 20 20 20 20 20 20 20 20 20 |RROR |
000005F0: 20 20 20 20 20 20 20 20 FF 22 00 25 0E C4 3B 54 | .".%..;T|
00000600: 45 4B 53 54 34 20 A8 22 20 45 58 49 54 20 20 20 |EKST4 ." EXIT |
00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000620: 20 20 20 FF 22 00 42 0E F6 3B A1 57 49 4E 44 4F | .".B..;.WINDO|
00000630: 57 A0 58 2C 59 2C 58 31 2C 59 31 2C 43 4F 4C 56 |W.X,Y,X1,Y1,COLV|
00000640: 41 4C 00 4B 0E 28 3C 20 C2 23 58 00 54 0E 5A 3C |AL.K.(< .#X.T.Z<|
00000650: 20 D3 54 39 00 5D 0E 8C 3C 20 C2 23 59 00 66 0E | .T9.]..< .#Y.f.|
00000660: BE 3C 20 D3 54 38 00 72 0E F0 3C 20 D5 42 45 47 |.< .T8.r..< .BEG|
00000670: 49 4E 00 7E 0E 22 3D 54 31 20 A8 22 B0 22 00 8A |IN.~."=T1 ."."..|
00000680: 0E 54 3D 54 32 20 A8 22 AE 22 00 96 0E 86 3D 54 |.T=T2 ."."....=T|
00000690: 33 20 A8 22 AD 22 00 A2 0E B8 3D 54 37 20 A8 22 |3 ."."....=T7 ."|
000006A0: BD 22 00 AE 0E EA 3D 54 34 20 A8 22 DD 22 00 BA |."....=T4 ."."..|
000006B0: 0E 1C 3E 54 35 20 A8 22 C0 22 00 C6 0E 4E 3E 54 |..>T5 ."."...N>T|
000006C0: 36 20 A8 22 20 22 00 D1 0E 80 3E 54 38 20 A5 30 |6 ." "....>T8 .0|
000006D0: 30 00 DC 0E B2 3E 54 39 20 A5 30 30 00 ED 0E E4 |0....>T9 .00....|
000006E0: 3E 53 45 54 20 CA 23 43 4F 4C 56 41 4C 00 F9 0E |>SET .#COLVAL...|
000006F0: 16 3F 20 D2 24 30 32 38 36 00 07 0F 48 3F 50 4F |.? .$0286...H?PO|
00000700: 49 4E 54 20 C2 54 38 00 10 0F 7A 3F 20 C3 54 39 |INT .T8...z? .T9|
00000710: 00 17 0F AC 3F 20 E5 00 23 0F DE 3F 20 D6 24 46 |....? ..#..? .$F|
00000720: 46 46 30 00 2A 0F 10 40 20 E3 00 39 0F 42 40 42 |FF0.*..@ ..9.B@B|
00000730: 45 47 49 4E 20 D6 53 45 54 00 42 0F 74 40 20 CA |EGIN .SET.B.t@ .|
00000740: 54 31 00 4E 0F A6 40 20 D6 24 46 46 44 32 00 58 |T1.N..@ .$FFD2.X|
00000750: 0F D8 40 20 C2 23 30 30 00 61 0F 0A 41 20 CA 54 |..@ .#00.a..A .T|
00000760: 35 00 70 0F 3C 41 45 45 4E 20 D6 24 46 46 44 32 |5.p.<AEEN .$FFD2|
00000770: 00 77 0F 6E 41 20 EF 00 83 0F A0 41 20 C0 23 58 |.w.nA .....A .#X|
00000780: 31 2D 32 00 8D 0F D2 41 20 F6 45 45 4E 00 96 0F |1-2....A .EEN...|
00000790: 04 42 20 CA 54 32 00 A2 0F 36 42 20 D6 24 46 46 |.B .T2...6B .$FF|
000007A0: 44 32 00 AF 0F 68 42 44 52 49 45 20 C9 54 38 00 |D2...hBDRIE .T8.|
000007B0: B9 0F 9A 42 20 D6 53 45 54 00 C2 0F CC 42 20 CA |...B .SET....B .|
000007C0: 54 34 00 CE 0F FE 42 20 D6 24 46 46 44 32 00 D8 |T4....B .$FFD2..|
000007D0: 0F 30 43 20 C2 23 30 30 00 E1 0F 62 43 20 CA 54 |.0C .#00...bC .T|
000007E0: 36 00 F1 0F 94 43 45 45 4E 4E 20 D6 24 46 46 44 |6....CEENN .$FFD|
000007F0: 32 00 F8 0F C6 43 20 EF 00 04 10 F8 43 20 C0 23 |2....C .....C .#|
00000800: 58 31 2D 32 00 0F 10 2A 44 20 F6 45 45 4E 4E 00 |X1-2...*D .EENN.|
00000810: 18 10 5C 44 20 CA 54 34 00 24 10 8E 44 20 D6 24 |..\D .T4.$..D .$|
00000820: 46 46 44 32 00 2D 10 C0 44 20 CA 54 38 00 39 10 |FFD2.-..D .T8.9.|
00000830: F2 44 20 C4 23 59 31 2B 31 00 44 10 24 45 20 F6 |.D .#Y1+1.D.$E .|
00000840: 44 52 49 45 00 4D 10 56 45 20 C9 54 38 00 57 10 |DRIE.M.VE .T8.W.|
00000850: 88 45 20 D6 53 45 54 00 60 10 BA 45 20 CA 54 33 |.E .SET.`..E .T3|
00000860: 00 6C 10 EC 45 20 D6 24 46 46 44 32 00 76 10 1E |.l..E .$FFD2.v..|
00000870: 46 20 C2 23 30 30 00 7F 10 50 46 20 CA 54 35 00 |F .#00...PF .T5.|
00000880: 90 10 82 46 45 45 4E 4E 4E 20 D6 24 46 46 44 32 |...FEENNN .$FFD2|
00000890: 00 97 10 B4 46 20 EF 00 A3 10 E6 46 20 C0 23 58 |....F .....F .#X|
000008A0: 31 2D 32 00 AF 10 18 47 20 F6 45 45 4E 4E 4E 00 |1-2....G .EENNN.|
000008B0: B8 10 4A 47 20 CA 54 37 00 C4 10 7C 47 20 D6 24 |..JG .T7...|G .$|
000008C0: 46 46 44 32 00 CA 10 AE 47 A2 00 EE 10 E0 47 3B |FFD2....G.....G;|
000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 05 |**************..|
000008F0: 11 12 48 A1 53 43 52 45 45 4E 43 4F 4C 4F 52 A0 |..H.SCREENCOLOR.|
00000900: 43 4F 4C 4F 52 00 12 11 44 48 20 C3 23 43 4F 4C |COLOR...DH .#COL|
00000910: 4F 52 00 1E 11 76 48 20 D4 35 33 32 38 31 00 24 |OR...vH .53281.$|
00000920: 11 A8 48 A2 00 48 11 DA 48 3B 2A 2A 2A 2A 2A 2A |..H..H..H;******|
00000930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000940: 2A 2A 2A 2A 2A 2A 2A 2A 00 5F 11 0C 49 A1 42 4F |********._..I.BO|
00000950: 52 44 45 52 43 4F 4C 4F 52 A0 43 4F 4C 4F 52 00 |RDERCOLOR.COLOR.|
00000960: 6C 11 3E 49 20 C3 23 43 4F 4C 4F 52 00 78 11 70 |l.>I .#COLOR.x.p|
00000970: 49 20 D4 35 33 32 38 30 00 7E 11 A2 49 A2 00 A2 |I .53280.~..I...|
00000980: 11 D4 49 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..I;************|
00000990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009A0: 2A 2A 00 B7 11 06 4A A1 46 49 4C 4C 43 4F 4C 4F |**....J.FILLCOLO|
000009B0: 52 A0 43 4F 4C 4F 52 00 C4 11 38 4A 20 CA 23 43 |R.COLOR...8J .#C|
000009C0: 4F 4C 4F 52 00 CF 11 6A 4A 20 C2 23 24 30 30 00 |OLOR...jJ .#$00.|
000009D0: E1 11 9C 4A 54 45 58 31 20 D2 24 44 38 30 30 2C |...JTEX1 .$D800,|
000009E0: 58 00 EF 11 CE 4A 20 D2 24 44 39 30 30 2C 58 00 |X....J .$D900,X.|
000009F0: FD 11 00 4B 20 D2 24 44 41 30 30 2C 58 00 04 12 |...K .$DA00,X...|
00000A00: 32 4B 20 EF 00 0F 12 64 4B 20 F6 54 45 58 31 00 |2K ....dK .TEX1.|
00000A10: 21 12 96 4B 54 45 58 32 20 D2 24 44 42 30 30 2C |!..KTEX2 .$DB00,|
00000A20: 58 00 28 12 C8 4B 20 EF 00 33 12 FA 4B 20 C0 23 |X.(..K ..3..K .#|
00000A30: 24 45 38 00 3E 12 2C 4C 20 F6 54 45 58 32 00 44 |$E8.>.,L .TEX2.D|
00000A40: 12 5E 4C A2 00 68 12 90 4C 3B 2A 2A 2A 2A 2A 2A |.^L..h..L;******|
00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A60: 2A 2A 2A 2A 2A 2A 2A 2A 00 76 12 C2 4C A1 43 4F |********.v..L.CO|
00000A70: 4C 4F 52 49 4E 43 00 81 12 F4 4C 20 C2 23 24 30 |LORINC....L .#$0|
00000A80: 30 00 93 12 26 4D 54 45 58 31 20 C9 24 44 38 30 |0...&MTEX1 .$D80|
00000A90: 30 2C 58 00 A1 12 58 4D 20 C9 24 44 39 30 30 2C |0,X...XM .$D900,|
00000AA0: 58 00 AF 12 8A 4D 20 C9 24 44 41 30 30 2C 58 00 |X....M .$DA00,X.|
00000AB0: B6 12 BC 4D 20 EF 00 C1 12 EE 4D 20 F6 54 45 58 |...M .....M .TEX|
00000AC0: 31 00 D3 12 20 4E 54 45 58 32 20 C9 24 44 42 30 |1... NTEX2 .$DB0|
00000AD0: 30 2C 58 00 DA 12 52 4E 20 EF 00 E5 12 84 4E 20 |0,X...RN .....N |
00000AE0: C0 23 24 45 38 00 F0 12 B6 4E 20 F6 54 45 58 32 |.#$E8....N .TEX2|
00000AF0: 00 F6 12 E8 4E A2 00 1A 13 1A 4F 3B 2A 2A 2A 2A |....N.....O;****|
00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 27 13 4C 4F A1 |**********.'.LO.|
00000B20: 43 4C 52 48 4F 4D 45 00 32 13 7E 4F 20 CA 23 31 |CLRHOME.2.~O .#1|
00000B30: 34 37 00 3E 13 B0 4F 20 D6 24 46 46 44 32 00 44 |47.>..O .$FFD2.D|
00000B40: 13 E2 4F A2 00 68 13 14 50 3B 2A 2A 2A 2A 2A 2A |..O..h..P;******|
00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B60: 2A 2A 2A 2A 2A 2A 2A 2A 00 8C 13 46 50 3B 2A 20 |********...FP;* |
00000B70: 4D 41 43 52 4F 20 54 45 58 54 20 41 44 52 45 53 |MACRO TEXT ADRES|
00000B80: 2C 58 2C 59 2C 4B 4C 45 55 52 20 2A 00 B0 13 78 |,X,Y,KLEUR *...x|
00000B90: 50 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |P;**************|
00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BB0: 00 D0 13 AA 50 A1 54 45 58 54 A0 54 41 44 52 2C |....P.TEXT.TADR,|
00000BC0: 58 56 41 4C 2C 59 56 41 4C 2C 43 4F 4C 56 41 4C |XVAL,YVAL,COLVAL|
00000BD0: 00 DE 13 DC 50 20 CA 23 43 4F 4C 56 41 4C 00 EA |....P .#COLVAL..|
00000BE0: 13 0E 51 20 D2 24 30 32 38 36 00 F6 13 40 51 20 |..Q .$0286...@Q |
00000BF0: C2 23 59 56 41 4C 00 02 14 72 51 20 C3 23 58 56 |.#YVAL...rQ .#XV|
00000C00: 41 4C 00 09 14 A4 51 20 E5 00 15 14 D6 51 20 D6 |AL....Q .....Q .|
00000C10: 24 46 46 46 30 00 20 14 08 52 20 C2 23 24 30 30 |$FFF0. ..R .#$00|
00000C20: 00 31 14 3A 52 54 45 58 31 20 CA 54 41 44 52 2C |.1.:RTEX1 .TADR,|
00000C30: 58 00 3C 14 6C 52 20 C4 23 24 46 46 00 47 14 9E |X.<.lR .#$FF.G..|
00000C40: 52 20 F7 54 45 58 32 00 53 14 D0 52 20 D6 24 46 |R .TEX2.S..R .$F|
00000C50: 46 44 32 00 5A 14 02 53 20 EF 00 65 14 34 53 20 |FD2.Z..S ..e.4S |
00000C60: D5 54 45 58 31 00 70 14 66 53 54 45 58 32 20 E4 |.TEX1.p.fSTEX2 .|
00000C70: 00 76 14 98 53 A2 00 98 14 CA 53 3B 2A 2A 2A 2A |.v..S.....S;****|
00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C90: 2A 2A 2A 2A 2A 2A 2A 2A 00 BA 14 FC 53 3B 2A 20 |********....S;* |
00000CA0: 4D 41 43 52 4F 20 50 52 49 4E 54 20 41 44 52 45 |MACRO PRINT ADRE|
00000CB0: 53 20 20 20 20 20 20 20 20 2A 00 DC 14 2E 54 3B |S *....T;|
00000CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EC 14 60 |************...`|
00000CE0: 54 A1 50 52 49 4E 54 A0 54 41 44 52 00 F7 14 92 |T.PRINT.TADR....|
00000CF0: 54 20 C2 23 24 30 30 00 08 15 C4 54 54 45 58 31 |T .#$00....TTEX1|
00000D00: 20 CA 54 41 44 52 2C 58 00 13 15 F6 54 20 C4 23 | .TADR,X....T .#|
00000D10: 24 46 46 00 1E 15 28 55 20 F7 54 45 58 32 00 2A |$FF...(U .TEX2.*|
00000D20: 15 5A 55 20 D6 24 46 46 44 32 00 31 15 8C 55 20 |.ZU .$FFD2.1..U |
00000D30: EF 00 3C 15 BE 55 20 D5 54 45 58 31 00 47 15 F0 |..<..U .TEX1.G..|
00000D40: 55 54 45 58 32 20 E4 00 52 15 22 56 20 CA 23 24 |UTEX2 ..R."V .#$|
00000D50: 30 44 00 5E 15 54 56 20 D6 24 46 46 44 32 00 64 |0D.^.TV .$FFD2.d|
00000D60: 15 86 56 A2 00 86 15 B8 56 3B 2A 2A 2A 2A 2A 2A |..V.....V;******|
00000D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D80: 2A 2A 2A 2A 2A 2A 00 A8 15 EA 56 3B 2A 20 4D 41 |******....V;* MA|
00000D90: 43 52 4F 20 4B 45 59 20 57 41 49 54 20 20 20 20 |CRO KEY WAIT |
00000DA0: 20 20 20 20 20 20 20 2A 00 CA 15 1C 57 3B 2A 2A | *....W;**|
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 00 D8 15 4E 57 A1 |**********...NW.|
00000DD0: 4B 45 59 A0 57 41 49 54 00 E7 15 80 57 54 45 58 |KEY.WAIT....WTEX|
00000DE0: 31 20 C2 23 24 30 30 00 F3 15 B2 57 20 D3 24 30 |1 .#$00....W .$0|
00000DF0: 30 43 36 00 FF 15 E4 57 20 CA 24 30 30 43 35 00 |0C6....W .$00C5.|
00000E00: 0B 16 16 58 20 C4 23 57 41 49 54 00 16 16 48 58 |...X .#WAIT...HX|
00000E10: 20 F6 54 45 58 31 00 1C 16 7A 58 A2 00 2C 16 AC | .TEX1...zX..,..|
00000E20: 58 A1 43 55 52 53 4F 52 A0 58 2C 59 00 35 16 DE |X.CURSOR.X,Y.5..|
00000E30: 58 20 C2 23 58 00 3E 16 10 59 20 C3 23 59 00 45 |X .#X.>..Y .#Y.E|
00000E40: 16 42 59 20 E5 00 51 16 74 59 20 D6 24 46 46 46 |.BY ..Q.tY .$FFF|
00000E50: 30 00 57 16 A6 59 A2 00 62 16 D8 59 A1 49 4E 4B |0.W..Y..b..Y.INK|
00000E60: 45 59 00 6D 16 0A 5A 20 C2 23 24 30 30 00 79 16 |EY.m..Z .#$00.y.|
00000E70: 3C 5A 20 D3 24 30 30 43 36 00 85 16 6E 5A 20 CA |<Z .$00C6...nZ .|
00000E80: 24 30 30 43 35 00 8B 16 A0 5A A2 00 98 16 D2 5A |$00C5....Z.....Z|
00000E90: A1 50 41 55 53 45 A0 50 00 A2 16 04 5B 20 C2 23 |.PAUSE.P....[ .#|
00000EA0: 30 30 00 AD 16 36 5B 20 C3 23 24 46 46 00 B9 16 |00...6[ .#$FF...|
00000EB0: 68 5B 20 D6 24 45 45 42 33 00 C0 16 9A 5B 20 EF |h[ .$EEB3....[ .|
00000EC0: 00 CC 16 CC 5B 20 C0 23 3C 28 50 29 00 D6 16 FE |....[ .#<(P)....|
00000ED0: 5B 20 F6 2A 2D 36 00 DD 16 30 5C 20 ED 00 E9 16 |[ .*-6...0\ ....|
00000EE0: 62 5C 20 C1 23 3E 28 50 29 00 F4 16 94 5C 20 F6 |b\ .#>(P)....\ .|
00000EF0: 2A 2D 31 31 00 FA 16 C6 5C A2 00 20 17 F8 5C 3B |*-11....\.. ..\;|
00000F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F20: 00 46 17 2A 5D 3B 2A 20 20 48 45 52 42 49 45 27 |.F.*];* HERBIE'|
00000F30: 53 20 44 49 53 4B 20 4D 41 43 52 4F 27 53 20 20 |S DISK MACRO'S |
00000F40: 31 2E 31 20 20 2A 00 6C 17 5C 5D 3B 2A 2A 2A 2A |1.1 *.l.\];****|
00000F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7B 17 8E |************.{..|
00000F70: 5D 3B 4D 41 43 52 4F 20 44 49 52 00 A0 17 C0 5D |];MACRO DIR....]|
00000F80: 3B 4D 41 43 52 4F 20 4C 4F 41 44 A0 4E 41 41 4D |;MACRO LOAD.NAAM|
00000F90: 41 44 52 45 53 2C 4C 45 4E 47 54 45 4E 41 41 4D |ADRES,LENGTENAAM|
00000FA0: 00 C3 17 F2 5D 3B 4D 41 43 52 4F 20 53 41 56 45 |....];MACRO SAVE|
00000FB0: A0 4E 41 4D 41 44 52 2C 4C 2C 41 44 52 31 2C 41 |.NAMADR,L,ADR1,A|
00000FC0: 44 52 32 00 E7 17 24 5E 3B 4D 41 43 52 4F 20 53 |DR2...$^;MACRO S|
00000FD0: 43 52 41 54 43 48 A0 4E 41 41 4D 41 44 52 45 53 |CRATCH.NAAMADRES|
00000FE0: 2C 4C 45 4E 47 54 45 00 07 18 56 5E 3B 4D 41 43 |,LENGTE...V^;MAC|
00000FF0: 52 4F 20 44 49 53 4B 53 54 41 54 55 53 A0 58 2C |RO DISKSTATUS.X,|
00001000: 59 2C 43 4F 4C 4F 52 00 26 18 88 5E 3B 4D 41 43 |Y,COLOR.&..^;MAC|
00001010: 52 4F 20 44 49 53 4B 45 52 52 4F 52 A0 58 2C 59 |RO DISKERROR.X,Y|
00001020: 2C 43 4F 4C 4F 52 00 3A 18 BA 5E 3B 4D 41 43 52 |,COLOR.:..^;MACR|
00001030: 4F 20 44 49 53 4B 49 4E 49 54 00 4D 18 EC 5E 3B |O DISKINIT.M..^;|
00001040: 4D 41 43 52 4F 20 44 49 53 4B 56 41 4C 00 73 18 |MACRO DISKVAL.s.|
00001050: 1E 5F 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |._;*************|
00001060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001070: 2A 2A 2A 00 7C 18 50 5F A1 44 49 52 00 87 18 82 |***.|.P_.DIR....|
00001080: 5F 20 CA 23 24 32 34 00 93 18 B4 5F 20 D2 24 30 |_ .#$24...._ .$0|
00001090: 31 30 30 00 9F 18 E6 5F 20 D6 24 41 41 44 37 00 |100...._ .$AAD7.|
000010A0: AA 18 18 60 20 CA 23 24 30 31 00 B1 18 4A 60 20 |...` .#$01...J` |
000010B0: DA 00 BC 18 7C 60 20 C2 23 24 30 30 00 C8 18 AE |....|` .#$00....|
000010C0: 60 20 D6 24 46 46 42 44 00 D3 18 E0 60 20 C2 23 |` .$FFBD....` .#|
000010D0: 24 30 38 00 DE 18 12 61 20 C3 23 24 36 30 00 EA |$08....a .#$60..|
000010E0: 18 44 61 20 D6 24 46 46 42 41 00 F6 18 76 61 20 |.Da .$FFBA...va |
000010F0: D6 24 46 33 44 35 00 00 19 A8 61 20 CA 24 42 41 |.$F3D5....a .$BA|
00001100: 00 0C 19 DA 61 20 D6 24 46 46 42 34 00 16 19 0C |....a .$FFB4....|
00001110: 62 20 CA 24 42 39 00 22 19 3E 62 20 D6 24 46 46 |b .$B9.".>b .$FF|
00001120: 39 36 00 2D 19 70 62 20 CA 23 24 30 30 00 37 19 |96.-.pb .#$00.7.|
00001130: A2 62 20 D2 24 39 30 00 42 19 D4 62 20 C3 23 24 |.b .$90.B..b .#$|
00001140: 30 33 00 50 19 06 63 54 45 58 30 20 D4 24 46 46 |03.P..cTEX0 .$FF|
00001150: 00 5C 19 38 63 20 D6 24 46 46 41 35 00 66 19 6A |.\.8c .$FFA5.f.j|
00001160: 63 20 D2 24 46 45 00 70 19 9C 63 20 C3 24 39 30 |c .$FE.p..c .$90|
00001170: 00 7B 19 CE 63 20 F6 54 45 58 34 00 87 19 00 64 |.{..c .TEX4....d|
00001180: 20 D6 24 46 46 41 35 00 91 19 32 64 20 C3 24 39 | .$FFA5...2d .$9|
00001190: 30 00 9C 19 64 64 20 F6 54 45 58 34 00 A6 19 96 |0...dd .TEX4....|
000011A0: 64 20 C3 24 46 46 00 AD 19 C8 64 20 EC 00 B8 19 |d .$FF....d ....|
000011B0: FA 64 20 F6 54 45 58 30 00 C2 19 2C 65 20 C2 24 |.d .TEX0...,e .$|
000011C0: 46 45 00 CE 19 5E 65 20 D6 24 42 44 43 44 00 D9 |FE...^e .$BDCD..|
000011D0: 19 90 65 20 D6 54 45 58 35 00 E9 19 C2 65 54 45 |..e .TEX5....eTE|
000011E0: 58 31 20 D6 24 46 46 41 35 00 F3 19 F4 65 20 C2 |X1 .$FFA5....e .|
000011F0: 24 39 30 00 FE 19 26 66 20 F6 54 45 58 34 00 05 |$90...&f .TEX4..|
00001200: 1A 58 66 20 DA 00 0C 1A 8A 66 20 D8 00 17 1A BC |.Xf .....f .....|
00001210: 66 20 F7 54 45 58 32 00 23 1A EE 66 20 D6 24 46 |f .TEX2.#..f .$F|
00001220: 46 44 32 00 2E 1A 20 67 20 D5 54 45 58 31 00 3E |FD2... g .TEX1.>|
00001230: 1A 52 67 54 45 58 32 20 D6 24 41 41 44 37 00 49 |.RgTEX2 .$AAD7.I|
00001240: 1A 84 67 20 CA 23 24 30 30 00 53 1A B6 67 20 D2 |..g .#$00.S..g .|
00001250: 24 43 36 00 5D 1A E8 67 20 CA 24 43 35 00 67 1A |$C6.]..g .$C5.g.|
00001260: 1A 68 20 C4 23 36 30 00 72 1A 4C 68 20 F7 54 45 |.h .#60.r.Lh .TE|
00001270: 58 37 00 7C 1A 7E 68 20 C4 23 36 33 00 87 1A B0 |X7.|.~h .#63....|
00001280: 68 20 F7 54 45 58 34 00 96 1A E2 68 54 45 58 33 |h .TEX4....hTEX3|
00001290: 20 C3 23 24 30 32 00 A1 1A 14 69 20 D5 54 45 58 | .#$02....i .TEX|
000012A0: 30 00 B1 1A 46 69 54 45 58 34 20 D6 24 46 36 34 |0...FiTEX4 .$F64|
000012B0: 32 00 BC 1A 78 69 20 CA 23 24 30 38 00 C6 1A AA |2...xi .#$08....|
000012C0: 69 20 D2 24 42 41 00 D2 1A DC 69 20 D6 24 46 46 |i .$BA....i .$FF|
000012D0: 42 34 00 DD 1A 0E 6A 20 CA 23 24 36 46 00 E7 1A |B4....j .#$6F...|
000012E0: 40 6A 20 D2 24 42 39 00 F3 1A 72 6A 20 D6 24 46 |@j .$B9...rj .$F|
000012F0: 46 39 36 00 FF 1A A4 6A 20 D6 24 46 46 41 42 00 |F96....j .$FFAB.|
00001300: 0A 1B D6 6A 20 CA 23 24 30 30 00 14 1B 08 6B 20 |...j .#$00....k |
00001310: D2 24 43 36 00 20 1B 3A 6B 20 D5 54 45 58 31 30 |.$C6. .:k .TEX10|
00001320: 00 2F 1B 6C 6B 54 45 58 35 20 CA 23 24 32 30 00 |./.lkTEX5 .#$20.|
00001330: 3B 1B 9E 6B 20 D5 24 46 46 44 32 00 47 1B D0 6B |;..k .$FFD2.G..k|
00001340: 20 C2 24 30 32 46 37 00 53 1B 02 6C 20 D6 24 46 | .$02F7.S..l .$F|
00001350: 46 43 39 00 5E 1B 34 6C 20 F4 54 45 58 36 00 6A |FC9.^.4l .TEX6.j|
00001360: 1B 66 6C 20 D5 24 45 30 46 39 00 75 1B 98 6C 54 |.fl .$E0F9.u..lT|
00001370: 45 58 36 20 E3 00 84 1B CA 6C 54 45 58 37 20 C2 |EX6 .....lTEX7 .|
00001380: 23 24 30 30 00 94 1B FC 6C 54 45 58 38 20 D6 24 |#$00....lTEX8 .$|
00001390: 45 45 42 33 00 9B 1B 2E 6D 20 EF 00 A6 1B 60 6D |EEB3....m ....`m|
000013A0: 20 F6 54 45 58 38 00 B5 1B 92 6D 54 45 58 39 20 | .TEX8....mTEX9 |
000013B0: CA 23 24 30 30 00 BF 1B C4 6D 20 D2 24 43 36 00 |.#$00....m .$C6.|
000013C0: C9 1B F6 6D 20 CA 24 43 35 00 D3 1B 28 6E 20 C4 |...m .$C5...(n .|
000013D0: 23 36 30 00 DE 1B 5A 6E 20 F6 54 45 58 39 00 E9 |#60...Zn .TEX9..|
000013E0: 1B 8C 6E 20 D5 54 45 58 33 00 F5 1B BE 6E 54 45 |..n .TEX3....nTE|
000013F0: 58 31 30 20 E4 00 FB 1B F0 6E A2 00 20 1C 22 6F |X10 .....n.. ."o|
00001400: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00001410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001420: 00 3A 1C 54 6F A1 44 49 53 4B 53 54 41 54 55 53 |.:.To.DISKSTATUS|
00001430: A0 58 2C 59 2C 43 4F 4C 4F 52 00 44 1C 86 6F 20 |.X,Y,COLOR.D..o |
00001440: D5 45 45 4E 00 57 1C B8 6F 54 45 58 31 30 30 20 |.EEN.W..oTEX100 |
00001450: A8 22 44 4F 53 3A 22 00 67 1C EA 6F 45 45 4E 20 |."DOS:".g..oEEN |
00001460: CA 23 43 4F 4C 4F 52 00 73 1C 1C 70 20 D2 24 30 |.#COLOR.s..p .$0|
00001470: 32 38 36 00 7C 1C 4E 70 20 C2 23 59 00 85 1C 80 |286.|.Np .#Y....|
00001480: 70 20 C3 23 58 00 8C 1C B2 70 20 E5 00 98 1C E4 |p .#X....p .....|
00001490: 70 20 D6 24 46 46 46 30 00 A1 1C 16 71 20 C2 23 |p .$FFF0....q .#|
000014A0: 30 00 B0 1C 48 71 20 CA 54 45 58 31 30 30 2C 58 |0...Hq .TEX100,X|
000014B0: 00 BC 1C 7A 71 20 D6 24 46 46 44 32 00 C3 1C AC |...zq .$FFD2....|
000014C0: 71 20 EF 00 CC 1C DE 71 20 C0 23 34 00 D6 1C 10 |q .....q .#4....|
000014D0: 72 20 F6 2A 2D 39 00 DF 1C 42 72 20 CA 23 30 00 |r .*-9...Br .#0.|
000014E0: E6 1C 74 72 20 DA 00 ED 1C A6 72 20 D8 00 F9 1C |..tr .....r ....|
000014F0: D8 72 20 D6 24 46 46 42 44 00 03 1D 0A 73 20 CA |.r .$FFBD....s .|
00001500: 23 31 35 00 0C 1D 3C 73 20 C2 23 38 00 13 1D 6E |#15...<s .#8...n|
00001510: 73 20 DA 00 1F 1D A0 73 20 D6 24 46 46 42 41 00 |s .....s .$FFBA.|
00001520: 2B 1D D2 73 20 D6 24 46 46 43 30 00 35 1D 04 74 |+..s .$FFC0.5..t|
00001530: 20 C2 23 31 35 00 41 1D 36 74 20 D6 24 46 46 43 | .#15.A.6t .$FFC|
00001540: 36 00 4C 1D 68 74 20 C3 23 24 30 30 00 5D 1D 9A |6.L.ht .#$00.]..|
00001550: 74 54 45 58 39 38 20 D6 24 46 46 43 46 00 68 1D |tTEX98 .$FFCF.h.|
00001560: CC 74 20 C4 23 24 30 44 00 74 1D FE 74 20 F7 54 |.t .#$0D.t..t .T|
00001570: 45 58 39 39 00 80 1D 30 75 20 D6 24 46 46 44 32 |EX99...0u .$FFD2|
00001580: 00 8C 1D 62 75 20 D5 54 45 58 39 38 00 9B 1D 94 |...bu .TEX98....|
00001590: 75 54 45 58 39 39 20 CA 23 31 35 00 A7 1D C6 75 |uTEX99 .#15....u|
000015A0: 20 D6 24 46 46 43 33 00 B3 1D F8 75 20 D6 24 46 | .$FFC3....u .$F|
000015B0: 46 45 37 00 BC 1D 2A 76 20 CA 23 30 00 C6 1D 5C |FE7...*v .#0...\|
000015C0: 76 20 D2 24 43 36 00 CC 1D 8E 76 A2 00 F2 1D C0 |v .$C6....v.....|
000015D0: 76 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |v;**************|
000015E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015F0: 2A 2A 00 0B 1E F2 76 A1 44 49 53 4B 45 52 52 4F |**....v.DISKERRO|
00001600: 52 A0 58 2C 59 2C 43 4F 4C 4F 52 00 18 1E 24 77 |R.X,Y,COLOR...$w|
00001610: 20 CA 23 43 4F 4C 4F 52 00 24 1E 56 77 20 D2 24 | .#COLOR.$.Vw .$|
00001620: 30 32 38 36 00 2D 1E 88 77 20 C2 23 59 00 36 1E |0286.-..w .#Y.6.|
00001630: BA 77 20 C3 23 58 00 3D 1E EC 77 20 E5 00 49 1E |.w .#X.=..w ..I.|
00001640: 1E 78 20 D6 24 46 46 46 30 00 52 1E 50 78 20 CA |.x .$FFF0.R.Px .|
00001650: 23 30 00 59 1E 82 78 20 DA 00 60 1E B4 78 20 D8 |#0.Y..x ..`..x .|
00001660: 00 6C 1E E6 78 20 D6 24 46 46 42 44 00 76 1E 18 |.l..x .$FFBD.v..|
00001670: 79 20 CA 23 31 35 00 7F 1E 4A 79 20 C2 23 38 00 |y .#15...Jy .#8.|
00001680: 86 1E 7C 79 20 DA 00 92 1E AE 79 20 D6 24 46 46 |..|y .....y .$FF|
00001690: 42 41 00 9E 1E E0 79 20 D6 24 46 46 43 30 00 A8 |BA....y .$FFC0..|
000016A0: 1E 12 7A 20 C2 23 31 35 00 B4 1E 44 7A 20 D6 24 |..z .#15...Dz .$|
000016B0: 46 46 43 36 00 BF 1E 76 7A 20 C3 23 24 30 30 00 |FFC6...vz .#$00.|
000016C0: D0 1E A8 7A 54 45 58 39 38 20 D6 24 46 46 43 46 |...zTEX98 .$FFCF|
000016D0: 00 D9 1E DA 7A 20 C1 23 30 00 E5 1E 0C 7B 20 F7 |....z .#0....{ .|
000016E0: 54 45 58 39 37 00 F1 1E 3E 7B 54 45 58 39 36 20 |TEX97...>{TEX96 |
000016F0: ED 00 FC 1E 70 7B 20 C4 23 24 30 44 00 08 1F A2 |....p{ .#$0D....|
00001700: 7B 20 F7 54 45 58 39 39 00 14 1F D4 7B 20 D6 24 |{ .TEX99....{ .$|
00001710: 46 46 44 32 00 20 1F 06 7C 20 D5 54 45 58 39 38 |FFD2. ..| .TEX98|
00001720: 00 32 1F 38 7C 54 45 58 39 39 20 D4 54 45 58 31 |.2.8|TEX99 .TEX1|
00001730: 30 33 00 3C 1F 6A 7C 20 CA 23 31 35 00 48 1F 9C |03.<.j| .#15.H..|
00001740: 7C 20 D6 24 46 46 43 33 00 54 1F CE 7C 20 D6 24 || .$FFC3.T..| .$|
00001750: 46 46 45 37 00 5D 1F 00 7D 20 CA 23 30 00 67 1F |FFE7.]..} .#0.g.|
00001760: 32 7D 20 D2 24 43 36 00 74 1F 64 7D 20 D5 54 45 |2} .$C6.t.d} .TE|
00001770: 58 31 30 32 00 83 1F 96 7D 54 45 58 39 37 20 C4 |X102....}TEX97 .|
00001780: 23 34 38 00 8F 1F C8 7D 20 F7 54 45 58 39 39 00 |#48....} .TEX99.|
00001790: 99 1F FA 7D 20 C4 23 34 39 00 A5 1F 2C 7E 20 F7 |...} .#49...,~ .|
000017A0: 54 45 58 39 39 00 AC 1F 5E 7E 20 DA 00 B5 1F 90 |TEX99...^~ .....|
000017B0: 7E 20 C2 23 30 00 C4 1F C2 7E 20 CA 54 45 58 31 |~ .#0....~ .TEX1|
000017C0: 30 30 2C 58 00 D0 1F F4 7E 20 D6 24 46 46 44 32 |00,X....~ .$FFD2|
000017D0: 00 D7 1F 26 7F 20 EF 00 E1 1F 58 7F 20 C0 23 32 |...&. ....X. .#2|
000017E0: 30 00 EB 1F 8A 7F 20 F6 2A 2D 39 00 F2 1F BC 7F |0..... .*-9.....|
000017F0: 20 D9 00 FB 1F EE 7F 20 C3 23 30 00 07 20 20 80 | ...... .#0.. .|
00001800: 20 D5 54 45 58 39 36 00 28 20 52 80 54 45 58 31 | .TEX96.( R.TEX1|
00001810: 30 30 20 A8 22 44 4F 53 20 45 52 52 4F 52 20 4D |00 ."DOS ERROR M|
00001820: 45 53 53 41 47 45 3A 22 00 32 20 84 80 20 A5 24 |ESSAGE:".2 .. .$|
00001830: 30 44 00 46 20 B6 80 54 45 58 31 30 31 20 A5 24 |0D.F ..TEX101 .$|
00001840: 30 44 2C 24 30 44 00 64 20 E8 80 20 A8 22 2A 4C |0D,$0D.d .. ."*L|
00001850: 4F 4F 4B 49 4E 47 20 46 4F 52 20 4E 45 58 54 20 |OOKING FOR NEXT |
00001860: 50 49 43 22 00 73 20 1A 81 54 45 58 31 30 33 20 |PIC".s ..TEX103 |
00001870: A5 30 30 00 86 20 4C 81 54 45 58 31 30 32 20 C2 |.00.. L.TEX102 .|
00001880: 54 45 58 31 30 33 00 93 20 7E 81 20 F7 54 45 58 |TEX103.. ~. .TEX|
00001890: 31 30 34 00 9E 20 B0 81 20 C2 23 24 30 30 00 AD |104.. .. .#$00..|
000018A0: 20 E2 81 20 CA 54 45 58 31 30 31 2C 58 00 B9 20 | .. .TEX101,X.. |
000018B0: 14 82 20 D6 24 46 46 44 32 00 C0 20 46 82 20 EF |.. .$FFD2.. F. .|
000018C0: 00 CA 20 78 82 20 C0 23 32 33 00 D4 20 AA 82 20 |.. x. .#23.. .. |
000018D0: F6 2A 2D 39 00 E4 20 DC 82 20 50 41 55 53 45 A0 |.*-9.. .. PAUSE.|
000018E0: 31 30 30 30 00 F1 20 0E 83 54 45 58 31 30 34 20 |1000.. ..TEX104 |
000018F0: E4 00 F7 20 40 83 A2 00 1D 21 72 83 3B 2A 2A 2A |... @....!r.;***|
00001900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2B 21 |*************.+!|
00001920: A4 83 A1 44 49 53 4B 49 4E 49 54 00 36 21 D6 83 |...DISKINIT.6!..|
00001930: 20 D5 54 57 45 45 00 46 21 08 84 4E 41 41 4D 20 | .TWEE.F!..NAAM |
00001940: A8 22 49 2F 30 22 00 53 21 3A 84 54 57 45 45 20 |."I/0".S!:.TWEE |
00001950: CA 23 33 00 62 21 6C 84 20 C3 23 3E 28 4E 41 41 |.#3.b!l. .#>(NAA|
00001960: 4D 29 00 71 21 9E 84 20 C2 23 3C 28 4E 41 41 4D |M).q!.. .#<(NAAM|
00001970: 29 00 7D 21 D0 84 20 D6 24 46 46 42 44 00 87 21 |).}!.. .$FFBD..!|
00001980: 02 85 20 CA 23 31 35 00 90 21 34 85 20 C2 23 38 |.. .#15..!4. .#8|
00001990: 00 9A 21 66 85 20 C3 23 31 35 00 A6 21 98 85 20 |..!f. .#15..!.. |
000019A0: D6 24 46 46 42 41 00 B2 21 CA 85 20 D6 24 46 46 |.$FFBA..!.. .$FF|
000019B0: 43 30 00 BC 21 FC 85 20 CA 23 31 35 00 C8 21 2E |C0..!.. .#15..!.|
000019C0: 86 20 D6 24 46 46 43 33 00 D4 21 60 86 20 D6 24 |. .$FFC3..!`. .$|
000019D0: 46 46 45 37 00 DA 21 92 86 A2 00 00 22 C4 86 3B |FFE7..!....."..;|
000019E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000019F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A00: 00 0D 22 F6 86 A1 44 49 53 4B 56 41 4C 00 18 22 |.."...DISKVAL.."|
00001A10: 28 87 20 D5 44 52 49 45 00 27 22 5A 87 4E 41 41 |(. .DRIE.'"Z.NAA|
00001A20: 4D 33 20 A8 22 56 22 00 34 22 8C 87 44 52 49 45 |M3 ."V".4"..DRIE|
00001A30: 20 CA 23 31 00 44 22 BE 87 20 C3 23 3E 28 4E 41 | .#1.D".. .#>(NA|
00001A40: 41 4D 33 29 00 54 22 F0 87 20 C2 23 3C 28 4E 41 |AM3).T".. .#<(NA|
00001A50: 41 4D 33 29 00 60 22 22 88 20 D6 24 46 46 42 44 |AM3).`"". .$FFBD|
00001A60: 00 6A 22 54 88 20 CA 23 31 35 00 73 22 86 88 20 |.j"T. .#15.s".. |
00001A70: C2 23 38 00 7D 22 B8 88 20 C3 23 31 35 00 89 22 |.#8.}".. .#15.."|
00001A80: EA 88 20 D6 24 46 46 42 41 00 95 22 1C 89 20 D6 |.. .$FFBA..".. .|
00001A90: 24 46 46 43 30 00 9F 22 4E 89 20 CA 23 31 35 00 |$FFC0.."N. .#15.|
00001AA0: AB 22 80 89 20 D6 24 46 46 43 33 00 B7 22 B2 89 |.".. .$FFC3.."..|
00001AB0: 20 D6 24 46 46 45 37 00 BD 22 E4 89 A2 00 E4 22 | .$FFE7.."....."|
00001AC0: 16 8A 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
00001AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001AE0: 2A 2A 2A 2A 00 03 23 48 8A A1 4C 4F 41 44 A0 4E |****..#H..LOAD.N|
00001AF0: 41 41 4D 41 44 52 45 53 2C 4C 45 4E 47 54 45 4E |AAMADRES,LENGTEN|
00001B00: 41 41 4D 00 0E 23 7A 8A 20 CA 23 24 30 34 00 19 |AAM..#z. .#$04..|
00001B10: 23 AC 8A 20 C2 23 24 30 38 00 24 23 DE 8A 20 C3 |#.. .#$08.$#.. .|
00001B20: 23 24 30 31 00 30 23 10 8B 20 D6 24 46 46 42 41 |#$01.0#.. .$FFBA|
00001B30: 00 42 23 42 8B 20 CA 23 4C 45 4E 47 54 45 4E 41 |.B#B. .#LENGTENA|
00001B40: 41 4D 00 56 23 74 8B 20 C2 23 3C 28 4E 41 41 4D |AM.V#t. .#<(NAAM|
00001B50: 41 44 52 45 53 29 00 6A 23 A6 8B 20 C3 23 3E 28 |ADRES).j#.. .#>(|
00001B60: 4E 41 41 4D 41 44 52 45 53 29 00 76 23 D8 8B 20 |NAAMADRES).v#.. |
00001B70: D6 24 46 46 42 44 00 81 23 0A 8C 20 CA 23 24 30 |.$FFBD..#.. .#$0|
00001B80: 30 00 8C 23 3C 8C 20 C2 23 24 46 46 00 97 23 6E |0..#<. .#$FF..#n|
00001B90: 8C 20 C3 23 24 46 46 00 A3 23 A0 8C 20 D6 24 46 |. .#$FF..#.. .$F|
00001BA0: 46 44 35 00 A9 23 D2 8C A2 00 D0 23 04 8D 3B 2A |FD5..#.....#..;*|
00001BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BD0: 00 ED 23 36 8D A1 53 41 56 45 A0 4E 41 4D 41 44 |..#6..SAVE.NAMAD|
00001BE0: 52 2C 4C 2C 41 44 52 31 2C 41 44 52 32 00 F8 23 |R,L,ADR1,ADR2..#|
00001BF0: 68 8D 20 CA 23 24 30 34 00 03 24 9A 8D 20 C2 23 |h. .#$04..$.. .#|
00001C00: 24 30 38 00 0E 24 CC 8D 20 C3 23 24 30 31 00 1A |$08..$.. .#$01..|
00001C10: 24 FE 8D 20 D6 24 46 46 42 41 00 23 24 30 8E 20 |$.. .$FFBA.#$0. |
00001C20: CA 23 4C 00 34 24 62 8E 20 C2 23 3C 28 4E 41 4D |.#L.4$b. .#<(NAM|
00001C30: 41 44 52 29 00 45 24 94 8E 20 C3 23 3E 28 4E 41 |ADR).E$.. .#>(NA|
00001C40: 4D 41 44 52 29 00 51 24 C6 8E 20 D6 24 46 46 42 |MADR).Q$.. .$FFB|
00001C50: 44 00 60 24 F8 8E 20 CA 23 3C 28 41 44 52 31 29 |D.`$.. .#<(ADR1)|
00001C60: 00 6A 24 2A 8F 20 D2 24 30 32 00 79 24 5C 8F 20 |.j$*. .$02.y$\. |
00001C70: CA 23 3E 28 41 44 52 31 29 00 83 24 8E 8F 20 D2 |.#>(ADR1)..$.. .|
00001C80: 24 30 33 00 92 24 C0 8F 20 C2 23 3C 28 41 44 52 |$03..$.. .#<(ADR|
00001C90: 32 29 00 A1 24 F2 8F 20 C3 23 3E 28 41 44 52 32 |2)..$.. .#>(ADR2|
00001CA0: 29 00 AC 24 24 90 20 CA 23 24 30 32 00 B8 24 56 |)..$$. .#$02..$V|
00001CB0: 90 20 D6 24 46 46 44 38 00 BE 24 88 90 A2 00 E4 |. .$FFD8..$.....|
00001CC0: 24 BA 90 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |$..;************|
00001CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001CE0: 2A 2A 2A 2A 00 02 25 EC 90 A1 53 43 52 41 54 43 |****..%...SCRATC|
00001CF0: 48 A0 4E 41 41 4D 41 44 52 45 53 2C 4C 45 4E 47 |H.NAAMADRES,LENG|
00001D00: 54 45 00 0E 25 1E 91 20 D5 42 45 47 49 4E 00 2E |TE..%.. .BEGIN..|
00001D10: 25 50 91 4E 41 41 4D 20 A8 22 53 30 3A 20 20 20 |%P.NAAM ."S0: |
00001D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 3D | ".=|
00001D30: 25 82 91 42 45 47 49 4E 20 C2 23 30 30 00 55 25 |%..BEGIN .#00.U%|
00001D40: B4 91 54 45 58 32 30 30 20 CA 4E 41 41 4D 41 44 |..TEX200 .NAAMAD|
00001D50: 52 45 53 2C 58 00 66 25 E6 91 20 D2 4E 41 41 4D |RES,X.f%.. .NAAM|
00001D60: 2B 24 30 33 2C 58 00 6D 25 18 92 20 EF 00 7B 25 |+$03,X.m%.. ..{%|
00001D70: 4A 92 20 C0 23 4C 45 4E 47 54 45 00 88 25 7C 92 |J. .#LENGTE..%|.|
00001D80: 20 F6 54 45 58 32 30 30 00 98 25 AE 92 20 CA 23 | .TEX200..%.. .#|
00001D90: 4C 45 4E 47 54 45 2B 33 00 A7 25 E0 92 20 C3 23 |LENGTE+3..%.. .#|
00001DA0: 3E 28 4E 41 41 4D 29 00 B6 25 12 93 20 C2 23 3C |>(NAAM)..%.. .#<|
00001DB0: 28 4E 41 41 4D 29 00 C2 25 44 93 20 D6 24 46 46 |(NAAM)..%D. .$FF|
00001DC0: 42 44 00 CC 25 76 93 20 CA 23 31 35 00 D5 25 A8 |BD..%v. .#15..%.|
00001DD0: 93 20 C2 23 38 00 DF 25 DA 93 20 C3 23 31 35 00 |. .#8..%.. .#15.|
00001DE0: EB 25 0C 94 20 D6 24 46 46 42 41 00 F7 25 3E 94 |.%.. .$FFBA..%>.|
00001DF0: 20 D6 24 46 46 43 30 00 01 26 70 94 20 CA 23 31 | .$FFC0..&p. .#1|
00001E00: 35 00 0D 26 A2 94 20 D6 24 46 46 43 33 00 19 26 |5..&.. .$FFC3..&|
00001E10: D4 94 20 D6 24 46 46 45 37 00 1F 26 06 95 A2 00 |.. .$FFE7..&....|
00001E20: 45 26 38 95 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |E&8.;***********|
00001E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E40: 2A 2A 2A 2A 2A 00 68 26 6A 95 3B 4D 41 43 52 4F |*****.h&j.;MACRO|
00001E50: 20 49 4E 50 55 54 A0 41 44 52 2C 4D 41 58 2C 58 | INPUT.ADR,MAX,X|
00001E60: 2C 59 2C 43 4F 4C 4F 52 00 8E 26 9C 95 3B 2A 2A |,Y,COLOR..&..;**|
00001E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B3 |**************..|
00001E90: 26 CE 95 3B 53 45 54 20 47 4C 4F 42 41 4C 20 49 |&..;SET GLOBAL I|
00001EA0: 4E 50 55 54 42 41 53 45 20 54 4F 20 49 4E 50 42 |NPUTBASE TO INPB|
00001EB0: 41 53 45 00 D3 26 00 96 3B 28 49 4E 50 42 41 53 |ASE..&..;(INPBAS|
00001EC0: 45 3D 53 54 41 52 54 20 53 55 42 52 4F 55 54 49 |E=START SUBROUTI|
00001ED0: 4E 45 29 00 F5 26 32 96 3B 52 45 4D 20 20 20 20 |NE)..&2.;REM |
00001EE0: 20 20 49 4E 49 54 49 4E 50 55 54 A0 30 2C 30 2C | INITINPUT.0,0,|
00001EF0: 30 2C 30 2C 30 00 07 27 64 96 3B 52 45 4D 20 20 |0,0,0..'d.;REM |
00001F00: 20 20 20 20 52 54 53 00 2A 27 96 96 3B 28 43 41 | RTS.*'..;(CA|
00001F10: 4C 4C 20 49 4E 49 54 49 4E 50 55 54 20 54 4F 20 |LL INITINPUT TO |
00001F20: 49 4E 54 49 41 4C 49 53 45 29 00 30 27 C8 96 3B |INTIALISE).0'..;|
00001F30: 00 55 27 FA 96 3B 2A 20 49 4E 50 55 54 20 57 4F |.U'..;* INPUT WO|
00001F40: 52 44 54 20 56 41 4E 41 46 20 41 44 52 45 53 20 |RDT VANAF ADRES |
00001F50: 28 41 44 52 29 00 71 27 2C 97 3B 2A 20 4E 45 45 |(ADR).q',.;* NEE|
00001F60: 52 47 45 5A 45 54 20 49 4E 20 46 4F 52 4D 41 54 |RGEZET IN FORMAT|
00001F70: 3A 00 8C 27 5E 97 3B 2A 20 4C 45 4E 47 54 45 49 |:..'^.;* LENGTEI|
00001F80: 4E 50 55 54 2C 49 4E 50 55 54 2C 30 00 92 27 90 |NPUT,INPUT,0..'.|
00001F90: 97 3B 00 B8 27 C2 97 3B 2A 2A 2A 2A 2A 2A 2A 2A |.;..'..;********|
00001FA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001FB0: 2A 2A 2A 2A 2A 2A 2A 2A 00 D9 27 F4 97 A1 49 4E |********..'...IN|
00001FC0: 49 54 49 4E 50 55 54 A0 41 44 52 2C 4D 41 58 2C |ITINPUT.ADR,MAX,|
00001FD0: 58 2C 59 2C 43 4F 4C 4F 52 00 EC 27 26 98 49 4E |X,Y,COLOR..'&.IN|
00001FE0: 50 42 41 53 45 20 D5 54 45 58 35 38 00 FE 27 58 |PBASE .TEX58..'X|
00001FF0: 98 54 45 58 35 31 20 A5 3E 28 41 44 52 29 00 10 |.TEX51 .>(ADR)..|
00002000: 28 8A 98 54 45 58 35 32 20 A5 3C 28 41 44 52 29 |(..TEX52 .<(ADR)|
00002010: 00 1F 28 BC 98 54 45 58 35 33 20 A5 4D 41 58 00 |..(..TEX53 .MAX.|
00002020: 2C 28 EE 98 54 45 58 35 34 20 A5 58 00 39 28 20 |,(..TEX54 .X.9( |
00002030: 99 54 45 58 35 35 20 A5 59 00 4A 28 52 99 54 45 |.TEX55 .Y.J(R.TE|
00002040: 58 35 30 20 A5 43 4F 4C 4F 52 00 5B 28 84 99 54 |X50 .COLOR.[(..T|
00002050: 45 58 35 38 20 C2 54 45 58 35 30 00 67 28 B6 99 |EX58 .TEX50.g(..|
00002060: 20 D3 24 30 32 38 36 00 73 28 E8 99 20 C2 54 45 | .$0286.s(.. .TE|
00002070: 58 35 31 00 7D 28 1A 9A 20 D3 24 30 33 00 89 28 |X51.}(.. .$03..(|
00002080: 4C 9A 20 C2 54 45 58 35 32 00 93 28 7E 9A 20 D3 |L. .TEX52..(~. .|
00002090: 24 30 32 00 9F 28 B0 9A 20 C2 54 45 58 35 34 00 |$02..(.. .TEX54.|
000020A0: AB 28 E2 9A 20 C3 54 45 58 35 35 00 B2 28 14 9B |.(.. .TEX55..(..|
000020B0: 20 E5 00 BE 28 46 9B 20 D6 24 46 46 46 30 00 CE | ...(F. .$FFF0..|
000020C0: 28 78 9B 54 45 58 32 33 20 C2 23 24 30 30 00 DA |(x.TEX23 .#$00..|
000020D0: 28 AA 9B 20 D3 54 45 58 32 32 00 E6 28 DC 9B 20 |(.. .TEX22..(.. |
000020E0: D5 54 45 58 32 30 00 F4 28 0E 9C 54 45 58 32 32 |.TEX20..(..TEX22|
000020F0: 20 A5 30 30 00 04 29 40 9C 54 45 58 32 30 20 CA | .00..)@.TEX20 .|
00002100: 23 31 38 35 00 10 29 72 9C 20 D6 24 46 46 44 32 |#185..)r. .$FFD2|
00002110: 00 21 29 A4 9C 54 45 58 32 31 20 D6 24 46 46 45 |.!)..TEX21 .$FFE|
00002120: 34 00 2D 29 D6 9C 20 C9 54 45 58 32 32 00 39 29 |4.-).. .TEX22.9)|
00002130: 08 9D 20 C3 54 45 58 32 32 00 45 29 3A 9D 20 C1 |.. .TEX22.E):. .|
00002140: 54 45 58 35 33 00 51 29 6C 9D 20 F7 54 45 58 32 |TEX53.Q)l. .TEX2|
00002150: 39 00 5C 29 9E 9D 20 C4 23 24 30 30 00 68 29 D0 |9.\).. .#$00.h).|
00002160: 9D 20 F6 54 45 58 32 34 00 74 29 02 9E 20 C7 54 |. .TEX24.t).. .T|
00002170: 45 58 32 32 00 80 29 34 9E 20 D5 54 45 58 32 31 |EX22..)4. .TEX21|
00002180: 00 8F 29 66 9E 54 45 58 32 34 20 C4 23 31 33 00 |..)f.TEX24 .#13.|
00002190: 9B 29 98 9E 20 F7 54 45 58 32 38 00 A6 29 CA 9E |.).. .TEX28..)..|
000021A0: 20 C4 23 31 34 38 00 B2 29 FC 9E 20 F7 54 45 58 | .#148..).. .TEX|
000021B0: 32 31 00 BD 29 2E 9F 20 C4 23 31 35 37 00 C9 29 |21..).. .#157..)|
000021C0: 60 9F 20 F7 54 45 58 32 31 00 D3 29 92 9F 20 C4 |`. .TEX21..).. .|
000021D0: 23 32 39 00 DF 29 C4 9F 20 F7 54 45 58 32 31 00 |#29..).. .TEX21.|
000021E0: E9 29 F6 9F 20 C4 23 31 37 00 F5 29 28 A0 20 F7 |.).. .#17..)(. .|
000021F0: 54 45 58 32 31 00 00 2A 5A A0 20 C4 23 31 34 35 |TEX21..*Z. .#145|
00002200: 00 0C 2A 8C A0 20 F7 54 45 58 32 31 00 16 2A BE |..*.. .TEX21..*.|
00002210: A0 20 C4 23 32 30 00 22 2A F0 A0 20 F6 54 45 58 |. .#20."*.. .TEX|
00002220: 32 36 00 2D 2A 22 A1 20 C1 23 24 30 31 00 39 2A |26.-*". .#$01.9*|
00002230: 54 A1 20 F6 54 45 58 32 35 00 44 2A 86 A1 20 C3 |T. .TEX25.D*.. .|
00002240: 23 24 30 30 00 50 2A B8 A1 20 D4 54 45 58 32 32 |#$00.P*.. .TEX22|
00002250: 00 5C 2A EA A1 20 D5 54 45 58 32 31 00 6D 2A 1C |.\*.. .TEX21.m*.|
00002260: A2 54 45 58 32 35 20 C7 54 45 58 32 32 00 79 2A |.TEX25 .TEX22.y*|
00002270: 4E A2 20 C7 54 45 58 32 32 00 85 2A 80 A2 20 D5 |N. .TEX22..*.. .|
00002280: 54 45 58 32 37 00 98 2A B2 A2 54 45 58 32 36 20 |TEX27..*..TEX26 |
00002290: D2 28 24 30 32 29 2C 59 00 A4 2A E4 A2 54 45 58 |.($02),Y..*..TEX|
000022A0: 32 37 20 D8 00 AF 2A 16 A3 20 CA 23 31 35 37 00 |27 ...*.. .#157.|
000022B0: BB 2A 48 A3 20 D6 24 46 46 44 32 00 C2 2A 7A A3 |.*H. .$FFD2..*z.|
000022C0: 20 D7 00 CE 2A AC A3 20 D6 24 46 46 44 32 00 DA | ...*.. .$FFD2..|
000022D0: 2A DE A3 20 D5 54 45 58 32 30 00 E9 2A 10 A4 54 |*.. .TEX20..*..T|
000022E0: 45 58 32 38 20 CA 23 32 30 00 F5 2A 42 A4 20 D6 |EX28 .#20..*B. .|
000022F0: 24 46 46 44 32 00 01 2B 74 A4 20 C3 54 45 58 32 |$FFD2..+t. .TEX2|
00002300: 32 00 0B 2B A6 A4 20 CA 23 30 30 00 19 2B D8 A4 |2..+.. .#00..+..|
00002310: 20 D2 28 24 30 32 29 2C 59 00 25 2B 0A A5 20 C7 | .($02),Y.%+.. .|
00002320: 54 45 58 32 32 00 31 2B 3C A5 20 CA 54 45 58 32 |TEX22.1+<. .TEX2|
00002330: 32 00 3C 2B 6E A5 20 C3 23 24 30 30 00 4A 2B A0 |2.<+n. .#$00.J+.|
00002340: A5 20 D2 28 24 30 32 29 2C 59 00 51 2B D2 A5 20 |. .($02),Y.Q+.. |
00002350: E3 00 60 2B 04 A6 54 45 58 32 39 20 CA 23 32 30 |..`+..TEX29 .#20|
00002360: 00 71 2B 36 A6 54 45 58 33 30 20 D6 24 46 46 44 |.q+6.TEX30 .$FFD|
00002370: 32 00 78 2B 68 A6 20 EC 00 84 2B 9A A6 20 F6 54 |2.x+h. ...+.. .T|
00002380: 45 58 33 30 00 90 2B CC A6 20 D5 54 45 58 32 33 |EX30..+.. .TEX23|
00002390: 00 96 2B FE A6 A2 00 BC 2B 30 A7 3B 2A 2A 2A 2A |..+.....+0.;****|
000023A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000023B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D9 2B 62 |************..+b|
000023C0: A7 A1 49 4E 50 55 54 A0 41 44 52 2C 4D 41 58 2C |..INPUT.ADR,MAX,|
000023D0: 58 2C 59 2C 43 4F 4C 4F 52 00 E5 2B 94 A7 20 D5 |X,Y,COLOR..+.. .|
000023E0: 54 45 58 35 38 00 F7 2B C6 A7 54 45 58 35 36 20 |TEX58..+..TEX56 |
000023F0: A5 3E 28 41 44 52 29 00 04 2C F8 A7 20 A5 3C 28 |.>(ADR)..,.. .<(|
00002400: 41 44 52 29 00 10 2C 2A A8 20 A5 4D 41 58 2B 32 |ADR)..,*. .MAX+2|
00002410: 00 18 2C 5C A8 20 A5 59 00 20 2C 8E A8 20 A5 58 |..,\. .Y. ,.. .X|
00002420: 00 2C 2C C0 A8 20 A5 43 4F 4C 4F 52 00 3C 2C F2 |.,,.. .COLOR.<,.|
00002430: A8 54 45 58 35 38 20 C2 23 24 30 30 00 4F 2C 24 |.TEX58 .#$00.O,$|
00002440: A9 54 45 58 35 37 20 CA 54 45 58 35 36 2C 58 00 |.TEX57 .TEX56,X.|
00002450: 65 2C 56 A9 20 D2 49 4E 50 55 54 42 41 53 45 2B |e,V. .INPUTBASE+|
00002460: 24 30 33 2C 58 00 6C 2C 88 A9 20 EF 00 75 2C BA |$03,X.l,.. ..u,.|
00002470: A9 20 C0 23 36 00 81 2C EC A9 20 F6 54 45 58 35 |. .#6..,.. .TEX5|
00002480: 37 00 91 2C 1E AA 20 D6 49 4E 50 55 54 42 41 53 |7..,.. .INPUTBAS|
00002490: 45 00 97 2C 50 AA A2 00 00 00 |E..,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.:.*+ CLRHOME.F.\+
UBEGIN.C..+;***********************.M..+
J#65.{..+ RWE1+$05...$, ULOS...V,WE1 ."
?PIC A*"....,LOS CLRHOME...., LOAD WE1,7
.M.., DISKERROR 0,0,0.V..- D#0...P- .TWE
E....- V34589....- PAUSE 10000....- V345
92..... SCREENCOLOR 1./.J.TWEE IWE1+$05.
=.|. JWE1+$05.G... D#81.Q... .DRE.[../ U
LOS.K.D/DRE CLRHOME.W.V/ UBEGIN..../IN C
LRHOME...Z/ WINDOW 4,3,29,9,0....0WIN TE
XT TEKST1,5,4,0.N.>0 TEXT TEKST2,5,6,0..
.P0 TEXT TEKST3,5,8,0....0 TEXT TEKST4,5
,10,0...T0QQ .....1TT .14,8...81 .".".0.
J1BEGIN PRINT TT.C..1 SCREENCOLOR 1.V.N1
BORDERCOLOR 1._..2 VIN.L.22EEN VWIN.|.D
2 CURSOR 4,5....2 J#250...H2 V$FFD2....2
PAUSE 100...,3IN0 INKEY...^3 D#01.E..3
.INJ1.Q.B3 UDISPL....3INJ1 D#64...&4 .IN
0...X4 VWIN....4 CURSOR 6,5....4 J#250..
..4 V$FFD2.). 5 PAUSE 100.7.R5IN1 INKEY.
A..5 D#01.L..5 .INJ2.U..5 ULO.C..6INJ2 D
#64.M.L6 .IN1.W.~6 VWIN....6 CURSOR 8,5.
...6 J#250....7 V$FFD2...F7 PAUSE 100...
X7IN2 INKEY.E..7 D#01.P..7 .INJ3....8 UM
IRRO...@8INJ3 D#64...R8 .IN2....8 VWIN..
.V8 CURSOR 10,5....9 J#250.&.:9 V$FFD2.5
.L9 PAUSE 100.C..9IN3 INKEY.M.P9 D#01.X.
.: .INJ4.A.4: UQQ.O.F:INJ4 D#64.Y..: .IN
3...J: UEEN....: .....;TEKST1 ." DISPLAY
.".O.`;TEKST2 ." DISPLAY ALL PIC'S ON
DISK ."....;TEKST3 ." MIRROR
.".%.D;TEKST4 ." EXIT
.".B..;.WINDOW X,Y,X1,Y1,COLV
AL.K.(< B#X.T.Z< ST9.]..< B#Y.F..< ST8.R
..< UBEGIN.~."=T1 ."."...T=T2 ."."....=T
3 ."."....=T7 ."."....=T4 ."."....>T5 ."
.".F.N>T6 ." ".Q..>T8 .00....>T9 .00....
>SET J#COLVAL....? R$0286...H?POINT BT8.
..Z? CT9....? ..#..? V$FFF0.*..@ ..9.B@B
EGIN VSET.B.T@ JT1.N..@ V$FFD2.X.X@ B#00
.A..A JT5.P.<AEEN V$FFD2.W.NA .... A .#X
1-2...RA .EEN....B JT2...6B V$FFD2...HBD
RIE IT8....B VSET.B.LB JT4.N..B V$FFD2.X
.0C B#00...BC JT6....CEENN V$FFD2...FC .
....C .#X1-2...*D .EENN...\D JT4.$..D V$
FFD2.-..D JT8.9..D D#Y1+1.D.$E .DRIE.M.V
E IT8.W..E VSET.`..E JT3.L..E V$FFD2.V..
F B#00..PF JT5....FEENNN V$FFD2....F ..
...F .#X1-2....G .EENNN...JG JT7.D.|G V$
FFD2.J..G.....G;************************
******....H.SCREENCOLOR COLOR...DH C#COL
OR...VH T53281.$..H..H.ZH;**************
****************._..I.BORDERCOLOR COLOR.
L.>I C#COLOR.X.PI T53280.~..I....TI;****
**************************....J.FILLCOLO
R COLOR.D.8J J#COLOR.O.JJ B#$00....JTEX1
R$D800,X...NJ R$D900,X....K R$DA00,X...
2K ....DK .TEX1.!..KTEX2 R$DB00,X.(.HK .
.3..K .#$E8.>.,L .TEX2.D.^L..H..L;******
************************.V.BL.COLORINC..
..L B#$00...&MTEX1 I$D800,X...XM I$D900,
X....M I$DA00,X....M ..A..M .TEX1.S. NTE
X2 I$DB00,X.Z.RN .....N .#$E8....N .TEX2
....N.....O;****************************
**.'.LO.CLRHOME.2.~O J#147.>..O V$FFD2.D
..O..H..P;******************************
...FP;* MACRO TEXT ADRES,X,Y,KLEUR *...X
P;******************************.P..P.TE
XT TADR,XVAL,YVAL,COLVAL....P J#COLVAL..
..Q R$0286...@Q B#YVAL...RQ C#XVAL....Q
....VQ V$FFF0. ..R B#$00.1.:RTEX1 JTADR,
X.<.LR D#$FF.G..R .TEX2.S.PR V$FFD2.Z..S
..E.4S UTEX1.P.FSTEX2 ..V..S....JS;****
************************....S;* MACRO PR
INT ADRES *....T;****************
************...`T.PRINT TADR....T B#$00.
..DTTEX1 JTADR,X....T D#$FF...(U .TEX2.*
.ZU V$FFD2.1..U ..<..U UTEX1.G..UTEX2 ..
R."V J#$0D.^.TV V$FFD2.D..V.....V;******
**********************....V;* MACRO KEY
WAIT *.J..W;******************
**********.X.NW.KEY WAIT....WTEX1 B#$00.
...W S$00C6....W J$00C5....X D#WAIT...HX
.TEX1...ZX..,..X.CURSOR X,Y.5..X B#X.>.
.Y C#Y.E.BY ..Q.TY V$FFF0.W..Y..B.XY.INK
EY.M..Z B#$00.Y.<Z S$00C6...NZ J$00C5...
Z....RZ.PAUSE P....[ B#00...6[ C#$FF...
H[ V$EEB3....[ ..L.L[ .#<(P).V..[ .*-6..
.0\ ....B\ A#>(P)....\ .*-11...F\.. ..\;
********************************.F.*];*
HERBIE'S DISK MACRO'S 1.1 *.L.\];****
****************************.{..];MACRO
DIR. ..];MACRO LOAD NAAMADRES,LENGTENAAM
.C..];MACRO SAVE NAMADR,L,ADR1,ADR2...$^
;MACRO SCRATCH NAAMADRES,LENGTE...V^;MAC
RO DISKSTATUS X,Y,COLOR.&..^;MACRO DISKE
RROR X,Y,COLOR.:..^;MACRO DISKINIT.M..^;
MACRO DISKVAL.S.._;*********************
***********.|.P_.DIR...._ J#$24...._ R$0
100...._ V$AAD7....` J#$01...J` Z...|` B
#$00.H..` V$FFBD.S..` B#$08....A C#$60..
.DA V$FFBA...VA V$F3D5....A J$BA...ZA V$
FFB4....B J$B9.".>B V$FF96.-.PB J#$00.7.
.B R$90.B.TB C#$03.P..CTEX0 T$FF.\.8C V$
FFA5.F.JC R$FE.P..C C$90.{.NC .TEX4....D
V$FFA5...2D C$90...DD .TEX4....D C$FF..
.HD .....D .TEX0.B.,E B$FE.N.^E V$BDCD.Y
..E VTEX5...BETEX1 V$FFA5....E B$90...&F
.TEX4...XF Z....F X....F .TEX2.#..F V$F
FD2... G UTEX1.>.RGTEX2 V$AAD7.I..G J#$0
0.S..G R$C6.]..G J$C5.G..H D#60.R.LH .TE
X7.|.~H D#63....H .TEX4....HTEX3 C#$02..
..I UTEX0...FITEX4 V$F642...XI J#$08.F..
I R$BA.R..I V$FFB4....J J#$6F...@J R$B9.
..RJ V$FF96....J V$FFAB...VJ J#$00....K
R$C6. .:K UTEX10./.LKTEX5 J#$20.;..K U$F
FD2.G.PK B$02F7.S..L V$FFC9.^.4L .TEX6.J
.FL U$E0F9.U..LTEX6 ....JLTEX7 B#$00....
LTEX8 V$EEB3....M ....`M .TEX8....MTEX9
J#$00...DM R$C6.I..M J$C5.S.(N D#60...ZN
.TEX9....N UTEX3....NTEX10 .....N.. ."O
;*******************************.:.TO.DI
SKSTATUS X,Y,COLOR.D..O UEEN.W..OTEX100
."DOS:".G..OEEN J#COLOR.S..P R$0286.|.NP
B#Y....P C#X....P .....P V$FFF0....Q B#
0...HQ JTEX100,X...ZQ V$FFD2.C..Q ..L..Q
.#4.V..R .*-9...BR J#0...TR Z....R X...
XR V$FFBD....S J#15...<S B#8...NS Z... S
V$FFBA.+.RS V$FFC0.5..T B#15.A.6T V$FFC
6.L.HT C#$00.]..TTEX98 V$FFCF.H.LT D#$0D
.T..T .TEX99...0U V$FFD2...BU UTEX98....
UTEX99 J#15...FU V$FFC3....U V$FFE7...*V
J#0.F.\V R$C6.L..V.....V;**************
******************....V.DISKERROR X,Y,CO
LOR...$W J#COLOR.$.VW R$0286.-..W B#Y.6.
.W C#X.=..W ..I..X V$FFF0.R.PX J#0.Y..X
Z.`..X X.L..X V$FFBD.V..Y J#15..JY B#8.
..|Y Z....Y V$FFBA....Y V$FFC0....Z B#15
...DZ V$FFC6...VZ C#$00.P..ZTEX98 V$FFCF
.Y.ZZ A#0....{ .TEX97...>{TEX96 ....P{ D
#$0D....{ .TEX99...T{ V$FFD2. ..| UTEX98
.2.8|TEX99 TTEX103.<.J| J#15.H..| V$FFC3
.T.N| V$FFE7.]..} J#0.G.2} R$C6.T.D} UTE
X102....}TEX97 D#48...H} .TEX99....} D#4
9...,~ .TEX99...^~ Z....~ B#0.D.B~ JTEX1
00,X.P..~ V$FFD2.W.& ....X .#20.... .
*-9.... Y.... C#0.. . UTEX96.( R.TEX1
00 ."DOS ERROR MESSAGE:".2 .. .$0D.F ..T
EX101 .$0D,$0D.D .. ."*LOOKING FOR NEXT
PIC".S ..TEX103 .00.. L.TEX102 BTEX103..
~. .TEX104.. .. B#$00.. .. JTEX101,X..
.. V$FFD2.. F. ..J X. .#23.T .. .*-9.. .
. PAUSE 1000.. ..TEX104 ... @....!R.;***
*****************************.+!...DISKI
NIT.6!V. UTWEE.F!..NAAM ."I/0".S!:.TWEE
J#3.B!L. C#>(NAAM).Q!.. B#<(NAAM).}!P. V
$FFBD..!.. J#15..!4. B#8..!F. C#15..!..
V$FFBA..!J. V$FFC0..!.. J#15.H!.. V$FFC3
.T!`. V$FFE7.Z!....."D.;****************
****************.."...DISKVAL.."(. UDRIE
.'"Z.NAAM3 ."V".4"..DRIE J#1.D".. C#>(NA
AM3).T".. B#<(NAAM3).`"". V$FFBD.J"T. J#
15.S".. B#8.}".. C#15..".. V$FFBA..".. V
$FFC0.."N. J#15..".. V$FFC3..".. V$FFE7.
."....."..;*****************************
****..#H..LOAD NAAMADRES,LENGTENAAM..#Z.
J#$04..#.. B#$08.$#.. C#$01.0#.. V$FFBA
.B#B. J#LENGTENAAM.V#T. B#<(NAAMADRES).J
#.. C#>(NAAMADRES).V#X. V$FFBD..#.. J#$0
0..#<. B#$FF..#N. C#$FF..# . V$FFD5..#R.
..P#..;*********************************
..#6..SAVE NAMADR,L,ADR1,ADR2..#H. J#$04
..$.. B#$08..$L. C#$01..$.. V$FFBA.#$0.
J#L.4$B. B#<(NAMADR).E$.. C#>(NAMADR).Q$
F. V$FFBD.`$.. J#<(ADR1).J$*. R$02.Y$\.
J#>(ADR1)..$.. R$03..$.. B#<(ADR2)..$..
C#>(ADR2)..$$. J#$02..$V. V$FFD8..$.....
$..;********************************..%.
..SCRATCH NAAMADRES,LENGTE..%.. UBEGIN..
%P.NAAM ."S0: ".=%..BEGIN
B#00.U%..TEX200 JNAAMADRES,X.F%.. RNAAM
+$03,X.M%.. ..{%J. .#LENGTE..%|. .TEX200
..%.. J#LENGTE+3..%.. C#>(NAAM)..%.. B#<
(NAAM).B%D. V$FFBD.L%V. J#15.U%.. B#8..%
Z. C#15..%.. V$FFBA..%>. V$FFC0..&P. J#1
5..&.. V$FFC3..&T. V$FFE7..&....E&8.;***
*****************************.H&J.;MACRO
INPUT ADR,MAX,X,Y,COLOR..&..;**********
**********************..&N.;SET GLOBAL I
NPUTBASE TO INPBASE.S&..;(INPBASE=START
SUBROUTINE)..&2.;REM INITINPUT 0,0,
0,0,0..'D.;REM RTS.*'..;(CALL INITI
NPUT TO INTIALISE).0'H.;.U'..;* INPUT WO
RDT VANAF ADRES (ADR).Q',.;* NEERGEZET I
N FORMAT:..'^.;* LENGTEINPUT,INPUT,0..'.
.;..'B.;********************************
.Y'...INITINPUT ADR,MAX,X,Y,COLOR..'&.IN
PBASE UTEX58..'X.TEX51 .>(ADR)..(..TEX52
.<(ADR)..(..TEX53 .MAX.,(..TEX54 .X.9(
.TEX55 .Y.J(R.TEX50 .COLOR.[(..TEX58 BTE
X50.G(.. S$0286.S(.. BTEX51.}(.. S$03..(
L. BTEX52..(~. S$02..(.. BTEX54..(.. CTE
X55..(.. ...(F. V$FFF0.N(X.TEX23 B#$00.Z
(.. STEX22..(.. UTEX20..(..TEX22 .00..)@
.TEX20 J#185..)R. V$FFD2.!)..TEX21 V$FFE
4.-)V. ITEX22.9).. CTEX22.E):. ATEX53.Q)
L. .TEX29.\).. D#$00.H)P. .TEX24.T).. GT
EX22..)4. UTEX21..)F.TEX24 D#13..).. .TE
X28..)J. D#148..).. .TEX21..).. D#157.I)
`. .TEX21.S).. D#29..)D. .TEX21..).. D#1
7..)( .TEX21..*Z D#145..*. .TEX21..*.
D#20."*. .TEX26.-*". A#$01.9*T. .TEX2
5.D*.. C#$00.P*.. TTEX22.\*.. UTEX21.M*.
.TEX25 GTEX22.Y*N. GTEX22..*.. UTEX27..*
..TEX26 R($02),Y..*..TEX27 X..*.. J#157.
.*H. V$FFD2.B*Z. W.N*.. V$FFD2.Z*.. UTEX
20..*..TEX28 J#20..*B. V$FFD2..+T. CTEX2
2..+.. J#00..+X. R($02),Y.%+.. GTEX22.1+
<. JTEX22.<+N. C#$00.J+ . R($02),Y.Q+R.
..`+..TEX29 J#20.Q+6.TEX30 V$FFD2.X+H. .
..+.. .TEX30..+L. UTEX23..+.....+0.;****
****************************.Y+B..INPUT
ADR,MAX,X,Y,COLOR..+.. UTEX58..+F.TEX56
.>(ADR)..,.. .<(ADR)..,*. .MAX+2..,\. .Y
. ,.. .X.,,.. .COLOR.<,..TEX58 B#$00.O,$
.TEX57 JTEX56,X.E,V. RINPUTBASE+$03,X.L,
.. ..U,.. .#6..,.. .TEX57..,.. VINPUTBAS
E..,P.....
> CLICK IMAGE PREVIEW FOR FULL MODAL