LISTING 18
FILE INFORMATION
FILENAME(S): LISTING 18
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 01:13:14
APPEARS ON: 1 disk(s)
FILE HASH
2f6e52ccf19dd3c67a3a2226cf1c880addfab10d4cbe79f92c73f79f607593bf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15721 SEITE A | LISTING 18 | PRG | C64er | 3 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0F 62 19 62 0A 00 2E A3 31 2C 34 00 3D 62 14 00 |.b.b....1,4.=b..|
00000010: 2E 90 24 43 30 30 30 3B 49 4E 20 48 59 50 52 41 |..$C000;IN HYPRA|
00000020: 2D 41 53 53 3A 20 2E 42 41 20 24 43 30 30 30 00 |-ASS: .BA $C000.|
00000030: 68 62 1E 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |hb..;***********|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 92 62 28 00 3B |**********..b(.;|
00000060: 20 56 45 52 53 43 48 41 43 48 54 45 4C 54 45 20 | VERSCHACHTELTE |
00000070: 53 43 48 4C 45 49 46 45 4E 20 20 41 4E 57 45 4E |SCHLEIFEN ANWEN|
00000080: 44 55 4E 47 00 B5 62 32 00 3B 20 41 4C 4C 47 45 |DUNG..b2.; ALLGE|
00000090: 4D 45 49 4E 45 52 20 42 49 4C 44 53 43 48 49 52 |MEINER BILDSCHIR|
000000A0: 4D 52 41 48 4D 45 4E 00 E0 62 3C 00 3B 2A 2A 2A |MRAHMEN..b<.;***|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 00 E6 62 46 00 3B 00 32 63 50 00 3B 4C 41 |**..bF.;.2cP.;LA|
000000E0: 47 45 52 50 4C 41 54 5A 20 46 55 45 52 20 44 49 |GERPLATZ FUER DI|
000000F0: 45 20 5A 45 49 43 48 45 4E 3A 20 28 48 50 59 52 |E ZEICHEN: (HPYR|
00000100: 41 2D 41 53 53 20 4A 45 57 45 49 4C 53 3A 20 2E |A-ASS JEWEILS: .|
00000110: 45 51 20 43 4F 44 45 31 20 3D 20 24 31 42 20 55 |EQ CODE1 = $1B U|
00000120: 53 57 2E 29 00 51 63 5A 00 2E 8F 43 4F 44 45 31 |SW.).QcZ...CODE1|
00000130: 3D 24 31 42 3B 5A 45 49 43 48 45 4E 20 CF 20 3D |=$1B;ZEICHEN . =|
00000140: 20 34 46 00 70 63 64 00 2E 8F 43 4F 44 45 32 3D | 4F.pcd...CODE2=|
00000150: 24 31 43 3B 5A 45 49 43 48 45 4E 20 B7 20 3D 20 |$1C;ZEICHEN . = |
00000160: 37 37 00 8F 63 6E 00 2E 8F 43 4F 44 45 33 3D 24 |77..cn...CODE3=$|
00000170: 31 44 3B 5A 45 49 43 48 45 4E 20 D0 20 3D 20 35 |1D;ZEICHEN . = 5|
00000180: 30 00 AE 63 78 00 2E 8F 43 4F 44 45 34 3D 24 31 |0..cx...CODE4=$1|
00000190: 45 3B 5A 45 49 43 48 45 4E 20 A5 20 3D 20 37 34 |E;ZEICHEN . = 74|
000001A0: 00 CD 63 82 00 2E 8F 43 4F 44 45 35 3D 24 31 46 |..c....CODE5=$1F|
000001B0: 3B 5A 45 49 43 48 45 4E 20 A7 20 3D 20 36 41 00 |;ZEICHEN . = 6A.|
000001C0: EC 63 8C 00 2E 8F 43 4F 44 45 36 3D 24 32 30 3B |.c....CODE6=$20;|
000001D0: 5A 45 49 43 48 45 4E 20 CC 20 3D 20 34 43 00 0B |ZEICHEN . = 4C..|
000001E0: 64 96 00 2E 8F 43 4F 44 45 37 3D 24 32 31 3B 5A |d....CODE7=$21;Z|
000001F0: 45 49 43 48 45 4E 20 AF 20 3D 20 36 46 00 2A 64 |EICHEN . = 6F.*d|
00000200: A0 00 2E 8F 43 4F 44 45 38 3D 24 32 32 3B 5A 45 |....CODE8=$22;ZE|
00000210: 49 43 48 45 4E 20 BA 20 3D 20 37 41 00 56 64 AA |ICHEN . = 7A.Vd.|
00000220: 00 3B 56 45 4B 54 4F 52 45 4E 20 46 55 45 52 20 |.;VEKTOREN FUER |
00000230: 42 49 4C 44 43 48 49 52 4D 2D 20 55 4E 44 20 46 |BILDCHIRM- UND F|
00000240: 41 52 42 2D 52 41 4D 3A 00 77 64 B4 00 2E 8F 53 |ARB-RAM:.wd....S|
00000250: 43 52 45 45 4E 3D 24 46 42 3B 42 49 4C 44 53 43 |CREEN=$FB;BILDSC|
00000260: 48 49 52 4D 53 54 41 52 54 00 94 64 BE 00 2E 8F |HIRMSTART..d....|
00000270: 43 4F 4C 4F 52 3D 24 46 44 3B 46 41 52 42 52 41 |COLOR=$FD;FARBRA|
00000280: 4D 53 54 41 52 54 00 A2 64 C8 00 3B 5A 41 45 48 |MSTART..d..;ZAEH|
00000290: 4C 45 52 3A 00 CB 64 D2 00 2E 8F 48 4F 52 49 5A |LER:..d....HORIZ|
000002A0: 3D 24 32 33 3B 5A 41 45 48 4C 45 52 20 46 55 45 |=$23;ZAEHLER FUE|
000002B0: 52 20 48 4F 52 49 5A 4F 4E 54 41 4C 45 00 F1 64 |R HORIZONTALE..d|
000002C0: DC 00 2E 8F 56 45 52 54 3D 24 32 34 3B 5A 41 45 |....VERT=$24;ZAE|
000002D0: 48 4C 45 52 20 46 55 45 52 20 56 45 52 54 49 4B |HLER FUER VERTIK|
000002E0: 41 4C 45 00 26 65 E6 00 3B 44 45 52 20 46 41 52 |ALE.&e..;DER FAR|
000002F0: 42 43 4F 44 45 20 57 49 52 44 20 4E 55 52 20 49 |BCODE WIRD NUR I|
00000300: 4D 20 58 2D 52 45 47 49 53 54 45 52 20 47 45 53 |M X-REGISTER GES|
00000310: 50 45 49 43 48 45 52 54 00 2C 65 F0 00 3B 00 51 |PEICHERT.,e..;.Q|
00000320: 65 FA 00 3B 44 45 46 49 4E 49 54 49 4F 4E 20 45 |e..;DEFINITION E|
00000330: 49 4E 45 53 20 4D 41 4B 52 4F 3A 20 41 4B 54 55 |INES MAKRO: AKTU|
00000340: 45 4C 4C 00 8A 65 04 01 3B 49 4E 20 48 59 50 52 |ELL..e..;IN HYPR|
00000350: 41 2D 41 53 53 20 53 54 41 54 54 44 45 53 53 45 |A-ASS STATTDESSE|
00000360: 4E 3A 20 2E 4D 41 20 41 4B 54 55 45 4C 4C 28 53 |N: .MA AKTUELL(S|
00000370: 43 52 45 45 4E 2C 43 4F 4C 4F 52 29 00 A6 65 0E |CREEN,COLOR)..e.|
00000380: 01 2E 95 41 4B 54 55 45 4C 4C 28 53 43 52 45 45 |...AKTUELL(SCREE|
00000390: 4E 2C 43 4F 4C 4F 52 29 00 AD 65 18 01 20 A6 00 |N,COLOR)..e.. ..|
000003A0: B4 65 22 01 20 9A 00 C1 65 2C 01 20 86 53 43 52 |.e". ...e,. .SCR|
000003B0: 45 45 4E 00 CE 65 36 01 20 82 53 43 52 45 45 4E |EEN..e6. .SCREEN|
000003C0: 00 DD 65 40 01 20 81 53 43 52 45 45 4E 2B 31 00 |..e@. .SCREEN+1.|
000003D0: E8 65 4A 01 20 86 23 24 30 30 00 F7 65 54 01 20 |.eJ. .#$00..eT. |
000003E0: 82 53 43 52 45 45 4E 2B 31 00 FE 65 5E 01 20 A6 |.SCREEN+1..e^. .|
000003F0: 00 05 66 68 01 20 9A 00 11 66 72 01 20 86 43 4F |..fh. ...fr. .CO|
00000400: 4C 4F 52 00 1D 66 7C 01 20 82 43 4F 4C 4F 52 00 |LOR..f|. .COLOR.|
00000410: 2B 66 86 01 20 81 43 4F 4C 4F 52 2B 31 00 36 66 |+f.. .COLOR+1.6f|
00000420: 90 01 20 86 23 24 30 30 00 44 66 9A 01 20 82 43 |.. .#$00.Df.. .C|
00000430: 4F 4C 4F 52 2B 31 00 4F 66 A4 01 20 84 23 24 30 |OLOR+1.Of.. .#$0|
00000440: 30 00 68 66 AE 01 2E 98 3B 49 4E 20 48 59 50 52 |0.hf....;IN HYPR|
00000450: 41 2D 41 53 53 3A 20 2E 52 54 00 6E 66 B8 01 3B |A-ASS: .RT.nf..;|
00000460: 00 82 66 C2 01 3B 4E 55 4E 20 47 45 48 54 53 20 |..f..;NUN GEHTS |
00000470: 4C 4F 53 3A 00 88 66 CC 01 3B 00 B9 66 D6 01 3B |LOS:..f..;..f..;|
00000480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 49 |-------------- I|
00000490: 4E 49 54 49 41 4C 49 53 49 45 52 55 4E 47 20 2D |NITIALISIERUNG -|
000004A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 BF 66 E0 01 |-----------..f..|
000004B0: 3B 00 E2 66 EA 01 20 83 23 24 30 32 3B 46 41 52 |;..f.. .#$02;FAR|
000004C0: 42 43 4F 44 45 20 49 4E 53 20 58 2D 52 45 47 49 |BCODE INS X-REGI|
000004D0: 53 54 45 52 00 11 67 F4 01 20 81 23 24 34 46 3B |STER..g.. .#$4F;|
000004E0: 41 4C 4C 45 20 5A 45 49 43 48 45 4E 20 49 4E 20 |ALLE ZEICHEN IN |
000004F0: 44 49 45 20 53 50 45 49 43 48 45 52 20 50 41 43 |DIE SPEICHER PAC|
00000500: 4B 45 4E 00 1D 67 FE 01 20 82 43 4F 44 45 31 00 |KEN..g.. .CODE1.|
00000510: 28 67 08 02 20 81 23 24 37 37 00 34 67 12 02 20 |(g.. .#$77.4g.. |
00000520: 82 43 4F 44 45 32 00 3F 67 1C 02 20 81 23 24 35 |.CODE2.?g.. .#$5|
00000530: 30 00 4B 67 26 02 20 82 43 4F 44 45 33 00 56 67 |0.Kg&. .CODE3.Vg|
00000540: 30 02 20 81 23 24 37 34 00 62 67 3A 02 20 82 43 |0. .#$74.bg:. .C|
00000550: 4F 44 45 34 00 6D 67 44 02 20 81 23 24 36 41 00 |ODE4.mgD. .#$6A.|
00000560: 79 67 4E 02 20 82 43 4F 44 45 35 00 84 67 58 02 |ygN. .CODE5..gX.|
00000570: 20 81 23 24 34 43 00 90 67 62 02 20 82 43 4F 44 | .#$4C..gb. .COD|
00000580: 45 36 00 9B 67 6C 02 20 81 23 24 36 46 00 A7 67 |E6..gl. .#$6F..g|
00000590: 76 02 20 82 43 4F 44 45 37 00 B2 67 80 02 20 81 |v. .CODE7..g.. .|
000005A0: 23 24 37 41 00 BE 67 8A 02 20 82 43 4F 44 45 38 |#$7A..g.. .CODE8|
000005B0: 00 DD 67 94 02 20 81 23 24 30 30 3B 4C 53 42 20 |..g.. .#$00;LSB |
000005C0: 42 49 4C 44 53 43 48 49 52 4D 53 54 41 52 54 00 |BILDSCHIRMSTART.|
000005D0: EA 67 9E 02 20 82 53 43 52 45 45 4E 00 09 68 A8 |.g.. .SCREEN..h.|
000005E0: 02 20 81 23 24 30 34 3B 4D 53 42 20 42 49 4C 44 |. .#$04;MSB BILD|
000005F0: 53 43 48 49 52 4D 53 54 41 52 54 00 18 68 B2 02 |SCHIRMSTART..h..|
00000600: 20 82 53 43 52 45 45 4E 2B 31 00 34 68 BC 02 20 | .SCREEN+1.4h.. |
00000610: 81 23 24 30 30 3B 4C 53 42 20 46 41 52 42 52 41 |.#$00;LSB FARBRA|
00000620: 4D 53 54 41 52 54 00 40 68 C6 02 20 82 43 4F 4C |MSTART.@h.. .COL|
00000630: 4F 52 00 5C 68 D0 02 20 81 23 24 44 38 3B 4D 53 |OR.\h.. .#$D8;MS|
00000640: 42 20 46 41 52 42 52 41 4D 53 54 41 52 54 00 6A |B FARBRAMSTART.j|
00000650: 68 DA 02 20 82 43 4F 4C 4F 52 2B 31 00 8A 68 E4 |h.. .COLOR+1..h.|
00000660: 02 20 81 23 33 39 3B 53 54 45 4C 4C 45 4E 5A 41 |. .#39;STELLENZA|
00000670: 48 4C 20 50 52 4F 20 5A 45 49 4C 45 00 96 68 EE |HL PRO ZEILE..h.|
00000680: 02 20 82 48 4F 52 49 5A 00 AD 68 F8 02 20 81 23 |. .HORIZ..h.. .#|
00000690: 32 33 3B 5A 45 49 4C 45 4E 5A 41 48 4C 2D 32 00 |23;ZEILENZAHL-2.|
000006A0: B8 68 02 03 20 82 56 45 52 54 00 D4 68 0C 03 20 |.h.. .VERT..h.. |
000006B0: 84 23 24 30 30 3B 5A 41 45 48 4C 45 52 20 41 55 |.#$00;ZAEHLER AU|
000006C0: 46 20 4E 55 4C 4C 00 DA 68 16 03 3B 00 0F 69 20 |F NULL..h..;..i |
000006D0: 03 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 4E |.;------------ N|
000006E0: 55 4E 20 4B 4F 4D 4D 45 4E 20 44 49 45 20 4A 4F |UN KOMMEN DIE JO|
000006F0: 42 53 3A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |BS: ------------|
00000700: 2D 00 38 69 2A 03 3B 4A 4F 42 20 31 3A 20 42 45 |-.8i*.;JOB 1: BE|
00000710: 53 43 48 52 45 49 42 45 4E 20 44 45 52 20 4F 42 |SCHREIBEN DER OB|
00000720: 45 52 45 4E 20 5A 45 49 4C 45 00 59 69 34 03 20 |EREN ZEILE.Yi4. |
00000730: 81 43 4F 44 45 31 3B 31 2E 5A 45 49 43 48 45 4E |.CODE1;1.ZEICHEN|
00000740: 20 4C 49 4E 4B 53 20 4F 42 45 4E 00 77 69 3E 03 | LINKS OBEN.wi>.|
00000750: 20 82 28 53 43 52 45 45 4E 29 2C 59 3B 45 49 4E | .(SCREEN),Y;EIN|
00000760: 53 43 48 52 45 49 42 45 4E 00 87 69 48 03 20 98 |SCHREIBEN..iH. .|
00000770: 3B 46 41 52 42 43 4F 44 45 00 B2 69 52 03 20 82 |;FARBCODE..iR. .|
00000780: 28 43 4F 4C 4F 52 29 2C 59 3B 49 4E 20 46 41 52 |(COLOR),Y;IN FAR|
00000790: 42 52 41 4D 53 54 45 4C 4C 45 20 53 43 48 52 45 |BRAMSTELLE SCHRE|
000007A0: 49 42 45 4E 00 CA 69 5C 03 20 9E 3B 5A 41 45 48 |IBEN..i\. .;ZAEH|
000007B0: 4C 45 52 20 45 52 48 4F 45 48 45 4E 00 EF 69 66 |LER ERHOEHEN..if|
000007C0: 03 4D 41 52 4B 45 31 20 81 43 4F 44 45 32 3B 32 |.MARKE1 .CODE2;2|
000007D0: 2E 5A 45 49 43 48 45 4E 20 45 49 4E 4C 41 44 45 |.ZEICHEN EINLADE|
000007E0: 4E 00 15 6A 70 03 20 82 28 53 43 52 45 45 4E 29 |N..jp. .(SCREEN)|
000007F0: 2C 59 3B 45 49 4E 45 20 4B 4C 45 49 4E 45 20 53 |,Y;EINE KLEINE S|
00000800: 43 48 4C 45 49 46 45 00 1C 6A 7A 03 20 98 00 40 |CHLEIFE..jz. ..@|
00000810: 6A 84 03 20 82 28 43 4F 4C 4F 52 29 2C 59 3B 46 |j.. .(COLOR),Y;F|
00000820: 41 52 42 52 41 4D 20 42 45 53 43 48 52 45 49 42 |ARBRAM BESCHREIB|
00000830: 45 4E 00 47 6A 8E 03 20 9E 00 66 6A 98 03 20 93 |EN.Gj.. ..fj.. .|
00000840: 48 4F 52 49 5A 3B 49 53 54 20 59 20 53 43 48 4F |HORIZ;IST Y SCHO|
00000850: 4E 20 3E 20 33 38 20 3F 00 8C 6A A2 03 20 B5 4D |N > 38 ?..j.. .M|
00000860: 41 52 4B 45 31 3B 57 45 4E 4E 20 4E 49 43 48 54 |ARKE1;WENN NICHT|
00000870: 2C 20 57 45 49 54 45 52 4D 41 43 48 45 4E 00 B4 |, WEITERMACHEN..|
00000880: 6A AC 03 20 81 43 4F 44 45 33 3B 4C 45 54 5A 54 |j.. .CODE3;LETZT|
00000890: 45 53 20 5A 45 49 43 48 45 4E 20 4F 42 45 52 45 |ES ZEICHEN OBERE|
000008A0: 20 5A 45 49 4C 45 00 E0 6A B6 03 20 82 28 53 43 | ZEILE..j.. .(SC|
000008B0: 52 45 45 4E 29 2C 59 3B 4E 41 43 48 20 52 45 43 |REEN),Y;NACH REC|
000008C0: 48 54 53 20 4F 42 45 4E 20 53 43 48 52 45 49 42 |HTS OBEN SCHREIB|
000008D0: 45 4E 00 E7 6A C0 03 20 98 00 11 6B CA 03 20 82 |EN..j.. ...k.. .|
000008E0: 28 43 4F 4C 4F 52 29 2C 59 3B 57 49 45 44 45 52 |(COLOR),Y;WIEDER|
000008F0: 20 46 41 52 42 43 4F 44 45 20 45 49 4E 54 52 41 | FARBCODE EINTRA|
00000900: 47 45 4E 00 18 6B D4 03 20 9E 00 52 6B DE 03 3B |GEN..k.. ..Rk..;|
00000910: 44 41 53 20 57 41 52 20 44 49 45 20 45 52 53 54 |DAS WAR DIE ERST|
00000920: 45 20 5A 45 49 4C 45 2E 20 4E 55 4E 20 4B 4F 4D |E ZEILE. NUN KOM|
00000930: 4D 45 4E 20 44 49 45 20 53 45 49 54 45 4E 4C 49 |MEN DIE SEITENLI|
00000940: 4E 49 45 4E 00 75 6B E8 03 3B 4A 4F 42 20 32 3A |NIEN.uk..;JOB 2:|
00000950: 20 42 45 53 43 48 52 45 49 42 45 4E 20 44 45 52 | BESCHREIBEN DER|
00000960: 20 53 45 49 54 45 4E 00 7B 6B F2 03 3B 00 86 6B | SEITEN.{k..;..k|
00000970: FC 03 4D 41 52 4B 45 32 00 B3 6B 06 04 2E 97 41 |..MARKE2..k....A|
00000980: 4B 54 55 45 4C 4C 28 53 43 52 45 45 4E 2C 43 4F |KTUELL(SCREEN,CO|
00000990: 4C 4F 52 29 3B 41 55 46 52 55 46 20 44 45 53 20 |LOR);AUFRUF DES |
000009A0: 4D 41 4B 52 4F 00 DF 6B 0B 04 3B 49 4E 20 48 59 |MAKRO..k..;IN HY|
000009B0: 50 52 41 2D 41 53 53 3A 20 2E 2E 2E 41 4B 54 55 |PRA-ASS: ...AKTU|
000009C0: 45 4C 4C 28 53 43 52 45 45 4E 2C 43 4F 4C 4F 52 |ELL(SCREEN,COLOR|
000009D0: 29 00 1C 6C 10 04 3B 44 41 4D 49 54 20 57 45 52 |)..l..;DAMIT WER|
000009E0: 44 45 4E 20 44 49 45 20 56 45 4B 54 4F 52 45 4E |DEN DIE VEKTOREN|
000009F0: 20 53 43 52 45 45 4E 20 55 4E 44 20 43 4F 4C 4F | SCREEN UND COLO|
00000A00: 52 20 41 4B 54 55 41 4C 49 53 49 45 52 54 00 43 |R AKTUALISIERT.C|
00000A10: 6C 1A 04 20 81 43 4F 44 45 34 3B 34 2E 5A 45 49 |l.. .CODE4;4.ZEI|
00000A20: 43 48 45 4E 20 46 55 45 52 20 4C 49 4E 4B 45 4E |CHEN FUER LINKEN|
00000A30: 20 52 41 4E 44 00 5E 6C 24 04 20 82 28 53 43 52 | RAND.^l$. .(SCR|
00000A40: 45 45 4E 29 2C 59 3B 45 49 4E 54 52 41 47 45 4E |EEN),Y;EINTRAGEN|
00000A50: 00 76 6C 2E 04 20 98 3B 55 4E 44 20 44 45 4E 20 |.vl.. .;UND DEN |
00000A60: 46 41 52 42 43 4F 44 45 00 90 6C 38 04 20 82 28 |FARBCODE..l8. .(|
00000A70: 43 4F 4C 4F 52 29 2C 59 3B 45 42 45 4E 46 41 4C |COLOR),Y;EBENFAL|
00000A80: 4C 53 00 B9 6C 42 04 4D 41 52 4B 45 33 20 9E 3B |LS..lB.MARKE3 .;|
00000A90: 5A 41 45 48 4C 45 52 20 53 43 48 4E 45 4C 4C 20 |ZAEHLER SCHNELL |
00000AA0: 48 4F 43 48 5A 41 45 48 4C 45 4E 00 D8 6C 4C 04 |HOCHZAEHLEN..lL.|
00000AB0: 20 93 48 4F 52 49 5A 3B 49 53 54 20 59 20 53 43 | .HORIZ;IST Y SC|
00000AC0: 48 4F 4E 20 3E 20 33 38 20 3F 00 FF 6C 56 04 20 |HON > 38 ?..lV. |
00000AD0: B5 4D 41 52 4B 45 33 3B 57 45 4E 4E 20 4E 49 43 |.MARKE3;WENN NIC|
00000AE0: 48 54 2C 20 57 45 49 54 45 52 5A 41 45 48 4C 45 |HT, WEITERZAEHLE|
00000AF0: 4E 00 2D 6D 60 04 20 81 43 4F 44 45 35 3B 53 4F |N.-m`. .CODE5;SO|
00000B00: 4E 53 54 20 35 2E 5A 45 49 43 48 45 4E 20 46 55 |NST 5.ZEICHEN FU|
00000B10: 45 52 20 52 45 43 48 54 45 4E 20 52 41 4E 44 00 |ER RECHTEN RAND.|
00000B20: 48 6D 6A 04 20 82 28 53 43 52 45 45 4E 29 2C 59 |Hmj. .(SCREEN),Y|
00000B30: 3B 45 49 4E 54 52 41 47 45 4E 00 5C 6D 74 04 20 |;EINTRAGEN.\mt. |
00000B40: 98 3B 55 4E 44 20 46 41 52 42 43 4F 44 45 00 77 |.;UND FARBCODE.w|
00000B50: 6D 7E 04 20 82 28 43 4F 4C 4F 52 29 2C 59 3B 49 |m~. .(COLOR),Y;I|
00000B60: 4E 20 46 41 52 42 52 41 4D 00 7E 6D 88 04 20 9E |N FARBRAM.~m.. .|
00000B70: 00 9F 6D 92 04 20 94 56 45 52 54 3B 4D 49 54 5A |..m.. .VERT;MITZ|
00000B80: 41 45 48 4C 45 4E 20 44 45 52 20 5A 45 49 4C 45 |AEHLEN DER ZEILE|
00000B90: 4E 00 D1 6D 9C 04 20 B7 4D 41 52 4B 45 32 3B 4E |N..m.. .MARKE2;N|
00000BA0: 41 45 43 48 53 54 45 20 5A 45 49 4C 45 2C 20 57 |AECHSTE ZEILE, W|
00000BB0: 45 4E 4E 20 4E 4F 43 48 20 4E 49 43 48 54 20 4E |ENN NOCH NICHT N|
00000BC0: 55 4C 4C 00 06 6E A6 04 3B 41 4E 53 4F 4E 53 54 |ULL..n..;ANSONST|
00000BD0: 45 4E 20 53 49 4E 44 20 4E 55 4E 20 42 45 49 44 |EN SIND NUN BEID|
00000BE0: 45 20 53 45 49 54 45 4E 4C 49 4E 49 45 4E 20 56 |E SEITENLINIEN V|
00000BF0: 4F 52 48 41 4E 44 45 4E 00 30 6E B0 04 3B 4A 4F |ORHANDEN.0n..;JO|
00000C00: 42 20 33 3A 20 42 45 53 43 48 52 45 49 42 45 4E |B 3: BESCHREIBEN|
00000C10: 20 44 45 52 20 4C 45 54 5A 54 45 4E 20 5A 45 49 | DER LETZTEN ZEI|
00000C20: 4C 45 00 6D 6E BA 04 3B 44 41 5A 55 20 4E 4F 43 |LE.mn..;DAZU NOC|
00000C30: 48 4D 41 4C 20 4D 41 4B 52 4F 41 55 46 52 55 46 |HMAL MAKROAUFRUF|
00000C40: 20 5A 55 4D 20 41 4B 54 55 41 4C 49 53 49 45 52 | ZUM AKTUALISIER|
00000C50: 45 4E 20 44 45 52 20 56 45 4B 54 4F 52 45 4E 00 |EN DER VEKTOREN.|
00000C60: 9D 6E C4 04 2E 97 41 4B 54 55 45 4C 4C 28 53 43 |.n....AKTUELL(SC|
00000C70: 52 45 45 4E 2C 43 4F 4C 4F 52 29 3B 44 49 45 53 |REEN,COLOR);DIES|
00000C80: 20 49 53 54 20 44 45 52 20 41 55 46 52 55 46 00 | IST DER AUFRUF.|
00000C90: D0 6E C9 04 3B 49 4E 20 48 59 50 52 41 2D 41 53 |.n..;IN HYPRA-AS|
00000CA0: 53 20 57 49 45 44 45 52 3A 20 2E 2E 2E 41 4B 54 |S WIEDER: ...AKT|
00000CB0: 55 45 4C 4C 28 53 43 52 45 45 4E 2C 43 4F 4C 4F |UELL(SCREEN,COLO|
00000CC0: 52 29 00 E8 6E CE 04 3B 4E 55 4E 20 4B 4F 4D 4D |R)..n..;NUN KOMM|
00000CD0: 54 20 44 45 52 20 4A 4F 42 3A 00 0A 6F D8 04 20 |T DER JOB:..o.. |
00000CE0: 81 43 4F 44 45 36 3B 36 2E 5A 45 49 43 48 45 4E |.CODE6;6.ZEICHEN|
00000CF0: 20 4C 49 4E 4B 53 20 55 4E 54 45 4E 00 28 6F E2 | LINKS UNTEN.(o.|
00000D00: 04 20 82 28 53 43 52 45 45 4E 29 2C 59 3B 45 49 |. .(SCREEN),Y;EI|
00000D10: 4E 53 43 48 52 45 49 42 45 4E 00 43 6F EC 04 20 |NSCHREIBEN.Co.. |
00000D20: 98 3B 57 49 45 44 45 52 20 44 45 4E 20 46 41 52 |.;WIEDER DEN FAR|
00000D30: 42 43 4F 44 45 00 69 6F F6 04 20 82 28 43 4F 4C |BCODE.io.. .(COL|
00000D40: 4F 52 29 2C 59 3B 49 4E 53 20 46 41 52 42 52 41 |OR),Y;INS FARBRA|
00000D50: 4D 20 53 43 48 52 45 49 42 45 4E 00 89 6F 00 05 |M SCHREIBEN..o..|
00000D60: 20 9E 3B 55 4E 44 20 44 45 4E 20 5A 41 45 48 4C | .;UND DEN ZAEHL|
00000D70: 45 52 20 45 52 48 4F 45 48 45 4E 00 A5 6F 0A 05 |ER ERHOEHEN..o..|
00000D80: 4D 41 52 4B 45 34 20 81 43 4F 44 45 37 3B 37 2E |MARKE4 .CODE7;7.|
00000D90: 5A 45 49 43 48 45 4E 00 D1 6F 14 05 20 82 28 53 |ZEICHEN..o.. .(S|
00000DA0: 43 52 45 45 4E 29 2C 59 3B 45 49 4E 54 52 41 47 |CREEN),Y;EINTRAG|
00000DB0: 45 4E 2E 20 4B 4C 45 49 4E 45 20 53 43 48 4C 45 |EN. KLEINE SCHLE|
00000DC0: 49 46 45 00 D8 6F 1E 05 20 98 00 F0 6F 28 05 20 |IFE..o.. ...o(. |
00000DD0: 82 28 43 4F 4C 4F 52 29 2C 59 3B 46 41 52 42 52 |.(COLOR),Y;FARBR|
00000DE0: 41 4D 00 F7 6F 32 05 20 9E 00 10 70 3C 05 20 93 |AM..o2. ...p<. .|
00000DF0: 48 4F 52 49 5A 3B 53 43 48 4F 4E 20 3E 20 33 38 |HORIZ;SCHON > 38|
00000E00: 20 3F 00 36 70 46 05 20 B5 4D 41 52 4B 45 34 3B | ?.6pF. .MARKE4;|
00000E10: 57 45 4E 4E 20 4E 49 43 48 54 2C 20 57 45 49 54 |WENN NICHT, WEIT|
00000E20: 45 52 4D 41 43 48 45 4E 00 58 70 50 05 20 81 43 |ERMACHEN.XpP. .C|
00000E30: 4F 44 45 38 3B 53 4F 4E 53 54 20 4C 45 54 5A 54 |ODE8;SONST LETZT|
00000E40: 45 53 20 5A 45 49 43 48 45 4E 00 85 70 5A 05 20 |ES ZEICHEN..pZ. |
00000E50: 82 28 53 43 52 45 45 4E 29 2C 59 3B 4E 41 43 48 |.(SCREEN),Y;NACH|
00000E60: 20 52 45 43 48 54 53 20 55 4E 54 45 4E 20 53 43 | RECHTS UNTEN SC|
00000E70: 48 52 45 49 42 45 4E 00 A2 70 64 05 20 98 3B 55 |HREIBEN..pd. .;U|
00000E80: 4E 44 20 41 55 43 48 20 44 45 4E 20 46 41 52 42 |ND AUCH DEN FARB|
00000E90: 43 4F 44 45 00 C8 70 6E 05 20 82 28 43 4F 4C 4F |CODE..pn. .(COLO|
00000EA0: 52 29 2C 59 3B 49 4E 53 20 46 41 52 42 52 41 4D |R),Y;INS FARBRAM|
00000EB0: 20 45 49 4E 54 52 41 47 45 4E 00 CE 70 78 05 3B | EINTRAGEN..px.;|
00000EC0: 00 EE 70 82 05 3B 44 41 4D 49 54 20 49 53 54 20 |..p..;DAMIT IST |
00000ED0: 44 49 45 20 41 52 42 45 49 54 20 47 45 54 41 4E |DIE ARBEIT GETAN|
00000EE0: 00 32 71 8C 05 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.2q..;----------|
00000EF0: 2D 2D 2D 2D 2D 20 41 55 53 47 41 4E 47 20 45 49 |----- AUSGANG EI|
00000F00: 4E 46 41 43 48 20 44 55 52 43 48 20 42 52 4B 20 |NFACH DURCH BRK |
00000F10: 28 4D 4F 4E 49 54 4F 52 21 29 20 2D 2D 2D 2D 2D |(MONITOR!) -----|
00000F20: 2D 2D 2D 2D 00 38 71 96 05 3B 00 3F 71 A0 05 20 |----.8q..;.?q.. |
00000F30: B0 00 45 71 AA 05 3B 00 53 71 B4 05 2E A4 55 2C |..Eq..;.Sq....U,|
00000F40: 31 2C 34 2C 37 00 00 00 |1,4,7... |
.B.B....1,4.=B....$C000;IN HYPRA-ASS: .B
A $C000.HB..;***************************
**********..B(.; VERSCHACHTELTE SCHLEIFE
N ANWENDUNG..B2.; ALLGEMEINER BILDSCHIR
MRAHMEN..B<.;***************************
**********..BF.;.2CP.;LAGERPLATZ FUER DI
E ZEICHEN: (HPYRA-ASS JEWEILS: .EQ CODE1
= $1B USW.).QCZ...CODE1=$1B;ZEICHEN O =
4F.PCD...CODE2=$1C;ZEICHEN . = 77..CN..
.CODE3=$1D;ZEICHEN P = 50..CX...CODE4=$1
E;ZEICHEN . = 74.MC....CODE5=$1F;ZEICHEN
. = 6A..C....CODE6=$20;ZEICHEN L = 4C..
D....CODE7=$21;ZEICHEN . = 6F.*D ...CODE
8=$22;ZEICHEN . = 7A.VD..;VEKTOREN FUER
BILDCHIRM- UND FARB-RAM:.WD....SCREEN=$F
B;BILDSCHIRMSTART..D....COLOR=$FD;FARBRA
MSTART..DH.;ZAEHLER:.KDR...HORIZ=$23;ZAE
HLER FUER HORIZONTALE..D....VERT=$24;ZAE
HLER FUER VERTIKALE.&E..;DER FARBCODE WI
RD NUR IM X-REGISTER GESPEICHERT.,E..;.Q
E..;DEFINITION EINES MAKRO: AKTUELL..E..
;IN HYPRA-ASS STATTDESSEN: .MA AKTUELL(S
CREEN,COLOR)..E....AKTUELL(SCREEN,COLOR)
..E.. ...E". ..AE,. .SCREEN.NE6. .SCREEN
..E@. .SCREEN+1..EJ. .#$00..ET. .SCREEN+
1..E^. ...FH. ...FR. .COLOR..F|. .COLOR.
+F.. .COLOR+1.6F.. .#$00.DF.. .COLOR+1.O
F.. .#$00.HF....;IN HYPRA-ASS: .RT.NF..;
..FB.;NUN GEHTS LOS:..FL.;..FV.;--------
------ INITIALISIERUNG ------------..F..
;..F.. .#$02;FARBCODE INS X-REGISTER..G.
. .#$4F;ALLE ZEICHEN IN DIE SPEICHER PAC
KEN..G.. .CODE1.(G.. .#$77.4G.. .CODE2.?
G.. .#$50.KG&. .CODE3.VG0. .#$74.BG:. .C
ODE4.MGD. .#$6A.YGN. .CODE5..GX. .#$4C..
GB. .CODE6..GL. .#$6F..GV. .CODE7..G.. .
#$7A..G.. .CODE8..G.. .#$00;LSB BILDSCHI
RMSTART..G.. .SCREEN..H.. .#$04;MSB BILD
SCHIRMSTART..H.. .SCREEN+1.4H.. .#$00;LS
B FARBRAMSTART.@HF. .COLOR.\HP. .#$D8;MS
B FARBRAMSTART.JHZ. .COLOR+1..H.. .#39;S
TELLENZAHL PRO ZEILE..H.. .HORIZ..H.. .#
23;ZEILENZAHL-2..H.. .VERT.TH.. .#$00;ZA
EHLER AUF NULL.ZH..;..I .;------------ N
UN KOMMEN DIE JOBS: -------------.8I*.;J
OB 1: BESCHREIBEN DER OBEREN ZEILE.YI4.
.CODE1;1.ZEICHEN LINKS OBEN.WI>. .(SCREE
N),Y;EINSCHREIBEN..IH. .;FARBCODE..IR. .
(COLOR),Y;IN FARBRAMSTELLE SCHREIBEN.JI\
. .;ZAEHLER ERHOEHEN..IF.MARKE1 .CODE2;2
.ZEICHEN EINLADEN..JP. .(SCREEN),Y;EINE
KLEINE SCHLEIFE..JZ. ..@J.. .(COLOR),Y;F
ARBRAM BESCHREIBEN.GJ.. ..FJ.. .HORIZ;IS
T Y SCHON > 38 ?..J.. .MARKE1;WENN NICHT
, WEITERMACHEN..J.. .CODE3;LETZTES ZEICH
EN OBERE ZEILE..J.. .(SCREEN),Y;NACH REC
HTS OBEN SCHREIBEN..J.. ...KJ. .(COLOR),
Y;WIEDER FARBCODE EINTRAGEN..KT. ..RK..;
DAS WAR DIE ERSTE ZEILE. NUN KOMMEN DIE
SEITENLINIEN.UK..;JOB 2: BESCHREIBEN DER
SEITEN.{K..;..K..MARKE2..K....AKTUELL(S
CREEN,COLOR);AUFRUF DES MAKRO..K..;IN HY
PRA-ASS: ...AKTUELL(SCREEN,COLOR)..L..;D
AMIT WERDEN DIE VEKTOREN SCREEN UND COLO
R AKTUALISIERT.CL.. .CODE4;4.ZEICHEN FUE
R LINKEN RAND.^L$. .(SCREEN),Y;EINTRAGEN
.VL.. .;UND DEN FARBCODE..L8. .(COLOR),Y
;EBENFALLS..LB.MARKE3 .;ZAEHLER SCHNELL
HOCHZAEHLEN.XLL. .HORIZ;IST Y SCHON > 38
?..LV. .MARKE3;WENN NICHT, WEITERZAEHLE
N.-M`. .CODE5;SONST 5.ZEICHEN FUER RECHT
EN RAND.HMJ. .(SCREEN),Y;EINTRAGEN.\MT.
.;UND FARBCODE.WM~. .(COLOR),Y;IN FARBRA
M.~M.. ...M.. .VERT;MITZAEHLEN DER ZEILE
N.QM.. .MARKE2;NAECHSTE ZEILE, WENN NOCH
NICHT NULL..N..;ANSONSTEN SIND NUN BEID
E SEITENLINIEN VORHANDEN.0N..;JOB 3: BES
CHREIBEN DER LETZTEN ZEILE.MN..;DAZU NOC
HMAL MAKROAUFRUF ZUM AKTUALISIEREN DER V
EKTOREN..ND...AKTUELL(SCREEN,COLOR);DIES
IST DER AUFRUF.PNI.;IN HYPRA-ASS WIEDER
: ...AKTUELL(SCREEN,COLOR)..NN.;NUN KOMM
T DER JOB:..OX. .CODE6;6.ZEICHEN LINKS U
NTEN.(O.. .(SCREEN),Y;EINSCHREIBEN.CO..
.;WIEDER DEN FARBCODE.IO.. .(COLOR),Y;IN
S FARBRAM SCHREIBEN..O.. .;UND DEN ZAEHL
ER ERHOEHEN..O..MARKE4 .CODE7;7.ZEICHEN.
QO.. .(SCREEN),Y;EINTRAGEN. KLEINE SCHLE
IFE.XO.. ...O(. .(COLOR),Y;FARBRAM..O2.
...P<. .HORIZ;SCHON > 38 ?.6PF. .MARKE4;
WENN NICHT, WEITERMACHEN.XPP. .CODE8;SON
ST LETZTES ZEICHEN..PZ. .(SCREEN),Y;NACH
RECHTS UNTEN SCHREIBEN..PD. .;UND AUCH
DEN FARBCODE.HPN. .(COLOR),Y;INS FARBRAM
EINTRAGEN.NPX.;..P..;DAMIT IST DIE ARBE
IT GETAN.2Q..;--------------- AUSGANG EI
NFACH DURCH BRK (MONITOR!) ---------.8Q.
.;.?Q . ..EQ..;.SQ....U,1,4,7...
> CLICK IMAGE PREVIEW FOR FULL MODAL