INPUT3.1
FILE INFORMATION
FILENAME(S): INPUT3.1
FILE TYPE(S): DEL
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 21:09:59
APPEARS ON: 1 disk(s)
FILE HASH
fe2d6a43eaaced09bf3506ecebc0eab525283bb8a076a01e2865ac111a0d0e2f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GIGA ASSEMBLER | INPUT3.1 | DEL | DuncanTwain | 26 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DE 24 C4 B8 A1 |**********..$...|
00000010: 44 49 53 4B 49 4E 49 54 00 E9 24 F6 B8 20 D5 54 |DISKINIT..$.. .T|
00000020: 57 45 45 00 F9 24 28 B9 4E 41 41 4D 20 A8 22 49 |WEE..$(.NAAM ."I|
00000030: 2F 30 22 00 06 25 5A B9 54 57 45 45 20 CA 23 33 |/0"..%Z.TWEE .#3|
00000040: 00 15 25 8C B9 20 C3 23 3E 28 4E 41 41 4D 29 00 |..%.. .#>(NAAM).|
00000050: 24 25 BE B9 20 C2 23 3C 28 4E 41 41 4D 29 00 30 |$%.. .#<(NAAM).0|
00000060: 25 F0 B9 20 D6 24 46 46 42 44 00 3A 25 22 BA 20 |%.. .$FFBD.:%". |
00000070: CA 23 31 35 00 43 25 54 BA 20 C2 23 38 00 4D 25 |.#15.C%T. .#8.M%|
00000080: 86 BA 20 C3 23 31 35 00 59 25 B8 BA 20 D6 24 46 |.. .#15.Y%.. .$F|
00000090: 46 42 41 00 65 25 EA BA 20 D6 24 46 46 43 30 00 |FBA.e%.. .$FFC0.|
000000A0: 6F 25 1C BB 20 CA 23 31 35 00 7B 25 4E BB 20 D6 |o%.. .#15.{%N. .|
000000B0: 24 46 46 43 33 00 87 25 80 BB 20 D6 24 46 46 45 |$FFC3..%.. .$FFE|
000000C0: 37 00 8D 25 B2 BB A2 00 B3 25 E4 BB 3B 2A 2A 2A |7..%.....%..;***|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C0 25 |*************..%|
000000F0: 16 BC A1 44 49 53 4B 56 41 4C 00 CB 25 48 BC 20 |...DISKVAL..%H. |
00000100: D5 44 52 49 45 00 DA 25 7A BC 4E 41 41 4D 33 20 |.DRIE..%z.NAAM3 |
00000110: A8 22 56 22 00 E7 25 AC BC 44 52 49 45 20 CA 23 |."V"..%..DRIE .#|
00000120: 31 00 F7 25 DE BC 20 C3 23 3E 28 4E 41 41 4D 33 |1..%.. .#>(NAAM3|
00000130: 29 00 07 26 10 BD 20 C2 23 3C 28 4E 41 41 4D 33 |)..&.. .#<(NAAM3|
00000140: 29 00 13 26 42 BD 20 D6 24 46 46 42 44 00 1D 26 |)..&B. .$FFBD..&|
00000150: 74 BD 20 CA 23 31 35 00 26 26 A6 BD 20 C2 23 38 |t. .#15.&&.. .#8|
00000160: 00 30 26 D8 BD 20 C3 23 31 35 00 3C 26 0A BE 20 |.0&.. .#15.<&.. |
00000170: D6 24 46 46 42 41 00 48 26 3C BE 20 D6 24 46 46 |.$FFBA.H&<. .$FF|
00000180: 43 30 00 52 26 6E BE 20 CA 23 31 35 00 5E 26 A0 |C0.R&n. .#15.^&.|
00000190: BE 20 D6 24 46 46 43 33 00 6A 26 D2 BE 20 D6 24 |. .$FFC3.j&.. .$|
000001A0: 46 46 45 37 00 70 26 04 BF A2 00 97 26 36 BF 3B |FFE7.p&.....&6.;|
000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 00 B6 26 68 BF A1 4C 4F 41 44 A0 4E 41 41 4D |*..&h..LOAD.NAAM|
000001E0: 41 44 52 45 53 2C 4C 45 4E 47 54 45 4E 41 41 4D |ADRES,LENGTENAAM|
000001F0: 00 C1 26 9A BF 20 CA 23 24 30 34 00 CC 26 CC BF |..&.. .#$04..&..|
00000200: 20 C2 23 24 30 38 00 D7 26 FE BF 20 C3 23 24 30 | .#$08..&.. .#$0|
00000210: 31 00 E3 26 30 C0 20 D6 24 46 46 42 41 00 F5 26 |1..&0. .$FFBA..&|
00000220: 62 C0 20 CA 23 4C 45 4E 47 54 45 4E 41 41 4D 00 |b. .#LENGTENAAM.|
00000230: 09 27 94 C0 20 C2 23 3C 28 4E 41 41 4D 41 44 52 |.'.. .#<(NAAMADR|
00000240: 45 53 29 00 1D 27 C6 C0 20 C3 23 3E 28 4E 41 41 |ES)..'.. .#>(NAA|
00000250: 4D 41 44 52 45 53 29 00 29 27 F8 C0 20 D6 24 46 |MADRES).)'.. .$F|
00000260: 46 42 44 00 34 27 2A C1 20 CA 23 24 30 30 00 3F |FBD.4'*. .#$00.?|
00000270: 27 5C C1 20 C2 23 24 46 46 00 4A 27 8E C1 20 C3 |'\. .#$FF.J'.. .|
00000280: 23 24 46 46 00 56 27 C0 C1 20 D6 24 46 46 44 35 |#$FF.V'.. .$FFD5|
00000290: 00 5C 27 F2 C1 A2 00 83 27 24 C2 3B 2A 2A 2A 2A |.\'.....'$.;****|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A0 27 |*************..'|
000002C0: 56 C2 A1 53 41 56 45 A0 4E 41 4D 41 44 52 2C 4C |V..SAVE.NAMADR,L|
000002D0: 2C 41 44 52 31 2C 41 44 52 32 00 AB 27 88 C2 20 |,ADR1,ADR2..'.. |
000002E0: CA 23 24 30 34 00 B6 27 BA C2 20 C2 23 24 30 38 |.#$04..'.. .#$08|
000002F0: 00 C1 27 EC C2 20 C3 23 24 30 31 00 CD 27 1E C3 |..'.. .#$01..'..|
00000300: 20 D6 24 46 46 42 41 00 D6 27 50 C3 20 CA 23 4C | .$FFBA..'P. .#L|
00000310: 00 E7 27 82 C3 20 C2 23 3C 28 4E 41 4D 41 44 52 |..'.. .#<(NAMADR|
00000320: 29 00 F8 27 B4 C3 20 C3 23 3E 28 4E 41 4D 41 44 |)..'.. .#>(NAMAD|
00000330: 52 29 00 04 28 E6 C3 20 D6 24 46 46 42 44 00 13 |R)..(.. .$FFBD..|
00000340: 28 18 C4 20 CA 23 3C 28 41 44 52 31 29 00 1D 28 |(.. .#<(ADR1)..(|
00000350: 4A C4 20 D2 24 30 32 00 2C 28 7C C4 20 CA 23 3E |J. .$02.,(|. .#>|
00000360: 28 41 44 52 31 29 00 36 28 AE C4 20 D2 24 30 33 |(ADR1).6(.. .$03|
00000370: 00 45 28 E0 C4 20 C2 23 3C 28 41 44 52 32 29 00 |.E(.. .#<(ADR2).|
00000380: 54 28 12 C5 20 C3 23 3E 28 41 44 52 32 29 00 5F |T(.. .#>(ADR2)._|
00000390: 28 44 C5 20 CA 23 24 30 32 00 6B 28 76 C5 20 D6 |(D. .#$02.k(v. .|
000003A0: 24 46 46 44 38 00 71 28 A8 C5 A2 00 97 28 DA C5 |$FFD8.q(.....(..|
000003B0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003D0: 2A 00 B5 28 0C C6 A1 53 43 52 41 54 43 48 A0 4E |*..(...SCRATCH.N|
000003E0: 41 41 4D 41 44 52 45 53 2C 4C 45 4E 47 54 45 00 |AAMADRES,LENGTE.|
000003F0: C1 28 3E C6 20 D5 42 45 47 49 4E 00 E1 28 70 C6 |.(>. .BEGIN..(p.|
00000400: 4E 41 41 4D 20 A8 22 53 30 3A 20 20 20 20 20 20 |NAAM ."S0: |
00000410: 20 20 20 20 20 20 20 20 20 20 22 00 F0 28 A2 C6 | "..(..|
00000420: 42 45 47 49 4E 20 C2 23 30 30 00 08 29 D4 C6 54 |BEGIN .#00..)..T|
00000430: 45 58 32 30 30 20 CA 4E 41 41 4D 41 44 52 45 53 |EX200 .NAAMADRES|
00000440: 2C 58 00 19 29 06 C7 20 D2 4E 41 41 4D 2B 24 30 |,X..).. .NAAM+$0|
00000450: 33 2C 58 00 20 29 38 C7 20 EF 00 2E 29 6A C7 20 |3,X. )8. ...)j. |
00000460: C0 23 4C 45 4E 47 54 45 00 3B 29 9C C7 20 F6 54 |.#LENGTE.;).. .T|
00000470: 45 58 32 30 30 00 4B 29 CE C7 20 CA 23 4C 45 4E |EX200.K).. .#LEN|
00000480: 47 54 45 2B 33 00 5A 29 00 C8 20 C3 23 3E 28 4E |GTE+3.Z).. .#>(N|
00000490: 41 41 4D 29 00 69 29 32 C8 20 C2 23 3C 28 4E 41 |AAM).i)2. .#<(NA|
000004A0: 41 4D 29 00 75 29 64 C8 20 D6 24 46 46 42 44 00 |AM).u)d. .$FFBD.|
000004B0: 7F 29 96 C8 20 CA 23 31 35 00 88 29 C8 C8 20 C2 |.).. .#15..).. .|
000004C0: 23 38 00 92 29 FA C8 20 C3 23 31 35 00 9E 29 2C |#8..).. .#15..),|
000004D0: C9 20 D6 24 46 46 42 41 00 AA 29 5E C9 20 D6 24 |. .$FFBA..)^. .$|
000004E0: 46 46 43 30 00 B4 29 90 C9 20 CA 23 31 35 00 C0 |FFC0..).. .#15..|
000004F0: 29 C2 C9 20 D6 24 46 46 43 33 00 CC 29 F4 C9 20 |).. .$FFC3..).. |
00000500: D6 24 46 46 45 37 00 D2 29 26 CA A2 00 F8 29 58 |.$FFE7..)&....)X|
00000510: CA 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000530: 2A 2A 00 1B 2A 8A CA 3B 4D 41 43 52 4F 20 49 4E |**..*..;MACRO IN|
00000540: 50 55 54 A0 41 44 52 2C 4D 41 58 2C 58 2C 59 2C |PUT.ADR,MAX,X,Y,|
00000550: 43 4F 4C 4F 52 00 41 2A BC CA 3B 2A 2A 2A 2A 2A |COLOR.A*..;*****|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 66 2A EE CA |***********.f*..|
00000580: 3B 53 45 54 20 47 4C 4F 42 41 4C 20 49 4E 50 55 |;SET GLOBAL INPU|
00000590: 54 42 41 53 45 20 54 4F 20 49 4E 50 42 41 53 45 |TBASE TO INPBASE|
000005A0: 00 86 2A 20 CB 3B 28 49 4E 50 42 41 53 45 3D 53 |..* .;(INPBASE=S|
000005B0: 54 41 52 54 20 53 55 42 52 4F 55 54 49 4E 45 29 |TART SUBROUTINE)|
000005C0: 00 A8 2A 52 CB 3B 52 45 4D 20 20 20 20 20 20 49 |..*R.;REM I|
000005D0: 4E 49 54 49 4E 50 55 54 A0 30 2C 30 2C 30 2C 30 |NITINPUT.0,0,0,0|
000005E0: 2C 30 00 BA 2A 84 CB 3B 52 45 4D 20 20 20 20 20 |,0..*..;REM |
000005F0: 20 52 54 53 00 DD 2A B6 CB 3B 28 43 41 4C 4C 20 | RTS..*..;(CALL |
00000600: 49 4E 49 54 49 4E 50 55 54 20 54 4F 20 49 4E 54 |INITINPUT TO INT|
00000610: 49 41 4C 49 53 45 29 00 E3 2A E8 CB 3B 00 08 2B |IALISE)..*..;..+|
00000620: 1A CC 3B 2A 20 49 4E 50 55 54 20 57 4F 52 44 54 |..;* INPUT WORDT|
00000630: 20 56 41 4E 41 46 20 41 44 52 45 53 20 28 41 44 | VANAF ADRES (AD|
00000640: 52 29 00 24 2B 4C CC 3B 2A 20 4E 45 45 52 47 45 |R).$+L.;* NEERGE|
00000650: 5A 45 54 20 49 4E 20 46 4F 52 4D 41 54 3A 00 3F |ZET IN FORMAT:.?|
00000660: 2B 7E CC 3B 2A 20 4C 45 4E 47 54 45 49 4E 50 55 |+~.;* LENGTEINPU|
00000670: 54 2C 49 4E 50 55 54 2C 30 00 45 2B B0 CC 3B 00 |T,INPUT,0.E+..;.|
00000680: 6B 2B E2 CC 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |k+..;***********|
00000690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006A0: 2A 2A 2A 2A 2A 00 8C 2B 14 CD A1 49 4E 49 54 49 |*****..+...INITI|
000006B0: 4E 50 55 54 A0 41 44 52 2C 4D 41 58 2C 58 2C 59 |NPUT.ADR,MAX,X,Y|
000006C0: 2C 43 4F 4C 4F 52 00 9F 2B 46 CD 49 4E 50 42 41 |,COLOR..+F.INPBA|
000006D0: 53 45 20 D5 54 45 58 35 38 00 B1 2B 78 CD 54 45 |SE .TEX58..+x.TE|
000006E0: 58 35 31 20 A5 3E 28 41 44 52 29 00 C3 2B AA CD |X51 .>(ADR)..+..|
000006F0: 54 45 58 35 32 20 A5 3C 28 41 44 52 29 00 D2 2B |TEX52 .<(ADR)..+|
00000700: DC CD 54 45 58 35 33 20 A5 4D 41 58 00 DF 2B 0E |..TEX53 .MAX..+.|
00000710: CE 54 45 58 35 34 20 A5 58 00 EC 2B 40 CE 54 45 |.TEX54 .X..+@.TE|
00000720: 58 35 35 20 A5 59 00 FD 2B 72 CE 54 45 58 35 30 |X55 .Y..+r.TEX50|
00000730: 20 A5 43 4F 4C 4F 52 00 0E 2C A4 CE 54 45 58 35 | .COLOR..,..TEX5|
00000740: 38 20 C2 54 45 58 35 30 00 1A 2C D6 CE 20 D3 24 |8 .TEX50..,.. .$|
00000750: 30 32 38 36 00 26 2C 08 CF 20 C2 54 45 58 35 31 |0286.&,.. .TEX51|
00000760: 00 30 2C 3A CF 20 D3 24 30 33 00 3C 2C 6C CF 20 |.0,:. .$03.<,l. |
00000770: C2 54 45 58 35 32 00 46 2C 9E CF 20 D3 24 30 32 |.TEX52.F,.. .$02|
00000780: 00 52 2C D0 CF 20 C2 54 45 58 35 34 00 5E 2C 02 |.R,.. .TEX54.^,.|
00000790: D0 20 C3 54 45 58 35 35 00 65 2C 34 D0 20 E5 00 |. .TEX55.e,4. ..|
000007A0: 71 2C 66 D0 20 D6 24 46 46 46 30 00 81 2C 98 D0 |q,f. .$FFF0..,..|
000007B0: 54 45 58 32 33 20 C2 23 24 30 30 00 8D 2C CA D0 |TEX23 .#$00..,..|
000007C0: 20 D3 54 45 58 32 32 00 99 2C FC D0 20 D5 54 45 | .TEX22..,.. .TE|
000007D0: 58 32 30 00 A7 2C 2E D1 54 45 58 32 32 20 A5 30 |X20..,..TEX22 .0|
000007E0: 30 00 B7 2C 60 D1 54 45 58 32 30 20 CA 23 31 38 |0..,`.TEX20 .#18|
000007F0: 35 00 C3 2C 92 D1 20 D6 24 46 46 44 32 00 D4 2C |5..,.. .$FFD2..,|
00000800: C4 D1 54 45 58 32 31 20 D6 24 46 46 45 34 00 E0 |..TEX21 .$FFE4..|
00000810: 2C F6 D1 20 C9 54 45 58 32 32 00 EC 2C 28 D2 20 |,.. .TEX22..,(. |
00000820: C3 54 45 58 32 32 00 F8 2C 5A D2 20 C1 54 45 58 |.TEX22..,Z. .TEX|
00000830: 35 33 00 04 2D 8C D2 20 F7 54 45 58 32 39 00 0F |53..-.. .TEX29..|
00000840: 2D BE D2 20 C4 23 24 30 30 00 1B 2D F0 D2 20 F6 |-.. .#$00..-.. .|
00000850: 54 45 58 32 34 00 27 2D 22 D3 20 C7 54 45 58 32 |TEX24.'-". .TEX2|
00000860: 32 00 33 2D 54 D3 20 D5 54 45 58 32 31 00 42 2D |2.3-T. .TEX21.B-|
00000870: 86 D3 54 45 58 32 34 20 C4 23 31 33 00 4E 2D B8 |..TEX24 .#13.N-.|
00000880: D3 20 F7 54 45 58 32 38 00 59 2D EA D3 20 C4 23 |. .TEX28.Y-.. .#|
00000890: 31 34 38 00 65 2D 1C D4 20 F7 54 45 58 32 31 00 |148.e-.. .TEX21.|
000008A0: 70 2D 4E D4 20 C4 23 31 35 37 00 7C 2D 80 D4 20 |p-N. .#157.|-.. |
000008B0: F7 54 45 58 32 31 00 86 2D B2 D4 20 C4 23 32 39 |.TEX21..-.. .#29|
000008C0: 00 92 2D E4 D4 20 F7 54 45 58 32 31 00 9C 2D 16 |..-.. .TEX21..-.|
000008D0: D5 20 C4 23 31 37 00 A8 2D 48 D5 20 F7 54 45 58 |. .#17..-H. .TEX|
000008E0: 32 31 00 B3 2D 7A D5 20 C4 23 31 34 35 00 BF 2D |21..-z. .#145..-|
000008F0: AC D5 20 F7 54 45 58 32 31 00 C9 2D DE D5 20 C4 |.. .TEX21..-.. .|
00000900: 23 32 30 00 D5 2D 10 D6 20 F6 54 45 58 32 36 00 |#20..-.. .TEX26.|
00000910: E0 2D 42 D6 20 C1 23 24 30 31 00 EC 2D 74 D6 20 |.-B. .#$01..-t. |
00000920: F6 54 45 58 32 35 00 F7 2D A6 D6 20 C3 23 24 30 |.TEX25..-.. .#$0|
00000930: 30 00 03 2E D8 D6 20 D4 54 45 58 32 32 00 0F 2E |0..... .TEX22...|
00000940: 0A D7 20 D5 54 45 58 32 31 00 20 2E 3C D7 54 45 |.. .TEX21. .<.TE|
00000950: 58 32 35 20 C7 54 45 58 32 32 00 2C 2E 6E D7 20 |X25 .TEX22.,.n. |
00000960: C7 54 45 58 32 32 00 38 2E A0 D7 20 D5 54 45 58 |.TEX22.8... .TEX|
00000970: 32 37 00 4B 2E D2 D7 54 45 58 32 36 20 D2 28 24 |27.K...TEX26 .($|
00000980: 30 32 29 2C 59 00 57 2E 04 D8 54 45 58 32 37 20 |02),Y.W...TEX27 |
00000990: D8 00 62 2E 36 D8 20 CA 23 31 35 37 00 6E 2E 68 |..b.6. .#157.n.h|
000009A0: D8 20 D6 24 46 46 44 32 00 75 2E 9A D8 20 D7 00 |. .$FFD2.u... ..|
000009B0: 81 2E CC D8 20 D6 24 46 46 44 32 00 8D 2E FE D8 |.... .$FFD2.....|
000009C0: 20 D5 54 45 58 32 30 00 9C 2E 30 D9 54 45 58 32 | .TEX20...0.TEX2|
000009D0: 38 20 CA 23 32 30 00 A8 2E 62 D9 20 D6 24 46 46 |8 .#20...b. .$FF|
000009E0: 44 32 00 B4 2E 94 D9 20 C3 54 45 58 32 32 00 BE |D2..... .TEX22..|
000009F0: 2E C6 D9 20 CA 23 30 30 00 CC 2E F8 D9 20 D2 28 |... .#00..... .(|
00000A00: 24 30 32 29 2C 59 00 D8 2E 2A DA 20 C7 54 45 58 |$02),Y...*. .TEX|
00000A10: 32 32 00 E4 2E 5C DA 20 CA 54 45 58 32 32 00 EF |22...\. .TEX22..|
00000A20: 2E 8E DA 20 C3 23 24 30 30 00 FD 2E C0 DA 20 D2 |... .#$00..... .|
00000A30: 28 24 30 32 29 2C 59 00 04 2F F2 DA 20 E3 00 13 |($02),Y../.. ...|
00000A40: 2F 24 DB 54 45 58 32 39 20 CA 23 32 30 00 24 2F |/$.TEX29 .#20.$/|
00000A50: 56 DB 54 45 58 33 30 20 D6 24 46 46 44 32 00 2B |V.TEX30 .$FFD2.+|
00000A60: 2F 88 DB 20 EC 00 37 2F BA DB 20 F6 54 45 58 33 |/.. ..7/.. .TEX3|
00000A70: 30 00 43 2F EC DB 20 D5 54 45 58 32 33 00 49 2F |0.C/.. .TEX23.I/|
00000A80: 1E DC A2 00 6F 2F 50 DC 3B 2A 2A 2A 2A 2A 2A 2A |....o/P.;*******|
00000A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8C 2F 82 DC A1 49 |*********../...I|
00000AB0: 4E 50 55 54 A0 41 44 52 2C 4D 41 58 2C 58 2C 59 |NPUT.ADR,MAX,X,Y|
00000AC0: 2C 43 4F 4C 4F 52 00 98 2F B4 DC 20 D5 54 45 58 |,COLOR../.. .TEX|
00000AD0: 35 38 00 AA 2F E6 DC 54 45 58 35 36 20 A5 3E 28 |58../..TEX56 .>(|
00000AE0: 41 44 52 29 00 B7 2F 18 DD 20 A5 3C 28 41 44 52 |ADR)../.. .<(ADR|
00000AF0: 29 00 C3 2F 4A DD 20 A5 4D 41 58 2B 32 00 CB 2F |)../J. .MAX+2../|
00000B00: 7C DD 20 A5 59 00 D3 2F AE DD 20 A5 58 00 DF 2F ||. .Y../.. .X../|
00000B10: E0 DD 20 A5 43 4F 4C 4F 52 00 EF 2F 12 DE 54 45 |.. .COLOR../..TE|
00000B20: 58 35 38 20 C2 23 24 30 30 00 02 30 44 DE 54 45 |X58 .#$00..0D.TE|
00000B30: 58 35 37 20 CA 54 45 58 35 36 2C 58 00 18 30 76 |X57 .TEX56,X..0v|
00000B40: DE 20 D2 49 4E 50 55 54 42 41 53 45 2B 24 30 33 |. .INPUTBASE+$03|
00000B50: 2C 58 00 1F 30 A8 DE 20 EF 00 28 30 DA DE 20 C0 |,X..0.. ..(0.. .|
00000B60: 23 36 00 34 30 0C DF 20 F6 54 45 58 35 37 00 44 |#6.40.. .TEX57.D|
00000B70: 30 3E DF 20 D6 49 4E 50 55 54 42 41 53 45 00 4A |0>. .INPUTBASE.J|
00000B80: 30 70 DF A2 00 00 00 |0p..... |
**********..$D..DISKINIT..$.. UTWEE..$(.
NAAM ."I/0"..%Z.TWEE J#3..%.. C#>(NAAM).
$%.. B#<(NAAM).0%.. V$FFBD.:%". J#15.C%T
. B#8.M%.. C#15.Y%.. V$FFBA.E%.. V$FFC0.
O%.. J#15.{%N. V$FFC3..%.. V$FFE7..%....
.%..;********************************..%
...DISKVAL.K%H. UDRIE.Z%Z.NAAM3 ."V"..%.
.DRIE J#1..%.. C#>(NAAM3)..&.. B#<(NAAM3
)..&B. V$FFBD..&T. J#15.&&.. B#8.0&X. C#
15.<&.. V$FFBA.H&<. V$FFC0.R&N. J#15.^&
. V$FFC3.J&R. V$FFE7.P&.....&6.;********
*************************..&H..LOAD NAAM
ADRES,LENGTENAAM.A&.. J#$04.L&L. B#$08.W
&.. C#$01..&0. V$FFBA..&B. J#LENGTENAAM.
.'.. B#<(NAAMADRES)..'F. C#>(NAAMADRES).
)'.. V$FFBD.4'*A J#$00.?'\A B#$FF.J'.A C
#$FF.V'.A V$FFD5.\'.A...'$B;************
*********************. 'VB.SAVE NAMADR,L
,ADR1,ADR2..'.B J#$04..'.B B#$08.A'.B C#
$01.M'.C V$FFBA.V'PC J#L..'.C B#<(NAMADR
)..'.C C#>(NAMADR)..(.C V$FFBD..(.D J#<(
ADR1)..(JD R$02.,(|D J#>(ADR1).6(.D R$03
.E(.D B#<(ADR2).T(.E C#>(ADR2)._(DE J#$0
2.K(VE V$FFD8.Q(.E...(ZE;***************
*****************..(.F.SCRATCH NAAMADRES
,LENGTE.A(>F UBEGIN..(PFNAAM ."S0:
"..(.FBEGIN B#00..)TFTEX200 JN
AAMADRES,X..).G RNAAM+$03,X. )8G ...)JG
.#LENGTE.;).G .TEX200.K)NG J#LENGTE+3.Z)
.H C#>(NAAM).I)2H B#<(NAAM).U)DH V$FFBD.
).H J#15..)HH B#8..).H C#15..),I V$FFBA
..)^I V$FFC0..).I J#15..)BI V$FFC3.L).I
V$FFE7.R)&J...)XJ;**********************
**********..*.J;MACRO INPUT ADR,MAX,X,Y,
COLOR.A*.J;*****************************
***.F*.J;SET GLOBAL INPUTBASE TO INPBASE
..* K;(INPBASE=START SUBROUTINE)..*RK;RE
M INITINPUT 0,0,0,0,0..*.K;REM
RTS..*.K;(CALL INITINPUT TO INTIALISE).
.*.K;..+.L;* INPUT WORDT VANAF ADRES (AD
R).$+LL;* NEERGEZET IN FORMAT:.?+~L;* LE
NGTEINPUT,INPUT,0.E+.L;.K+.L;***********
*********************..+.M.INITINPUT ADR
,MAX,X,Y,COLOR..+FMINPBASE UTEX58..+XMTE
X51 .>(ADR).C+.MTEX52 .<(ADR).R+.MTEX53
.MAX..+.NTEX54 .X..+@NTEX55 .Y..+RNTEX50
.COLOR..,.NTEX58 BTEX50..,VN S$0286.&,.
O BTEX51.0,:O S$03.<,LO BTEX52.F,.O S$02
.R,PO BTEX54.^,.P CTEX55.E,4P ..Q,FP V$F
FF0..,.PTEX23 B#$00..,JP STEX22..,.P UTE
X20..,.QTEX22 .00..,`QTEX20 J#185.C,.Q V
$FFD2.T,DQTEX21 V$FFE4..,.Q ITEX22..,(R
CTEX22..,ZR ATEX53..-.R .TEX29..-.R D#$0
0..-.R .TEX24.'-"S GTEX22.3-TS UTEX21.B-
.STEX24 D#13.N-.S .TEX28.Y-.S D#148.E-.T
.TEX21.P-NT D#157.|-.T .TEX21..-.T D#29
..-.T .TEX21..-.U D#17..-HU .TEX21..-ZU
D#145..-.U .TEX21.I-.U D#20.U-.V .TEX26.
.-BV A#$01..-TV .TEX25..-.V C#$00...XV T
TEX22....W UTEX21. .<WTEX25 GTEX22.,.NW
GTEX22.8. W UTEX27.K.RWTEX26 R($02),Y.W.
.XTEX27 X.B.6X J#157.N.HX V$FFD2.U..X W.
..LX V$FFD2....X UTEX20...0YTEX28 J#20..
.BY V$FFD2....Y CTEX22...FY J#00.L..Y R(
$02),Y.X.*Z GTEX22...\Z JTEX22....Z C#$0
0....Z R($02),Y../.Z .../$.TEX29 J#20.$/
V.TEX30 V$FFD2.+/.. ..7/.. .TEX30.C/.. U
TEX23.I/....O/P.;***********************
*********../...INPUT ADR,MAX,X,Y,COLOR..
/.. UTEX58../..TEX56 .>(ADR)../.. .<(ADR
).C/J. .MAX+2.K/|. .Y.S/.. .X../.. .COLO
R../..TEX58 B#$00..0D.TEX57 JTEX56,X..0V
. RINPUTBASE+$03,X..0.. ..(0Z. .#6.40..
.TEX57.D0>. VINPUTBASE.J0P.....
> CLICK IMAGE PREVIEW FOR FULL MODAL