Multiple names: LISTING 3, LISTING 5
FILE INFORMATION
FILENAME(S):
• LISTING 3<br>• LISTING 5
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 01:12:34
APPEARS ON: 2 disk(s)
FILE HASH
34cebbecbf8433ef813ef9bfbf11e1b6e35be5eb620c864a00a76f8390c7c76f
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 4 86 | LISTING 3 | PRG | C64er | 20 | 6 | DOWNLOAD FILE |
| AUSGABE 4 86 | LISTING 5 | PRG | C64er | 15 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 0A 00 2E A3 31 2C 34 3B 49 4E 20 48 |..!.....1,4;IN H| 00000010: 59 50 52 41 2D 41 53 53 3A 20 2E 4C 49 20 31 2C |YPRA-ASS: .LI 1,| 00000020: 34 00 45 08 14 00 2E 90 24 43 30 30 30 3B 49 4E |4.E.....$C000;IN| 00000030: 20 48 59 50 52 41 2D 41 53 53 3A 20 2E 42 41 20 | HYPRA-ASS: .BA | 00000040: 24 43 30 30 30 00 70 08 1E 00 3B 2A 2A 2A 2A 2A |$C000.p...;*****| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000070: 00 9A 08 28 00 3B 20 56 45 52 53 43 48 41 43 48 |...(.; VERSCHACH| 00000080: 54 45 4C 54 45 20 53 43 48 4C 45 49 46 45 4E 20 |TELTE SCHLEIFEN | 00000090: 20 41 4E 57 45 4E 44 55 4E 47 00 BD 08 32 00 3B | ANWENDUNG...2.;| 000000A0: 20 41 4C 4C 47 45 4D 45 49 4E 45 52 20 42 49 4C | ALLGEMEINER BIL| 000000B0: 44 53 43 48 49 52 4D 52 41 48 4D 45 4E 00 E8 08 |DSCHIRMRAHMEN...| 000000C0: 3C 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |<.;*************| 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 00 EE 08 46 00 3B 00 3A |********...F.;.:| 000000F0: 09 50 00 3B 4C 41 47 45 52 50 4C 41 54 5A 20 46 |.P.;LAGERPLATZ F| 00000100: 55 45 52 20 44 49 45 20 5A 45 49 43 48 45 4E 3A |UER DIE ZEICHEN:| 00000110: 20 28 48 50 59 52 41 2D 41 53 53 20 4A 45 57 45 | (HPYRA-ASS JEWE| 00000120: 49 4C 53 3A 20 2E 45 51 20 43 4F 44 45 31 20 3D |ILS: .EQ CODE1 =| 00000130: 20 24 31 42 20 55 53 57 2E 29 00 59 09 5A 00 2E | $1B USW.).Y.Z..| 00000140: 8F 43 4F 44 45 31 3D 24 31 42 3B 5A 45 49 43 48 |.CODE1=$1B;ZEICH| 00000150: 45 4E 20 CF 20 3D 20 34 46 00 78 09 64 00 2E 8F |EN . = 4F.x.d...| 00000160: 43 4F 44 45 32 3D 24 31 43 3B 5A 45 49 43 48 45 |CODE2=$1C;ZEICHE| 00000170: 4E 20 B7 20 3D 20 37 37 00 97 09 6E 00 2E 8F 43 |N . = 77...n...C| 00000180: 4F 44 45 33 3D 24 31 44 3B 5A 45 49 43 48 45 4E |ODE3=$1D;ZEICHEN| 00000190: 20 D0 20 3D 20 35 30 00 B6 09 78 00 2E 8F 43 4F | . = 50...x...CO| 000001A0: 44 45 34 3D 24 31 45 3B 5A 45 49 43 48 45 4E 20 |DE4=$1E;ZEICHEN | 000001B0: A5 20 3D 20 37 34 00 D5 09 82 00 2E 8F 43 4F 44 |. = 74.......COD| 000001C0: 45 35 3D 24 31 46 3B 5A 45 49 43 48 45 4E 20 A7 |E5=$1F;ZEICHEN .| 000001D0: 20 3D 20 36 41 00 F4 09 8C 00 2E 8F 43 4F 44 45 | = 6A.......CODE| 000001E0: 36 3D 24 32 30 3B 5A 45 49 43 48 45 4E 20 CC 20 |6=$20;ZEICHEN . | 000001F0: 3D 20 34 43 00 13 0A 96 00 2E 8F 43 4F 44 45 37 |= 4C.......CODE7| 00000200: 3D 24 32 31 3B 5A 45 49 43 48 45 4E 20 AF 20 3D |=$21;ZEICHEN . =| 00000210: 20 36 46 00 32 0A A0 00 2E 8F 43 4F 44 45 38 3D | 6F.2.....CODE8=| 00000220: 24 32 32 3B 5A 45 49 43 48 45 4E 20 BA 20 3D 20 |$22;ZEICHEN . = | 00000230: 37 41 00 5E 0A AA 00 3B 56 45 4B 54 4F 52 45 4E |7A.^...;VEKTOREN| 00000240: 20 46 55 45 52 20 42 49 4C 44 43 48 49 52 4D 2D | FUER BILDCHIRM-| 00000250: 20 55 4E 44 20 46 41 52 42 2D 52 41 4D 3A 00 7F | UND FARB-RAM:..| 00000260: 0A B4 00 2E 8F 53 43 52 45 45 4E 3D 24 46 42 3B |.....SCREEN=$FB;| 00000270: 42 49 4C 44 53 43 48 49 52 4D 53 54 41 52 54 00 |BILDSCHIRMSTART.| 00000280: 9C 0A BE 00 2E 8F 43 4F 4C 4F 52 3D 24 46 44 3B |......COLOR=$FD;| 00000290: 46 41 52 42 52 41 4D 53 54 41 52 54 00 AA 0A C8 |FARBRAMSTART....| 000002A0: 00 3B 5A 41 45 48 4C 45 52 3A 00 D3 0A D2 00 2E |.;ZAEHLER:......| 000002B0: 8F 48 4F 52 49 5A 3D 24 32 33 3B 5A 41 45 48 4C |.HORIZ=$23;ZAEHL| 000002C0: 45 52 20 46 55 45 52 20 48 4F 52 49 5A 4F 4E 54 |ER FUER HORIZONT| 000002D0: 41 4C 45 00 F9 0A DC 00 2E 8F 56 45 52 54 3D 24 |ALE.......VERT=$| 000002E0: 32 34 3B 5A 41 45 48 4C 45 52 20 46 55 45 52 20 |24;ZAEHLER FUER | 000002F0: 56 45 52 54 49 4B 41 4C 45 00 2E 0B E6 00 3B 44 |VERTIKALE.....;D| 00000300: 45 52 20 46 41 52 42 43 4F 44 45 20 57 49 52 44 |ER FARBCODE WIRD| 00000310: 20 4E 55 52 20 49 4D 20 58 2D 52 45 47 49 53 54 | NUR IM X-REGIST| 00000320: 45 52 20 47 45 53 50 45 49 43 48 45 52 54 00 34 |ER GESPEICHERT.4| 00000330: 0B F0 00 3B 00 59 0B FA 00 3B 44 45 46 49 4E 49 |...;.Y...;DEFINI| 00000340: 54 49 4F 4E 20 45 49 4E 45 53 20 4D 41 4B 52 4F |TION EINES MAKRO| 00000350: 3A 20 41 4B 54 55 45 4C 4C 00 92 0B 04 01 3B 49 |: AKTUELL.....;I| 00000360: 4E 20 48 59 50 52 41 2D 41 53 53 20 53 54 41 54 |N HYPRA-ASS STAT| 00000370: 54 44 45 53 53 45 4E 3A 20 2E 4D 41 20 41 4B 54 |TDESSEN: .MA AKT| 00000380: 55 45 4C 4C 28 53 43 52 45 45 4E 2C 43 4F 4C 4F |UELL(SCREEN,COLO| 00000390: 52 29 00 AE 0B 0E 01 2E 95 41 4B 54 55 45 4C 4C |R).......AKTUELL| 000003A0: 28 53 43 52 45 45 4E 2C 43 4F 4C 4F 52 29 00 B5 |(SCREEN,COLOR)..| 000003B0: 0B 18 01 20 A6 00 BC 0B 22 01 20 9A 00 C9 0B 2C |... ....". ....,| 000003C0: 01 20 86 53 43 52 45 45 4E 00 D6 0B 36 01 20 82 |. .SCREEN...6. .| 000003D0: 53 43 52 45 45 4E 00 E5 0B 40 01 20 81 53 43 52 |SCREEN...@. .SCR| 000003E0: 45 45 4E 2B 31 00 F0 0B 4A 01 20 86 23 24 30 30 |EEN+1...J. .#$00| 000003F0: 00 FF 0B 54 01 20 82 53 43 52 45 45 4E 2B 31 00 |...T. .SCREEN+1.| 00000400: 06 0C 5E 01 20 A6 00 0D 0C 68 01 20 9A 00 19 0C |..^. ....h. ....| 00000410: 72 01 20 86 43 4F 4C 4F 52 00 25 0C 7C 01 20 82 |r. .COLOR.%.|. .| 00000420: 43 4F 4C 4F 52 00 33 0C 86 01 20 81 43 4F 4C 4F |COLOR.3... .COLO| 00000430: 52 2B 31 00 3E 0C 90 01 20 86 23 24 30 30 00 4C |R+1.>... .#$00.L| 00000440: 0C 9A 01 20 82 43 4F 4C 4F 52 2B 31 00 57 0C A4 |... .COLOR+1.W..| 00000450: 01 20 84 23 24 30 30 00 70 0C AE 01 2E 98 3B 49 |. .#$00.p.....;I| 00000460: 4E 20 48 59 50 52 41 2D 41 53 53 3A 20 2E 52 54 |N HYPRA-ASS: .RT| 00000470: 00 76 0C B8 01 3B 00 8A 0C C2 01 3B 4E 55 4E 20 |.v...;.....;NUN | 00000480: 47 45 48 54 53 20 4C 4F 53 3A 00 90 0C CC 01 3B |GEHTS LOS:.....;| 00000490: 00 C1 0C D6 01 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.....;----------| 000004A0: 2D 2D 2D 2D 20 49 4E 49 54 49 41 4C 49 53 49 45 |---- INITIALISIE| 000004B0: 52 55 4E 47 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |RUNG -----------| 000004C0: 2D 00 C7 0C E0 01 3B 00 EA 0C EA 01 20 83 23 24 |-.....;..... .#$| 000004D0: 30 32 3B 46 41 52 42 43 4F 44 45 20 49 4E 53 20 |02;FARBCODE INS | 000004E0: 58 2D 52 45 47 49 53 54 45 52 00 19 0D F4 01 20 |X-REGISTER..... | 000004F0: 81 23 24 34 46 3B 41 4C 4C 45 20 5A 45 49 43 48 |.#$4F;ALLE ZEICH| 00000500: 45 4E 20 49 4E 20 44 49 45 20 53 50 45 49 43 48 |EN IN DIE SPEICH| 00000510: 45 52 20 50 41 43 4B 45 4E 00 25 0D FE 01 20 82 |ER PACKEN.%... .| 00000520: 43 4F 44 45 31 00 30 0D 08 02 20 81 23 24 37 37 |CODE1.0... .#$77| 00000530: 00 3C 0D 12 02 20 82 43 4F 44 45 32 00 47 0D 1C |.<... .CODE2.G..| 00000540: 02 20 81 23 24 35 30 00 53 0D 26 02 20 82 43 4F |. .#$50.S.&. .CO| 00000550: 44 45 33 00 5E 0D 30 02 20 81 23 24 37 34 00 6A |DE3.^.0. .#$74.j| 00000560: 0D 3A 02 20 82 43 4F 44 45 34 00 75 0D 44 02 20 |.:. .CODE4.u.D. | 00000570: 81 23 24 36 41 00 81 0D 4E 02 20 82 43 4F 44 45 |.#$6A...N. .CODE| 00000580: 35 00 8C 0D 58 02 20 81 23 24 34 43 00 98 0D 62 |5...X. .#$4C...b| 00000590: 02 20 82 43 4F 44 45 36 00 A3 0D 6C 02 20 81 23 |. .CODE6...l. .#| 000005A0: 24 36 46 00 AF 0D 76 02 20 82 43 4F 44 45 37 00 |$6F...v. .CODE7.| 000005B0: BA 0D 80 02 20 81 23 24 37 41 00 C6 0D 8A 02 20 |.... .#$7A..... | 000005C0: 82 43 4F 44 45 38 00 E5 0D 94 02 20 81 23 24 30 |.CODE8..... .#$0| 000005D0: 30 3B 4C 53 42 20 42 49 4C 44 53 43 48 49 52 4D |0;LSB BILDSCHIRM| 000005E0: 53 54 41 52 54 00 F2 0D 9E 02 20 82 53 43 52 45 |START..... .SCRE| 000005F0: 45 4E 00 11 0E A8 02 20 81 23 24 30 34 3B 4D 53 |EN..... .#$04;MS| 00000600: 42 20 42 49 4C 44 53 43 48 49 52 4D 53 54 41 52 |B BILDSCHIRMSTAR| 00000610: 54 00 20 0E B2 02 20 82 53 43 52 45 45 4E 2B 31 |T. ... .SCREEN+1| 00000620: 00 3C 0E BC 02 20 81 23 24 30 30 3B 4C 53 42 20 |.<... .#$00;LSB | 00000630: 46 41 52 42 52 41 4D 53 54 41 52 54 00 48 0E C6 |FARBRAMSTART.H..| 00000640: 02 20 82 43 4F 4C 4F 52 00 64 0E D0 02 20 81 23 |. .COLOR.d... .#| 00000650: 24 44 38 3B 4D 53 42 20 46 41 52 42 52 41 4D 53 |$D8;MSB FARBRAMS| 00000660: 54 41 52 54 00 72 0E DA 02 20 82 43 4F 4C 4F 52 |TART.r... .COLOR| 00000670: 2B 31 00 92 0E E4 02 20 81 23 33 39 3B 53 54 45 |+1..... .#39;STE| 00000680: 4C 4C 45 4E 5A 41 48 4C 20 50 52 4F 20 5A 45 49 |LLENZAHL PRO ZEI| 00000690: 4C 45 00 9E 0E EE 02 20 82 48 4F 52 49 5A 00 B5 |LE..... .HORIZ..| 000006A0: 0E F8 02 20 81 23 32 33 3B 5A 45 49 4C 45 4E 5A |... .#23;ZEILENZ| 000006B0: 41 48 4C 2D 32 00 C0 0E 02 03 20 82 56 45 52 54 |AHL-2..... .VERT| 000006C0: 00 DC 0E 0C 03 20 84 23 24 30 30 3B 5A 41 45 48 |..... .#$00;ZAEH| 000006D0: 4C 45 52 20 41 55 46 20 4E 55 4C 4C 00 E2 0E 16 |LER AUF NULL....| 000006E0: 03 3B 00 17 0F 20 03 3B 2D 2D 2D 2D 2D 2D 2D 2D |.;... .;--------| 000006F0: 2D 2D 2D 2D 20 4E 55 4E 20 4B 4F 4D 4D 45 4E 20 |---- NUN KOMMEN | 00000700: 44 49 45 20 4A 4F 42 53 3A 20 2D 2D 2D 2D 2D 2D |DIE JOBS: ------| 00000710: 2D 2D 2D 2D 2D 2D 2D 00 40 0F 2A 03 3B 4A 4F 42 |-------.@.*.;JOB| 00000720: 20 31 3A 20 42 45 53 43 48 52 45 49 42 45 4E 20 | 1: BESCHREIBEN | 00000730: 44 45 52 20 4F 42 45 52 45 4E 20 5A 45 49 4C 45 |DER OBEREN ZEILE| 00000740: 00 61 0F 34 03 20 81 43 4F 44 45 31 3B 31 2E 5A |.a.4. .CODE1;1.Z| 00000750: 45 49 43 48 45 4E 20 4C 49 4E 4B 53 20 4F 42 45 |EICHEN LINKS OBE| 00000760: 4E 00 7F 0F 3E 03 20 82 28 53 43 52 45 45 4E 29 |N...>. .(SCREEN)| 00000770: 2C 59 3B 45 49 4E 53 43 48 52 45 49 42 45 4E 00 |,Y;EINSCHREIBEN.| 00000780: 8F 0F 48 03 20 98 3B 46 41 52 42 43 4F 44 45 00 |..H. .;FARBCODE.| 00000790: BA 0F 52 03 20 82 28 43 4F 4C 4F 52 29 2C 59 3B |..R. .(COLOR),Y;| 000007A0: 49 4E 20 46 41 52 42 52 41 4D 53 54 45 4C 4C 45 |IN FARBRAMSTELLE| 000007B0: 20 53 43 48 52 45 49 42 45 4E 00 D2 0F 5C 03 20 | SCHREIBEN...\. | 000007C0: 9E 3B 5A 41 45 48 4C 45 52 20 45 52 48 4F 45 48 |.;ZAEHLER ERHOEH| 000007D0: 45 4E 00 F7 0F 66 03 4D 41 52 4B 45 31 20 81 43 |EN...f.MARKE1 .C| 000007E0: 4F 44 45 32 3B 32 2E 5A 45 49 43 48 45 4E 20 45 |ODE2;2.ZEICHEN E| 000007F0: 49 4E 4C 41 44 45 4E 00 1D 10 70 03 20 82 28 53 |INLADEN...p. .(S| 00000800: 43 52 45 45 4E 29 2C 59 3B 45 49 4E 45 20 4B 4C |CREEN),Y;EINE KL| 00000810: 45 49 4E 45 20 53 43 48 4C 45 49 46 45 00 24 10 |EINE SCHLEIFE.$.| 00000820: 7A 03 20 98 00 48 10 84 03 20 82 28 43 4F 4C 4F |z. ..H... .(COLO| 00000830: 52 29 2C 59 3B 46 41 52 42 52 41 4D 20 42 45 53 |R),Y;FARBRAM BES| 00000840: 43 48 52 45 49 42 45 4E 00 4F 10 8E 03 20 9E 00 |CHREIBEN.O... ..| 00000850: 6E 10 98 03 20 93 48 4F 52 49 5A 3B 49 53 54 20 |n... .HORIZ;IST | 00000860: 59 20 53 43 48 4F 4E 20 3E 20 33 38 20 3F 00 94 |Y SCHON > 38 ?..| 00000870: 10 A2 03 20 B5 4D 41 52 4B 45 31 3B 57 45 4E 4E |... .MARKE1;WENN| 00000880: 20 4E 49 43 48 54 2C 20 57 45 49 54 45 52 4D 41 | NICHT, WEITERMA| 00000890: 43 48 45 4E 00 BC 10 AC 03 20 81 43 4F 44 45 33 |CHEN..... .CODE3| 000008A0: 3B 4C 45 54 5A 54 45 53 20 5A 45 49 43 48 45 4E |;LETZTES ZEICHEN| 000008B0: 20 4F 42 45 52 45 20 5A 45 49 4C 45 00 E8 10 B6 | OBERE ZEILE....| 000008C0: 03 20 82 28 53 43 52 45 45 4E 29 2C 59 3B 4E 41 |. .(SCREEN),Y;NA| 000008D0: 43 48 20 52 45 43 48 54 53 20 4F 42 45 4E 20 53 |CH RECHTS OBEN S| 000008E0: 43 48 52 45 49 42 45 4E 00 EF 10 C0 03 20 98 00 |CHREIBEN..... ..| 000008F0: 19 11 CA 03 20 82 28 43 4F 4C 4F 52 29 2C 59 3B |.... .(COLOR),Y;| 00000900: 57 49 45 44 45 52 20 46 41 52 42 43 4F 44 45 20 |WIEDER FARBCODE | 00000910: 45 49 4E 54 52 41 47 45 4E 00 20 11 D4 03 20 9E |EINTRAGEN. ... .| 00000920: 00 5A 11 DE 03 3B 44 41 53 20 57 41 52 20 44 49 |.Z...;DAS WAR DI| 00000930: 45 20 45 52 53 54 45 20 5A 45 49 4C 45 2E 20 4E |E ERSTE ZEILE. N| 00000940: 55 4E 20 4B 4F 4D 4D 45 4E 20 44 49 45 20 53 45 |UN KOMMEN DIE SE| 00000950: 49 54 45 4E 4C 49 4E 49 45 4E 00 7D 11 E8 03 3B |ITENLINIEN.}...;| 00000960: 4A 4F 42 20 32 3A 20 42 45 53 43 48 52 45 49 42 |JOB 2: BESCHREIB| 00000970: 45 4E 20 44 45 52 20 53 45 49 54 45 4E 00 83 11 |EN DER SEITEN...| 00000980: F2 03 3B 00 8E 11 FC 03 4D 41 52 4B 45 32 00 BB |..;.....MARKE2..| 00000990: 11 06 04 2E 97 41 4B 54 55 45 4C 4C 28 53 43 52 |.....AKTUELL(SCR| 000009A0: 45 45 4E 2C 43 4F 4C 4F 52 29 3B 41 55 46 52 55 |EEN,COLOR);AUFRU| 000009B0: 46 20 44 45 53 20 4D 41 4B 52 4F 00 E7 11 0B 04 |F DES MAKRO.....| 000009C0: 3B 49 4E 20 48 59 50 52 41 2D 41 53 53 3A 20 2E |;IN HYPRA-ASS: .| 000009D0: 2E 2E 41 4B 54 55 45 4C 4C 28 53 43 52 45 45 4E |..AKTUELL(SCREEN| 000009E0: 2C 43 4F 4C 4F 52 29 00 24 12 10 04 3B 44 41 4D |,COLOR).$...;DAM| 000009F0: 49 54 20 57 45 52 44 45 4E 20 44 49 45 20 56 45 |IT WERDEN DIE VE| 00000A00: 4B 54 4F 52 45 4E 20 53 43 52 45 45 4E 20 55 4E |KTOREN SCREEN UN| 00000A10: 44 20 43 4F 4C 4F 52 20 41 4B 54 55 41 4C 49 53 |D COLOR AKTUALIS| 00000A20: 49 45 52 54 00 4B 12 1A 04 20 81 43 4F 44 45 34 |IERT.K... .CODE4| 00000A30: 3B 34 2E 5A 45 49 43 48 45 4E 20 46 55 45 52 20 |;4.ZEICHEN FUER | 00000A40: 4C 49 4E 4B 45 4E 20 52 41 4E 44 00 66 12 24 04 |LINKEN RAND.f.$.| 00000A50: 20 82 28 53 43 52 45 45 4E 29 2C 59 3B 45 49 4E | .(SCREEN),Y;EIN| 00000A60: 54 52 41 47 45 4E 00 7E 12 2E 04 20 98 3B 55 4E |TRAGEN.~... .;UN| 00000A70: 44 20 44 45 4E 20 46 41 52 42 43 4F 44 45 00 98 |D DEN FARBCODE..| 00000A80: 12 38 04 20 82 28 43 4F 4C 4F 52 29 2C 59 3B 45 |.8. .(COLOR),Y;E| 00000A90: 42 45 4E 46 41 4C 4C 53 00 C1 12 42 04 4D 41 52 |BENFALLS...B.MAR| 00000AA0: 4B 45 33 20 9E 3B 5A 41 45 48 4C 45 52 20 53 43 |KE3 .;ZAEHLER SC| 00000AB0: 48 4E 45 4C 4C 20 48 4F 43 48 5A 41 45 48 4C 45 |HNELL HOCHZAEHLE| 00000AC0: 4E 00 E0 12 4C 04 20 93 48 4F 52 49 5A 3B 49 53 |N...L. .HORIZ;IS| 00000AD0: 54 20 59 20 53 43 48 4F 4E 20 3E 20 33 38 20 3F |T Y SCHON > 38 ?| 00000AE0: 00 07 13 56 04 20 B5 4D 41 52 4B 45 33 3B 57 45 |...V. .MARKE3;WE| 00000AF0: 4E 4E 20 4E 49 43 48 54 2C 20 57 45 49 54 45 52 |NN NICHT, WEITER| 00000B00: 5A 41 45 48 4C 45 4E 00 35 13 60 04 20 81 43 4F |ZAEHLEN.5.`. .CO| 00000B10: 44 45 35 3B 53 4F 4E 53 54 20 35 2E 5A 45 49 43 |DE5;SONST 5.ZEIC| 00000B20: 48 45 4E 20 46 55 45 52 20 52 45 43 48 54 45 4E |HEN FUER RECHTEN| 00000B30: 20 52 41 4E 44 00 50 13 6A 04 20 82 28 53 43 52 | RAND.P.j. .(SCR| 00000B40: 45 45 4E 29 2C 59 3B 45 49 4E 54 52 41 47 45 4E |EEN),Y;EINTRAGEN| 00000B50: 00 64 13 74 04 20 98 3B 55 4E 44 20 46 41 52 42 |.d.t. .;UND FARB| 00000B60: 43 4F 44 45 00 7F 13 7E 04 20 82 28 43 4F 4C 4F |CODE...~. .(COLO| 00000B70: 52 29 2C 59 3B 49 4E 20 46 41 52 42 52 41 4D 00 |R),Y;IN FARBRAM.| 00000B80: 86 13 88 04 20 9E 00 A7 13 92 04 20 94 56 45 52 |.... ...... .VER| 00000B90: 54 3B 4D 49 54 5A 41 45 48 4C 45 4E 20 44 45 52 |T;MITZAEHLEN DER| 00000BA0: 20 5A 45 49 4C 45 4E 00 D9 13 9C 04 20 B7 4D 41 | ZEILEN..... .MA| 00000BB0: 52 4B 45 32 3B 4E 41 45 43 48 53 54 45 20 5A 45 |RKE2;NAECHSTE ZE| 00000BC0: 49 4C 45 2C 20 57 45 4E 4E 20 4E 4F 43 48 20 4E |ILE, WENN NOCH N| 00000BD0: 49 43 48 54 20 4E 55 4C 4C 00 0E 14 A6 04 3B 41 |ICHT NULL.....;A| 00000BE0: 4E 53 4F 4E 53 54 45 4E 20 53 49 4E 44 20 4E 55 |NSONSTEN SIND NU| 00000BF0: 4E 20 42 45 49 44 45 20 53 45 49 54 45 4E 4C 49 |N BEIDE SEITENLI| 00000C00: 4E 49 45 4E 20 56 4F 52 48 41 4E 44 45 4E 00 38 |NIEN VORHANDEN.8| 00000C10: 14 B0 04 3B 4A 4F 42 20 33 3A 20 42 45 53 43 48 |...;JOB 3: BESCH| 00000C20: 52 45 49 42 45 4E 20 44 45 52 20 4C 45 54 5A 54 |REIBEN DER LETZT| 00000C30: 45 4E 20 5A 45 49 4C 45 00 75 14 BA 04 3B 44 41 |EN ZEILE.u...;DA| 00000C40: 5A 55 20 4E 4F 43 48 4D 41 4C 20 4D 41 4B 52 4F |ZU NOCHMAL MAKRO| 00000C50: 41 55 46 52 55 46 20 5A 55 4D 20 41 4B 54 55 41 |AUFRUF ZUM AKTUA| 00000C60: 4C 49 53 49 45 52 45 4E 20 44 45 52 20 56 45 4B |LISIEREN DER VEK| 00000C70: 54 4F 52 45 4E 00 A5 14 C4 04 2E 97 41 4B 54 55 |TOREN.......AKTU| 00000C80: 45 4C 4C 28 53 43 52 45 45 4E 2C 43 4F 4C 4F 52 |ELL(SCREEN,COLOR| 00000C90: 29 3B 44 49 45 53 20 49 53 54 20 44 45 52 20 41 |);DIES IST DER A| 00000CA0: 55 46 52 55 46 00 D8 14 C9 04 3B 49 4E 20 48 59 |UFRUF.....;IN HY| 00000CB0: 50 52 41 2D 41 53 53 20 57 49 45 44 45 52 3A 20 |PRA-ASS WIEDER: | 00000CC0: 2E 2E 2E 41 4B 54 55 45 4C 4C 28 53 43 52 45 45 |...AKTUELL(SCREE| 00000CD0: 4E 2C 43 4F 4C 4F 52 29 00 F0 14 CE 04 3B 4E 55 |N,COLOR).....;NU| 00000CE0: 4E 20 4B 4F 4D 4D 54 20 44 45 52 20 4A 4F 42 3A |N KOMMT DER JOB:| 00000CF0: 00 12 15 D8 04 20 81 43 4F 44 45 36 3B 36 2E 5A |..... .CODE6;6.Z| 00000D00: 45 49 43 48 45 4E 20 4C 49 4E 4B 53 20 55 4E 54 |EICHEN LINKS UNT| 00000D10: 45 4E 00 30 15 E2 04 20 82 28 53 43 52 45 45 4E |EN.0... .(SCREEN| 00000D20: 29 2C 59 3B 45 49 4E 53 43 48 52 45 49 42 45 4E |),Y;EINSCHREIBEN| 00000D30: 00 4B 15 EC 04 20 98 3B 57 49 45 44 45 52 20 44 |.K... .;WIEDER D| 00000D40: 45 4E 20 46 41 52 42 43 4F 44 45 00 71 15 F6 04 |EN FARBCODE.q...| 00000D50: 20 82 28 43 4F 4C 4F 52 29 2C 59 3B 49 4E 53 20 | .(COLOR),Y;INS | 00000D60: 46 41 52 42 52 41 4D 20 53 43 48 52 45 49 42 45 |FARBRAM SCHREIBE| 00000D70: 4E 00 91 15 00 05 20 9E 3B 55 4E 44 20 44 45 4E |N..... .;UND DEN| 00000D80: 20 5A 41 45 48 4C 45 52 20 45 52 48 4F 45 48 45 | ZAEHLER ERHOEHE| 00000D90: 4E 00 AD 15 0A 05 4D 41 52 4B 45 34 20 81 43 4F |N.....MARKE4 .CO| 00000DA0: 44 45 37 3B 37 2E 5A 45 49 43 48 45 4E 00 D9 15 |DE7;7.ZEICHEN...| 00000DB0: 14 05 20 82 28 53 43 52 45 45 4E 29 2C 59 3B 45 |.. .(SCREEN),Y;E| 00000DC0: 49 4E 54 52 41 47 45 4E 2E 20 4B 4C 45 49 4E 45 |INTRAGEN. KLEINE| 00000DD0: 20 53 43 48 4C 45 49 46 45 00 E0 15 1E 05 20 98 | SCHLEIFE..... .| 00000DE0: 00 F8 15 28 05 20 82 28 43 4F 4C 4F 52 29 2C 59 |...(. .(COLOR),Y| 00000DF0: 3B 46 41 52 42 52 41 4D 00 FF 15 32 05 20 9E 00 |;FARBRAM...2. ..| 00000E00: 18 16 3C 05 20 93 48 4F 52 49 5A 3B 53 43 48 4F |..<. .HORIZ;SCHO| 00000E10: 4E 20 3E 20 33 38 20 3F 00 3E 16 46 05 20 B5 4D |N > 38 ?.>.F. .M| 00000E20: 41 52 4B 45 34 3B 57 45 4E 4E 20 4E 49 43 48 54 |ARKE4;WENN NICHT| 00000E30: 2C 20 57 45 49 54 45 52 4D 41 43 48 45 4E 00 60 |, WEITERMACHEN.`| 00000E40: 16 50 05 20 81 43 4F 44 45 38 3B 53 4F 4E 53 54 |.P. .CODE8;SONST| 00000E50: 20 4C 45 54 5A 54 45 53 20 5A 45 49 43 48 45 4E | LETZTES ZEICHEN| 00000E60: 00 8D 16 5A 05 20 82 28 53 43 52 45 45 4E 29 2C |...Z. .(SCREEN),| 00000E70: 59 3B 4E 41 43 48 20 52 45 43 48 54 53 20 55 4E |Y;NACH RECHTS UN| 00000E80: 54 45 4E 20 53 43 48 52 45 49 42 45 4E 00 AA 16 |TEN SCHREIBEN...| 00000E90: 64 05 20 98 3B 55 4E 44 20 41 55 43 48 20 44 45 |d. .;UND AUCH DE| 00000EA0: 4E 20 46 41 52 42 43 4F 44 45 00 D0 16 6E 05 20 |N FARBCODE...n. | 00000EB0: 82 28 43 4F 4C 4F 52 29 2C 59 3B 49 4E 53 20 46 |.(COLOR),Y;INS F| 00000EC0: 41 52 42 52 41 4D 20 45 49 4E 54 52 41 47 45 4E |ARBRAM EINTRAGEN| 00000ED0: 00 D6 16 78 05 3B 00 F6 16 82 05 3B 44 41 4D 49 |...x.;.....;DAMI| 00000EE0: 54 20 49 53 54 20 44 49 45 20 41 52 42 45 49 54 |T IST DIE ARBEIT| 00000EF0: 20 47 45 54 41 4E 00 3A 17 8C 05 3B 2D 2D 2D 2D | GETAN.:...;----| 00000F00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 41 55 53 47 |----------- AUSG| 00000F10: 41 4E 47 20 45 49 4E 46 41 43 48 20 44 55 52 43 |ANG EINFACH DURC| 00000F20: 48 20 42 52 4B 20 28 4D 4F 4E 49 54 4F 52 21 29 |H BRK (MONITOR!)| 00000F30: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 40 17 96 05 3B | ---------.@...;| 00000F40: 00 47 17 A0 05 20 B0 00 4D 17 AA 05 3B 00 6D 17 |.G... ..M...;.m.| 00000F50: B4 05 2E A4 31 2C 34 3B 49 4E 20 48 59 50 52 41 |....1,4;IN HYPRA| 00000F60: 2D 41 53 53 3A 20 2E 53 59 20 31 2C 34 00 00 00 |-ASS: .SY 1,4...|
..!.....1,4;IN HYPRA-ASS: .LI 1,4.E..... $C000;IN HYPRA-ASS: .BA $C000.P...;***** ********************************...(.; V ERSCHACHTELTE SCHLEIFEN ANWENDUNG...2.; ALLGEMEINER BILDSCHIRMRAHMEN...<.;***** ********************************...F.;.: .P.;LAGERPLATZ FUER DIE ZEICHEN: (HPYRA- ASS JEWEILS: .EQ CODE1 = $1B USW.).Y.Z.. .CODE1=$1B;ZEICHEN O = 4F.X.D...CODE2=$1 C;ZEICHEN . = 77...N...CODE3=$1D;ZEICHEN P = 50...X...CODE4=$1E;ZEICHEN . = 74.U .....CODE5=$1F;ZEICHEN . = 6A.......CODE 6=$20;ZEICHEN L = 4C.......CODE7=$21;ZEI CHEN . = 6F.2. ...CODE8=$22;ZEICHEN . = 7A.^...;VEKTOREN FUER BILDCHIRM- UND FAR B-RAM:......SCREEN=$FB;BILDSCHIRMSTART. ......COLOR=$FD;FARBRAMSTART...H.;ZAEHLE R:.S.R...HORIZ=$23;ZAEHLER FUER HORIZONT ALE.......VERT=$24;ZAEHLER FUER VERTIKAL E.....;DER FARBCODE WIRD NUR IM X-REGIST ER GESPEICHERT.4...;.Y...;DEFINITION EIN ES MAKRO: AKTUELL.....;IN HYPRA-ASS STAT TDESSEN: .MA AKTUELL(SCREEN,COLOR)...... .AKTUELL(SCREEN,COLOR)..... ....". ..I., . .SCREEN.V.6. .SCREEN...@. .SCREEN+1... J. .#$00...T. .SCREEN+1...^. ....H. .... R. .COLOR.%.|. .COLOR.3... .COLOR+1.>... .#$00.L... .COLOR+1.W... .#$00.P.....;I N HYPRA-ASS: .RT.V...;...B.;NUN GEHTS LO S:...L.;.A.V.;-------------- INITIALISIE RUNG ------------.G...;..... .#$02;FARBC ODE INS X-REGISTER..... .#$4F;ALLE ZEICH EN IN DIE SPEICHER PACKEN.%... .CODE1.0. .. .#$77.<... .CODE2.G... .#$50.S.&. .CO DE3.^.0. .#$74.J.:. .CODE4.U.D. .#$6A... N. .CODE5...X. .#$4C...B. .CODE6...L. .# $6F...V. .CODE7..... .#$7A.F... .CODE8.. ... .#$00;LSB BILDSCHIRMSTART..... .SCRE EN..... .#$04;MSB BILDSCHIRMSTART. ... . SCREEN+1.<... .#$00;LSB FARBRAMSTART.H.F . .COLOR.D.P. .#$D8;MSB FARBRAMSTART.R.Z . .COLOR+1..... .#39;STELLENZAHL PRO ZEI LE..... .HORIZ..... .#23;ZEILENZAHL-2... .. .VERT..... .#$00;ZAEHLER AUF NULL.... .;... .;------------ NUN KOMMEN DIE JOBS : -------------.@.*.;JOB 1: BESCHREIBEN DER OBEREN ZEILE.A.4. .CODE1;1.ZEICHEN L INKS OBEN..>. .(SCREEN),Y;EINSCHREIBEN. ..H. .;FARBCODE...R. .(COLOR),Y;IN FARBR AMSTELLE SCHREIBEN.R.\. .;ZAEHLER ERHOEH EN...F.MARKE1 .CODE2;2.ZEICHEN EINLADEN. ..P. .(SCREEN),Y;EINE KLEINE SCHLEIFE.$. Z. ..H... .(COLOR),Y;FARBRAM BESCHREIBEN .O... ..N... .HORIZ;IST Y SCHON > 38 ?.. ... .MARKE1;WENN NICHT, WEITERMACHEN.... . .CODE3;LETZTES ZEICHEN OBERE ZEILE.... . .(SCREEN),Y;NACH RECHTS OBEN SCHREIBEN ..... ....J. .(COLOR),Y;WIEDER FARBCODE EINTRAGEN. .T. ..Z...;DAS WAR DIE ERSTE ZEILE. NUN KOMMEN DIE SEITENLINIEN.}...; JOB 2: BESCHREIBEN DER SEITEN.....;..... MARKE2.......AKTUELL(SCREEN,COLOR);AUFRU F DES MAKRO.....;IN HYPRA-ASS: ...AKTUEL L(SCREEN,COLOR).$...;DAMIT WERDEN DIE VE KTOREN SCREEN UND COLOR AKTUALISIERT.K.. . .CODE4;4.ZEICHEN FUER LINKEN RAND.F.$. .(SCREEN),Y;EINTRAGEN.~... .;UND DEN FA RBCODE...8. .(COLOR),Y;EBENFALLS.A.B.MAR KE3 .;ZAEHLER SCHNELL HOCHZAEHLEN...L. . HORIZ;IST Y SCHON > 38 ?...V. .MARKE3;WE NN NICHT, WEITERZAEHLEN.5.`. .CODE5;SONS T 5.ZEICHEN FUER RECHTEN RAND.P.J. .(SCR EEN),Y;EINTRAGEN.D.T. .;UND FARBCODE..~ . .(COLOR),Y;IN FARBRAM..... ...... .VER T;MITZAEHLEN DER ZEILEN.Y... .MARKE2;NAE CHSTE ZEILE, WENN NOCH NICHT NULL.....;A NSONSTEN SIND NUN BEIDE SEITENLINIEN VOR HANDEN.8...;JOB 3: BESCHREIBEN DER LETZT EN ZEILE.U...;DAZU NOCHMAL MAKROAUFRUF Z UM AKTUALISIEREN DER VEKTOREN...D...AKTU ELL(SCREEN,COLOR);DIES IST DER AUFRUF.X. I.;IN HYPRA-ASS WIEDER: ...AKTUELL(SCREE N,COLOR)...N.;NUN KOMMT DER JOB:...X. .C ODE6;6.ZEICHEN LINKS UNTEN.0... .(SCREEN ),Y;EINSCHREIBEN.K... .;WIEDER DEN FARBC ODE.Q... .(COLOR),Y;INS FARBRAM SCHREIBE N..... .;UND DEN ZAEHLER ERHOEHEN.....MA RKE4 .CODE7;7.ZEICHEN.Y... .(SCREEN),Y;E INTRAGEN. KLEINE SCHLEIFE..... ....(. .( COLOR),Y;FARBRAM...2. ....<. .HORIZ;SCHO N > 38 ?.>.F. .MARKE4;WENN NICHT, WEITER MACHEN.`.P. .CODE8;SONST LETZTES ZEICHEN ...Z. .(SCREEN),Y;NACH RECHTS UNTEN SCHR EIBEN...D. .;UND AUCH DEN FARBCODE.P.N. .(COLOR),Y;INS FARBRAM EINTRAGEN.V.X.;.. ...;DAMIT IST DIE ARBEIT GETAN.:...;---- ----------- AUSGANG EINFACH DURCH BRK (M ONITOR!) ---------.@...;.G. . ..M...;.M. ....1,4;IN HYPRA-ASS: .SY 1,4...
> CLICK IMAGE PREVIEW FOR FULL MODAL