PHOTOPRINT.GIGA
FILE INFORMATION
FILENAME(S): PHOTOPRINT.GIGA
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-30 01:13:12
APPEARS ON: 2 disk(s)
FILE HASH
1d861e46db0e54dd1afca2300336f392aef80f08ed9545dd8f4576c42dfa4a8d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10904 04 89 | PHOTOPRINT.GIGA | PRG | C64er, DuncanTwain | 21 | 14 | DOWNLOAD FILE |
| 10904 04 89 | PHOTOPRINT.GIGA | PRG | earthshaker | 21 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3C 08 64 00 3B 20 2A 2A 2A 20 D0 48 4F 54 |..<.d.; *** .HOT| 00000010: 4F 50 52 49 4E 54 2C 20 C2 49 4C 44 53 43 48 49 |OPRINT, .ILDSCHI| 00000020: 52 4D 2D C6 4F 54 4F 20 41 4C 53 20 D4 45 58 54 |RM-.OTO ALS .EXT| 00000030: 48 41 52 44 43 4F 50 59 20 2A 2A 2A 00 42 08 6E |HARDCOPY ***.B.n| 00000040: 00 3B 00 58 08 78 00 3B 20 2A 2A 2A 20 CD 41 4B |.;.X.x.; *** .AK| 00000050: 52 4F 27 53 20 2A 2A 2A 00 5E 08 82 00 3B 00 69 |RO'S ***.^...;.i| 00000060: 08 8C 00 AA 24 37 30 30 30 00 75 08 96 00 A1 43 |....$7000.u....C| 00000070: 48 52 47 45 54 00 7F 08 A0 00 20 D6 24 37 33 00 |HRGET..... .$73.| 00000080: 85 08 AA 00 A2 00 91 08 B4 00 A1 43 48 52 47 4F |...........CHRGO| 00000090: 54 00 9B 08 BE 00 20 D6 24 37 39 00 A1 08 C8 00 |T..... .$79.....| 000000A0: A2 00 AD 08 D2 00 A1 43 48 4B 43 4F 4D 00 B9 08 |.......CHKCOM...| 000000B0: DC 00 20 D6 24 41 45 46 44 00 BF 08 E6 00 A2 00 |.. .$AEFD.......| 000000C0: CB 08 F0 00 A1 47 45 54 42 59 54 00 D7 08 FA 00 |.....GETBYT.....| 000000D0: 20 D6 24 42 37 39 42 00 DD 08 04 01 A2 00 E8 08 | .$B79B.........| 000000E0: 0E 01 A1 45 52 52 4F 52 00 F4 08 18 01 20 D5 24 |...ERROR..... .$| 000000F0: 41 46 30 38 00 FA 08 22 01 A2 00 0B 09 2C 01 A1 |AF08...".....,..| 00000100: 50 52 49 4E 54 A0 4D 57 45 52 54 00 18 09 36 01 |PRINT.MWERT...6.| 00000110: 20 CA 23 4D 57 45 52 54 00 24 09 40 01 20 D6 24 | .#MWERT.$.@. .$| 00000120: 46 46 44 32 00 2A 09 4A 01 A2 00 33 09 54 01 A1 |FFD2.*.J...3.T..| 00000130: 45 53 43 00 51 09 5E 01 20 50 52 49 4E 54 A0 32 |ESC.Q.^. PRINT.2| 00000140: 37 3B 20 C5 D3 C3 20 3D 20 C3 C8 D2 24 28 32 37 |7; ... = ...$(27| 00000150: 29 00 57 09 68 01 A2 00 5F 09 72 01 A1 43 52 00 |).W.h..._.r..CR.| 00000160: 7C 09 7C 01 20 50 52 49 4E 54 A0 31 33 3B 20 C3 ||.|. PRINT.13; .| 00000170: D2 20 3D 20 C3 C8 D2 24 28 31 33 29 00 A8 09 86 |. = ...$(13)....| 00000180: 01 3B 20 45 56 45 4E 54 55 45 4C 4C 3A 20 50 52 |.; EVENTUELL: PR| 00000190: 49 4E 54 20 31 30 20 20 20 3B 20 CC C6 20 3D 20 |INT 10 ; .. = | 000001A0: C3 C8 D2 24 28 31 30 29 00 AE 09 90 01 A2 00 B8 |...$(10)........| 000001B0: 09 9A 01 A1 4F 50 45 4E 00 C4 09 A4 01 20 D6 24 |....OPEN..... .$| 000001C0: 46 46 43 30 00 CA 09 AE 01 A2 00 D6 09 B8 01 A1 |FFC0............| 000001D0: 53 45 54 46 4C 53 00 E2 09 C2 01 20 D6 24 46 46 |SETFLS..... .$FF| 000001E0: 42 41 00 E8 09 CC 01 A2 00 F4 09 D6 01 A1 43 48 |BA............CH| 000001F0: 4B 4F 55 54 00 00 0A E0 01 20 D6 24 46 46 43 39 |KOUT..... .$FFC9| 00000200: 00 06 0A EA 01 A2 00 11 0A F4 01 A1 43 4C 52 43 |............CLRC| 00000210: 48 00 1D 0A FE 01 20 D6 24 46 46 43 43 00 23 0A |H..... .$FFCC.#.| 00000220: 08 02 A2 00 2E 0A 12 02 A1 43 4C 4F 53 45 00 3A |.........CLOSE.:| 00000230: 0A 1C 02 20 D6 24 46 46 43 33 00 40 0A 26 02 A2 |... .$FFC3.@.&..| 00000240: 00 4C 0A 30 02 A1 50 52 54 54 41 42 00 62 0A 3A |.L.0..PRTTAB.b.:| 00000250: 02 20 C2 23 31 30 3B 20 31 30 20 D3 50 41 4C 54 |. .#10; 10 .PALT| 00000260: 45 4E 00 83 0A 44 02 4D 50 52 49 4E 54 20 50 52 |EN...D.MPRINT PR| 00000270: 49 4E 54 A0 33 32 3B 20 D0 D2 C9 CE D4 20 D3 50 |INT.32; ..... .P| 00000280: 41 43 45 00 8A 0A 4E 02 20 EE 00 97 0A 58 02 20 |ACE...N. ....X. | 00000290: F6 4D 50 52 49 4E 54 00 9D 0A 62 02 A2 00 AF 0A |.MPRINT...b.....| 000002A0: 6C 02 A3 53 43 52 45 45 4E 3D 24 30 34 30 30 00 |l..SCREEN=$0400.| 000002B0: BF 0A 76 02 A3 43 48 41 52 48 49 3D 24 44 30 00 |..v..CHARHI=$D0.| 000002C0: C5 0A 80 02 3B 00 E3 0A 8A 02 3B 20 2A 2A 2A 20 |....;.....; *** | 000002D0: D0 41 52 41 4D 45 54 45 52 20 48 4F 4C 45 4E 20 |.ARAMETER HOLEN | 000002E0: 2A 2A 2A 00 E9 0A 94 02 3B 00 05 0B 9E 02 3B 20 |***.....;.....; | 000002F0: 2A 2A 2A 20 D3 54 41 4E 44 41 52 44 57 45 52 54 |*** .TANDARDWERT| 00000300: 45 20 2A 2A 2A 00 26 0B A8 02 20 CA 23 24 30 34 |E ***.&... .#$04| 00000310: 3B 20 C2 49 4C 44 53 43 48 49 52 4D 20 42 45 49 |; .ILDSCHIRM BEI| 00000320: 20 24 30 34 30 30 00 42 0B B2 02 20 D2 42 53 2B | $0400.B... .BS+| 00000330: 31 3B 20 C2 D3 2D D3 54 41 4E 44 41 52 44 57 45 |1; ..-.TANDARDWE| 00000340: 52 54 00 64 0B BC 02 20 CA 23 24 44 30 3B 20 DA |RT.d... .#$D0; .| 00000350: 45 49 43 48 45 4E 53 41 54 5A 20 42 45 49 20 24 |EICHENSATZ BEI $| 00000360: 44 30 30 30 00 80 0B C6 02 20 D2 5A 53 2B 31 3B |D000..... .ZS+1;| 00000370: 20 DA D3 2D D3 54 41 4E 44 41 52 44 57 45 52 54 | ..-.TANDARDWERT| 00000380: 00 9F 0B D0 02 20 CA 23 24 30 31 3B 20 D3 45 4B |..... .#$01; .EK| 00000390: 55 4E 44 41 45 52 41 44 52 45 53 53 45 20 31 00 |UNDAERADRESSE 1.| 000003A0: BB 0B DA 02 20 D2 53 41 2B 31 3B 20 D3 C1 2D D3 |.... .SA+1; ..-.| 000003B0: 54 41 4E 44 41 52 44 57 45 52 54 00 DB 0B E4 02 |TANDARDWERT.....| 000003C0: 3B 20 2A 2A 2A 20 D0 41 52 41 4D 45 54 45 52 53 |; *** .ARAMETERS| 000003D0: 43 48 4C 45 49 46 45 20 2A 2A 2A 00 05 0C EE 02 |CHLEIFE ***.....| 000003E0: 50 41 52 41 4D 20 43 48 52 47 4F 54 3B 20 57 45 |PARAM CHRGOT; WE| 000003F0: 4C 43 48 45 53 20 DA 45 49 43 48 45 4E 20 46 4F |LCHES .EICHEN FO| 00000400: 4C 47 54 20 3F 00 38 0C F8 02 20 C4 23 34 34 3B |LGT ?.8... .#44;| 00000410: 20 45 49 4E 20 CB 4F 4D 4D 41 20 3F 20 D7 45 4E | EIN .OMMA ? .EN| 00000420: 4E 20 4A 41 2C 20 44 41 4E 4E 20 45 49 4E 20 D0 |N JA, DANN EIN .| 00000430: 41 52 41 4D 45 54 45 52 00 68 0C 02 03 20 F6 49 |ARAMETER.h... .I| 00000440: 52 51 3B 20 4B 45 49 4E 20 D0 41 52 41 4D 45 54 |RQ; KEIN .ARAMET| 00000450: 45 52 20 4D 45 48 52 20 3D 3E 20 5A 55 4D 20 C9 |ER MEHR => ZUM .| 00000460: 4E 54 45 52 52 55 50 54 00 86 0C 0C 03 20 43 48 |NTERRUPT..... CH| 00000470: 4B 43 4F 4D 3B 20 CB 4F 4D 4D 41 20 55 45 42 45 |KCOM; .OMMA UEBE| 00000480: 52 4C 45 53 45 4E 00 A9 0C 16 03 20 43 48 52 47 |RLESEN..... CHRG| 00000490: 4F 54 3B 20 57 45 4C 43 48 45 53 20 DA 45 49 43 |OT; WELCHES .EIC| 000004A0: 48 45 4E 20 46 4F 4C 47 54 00 C8 0C 20 03 20 C4 |HEN FOLGT... . .| 000004B0: 23 36 36 3B 20 27 C2 27 2C 20 C2 D3 2D D0 41 52 |#66; '.', ..-.AR| 000004C0: 41 4D 45 54 45 52 20 3F 00 EA 0C 2A 03 20 F7 42 |AMETER ?...*. .B| 000004D0: 53 49 4E 3B 20 C2 D3 2D D0 41 52 41 4D 45 54 45 |SIN; ..-.ARAMETE| 000004E0: 52 20 45 52 46 41 53 53 45 4E 00 09 0D 34 03 20 |R ERFASSEN...4. | 000004F0: C4 23 39 30 3B 20 27 DA 27 2C 20 DA D3 2D D0 41 |.#90; '.', ..-.A| 00000500: 52 41 4D 45 54 45 52 20 3F 00 2B 0D 3E 03 20 F7 |RAMETER ?.+.>. .| 00000510: 5A 53 49 4E 3B 20 DA D3 2D D0 41 52 41 4D 45 54 |ZSIN; ..-.ARAMET| 00000520: 45 52 20 45 52 46 41 53 53 45 4E 00 4A 0D 48 03 |ER ERFASSEN.J.H.| 00000530: 20 C4 23 38 33 3B 20 27 D3 27 2C 20 D3 C1 2D D0 | .#83; '.', ..-.| 00000540: 41 52 41 4D 45 54 45 52 20 3F 00 6C 0D 52 03 20 |ARAMETER ?.l.R. | 00000550: F7 53 41 49 4E 3B 20 D3 C1 2D D0 41 52 41 4D 45 |.SAIN; ..-.ARAME| 00000560: 54 45 52 20 45 52 46 41 53 53 45 4E 00 8E 0D 5C |TER ERFASSEN...\| 00000570: 03 45 52 52 20 45 52 52 4F 52 3B 20 46 41 4C 53 |.ERR ERROR; FALS| 00000580: 43 48 45 52 20 D0 41 52 41 4D 45 54 45 52 00 A9 |CHER .ARAMETER..| 00000590: 0D 66 03 3B 20 2A 2A 2A 20 C2 D3 2D D0 41 52 41 |.f.; *** ..-.ARA| 000005A0: 4D 45 54 45 52 20 2A 2A 2A 00 C7 0D 70 03 42 53 |METER ***...p.BS| 000005B0: 49 4E 20 43 48 52 47 45 54 3B 20 C2 20 55 45 42 |IN CHRGET; . UEB| 000005C0: 45 52 4C 45 53 45 4E 00 E6 0D 7A 03 20 43 48 52 |ERLESEN...z. CHR| 000005D0: 47 4F 54 3B 20 4E 41 45 43 48 53 54 45 53 20 DA |GOT; NAECHSTES .| 000005E0: 45 49 43 48 45 4E 00 FE 0D 84 03 20 C4 23 38 33 |EICHEN..... .#83| 000005F0: 3B 20 27 D3 27 2C 20 45 49 4E 20 D3 20 3F 00 18 |; '.', EIN . ?..| 00000600: 0E 8E 03 20 F6 45 52 52 3B 20 46 41 4C 53 43 48 |... .ERR; FALSCH| 00000610: 45 20 D3 59 4E 54 41 58 00 32 0E 98 03 20 43 48 |E .YNTAX.2... CH| 00000620: 52 47 45 54 3B 20 D3 20 55 45 42 45 52 4C 45 53 |RGET; . UEBERLES| 00000630: 45 4E 00 51 0E A2 03 20 43 48 52 47 4F 54 3B 20 |EN.Q... CHRGOT; | 00000640: 4E 41 45 43 48 53 54 45 53 20 DA 45 49 43 48 45 |NAECHSTES .EICHE| 00000650: 4E 00 6C 0E AC 03 20 C4 23 31 37 38 3B 20 D4 4F |N.l... .#178; .O| 00000660: 4B 45 4E 20 46 55 45 52 20 27 3D 27 00 86 0E B6 |KEN FUER '='....| 00000670: 03 20 F6 45 52 52 3B 20 46 41 4C 53 43 48 45 20 |. .ERR; FALSCHE | 00000680: D3 59 4E 54 41 58 00 A7 0E C0 03 20 47 45 54 42 |.YNTAX..... GETB| 00000690: 59 54 3B 20 D0 41 52 41 4D 45 54 45 52 57 45 52 |YT; .ARAMETERWER| 000006A0: 54 20 48 4F 4C 45 4E 00 BD 0E CA 03 20 D3 42 53 |T HOLEN..... .BS| 000006B0: 2B 31 3B 20 53 50 45 49 43 48 45 52 4E 00 E9 0E |+1; SPEICHERN...| 000006C0: D4 03 20 D5 50 41 52 41 4D 3B 20 5A 55 52 55 45 |.. .PARAM; ZURUE| 000006D0: 43 4B 20 5A 55 52 20 D0 41 52 41 4D 45 54 45 52 |CK ZUR .ARAMETER| 000006E0: 2D D3 43 48 4C 45 49 46 45 00 04 0F DE 03 3B 20 |-.CHLEIFE.....; | 000006F0: 2A 2A 2A 20 DA D3 2D D0 41 52 41 4D 45 54 45 52 |*** ..-.ARAMETER| 00000700: 20 2A 2A 2A 00 22 0F E8 03 5A 53 49 4E 20 43 48 | ***."...ZSIN CH| 00000710: 52 47 45 54 3B 20 DA 20 55 45 42 45 52 4C 45 53 |RGET; . UEBERLES| 00000720: 45 4E 00 41 0F F2 03 20 43 48 52 47 4F 54 3B 20 |EN.A... CHRGOT; | 00000730: 4E 41 45 43 48 53 54 45 53 20 DA 45 49 43 48 45 |NAECHSTES .EICHE| 00000740: 4E 00 59 0F FC 03 20 C4 23 38 33 3B 20 27 D3 27 |N.Y... .#83; '.'| 00000750: 2C 20 45 49 4E 20 D3 20 3F 00 73 0F 06 04 20 F6 |, EIN . ?.s... .| 00000760: 45 52 52 3B 20 46 41 4C 53 43 48 45 20 D3 59 4E |ERR; FALSCHE .YN| 00000770: 54 41 58 00 8D 0F 10 04 20 43 48 52 47 45 54 3B |TAX..... CHRGET;| 00000780: 20 D3 20 55 45 42 45 52 4C 45 53 45 4E 00 AC 0F | . UEBERLESEN...| 00000790: 1A 04 20 43 48 52 47 4F 54 3B 20 4E 41 45 43 48 |.. CHRGOT; NAECH| 000007A0: 53 54 45 53 20 DA 45 49 43 48 45 4E 00 C7 0F 24 |STES .EICHEN...$| 000007B0: 04 20 C4 23 31 37 38 3B 20 D4 4F 4B 45 4E 20 46 |. .#178; .OKEN F| 000007C0: 55 45 52 20 27 3D 27 00 E1 0F 2E 04 20 F6 45 52 |UER '='..... .ER| 000007D0: 52 3B 20 46 41 4C 53 43 48 45 20 D3 59 4E 54 41 |R; FALSCHE .YNTA| 000007E0: 58 00 02 10 38 04 20 47 45 54 42 59 54 3B 20 D0 |X...8. GETBYT; .| 000007F0: 41 52 41 4D 45 54 45 52 57 45 52 54 20 48 4F 4C |ARAMETERWERT HOL| 00000800: 45 4E 00 18 10 42 04 20 D3 5A 53 2B 31 3B 20 53 |EN...B. .ZS+1; S| 00000810: 50 45 49 43 48 45 52 4E 00 44 10 4C 04 20 D5 50 |PEICHERN.D.L. .P| 00000820: 41 52 41 4D 3B 20 5A 55 52 55 45 43 4B 20 5A 55 |ARAM; ZURUECK ZU| 00000830: 52 20 D0 41 52 41 4D 45 54 45 52 2D D3 43 48 4C |R .ARAMETER-.CHL| 00000840: 45 49 46 45 00 5F 10 56 04 3B 20 2A 2A 2A 20 D3 |EIFE._.V.; *** .| 00000850: C1 2D D0 41 52 41 4D 45 54 45 52 20 2A 2A 2A 00 |.-.ARAMETER ***.| 00000860: 7D 10 60 04 53 41 49 4E 20 43 48 52 47 45 54 3B |}.`.SAIN CHRGET;| 00000870: 20 D3 20 55 45 42 45 52 4C 45 53 45 4E 00 9C 10 | . UEBERLESEN...| 00000880: 6A 04 20 43 48 52 47 4F 54 3B 20 4E 41 45 43 48 |j. CHRGOT; NAECH| 00000890: 53 54 45 53 20 DA 45 49 43 48 45 4E 00 B4 10 74 |STES .EICHEN...t| 000008A0: 04 20 C4 23 36 35 3B 20 27 C1 27 2C 20 45 49 4E |. .#65; '.', EIN| 000008B0: 20 C1 20 3F 00 CE 10 7E 04 20 F6 45 52 52 3B 20 | . ?...~. .ERR; | 000008C0: 46 41 4C 53 43 48 45 20 D3 59 4E 54 41 58 00 E8 |FALSCHE .YNTAX..| 000008D0: 10 88 04 20 43 48 52 47 45 54 3B 20 C1 20 55 45 |... CHRGET; . UE| 000008E0: 42 45 52 4C 45 53 45 4E 00 07 11 92 04 20 43 48 |BERLESEN..... CH| 000008F0: 52 47 4F 54 3B 20 4E 41 45 43 48 53 54 45 53 20 |RGOT; NAECHSTES | 00000900: DA 45 49 43 48 45 4E 00 22 11 9C 04 20 C4 23 31 |.EICHEN."... .#1| 00000910: 37 38 3B 20 D4 4F 4B 45 4E 20 46 55 45 52 20 27 |78; .OKEN FUER '| 00000920: 3D 27 00 3C 11 A6 04 20 F6 45 52 52 3B 20 46 41 |='.<... .ERR; FA| 00000930: 4C 53 43 48 45 20 D3 59 4E 54 41 58 00 5D 11 B0 |LSCHE .YNTAX.]..| 00000940: 04 20 47 45 54 42 59 54 3B 20 D0 41 52 41 4D 45 |. GETBYT; .ARAME| 00000950: 54 45 52 57 45 52 54 20 48 4F 4C 45 4E 00 73 11 |TERWERT HOLEN.s.| 00000960: BA 04 20 D3 53 41 2B 31 3B 20 53 50 45 49 43 48 |.. .SA+1; SPEICH| 00000970: 45 52 4E 00 9F 11 C4 04 20 D5 50 41 52 41 4D 3B |ERN..... .PARAM;| 00000980: 20 5A 55 52 55 45 43 4B 20 5A 55 52 20 D0 41 52 | ZURUECK ZUR .AR| 00000990: 41 4D 45 54 45 52 2D D3 43 48 4C 45 49 46 45 00 |AMETER-.CHLEIFE.| 000009A0: A5 11 CE 04 3B 00 CC 11 D8 04 3B 20 2A 2A 2A 20 |....;.....; *** | 000009B0: C9 4E 54 45 52 52 55 50 54 20 49 4E 49 54 49 41 |.NTERRUPT INITIA| 000009C0: 4C 49 53 49 45 52 45 4E 20 2A 2A 2A 00 D2 11 E2 |LISIEREN ***....| 000009D0: 04 3B 00 DC 11 EC 04 49 52 51 20 E8 00 0D 12 F6 |.;.....IRQ .....| 000009E0: 04 20 CA 23 3C 28 53 54 41 52 54 29 3B 20 4C 53 |. .#<(START); LS| 000009F0: 42 20 44 45 52 20 4E 45 55 45 4E 20 C9 4E 54 45 |B DER NEUEN .NTE| 00000A00: 52 52 55 50 54 2D D2 4F 55 54 49 4E 45 00 22 12 |RRUPT-.OUTINE.".| 00000A10: 00 05 20 C3 23 3E 28 53 54 41 52 54 29 3B 20 4D |.. .#>(START); M| 00000A20: 53 42 00 44 12 0A 05 20 D2 24 30 33 31 34 3B 20 |SB.D... .$0314; | 00000A30: 4C 53 42 20 C9 4E 54 45 52 52 55 50 54 2D D6 45 |LSB .NTERRUPT-.E| 00000A40: 4B 54 4F 52 00 55 12 14 05 20 D4 24 30 33 31 35 |KTOR.U... .$0315| 00000A50: 3B 20 4D 53 42 00 5C 12 1E 05 20 E7 00 79 12 28 |; MSB.\... ..y.(| 00000A60: 05 20 E3 3B 20 C5 4E 44 45 20 44 45 53 20 D3 59 |. .; .NDE DES .Y| 00000A70: 53 2D C2 45 46 45 48 4C 53 00 7F 12 32 05 3B 00 |S-.EFEHLS...2.;.| 00000A80: A3 12 3C 05 3B 20 2A 2A 2A 20 4E 45 55 45 20 C9 |..<.; *** NEUE .| 00000A90: 4E 54 45 52 52 55 50 54 52 4F 55 54 49 4E 45 20 |NTERRUPTROUTINE | 00000AA0: 2A 2A 2A 00 A9 12 46 05 3B 00 C6 12 50 05 53 54 |***...F.;...P.ST| 00000AB0: 41 52 54 20 CA 24 43 35 3B 20 4C 45 54 5A 54 45 |ART .$C5; LETZTE| 00000AC0: 20 D4 41 53 54 45 00 E2 12 5A 05 20 C4 23 24 33 | .ASTE...Z. .#$3| 00000AD0: 43 3B 20 C3 4F 44 45 20 46 55 45 52 20 D3 50 41 |C; .ODE FUER .PA| 00000AE0: 43 45 00 FB 12 64 05 20 F6 49 52 51 45 4E 44 3B |CE...d. .IRQEND;| 00000AF0: 20 4E 41 43 48 20 24 45 41 33 31 00 18 13 6E 05 | NACH $EA31...n.| 00000B00: 20 CA 24 30 32 38 44 3B 20 C6 4C 41 47 20 46 55 | .$028D; .LAG FU| 00000B10: 45 52 20 D3 48 49 46 54 00 33 13 78 05 20 C4 23 |ER .HIFT.3.x. .#| 00000B20: 30 31 3B 20 C3 4F 44 45 20 46 55 45 52 20 D3 48 |01; .ODE FUER .H| 00000B30: 49 46 54 00 4D 13 82 05 20 F7 42 45 47 49 4E 3B |IFT.M... .BEGIN;| 00000B40: 20 5A 55 52 20 C8 41 52 44 43 4F 50 59 00 79 13 | ZUR .ARDCOPY.y.| 00000B50: 8C 05 49 52 51 45 4E 44 20 D5 24 45 41 33 31 3B |..IRQEND .$EA31;| 00000B60: 20 5A 55 52 20 4E 4F 52 4D 41 4C 45 4E 20 49 52 | ZUR NORMALEN IR| 00000B70: 51 2D D2 4F 55 54 49 4E 45 00 7F 13 96 05 3B 00 |Q-.OUTINE.....;.| 00000B80: 9F 13 A0 05 42 45 47 49 4E 20 CA 23 24 30 30 3B |....BEGIN .#$00;| 00000B90: 20 D4 41 53 54 45 20 4C 4F 45 53 43 48 45 4E 00 | .ASTE LOESCHEN.| 00000BA0: B9 13 AA 05 20 D2 24 43 35 3B 20 41 4B 54 55 45 |.... .$C5; AKTUE| 00000BB0: 4C 4C 45 20 D4 41 53 54 45 00 DC 13 B4 05 20 D2 |LLE .ASTE..... .| 00000BC0: 24 43 36 3B 20 D4 41 53 54 41 54 55 52 50 55 46 |$C6; .ASTATURPUF| 00000BD0: 46 45 52 20 4C 4F 45 53 43 48 45 4E 00 FD 13 BE |FER LOESCHEN....| 00000BE0: 05 20 D2 24 30 32 38 44 3B 20 D3 48 49 46 54 2D |. .$028D; .HIFT-| 00000BF0: C6 4C 41 47 20 4C 4F 45 53 43 48 45 4E 00 10 14 |.LAG LOESCHEN...| 00000C00: C8 05 20 D6 48 43 3B 20 C8 41 52 44 43 4F 50 59 |.. .HC; .ARDCOPY| 00000C10: 00 3C 14 D2 05 20 D5 24 45 41 38 31 3B 20 C9 4E |.<... .$EA81; .N| 00000C20: 54 45 52 52 55 50 54 2D C5 4E 44 45 2C 20 D2 45 |TERRUPT-.NDE, .E| 00000C30: 47 49 53 54 45 52 20 48 4F 4C 45 4E 00 42 14 DC |GISTER HOLEN.B..| 00000C40: 05 3B 00 65 14 E6 05 3B 20 2A 2A 2A 20 C4 52 55 |.;.e...; *** .RU| 00000C50: 43 4B 45 52 4B 41 4E 41 4C 20 4F 45 46 46 4E 45 |CKERKANAL OEFFNE| 00000C60: 4E 20 2A 2A 2A 00 6B 14 F0 05 3B 00 84 14 FA 05 |N ***.k...;.....| 00000C70: 48 43 20 CA 23 24 30 34 3B 20 C6 49 4C 45 4E 55 |HC .#$04; .ILENU| 00000C80: 4D 4D 45 52 00 9F 14 04 06 20 C2 23 24 30 34 3B |MMER..... .#$04;| 00000C90: 20 C7 45 52 41 45 54 45 41 44 52 45 53 53 45 00 | .ERAETEADRESSE.| 00000CA0: BD 14 0E 06 53 41 20 C3 23 24 30 31 3B 20 D3 45 |....SA .#$01; .E| 00000CB0: 4B 55 44 41 45 52 41 44 52 45 53 53 45 00 DF 14 |KUDAERADRESSE...| 00000CC0: 18 06 20 53 45 54 46 4C 53 3B 20 C6 49 4C 45 50 |.. SETFLS; .ILEP| 00000CD0: 41 52 41 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 |ARAMETER SETZEN.| 00000CE0: F7 14 22 06 20 4F 50 45 4E 3B 20 C6 49 4C 45 20 |..". OPEN; .ILE | 00000CF0: 4F 45 46 46 4E 45 4E 00 0E 15 2C 06 20 C2 23 24 |OEFFNEN...,. .#$| 00000D00: 30 34 3B 20 C6 49 4C 45 4E 55 4D 4D 45 52 00 21 |04; .ILENUMMER.!| 00000D10: 15 36 06 20 43 48 4B 4F 55 54 3B 20 C3 CD C4 20 |.6. CHKOUT; ... | 00000D20: 34 00 27 15 40 06 3B 00 45 15 4A 06 3B 20 2A 2A |4.'.@.;.E.J.; **| 00000D30: 2A 20 C9 4E 49 54 49 41 4C 49 53 49 45 52 55 4E |* .NITIALISIERUN| 00000D40: 47 20 2A 2A 2A 00 4B 15 54 06 3B 00 80 15 5E 06 |G ***.K.T.;...^.| 00000D50: 20 50 52 49 4E 54 A0 32 34 3B 20 C3 C1 CE 20 3D | PRINT.24; ... =| 00000D60: 20 C3 C8 D2 24 28 32 34 29 20 C4 52 55 43 4B 45 | ...$(24) .RUCKE| 00000D70: 52 50 55 46 46 45 52 20 4C 4F 45 53 43 48 45 4E |RPUFFER LOESCHEN| 00000D80: 00 9A 15 68 06 20 45 53 43 3B 20 C5 D3 C3 20 CB |...h. ESC; ... .| 00000D90: 4C 41 4D 4D 45 52 41 46 46 45 00 BA 15 72 06 20 |LAMMERAFFE...r. | 00000DA0: 50 52 49 4E 54 A0 36 34 3B 20 36 34 20 3D 20 CB |PRINT.64; 64 = .| 00000DB0: 4C 41 4D 4D 45 52 41 46 46 45 00 C2 15 7C 06 20 |LAMMERAFFE...|. | 00000DC0: 43 52 00 EF 15 86 06 3B 20 2A 2A 2A 20 C2 49 4C |CR.....; *** .IL| 00000DD0: 44 53 43 48 49 52 4D 57 45 52 54 45 20 49 4E 49 |DSCHIRMWERTE INI| 00000DE0: 54 49 41 4C 49 53 49 45 52 45 4E 20 2A 2A 2A 00 |TIALISIEREN ***.| 00000DF0: 05 16 90 06 20 CA 23 3C 28 53 43 52 45 45 4E 29 |.... .#<(SCREEN)| 00000E00: 3B 20 4C 53 42 00 29 16 9A 06 42 53 20 C3 23 3E |; LSB.)...BS .#>| 00000E10: 28 53 43 52 45 45 4E 29 3B 20 4D 53 42 2C 20 C4 |(SCREEN); MSB, .| 00000E20: 55 4D 4D 59 2D D7 45 52 54 00 38 16 A4 06 20 D2 |UMMY-.ERT.8... .| 00000E30: 54 45 58 54 42 53 2B 31 00 47 16 AE 06 20 D4 54 |TEXTBS+1.G... .T| 00000E40: 45 58 54 42 53 2B 32 00 52 16 B8 06 20 CA 23 24 |EXTBS+2.R... .#$| 00000E50: 30 30 00 71 16 C2 06 20 D2 5A 45 49 4C 45 3B 20 |00.q... .ZEILE; | 00000E60: DA 45 49 4C 45 4E 5A 41 45 48 4C 45 52 20 3D 20 |.EILENZAEHLER = | 00000E70: 30 00 77 16 CC 06 3B 00 94 16 D6 06 3B 20 2A 2A |0.w...;.....; **| 00000E80: 2A 20 DA 45 49 4C 45 4E 53 43 48 4C 45 49 46 45 |* .EILENSCHLEIFE| 00000E90: 20 2A 2A 2A 00 9A 16 E0 06 3B 00 C4 16 EA 06 3B | ***.....;.....;| 00000EA0: 20 2A 2A 2A 20 C7 52 41 46 49 4B 4D 4F 44 55 53 | *** .RAFIKMODUS| 00000EB0: 20 46 55 45 52 20 45 49 4E 45 20 DA 45 49 4C 45 | FUER EINE .EILE| 00000EC0: 20 2A 2A 2A 00 E9 16 F4 06 4C 4E 4C 4F 4F 50 20 | ***.....LNLOOP | 00000ED0: CA 54 45 58 54 42 53 2B 31 3B 20 DA 45 49 4C 45 |.TEXTBS+1; .EILE| 00000EE0: 4E 53 43 48 4C 45 49 46 45 00 18 17 FE 06 20 C3 |NSCHLEIFE..... .| 00000EF0: 54 45 58 54 42 53 2B 32 3B 20 4D 4F 4D 45 4E 54 |TEXTBS+2; MOMENT| 00000F00: 41 4E 45 20 D4 45 58 54 41 44 52 45 53 53 45 20 |ANE .EXTADRESSE | 00000F10: 4B 4F 50 49 45 52 45 4E 00 27 17 08 07 20 D2 43 |KOPIEREN.'... .C| 00000F20: 48 4B 54 58 54 2B 31 00 36 17 12 07 20 D4 43 48 |HKTXT+1.6... .CH| 00000F30: 4B 54 58 54 2B 32 00 6C 17 1C 07 20 C3 23 34 30 |KTXT+2.l... .#40| 00000F40: 3B 20 C1 4E 5A 41 48 4C 20 44 45 52 20 5A 55 20 |; .NZAHL DER ZU | 00000F50: 44 52 55 43 4B 45 4E 44 45 4E 20 DA 45 49 43 48 |DRUCKENDEN .EICH| 00000F60: 45 4E 20 45 52 4D 49 54 54 45 4C 4E 00 77 17 26 |EN ERMITTELN.w.&| 00000F70: 07 44 45 43 59 20 EC 00 A2 17 30 07 20 F0 43 48 |.DECY ....0. .CH| 00000F80: 4B 54 58 54 3B 20 53 4F 4C 41 4E 47 45 20 59 20 |KTXT; SOLANGE Y | 00000F90: 3E 3D 20 30 20 57 45 49 54 45 52 50 52 55 45 46 |>= 0 WEITERPRUEF| 00000FA0: 45 4E 00 CA 17 3A 07 20 D5 4E 45 58 54 4C 4E 3B |EN...:. .NEXTLN;| 00000FB0: 20 CC 45 45 52 5A 45 49 4C 45 2C 20 4E 55 52 20 | .EERZEILE, NUR | 00000FC0: C3 D2 20 44 52 55 43 4B 45 4E 00 FC 17 44 07 43 |.. DRUCKEN...D.C| 00000FD0: 48 4B 54 58 54 20 CA 24 46 46 46 46 2C 59 3B 20 |HKTXT .$FFFF,Y; | 00000FE0: DA 45 49 43 48 45 4E 20 41 55 53 20 C2 49 4C 44 |.EICHEN AUS .ILD| 00000FF0: 53 43 48 49 52 4D 20 4C 45 53 45 4E 00 0F 18 4E |SCHIRM LESEN...N| 00001000: 07 20 C4 23 33 32 3B 20 D3 50 41 43 45 20 3F 00 |. .#32; .PACE ?.| 00001010: 3C 18 58 07 20 F7 44 45 43 59 3B 20 DA 45 49 43 |<.X. .DECY; .EIC| 00001020: 48 45 4E 20 3D 20 D3 50 41 43 45 20 3D 3E 20 57 |HEN = .PACE => W| 00001030: 45 49 54 45 52 50 52 55 45 46 45 4E 00 42 18 62 |EITERPRUEFEN.B.b| 00001040: 07 3B 00 4D 18 6C 07 20 ED 3B 20 2B 31 00 6A 18 |.;.M.l. .; +1.j.| 00001050: 76 07 20 D4 4C 49 4D 49 54 2B 31 3B 20 D3 50 41 |v. .LIMIT+1; .PA| 00001060: 4C 54 45 20 4D 45 52 4B 45 4E 00 8F 18 80 07 3B |LTE MERKEN.....;| 00001070: 20 2A 2A 2A 20 59 20 4D 49 54 20 38 20 4D 55 4C | *** Y MIT 8 MUL| 00001080: 54 49 50 4C 49 5A 49 45 52 45 4E 20 2A 2A 2A 00 |TIPLIZIEREN ***.| 00001090: A4 18 8A 07 20 CA 23 24 30 30 3B 20 4E 32 2B 31 |.... .#$00; N2+1| 000010A0: 20 3D 20 30 00 AF 18 94 07 20 D2 4E 32 2B 31 00 | = 0..... .N2+1.| 000010B0: C7 18 9E 07 20 D9 3B 20 D3 50 41 4C 54 45 4E 20 |.... .; .PALTEN | 000010C0: 49 4E 20 C1 4B 4B 55 00 D3 18 A8 07 20 CB 3B 20 |IN .KKU..... .; | 000010D0: 2A 20 32 00 DF 18 B2 07 20 CB 3B 20 2A 20 32 00 |* 2..... .; * 2.| 000010E0: EB 18 BC 07 20 CB 3B 20 2A 20 32 00 01 19 C6 07 |.... .; * 2.....| 000010F0: 20 CF 4E 32 2B 31 3B 20 D5 45 42 45 52 54 52 41 | .N2+1; .EBERTRA| 00001100: 47 00 17 19 D0 07 20 D2 4E 31 2B 31 3B 20 D3 50 |G..... .N1+1; .P| 00001110: 45 49 43 48 45 52 4E 00 42 19 34 08 20 50 52 54 |EICHERN.B.4. PRT| 00001120: 54 41 42 3B 20 31 30 20 D3 50 41 43 45 20 44 52 |TAB; 10 .PACE DR| 00001130: 55 43 4B 45 4E 2C 20 4C 49 4E 4B 45 52 20 D2 41 |UCKEN, LINKER .A| 00001140: 4E 44 00 61 19 3E 08 20 45 53 43 3B 20 C7 52 41 |ND.a.>. ESC; .RA| 00001150: 46 49 4B 53 45 51 55 45 4E 5A 20 53 45 4E 44 45 |FIKSEQUENZ SENDE| 00001160: 4E 00 7E 19 48 08 20 50 52 49 4E 54 A0 34 32 3B |N.~.H. PRINT.42;| 00001170: 20 C5 D3 C3 20 2A 20 34 20 4E 31 20 4E 32 00 8B | ... * 4 N1 N2..| 00001180: 19 52 08 20 50 52 49 4E 54 A0 34 00 A6 19 5C 08 |.R. PRINT.4...\.| 00001190: 4E 31 20 50 52 49 4E 54 A0 34 30 3B 20 C4 55 4D |N1 PRINT.40; .UM| 000011A0: 4D 59 57 45 52 54 00 C1 19 66 08 4E 32 20 50 52 |MYWERT...f.N2 PR| 000011B0: 49 4E 54 A0 30 31 3B 20 C4 55 4D 4D 59 57 45 52 |INT.01; .UMMYWER| 000011C0: 54 00 DD 19 70 08 20 CA 23 30 3B 20 4D 45 4D 59 |T...p. .#0; MEMY| 000011D0: 20 41 55 46 20 30 20 53 45 54 5A 45 4E 00 09 1A | AUF 0 SETZEN...| 000011E0: 7A 08 20 D2 4D 45 4D 59 3B 20 4D 45 4D 59 3A 20 |z. .MEMY; MEMY: | 000011F0: CD 45 4D 4F 52 59 20 D9 2C 20 D3 50 45 49 43 48 |.EMORY ., .PEICH| 00001200: 45 52 20 46 55 45 52 20 D9 00 34 1A 84 08 3B 20 |ER FUER ..4...; | 00001210: 2A 2A 2A 20 DA 45 49 43 48 45 4E 20 41 55 53 20 |*** .EICHEN AUS | 00001220: C2 49 4C 44 53 43 48 49 52 4D 20 48 4F 4C 45 4E |.ILDSCHIRM HOLEN| 00001230: 20 2A 2A 2A 00 45 1A 8E 08 53 50 4C 4F 4F 50 20 | ***.E...SPLOOP | 00001240: C3 4D 45 4D 59 00 64 1A 98 08 54 45 58 54 42 53 |.MEMY.d...TEXTBS| 00001250: 20 CA 24 46 46 46 46 2C 59 3B 20 C4 55 4D 4D 59 | .$FFFF,Y; .UMMY| 00001260: 57 45 52 54 00 88 1A A2 08 3B 20 2A 2A 2A 20 C3 |WERT.....; *** .| 00001270: 48 41 52 50 4F 49 4E 54 45 52 20 42 45 52 45 43 |HARPOINTER BEREC| 00001280: 48 4E 45 4E 20 2A 2A 2A 00 A5 1A AC 08 20 C2 23 |HNEN ***..... .#| 00001290: 24 30 30 3B 20 4D 53 42 20 41 55 46 20 30 20 53 |$00; MSB AUF 0 S| 000012A0: 45 54 5A 45 4E 00 B4 1A B6 08 20 D3 43 50 4F 49 |ETZEN..... .CPOI| 000012B0: 4E 54 2B 32 00 CF 1A C0 08 20 CB 3B 20 C2 49 4C |NT+2..... .; .IL| 000012C0: 44 53 43 48 49 52 4D 43 4F 44 45 20 2A 20 38 00 |DSCHIRMCODE * 8.| 000012D0: DE 1A CA 08 20 CF 43 50 4F 49 4E 54 2B 32 00 E5 |.... .CPOINT+2..| 000012E0: 1A D4 08 20 CB 00 F4 1A DE 08 20 CF 43 50 4F 49 |... ...... .CPOI| 000012F0: 4E 54 2B 32 00 FB 1A E8 08 20 CB 00 0A 1B F2 08 |NT+2..... ......| 00001300: 20 CF 43 50 4F 49 4E 54 2B 32 00 37 1B FC 08 20 | .CPOINT+2.7... | 00001310: D2 43 50 4F 49 4E 54 2B 31 3B 20 CE 45 42 45 4E |.CPOINT+1; .EBEN| 00001320: 45 46 46 45 4B 54 3A 20 C3 41 52 52 59 20 47 45 |EFFEKT: .ARRY GE| 00001330: 4C 4F 45 53 43 48 54 00 63 1B 06 09 5A 53 20 CA |LOESCHT.c...ZS .| 00001340: 23 43 48 41 52 48 49 3B 20 4D 53 42 20 56 4F 4E |#CHARHI; MSB VON| 00001350: 20 DA 45 49 43 48 45 4E 53 41 54 5A 41 44 52 45 | .EICHENSATZADRE| 00001360: 53 53 45 00 72 1B 10 09 20 C5 43 50 4F 49 4E 54 |SSE.r... .CPOINT| 00001370: 2B 32 00 81 1B 1A 09 20 D2 43 50 4F 49 4E 54 2B |+2..... .CPOINT+| 00001380: 32 00 A1 1B 24 09 3B 20 2A 2A 2A 20 CB 4F 4E 46 |2...$.; *** .ONF| 00001390: 49 47 55 52 41 54 49 4F 4E 20 D2 C1 CD 20 2A 2A |IGURATION ... **| 000013A0: 2A 00 A8 1B 2E 09 20 E8 00 D2 1B 38 09 20 CA 24 |*..... ....8. .$| 000013B0: 30 31 3B 20 D0 52 4F 5A 45 53 53 4F 52 50 4F 52 |01; .ROZESSORPOR| 000013C0: 54 2D C1 55 53 47 41 42 45 20 D2 45 47 49 53 54 |T-.USGABE .EGIST| 000013D0: 45 52 00 E8 1B 42 09 20 D2 50 52 43 50 52 54 3B |ER...B. .PRCPRT;| 000013E0: 20 53 49 43 48 45 52 4E 00 0F 1C 4C 09 20 C6 23 | SICHERN...L. .#| 000013F0: 25 31 31 31 31 31 30 31 31 3B 20 CB 4F 4E 46 49 |%11111011; .ONFI| 00001400: 47 55 52 41 54 49 4F 4E 20 DA D3 2D D2 CF CD 00 |GURATION ..-....| 00001410: 19 1C 56 09 20 D2 24 30 31 00 38 1C 60 09 3B 20 |..V. .$01.8.`.; | 00001420: 2A 2A 2A 20 38 20 C2 59 54 45 53 20 53 50 49 45 |*** 8 .YTES SPIE| 00001430: 47 45 4C 4E 20 2A 2A 2A 00 52 1C 6A 09 20 C3 23 |GELN ***.R.j. .#| 00001440: 24 30 30 3B 20 C2 4C 4F 43 4B 53 43 48 4C 45 49 |$00; .LOCKSCHLEI| 00001450: 46 45 00 62 1C 74 09 54 55 52 4E 31 20 C2 23 24 |FE.b.t.TURN1 .#$| 00001460: 30 30 00 90 1C 7E 09 43 50 4F 49 4E 54 20 CA 24 |00...~.CPOINT .$| 00001470: 46 46 46 46 2C 59 3B 20 DA 45 49 43 48 45 4E 53 |FFFF,Y; .EICHENS| 00001480: 41 54 5A 2D C2 59 54 45 20 49 4E 20 C1 4B 4B 55 |ATZ-.YTE IN .KKU| 00001490: 00 AE 1C 88 09 54 55 52 4E 32 20 CB 3B 20 45 49 |.....TURN2 .; EI| 000014A0: 4E 20 C2 49 54 20 41 55 53 4C 45 53 45 4E 00 CF |N .IT AUSLESEN..| 000014B0: 1C 92 09 20 CF 43 48 52 2C 58 3B 20 C2 49 54 20 |... .CHR,X; .IT | 000014C0: 49 4E 20 C4 52 55 43 4B 45 52 2D C2 59 54 45 00 |IN .RUCKER-.YTE.| 000014D0: D6 1C 9C 09 20 EF 00 EA 1C A6 09 20 C0 23 24 30 |.... ...... .#$0| 000014E0: 38 3B 20 D8 20 3D 20 38 20 3F 00 1F 1D B0 09 20 |8; . = 8 ?..... | 000014F0: F6 54 55 52 4E 32 3B 20 D8 20 3C 3E 20 38 2C 20 |.TURN2; . <> 8, | 00001500: DA D3 2D C2 59 54 45 20 4E 4F 43 48 20 4E 49 43 |..-.YTE NOCH NIC| 00001510: 48 54 20 41 42 47 45 41 52 42 45 49 54 45 54 00 |HT ABGEARBEITET.| 00001520: 26 1D BA 09 20 ED 00 3A 1D C4 09 20 C1 23 24 30 |&... ..:... .#$0| 00001530: 38 3B 20 D9 20 3D 20 38 20 3F 00 6F 1D CE 09 20 |8; . = 8 ?.o... | 00001540: F6 54 55 52 4E 31 3B 20 59 20 3C 3E 20 38 2C 20 |.TURN1; Y <> 8, | 00001550: C4 52 55 43 4B 45 52 2D C2 59 54 45 53 20 4E 4F |.RUCKER-.YTES NO| 00001560: 43 48 20 4E 49 43 48 54 20 46 45 52 54 49 47 00 |CH NICHT FERTIG.| 00001570: 8F 1D D8 09 3B 20 2A 2A 2A 20 CB 4F 4E 46 49 47 |....; *** .ONFIG| 00001580: 55 52 41 54 49 4F 4E 20 D2 C1 CD A0 2A 2A 2A 00 |URATION ....***.| 00001590: B1 1D E2 09 20 CA 50 52 43 50 52 54 3B 20 D0 52 |.... .PRCPRT; .R| 000015A0: 4F 5A 45 53 53 4F 52 50 4F 52 54 53 54 41 54 55 |OZESSORPORTSTATU| 000015B0: 53 00 CD 1D EC 09 20 D2 24 30 31 3B 20 57 49 45 |S..... .$01; WIE| 000015C0: 44 45 52 48 45 52 53 54 45 4C 4C 45 4E 00 D4 1D |DERHERSTELLEN...| 000015D0: F6 09 20 E7 00 F2 1D 00 0A 3B 20 2A 2A 2A 20 38 |.. ......; *** 8| 000015E0: 20 C2 59 54 45 53 20 44 52 55 43 4B 45 4E 20 2A | .YTES DRUCKEN *| 000015F0: 2A 2A 00 08 1E 0A 0A 20 C2 23 24 30 30 3B 20 C9 |**..... .#$00; .| 00001600: 4E 44 45 58 20 3D 20 30 00 31 1E 14 0A 50 52 4E |NDEX = 0.1...PRN| 00001610: 54 20 CA 43 48 52 2C 58 3B 20 4C 41 44 45 20 58 |T .CHR,X; LADE X| 00001620: 2D 54 45 53 20 C4 52 55 43 4B 45 52 2D C2 59 54 |-TES .RUCKER-.YT| 00001630: 45 00 4B 1E 1E 0A 20 D6 24 46 46 44 32 3B 20 C2 |E.K... .$FFD2; .| 00001640: 59 54 45 20 44 52 55 43 4B 45 4E 00 52 1E 28 0A |YTE DRUCKEN.R.(.| 00001650: 20 EF 00 66 1E 32 0A 20 C0 23 24 30 38 3B 20 D8 | ..f.2. .#$08; .| 00001660: 20 3D 20 38 20 3F 00 89 1E 3C 0A 20 F6 50 52 4E | = 8 ?...<. .PRN| 00001670: 54 3B 20 4E 41 45 43 48 53 54 45 53 20 C2 59 54 |T; NAECHSTES .YT| 00001680: 45 20 44 52 55 43 4B 45 4E 00 AA 1E 46 0A 3B 20 |E DRUCKEN...F.; | 00001690: 2A 2A 2A 20 50 52 55 45 46 45 4E 20 41 55 46 20 |*** PRUEFEN AUF | 000016A0: D3 50 41 4C 54 45 20 2A 2A 2A 00 BF 1E 50 0A 20 |.PALTE ***...P. | 000016B0: C9 4D 45 4D 59 3B 20 4D 45 4D 59 20 2B 20 31 00 |.MEMY; MEMY + 1.| 000016C0: CA 1E 5A 0A 20 C3 4D 45 4D 59 00 F8 1E 64 0A 4C |..Z. .MEMY...d.L| 000016D0: 49 4D 49 54 20 C1 23 34 30 3B 20 D3 43 48 4F 4E |IMIT .#40; .CHON| 000016E0: 20 41 4C 4C 45 20 D3 50 41 4C 54 45 4E 20 42 45 | ALLE .PALTEN BE| 000016F0: 41 52 42 45 49 54 45 54 00 27 1F 6E 0A 20 F6 53 |ARBEITET.'.n. .S| 00001700: 50 4C 4F 4F 50 3B 20 4E 45 49 4E 2C 20 4E 41 45 |PLOOP; NEIN, NAE| 00001710: 43 48 53 54 45 20 D3 50 41 4C 54 45 20 42 45 41 |CHSTE .PALTE BEA| 00001720: 52 42 45 49 54 45 4E 00 47 1F 78 0A 3B 20 2A 2A |RBEITEN.G.x.; **| 00001730: 2A 20 50 52 55 45 46 45 4E 20 41 55 46 20 DA 45 |* PRUEFEN AUF .E| 00001740: 49 4C 45 20 2A 2A 2A 00 64 1F 82 0A 4E 45 58 54 |ILE ***.d...NEXT| 00001750: 4C 4E 20 C9 5A 45 49 4C 45 3B 20 DA 45 49 4C 45 |LN .ZEILE; .EILE| 00001760: 20 2B 20 31 00 70 1F 8C 0A 20 CA 5A 45 49 4C 45 | + 1.p... .ZEILE| 00001770: 00 88 1F 96 0A 20 C4 23 32 35 3B 20 DA 45 49 4C |..... .#25; .EIL| 00001780: 45 20 3D 20 32 35 20 3F 00 B5 1F A0 0A 20 F7 48 |E = 25 ?..... .H| 00001790: 43 4C 4F 53 45 3B 20 4A 41 20 3D 3E 20 C8 41 52 |CLOSE; JA => .AR| 000017A0: 44 43 4F 50 59 20 46 45 52 54 49 47 20 3D 3E 20 |DCOPY FERTIG => | 000017B0: 43 4C 4F 53 45 00 CE 1F AA 0A 3B 20 2A 2A 2A 20 |CLOSE.....; *** | 000017C0: DA 45 49 4C 45 20 2B 20 34 30 20 2A 2A 2A 00 E2 |.EILE + 40 ***..| 000017D0: 1F B4 0A 20 CA 54 45 58 54 42 53 2B 31 3B 20 4C |... .TEXTBS+1; L| 000017E0: 53 42 00 06 20 BE 0A 20 C5 23 34 30 3B 20 C3 41 |SB.. .. .#40; .A| 000017F0: 52 52 59 2D C6 4C 41 47 20 57 41 52 20 47 45 4C |RRY-.LAG WAR GEL| 00001800: 4F 45 53 43 48 54 00 20 20 C8 0A 20 D2 54 45 58 |OESCHT. .. .TEX| 00001810: 54 42 53 2B 31 3B 20 53 50 45 49 43 48 45 52 4E |TBS+1; SPEICHERN| 00001820: 00 3A 20 D2 0A 20 F4 4E 4F 54 49 4E 43 3B 20 D5 |.: .. .NOTINC; .| 00001830: 45 42 45 52 54 52 41 47 20 3F 00 65 20 DC 0A 20 |EBERTRAG ?.e .. | 00001840: C9 54 45 58 54 42 53 2B 32 3B 20 D5 45 42 45 52 |.TEXTBS+2; .EBER| 00001850: 54 52 41 47 20 42 45 52 55 45 43 4B 53 49 43 48 |TRAG BERUECKSICH| 00001860: 54 49 47 45 4E 00 7E 20 E6 0A 4E 4F 54 49 4E 43 |TIGEN.~ ..NOTINC| 00001870: 20 43 52 3B 20 C3 D2 20 53 45 4E 44 45 4E 00 9B | CR; .. SENDEN..| 00001880: 20 F0 0A 20 D5 4C 4E 4C 4F 4F 50 3B 20 4E 41 45 | .. .LNLOOP; NAE| 00001890: 43 48 53 54 45 20 DA 45 49 4C 45 00 AE 20 FA 0A |CHSTE .EILE.. ..| 000018A0: 3B 20 2A 2A 2A 20 C5 4E 44 45 20 2A 2A 2A 00 C7 |; *** .NDE ***..| 000018B0: 20 04 0B 48 43 4C 4F 53 45 20 43 52 3B 20 C3 D2 | ..HCLOSE CR; ..| 000018C0: 20 53 45 4E 44 45 4E 00 DE 20 0E 0B 20 CA 23 24 | SENDEN.. .. .#$| 000018D0: 30 34 3B 20 C6 49 4C 45 4E 55 4D 4D 45 52 00 FA |04; .ILENUMMER..| 000018E0: 20 18 0B 20 43 4C 4F 53 45 3B 20 C6 49 4C 45 20 | .. CLOSE; .ILE | 000018F0: 53 43 48 4C 49 45 53 53 45 4E 00 07 21 22 0B 20 |SCHLIESSEN..!". | 00001900: E3 3B 20 C5 4E 44 45 00 1E 21 2C 0B 3B 20 2A 2A |.; .NDE..!,.; **| 00001910: 2A 20 D4 41 42 45 4C 4C 45 4E 20 2A 2A 2A 00 3A |* .ABELLEN ***.:| 00001920: 21 36 0B 5A 45 49 4C 45 20 A5 30 3B 20 DA 45 49 |!6.ZEILE .0; .EI| 00001930: 4C 45 4E 5A 41 45 48 4C 45 52 00 5D 21 40 0B 50 |LENZAEHLER.]!@.P| 00001940: 52 43 50 52 54 20 A5 30 3B 20 D0 52 4F 5A 45 53 |RCPRT .0; .ROZES| 00001950: 53 4F 52 50 4F 52 54 53 54 41 54 55 53 00 85 21 |SORPORTSTATUS..!| 00001960: 4A 0B 43 48 52 20 A5 30 2C 30 2C 30 2C 30 2C 30 |J.CHR .0,0,0,0,0| 00001970: 2C 30 2C 30 2C 30 3B 20 C4 52 55 43 4B 45 52 2D |,0,0,0; .RUCKER-| 00001980: C2 59 54 45 53 00 AA 21 54 0B 4D 45 4D 59 20 A5 |.YTES..!T.MEMY .| 00001990: 30 3B 20 DA 57 49 53 43 48 45 4E 53 50 45 49 43 |0; .WISCHENSPEIC| 000019A0: 48 45 52 20 46 55 45 52 20 D9 00 00 00 |HER FUER .... |
..<.D.; *** PHOTOPRINT, BILDSCHIRM-FOTO ALS TEXTHARDCOPY ***.B.N.;.X.X.; *** MAK RO'S ***.^...;.I....$7000.U....CHRGET.. . V$73............CHRGOT..... V$79...H. ....R..CHKCOM..... V$AEFD.......K....GET BYT.W... V$B79B............ERROR..... U$ AF08...".....,..PRINT MWERT...6. J#MWERT .$.@. V$FFD2.*.J...3.T..ESC.Q.^. PRINT 2 7; ESC = CHR$(27).W.H..._.R..CR.|.|. PRI NT 13; CR = CHR$(13).....; EVENTUELL: PR INT 10 ; LF = CHR$(10)............OPEN .D... V$FFC0.J.....V....SETFLS...B. V$FF BA...L.....V..CHKOUT..... V$FFC9........ ....CLRCH..... V$FFCC.#..........CLOSE.: ... V$FFC3.@.&...L.0..PRTTAB.B.:. B#10; 10 SPALTEN...D.MPRINT PRINT 32; PRINT SP ACE...N. ....X. .MPRINT...B.....L..SCREE N=$0400...V..CHARHI=$D0.E...;.....; *** PARAMETER HOLEN ***.....;.....; *** STAN DARDWERTE ***.&... J#$04; BILDSCHIRM BEI $0400.B... RBS+1; BS-STANDARDWERT.D... J#$D0; ZEICHENSATZ BEI $D000...F. RZS+1; ZS-STANDARDWERT...P. J#$01; SEKUNDAERAD RESSE 1...Z. RSA+1; SA-STANDARDWERT..... ; *** PARAMETERSCHLEIFE ***.....PARAM CH RGOT; WELCHES ZEICHEN FOLGT ?.8... D#44; EIN KOMMA ? WENN JA, DANN EIN PARAMETER .H... .IRQ; KEIN PARAMETER MEHR => ZUM I NTERRUPT..... CHKCOM; KOMMA UEBERLESEN.. ... CHRGOT; WELCHES ZEICHEN FOLGT.H. . D #66; 'B', BS-PARAMETER ?...*. .BSIN; BS- PARAMETER ERFASSEN...4. D#90; 'Z', ZS-PA RAMETER ?.+.>. .ZSIN; ZS-PARAMETER ERFAS SEN.J.H. D#83; 'S', SA-PARAMETER ?.L.R. .SAIN; SA-PARAMETER ERFASSEN...\.ERR ERR OR; FALSCHER PARAMETER...F.; *** BS-PARA METER ***.G.P.BSIN CHRGET; B UEBERLESEN. ..Z. CHRGOT; NAECHSTES ZEICHEN..... D#83 ; 'S', EIN S ?..... .ERR; FALSCHE SYNTAX .2... CHRGET; S UEBERLESEN.Q... CHRGOT; NAECHSTES ZEICHEN.L... D#178; TOKEN FUER '='..... .ERR; FALSCHE SYNTAX..... GETB YT; PARAMETERWERT HOLEN...J. SBS+1; SPEI CHERN...T. UPARAM; ZURUECK ZUR PARAMETER -SCHLEIFE.....; *** ZS-PARAMETER ***.".. .ZSIN CHRGET; Z UEBERLESEN.A... CHRGOT; NAECHSTES ZEICHEN.Y... D#83; 'S', EIN S ?.S... .ERR; FALSCHE SYNTAX..... CHRGET; S UEBERLESEN..... CHRGOT; NAECHSTES ZEI CHEN.G.$. D#178; TOKEN FUER '='..... .ER R; FALSCHE SYNTAX...8. GETBYT; PARAMETER WERT HOLEN...B. SZS+1; SPEICHERN.D.L. UP ARAM; ZURUECK ZUR PARAMETER-SCHLEIFE._.V .; *** SA-PARAMETER ***.}.`.SAIN CHRGET; S UEBERLESEN...J. CHRGOT; NAECHSTES ZEI CHEN...T. D#65; 'A', EIN A ?.N.~. .ERR; FALSCHE SYNTAX..... CHRGET; A UEBERLESEN ..... CHRGOT; NAECHSTES ZEICHEN."... D#1 78; TOKEN FUER '='.<... .ERR; FALSCHE SY NTAX.]... GETBYT; PARAMETERWERT HOLEN.S. .. SSA+1; SPEICHERN...D. UPARAM; ZURUECK ZUR PARAMETER-SCHLEIFE...N.;.L.X.; *** INTERRUPT INITIALISIEREN ***.R...;.....I RQ ...... J#<(START); LSB DER NEUEN INTE RRUPT-ROUTINE."... C#>(START); MSB.D... R$0314; LSB INTERRUPT-VEKTOR.U... T$0315 ; MSB.\... ..Y.(. .; ENDE DES SYS-BEFEHL S..2.;...<.; *** NEUE INTERRUPTROUTINE ***...F.;.F.P.START J$C5; LETZTE TASTE.. .Z. D#$3C; CODE FUER SPACE...D. .IRQEND; NACH $EA31...N. J$028D; FLAG FUER SHIFT .3.X. D#01; CODE FUER SHIFT.M... .BEGIN; ZUR HARDCOPY.Y...IRQEND U$EA31; ZUR NOR MALEN IRQ-ROUTINE....;... .BEGIN J#$00; TASTE LOESCHEN..... R$C5; AKTUELLE TAST E..... R$C6; TASTATURPUFFER LOESCHEN.... . R$028D; SHIFT-FLAG LOESCHEN...H. VHC; HARDCOPY.<.R. U$EA81; INTERRUPT-ENDE, RE GISTER HOLEN.B...;.E...; *** DRUCKERKANA L OEFFNEN ***.K...;.....HC J#$04; FILENU MMER..... B#$04; GERAETEADRESSE.....SA C #$01; SEKUDAERADRESSE..... SETFLS; FILEP ARAMETER SETZEN...". OPEN; FILE OEFFNEN. ..,. B#$04; FILENUMMER.!.6. CHKOUT; CMD 4.'.@.;.E.J.; *** INITIALISIERUNG ***.K. T.;...^. PRINT 24; CAN = CHR$(24) DRUCKE RPUFFER LOESCHEN...H. ESC; ESC KLAMMERAF FE...R. PRINT 64; 64 = KLAMMERAFFE.B.|. CR.....; *** BILDSCHIRMWERTE INITIALISIE REN ***..... J#<(SCREEN); LSB.)...BS C#> (SCREEN); MSB, DUMMY-WERT.8... RTEXTBS+1 .G... TTEXTBS+2.R... J#$00.Q.B. RZEILE; ZEILENZAEHLER = 0.W.L.;...V.; *** ZEILEN SCHLEIFE ***.....;.D...; *** GRAFIKMODUS FUER EINE ZEILE ***.....LNLOOP JTEXTBS+ 1; ZEILENSCHLEIFE..... CTEXTBS+2; MOMENT ANE TEXTADRESSE KOPIEREN.'... RCHKTXT+1. 6... TCHKTXT+2.L... C#40; ANZAHL DER ZU DRUCKENDEN ZEICHEN ERMITTELN.W.&.DECY .. ..0. .CHKTXT; SOLANGE Y >= 0 WEITERPRUEF EN.J.:. UNEXTLN; LEERZEILE, NUR CR DRUCK EN...D.CHKTXT J$FFFF,Y; ZEICHEN AUS BILD SCHIRM LESEN...N. D#32; SPACE ?.<.X. .DE CY; ZEICHEN = SPACE => WEITERPRUEFEN.B.B .;.M.L. .; +1.J.V. TLIMIT+1; SPALTE MERK EN.....; *** Y MIT 8 MULTIPLIZIEREN ***. .... J#$00; N2+1 = 0..... RN2+1.G... Y; SPALTEN IN AKKU.S... K; * 2..... K; * 2. .... K; * 2...F. ON2+1; UEBERTRAG...P. R N1+1; SPEICHERN.B.4. PRTTAB; 10 SPACE DR UCKEN, LINKER RAND.A.>. ESC; GRAFIKSEQUE NZ SENDEN.~.H. PRINT 42; ESC * 4 N1 N2.. .R. PRINT 4...\.N1 PRINT 40; DUMMYWERT.A .F.N2 PRINT 01; DUMMYWERT...P. J#0; MEMY AUF 0 SETZEN...Z. RMEMY; MEMY: MEMORY Y , SPEICHER FUER Y.4...; *** ZEICHEN AUS BILDSCHIRM HOLEN ***.E...SPLOOP CMEMY.D. ..TEXTBS J$FFFF,Y; DUMMYWERT.....; *** C HARPOINTER BERECHNEN ***..... B#$00; MSB AUF 0 SETZEN..... SCPOINT+2.O... K; BIL DSCHIRMCODE * 8...J. OCPOINT+2...T. K... .. OCPOINT+2..... K..... OCPOINT+2.7... RCPOINT+1; NEBENEFFEKT: CARRY GELOESCHT. C...ZS J#CHARHI; MSB VON ZEICHENSATZADRE SSE.R... ECPOINT+2..... RCPOINT+2...$.; *** KONFIGURATION RAM ***..... ..R.8. J$ 01; PROZESSORPORT-AUSGABE REGISTER...B. RPRCPRT; SICHERN...L. F#%11111011; KONFI GURATION ZS-ROM...V. R$01.8.`.; *** 8 BY TES SPIEGELN ***.R.J. C#$00; BLOCKSCHLEI FE.B.T.TURN1 B#$00...~.CPOINT J$FFFF,Y; ZEICHENSATZ-BYTE IN AKKU.....TURN2 K; EI N BIT AUSLESEN.O... OCHR,X; BIT IN DRUCK ER-BYTE.V... ...... .#$08; X = 8 ?..... .TURN2; X <> 8, ZS-BYTE NOCH NICHT ABGEA RBEITET.&... ..:.D. A#$08; Y = 8 ?.O.N. .TURN1; Y <> 8, DRUCKER-BYTES NOCH NICHT FERTIG...X.; *** KONFIGURATION RAM ***. .... JPRCPRT; PROZESSORPORTSTATUS.M... R $01; WIEDERHERSTELLEN.T... ......; *** 8 BYTES DRUCKEN ***..... B#$00; INDEX = 0 .1...PRNT JCHR,X; LADE X-TES DRUCKER-BYT E.K... V$FFD2; BYTE DRUCKEN.R.(. ..F.2. .#$08; X = 8 ?...<. .PRNT; NAECHSTES BYT E DRUCKEN...F.; *** PRUEFEN AUF SPALTE * **...P. IMEMY; MEMY + 1.J.Z. CMEMY...D.L IMIT A#40; SCHON ALLE SPALTEN BEARBEITET .'.N. .SPLOOP; NEIN, NAECHSTE SPALTE BEA RBEITEN.G.X.; *** PRUEFEN AUF ZEILE ***. D...NEXTLN IZEILE; ZEILE + 1.P... JZEILE ..... D#25; ZEILE = 25 ?... . .HCLOSE; J A => HARDCOPY FERTIG => CLOSE.N...; *** ZEILE + 40 ***..... JTEXTBS+1; LSB.. .. E#40; CARRY-FLAG WAR GELOESCHT. H. RTEX TBS+1; SPEICHERN.: R. .NOTINC; UEBERTRAG ?.E .. ITEXTBS+2; UEBERTRAG BERUECKSICH TIGEN.~ ..NOTINC CR; CR SENDEN.. .. ULNL OOP; NAECHSTE ZEILE.. ..; *** ENDE ***.G ..HCLOSE CR; CR SENDEN.. .. J#$04; FILE NUMMER.. .. CLOSE; FILE SCHLIESSEN..!". .; ENDE..!,.; *** TABELLEN ***.:!6.ZEILE .0; ZEILENZAEHLER.]!@.PRCPRT .0; PROZES SORPORTSTATUS..!J.CHR .0,0,0,0,0,0,0,0; DRUCKER-BYTES..!T.MEMY .0; ZWISCHENSPEIC HER FUER Y...
> CLICK IMAGE PREVIEW FOR FULL MODAL