00000000: 01 1C 26 1C 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..&.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 00 4B 1C 6E 00 8F 20 2A 20 20 |******.K.n.. * |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 2A 00 70 1C 78 00 | *.p.x.|
00000050: 8F 20 2A 20 20 20 44 45 4D 4F 4E 53 54 52 41 54 |. * DEMONSTRAT|
00000060: 49 4F 4E 53 50 52 4F 47 52 41 4D 4D 20 20 20 2A |IONSPROGRAMM *|
00000070: 00 95 1C 82 00 8F 20 2A 20 20 20 20 20 20 20 20 |...... * |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 2A 00 BA 1C 8C 00 8F 20 2A 20 20 20 | *...... * |
000000A0: 20 46 55 45 52 20 44 49 45 20 44 41 52 53 54 45 | FUER DIE DARSTE|
000000B0: 4C 4C 55 4E 47 20 20 20 20 2A 00 DF 1C 96 00 8F |LLUNG *......|
000000C0: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
000000E0: 04 1D A0 00 8F 20 2A 20 20 5A 55 53 41 45 54 5A |..... * ZUSAETZ|
000000F0: 4C 49 43 48 45 52 20 5A 45 49 4C 45 4E 20 41 4D |LICHER ZEILEN AM|
00000100: 20 20 20 2A 00 29 1D AA 00 8F 20 2A 20 20 20 20 | *.).... * |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 20 20 20 20 2A 00 4E 1D B4 00 8F 20 | *.N.... |
00000130: 2A 20 20 20 38 30 2D 5A 45 49 43 48 45 4E 2D 42 |* 80-ZEICHEN-B|
00000140: 49 4C 44 53 43 48 49 52 4D 20 20 20 20 2A 00 73 |ILDSCHIRM *.s|
00000150: 1D BE 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.... * |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 2A 00 98 1D C8 00 8F 20 2A 2A 2A 2A 2A 2A | *...... ******|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 00 BD 1D D2 00 8F 20 2A |********...... *|
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 E2 1D | *...|
000001C0: DC 00 8F 20 2A 20 28 57 29 20 27 38 36 20 42 59 |... * (W) '86 BY|
000001D0: 20 46 4C 4F 52 49 41 4E 20 4D 55 45 4C 4C 45 52 | FLORIAN MUELLER|
000001E0: 20 2A 00 07 1E E6 00 8F 20 2A 20 20 20 20 20 20 | *...... * |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 20 2A 00 2C 1E F0 00 8F 20 2A 2A | *.,.... **|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 32 1E FA |************.2..|
00000230: 00 3A 00 38 1E 04 01 3A 00 6E 1E 2C 01 FE 02 20 |.:.8...:.n.,... |
00000240: 31 35 3A 9E 20 D1 28 22 43 30 30 30 22 29 3A 8F |15:. .("C000"):.|
00000250: 20 2A 2A 2A 20 42 49 4C 44 53 43 48 49 52 4D 20 | *** BILDSCHIRM |
00000260: 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 B2 |INITIALISIEREN..|
00000270: 1E 36 01 8B 20 CE 09 20 28 32 29 B2 34 30 20 A7 |.6.. .. (2).40 .|
00000280: 20 99 20 22 50 52 4F 47 52 41 4D 4D 20 4C 41 45 | . "PROGRAMM LAE|
00000290: 55 46 54 20 41 4D 20 38 30 2D 5A 45 49 43 48 45 |UFT AM 80-ZEICHE|
000002A0: 4E 2D 42 49 4C 44 53 43 48 49 52 4D 22 3A D5 20 |N-BILDSCHIRM":. |
000002B0: FE 25 00 F8 1E 40 01 DE 20 35 2C 31 3A 8F 20 20 |.%...@.. 5,1:. |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 38 | *** 8|
000002D0: 30 2D 5A 45 49 43 48 45 4E 2D 4D 4F 44 55 53 20 |0-ZEICHEN-MODUS |
000002E0: 45 49 4E 2C 20 42 49 4C 44 53 43 48 49 52 4D 20 |EIN, BILDSCHIRM |
000002F0: 4C 4F 45 53 43 48 45 4E 00 36 1F 4A 01 E7 20 35 |LOESCHEN.6.J.. 5|
00000300: 2C 34 3A E7 20 36 2C 31 3A 8F 20 20 20 20 20 2A |,4:. 6,1:. *|
00000310: 2A 2A 20 5A 45 49 43 48 45 4E 20 22 43 59 41 4E |** ZEICHEN "CYAN|
00000320: 22 2C 20 48 49 4E 54 45 52 47 52 55 4E 44 20 53 |", HINTERGRUND S|
00000330: 43 48 57 41 52 5A 00 66 1F 54 01 99 20 C7 28 31 |CHWARZ.f.T.. .(1|
00000340: 31 29 3B 3A 8F 20 20 20 20 20 20 20 20 20 2A 2A |1);:. **|
00000350: 2A 20 53 48 49 46 54 2B 43 42 4D 20 41 42 53 43 |* SHIFT+CBM ABSC|
00000360: 48 41 4C 54 45 4E 00 6C 1F 5E 01 3A 00 72 1F 68 |HALTEN.l.^.:.r.h|
00000370: 01 3A 00 AC 1F 90 01 9E 20 D1 28 22 43 44 43 43 |.:...... .("CDCC|
00000380: 22 29 2C 31 36 2C 32 30 3A 97 20 32 36 30 37 2C |"),16,20:. 2607,|
00000390: 31 36 3A 8F 20 41 54 54 52 49 42 55 54 2D 52 41 |16:. ATTRIBUT-RA|
000003A0: 4D 20 4E 41 43 48 20 24 31 30 30 30 00 C1 1F 9A |M NACH $1000....|
000003B0: 01 9E 20 D1 28 22 43 44 43 43 22 29 2C 32 37 2C |.. .("CDCC"),27,|
000003C0: 36 00 C7 1F A4 01 3A 00 CD 1F AE 01 3A 00 E1 1F |6.....:.....:...|
000003D0: F4 01 41 44 B2 31 36 AC 32 35 36 AA 38 30 AC 32 |..AD.16.256.80.2|
000003E0: 35 00 4C 20 FE 01 9E D1 28 22 43 44 43 43 22 29 |5.L ....("CDCC")|
000003F0: 2C 41 44 AD 32 35 36 2C 31 38 3A 9E D1 28 22 43 |,AD.256,18:..("C|
00000400: 44 43 43 22 29 2C 41 44 20 AF 20 32 35 35 2C 31 |DCC"),AD . 255,1|
00000410: 39 3A 9E D1 28 22 43 44 43 43 22 29 2C 32 2C 33 |9:..("CDCC"),2,3|
00000420: 31 3A 9E D1 28 22 43 44 43 43 22 29 2C 31 36 30 |1:..("CDCC"),160|
00000430: 2C 33 30 3A 8F 20 2A 2A 2A 20 56 49 44 45 4F 2D |,30:. *** VIDEO-|
00000440: 52 41 4D 20 4C 4F 45 53 43 48 45 4E 00 58 20 08 |RAM LOESCHEN.X .|
00000450: 02 41 44 B2 32 30 30 30 00 C7 20 12 02 9E D1 28 |.AD.2000.. ....(|
00000460: 22 43 44 43 43 22 29 2C 41 44 AD 32 35 36 2C 31 |"CDCC"),AD.256,1|
00000470: 38 3A 9E D1 28 22 43 44 43 43 22 29 2C 41 44 20 |8:..("CDCC"),AD |
00000480: AF 20 32 35 35 2C 31 39 3A 9E D1 28 22 43 44 43 |. 255,19:..("CDC|
00000490: 43 22 29 2C 33 32 2C 33 31 3A 9E D1 28 22 43 44 |C"),32,31:..("CD|
000004A0: 43 43 22 29 2C 31 36 30 2C 33 30 3A 8F 20 2A 2A |CC"),160,30:. **|
000004B0: 2A 20 41 54 54 52 49 42 55 54 2D 52 41 4D 20 4C |* ATTRIBUT-RAM L|
000004C0: 4F 45 53 43 48 45 4E 00 CD 20 1C 02 3A 00 D3 20 |OESCHEN.. ..:.. |
000004D0: 26 02 3A 00 33 21 58 02 54 24 B2 22 44 49 45 53 |&.:.3!X.T$."DIES|
000004E0: 20 49 53 54 20 44 49 45 20 53 45 43 48 53 55 4E | IST DIE SECHSUN|
000004F0: 44 5A 57 41 4E 5A 49 47 53 54 45 20 28 32 36 2E |DZWANZIGSTE (26.|
00000500: 29 20 42 49 4C 44 53 43 48 49 52 4D 5A 45 49 4C |) BILDSCHIRMZEIL|
00000510: 45 20 21 22 3A 8F 20 2A 2A 2A 20 54 45 58 54 20 |E !":. *** TEXT |
00000520: 41 55 53 47 45 42 45 4E 20 4C 41 53 53 45 4E 20 |AUSGEBEN LASSEN |
00000530: 2A 2A 2A 00 4D 21 62 02 81 20 46 B2 32 30 30 30 |***.M!b.. F.2000|
00000540: 20 A4 20 31 39 39 39 AA C3 28 54 24 29 00 93 21 | . 1999..(T$)..!|
00000550: 6C 02 3A 9E 20 D1 28 22 43 44 43 43 22 29 2C 46 |l.:. .("CDCC"),F|
00000560: AD 32 35 36 2C 31 38 3A 9E 20 D1 28 22 43 44 43 |.256,18:. .("CDC|
00000570: 43 22 29 2C 46 20 AF 20 32 35 35 2C 31 39 3A 8F |C"),F . 255,19:.|
00000580: 20 2A 2A 2A 20 41 44 52 45 53 53 45 20 53 45 54 | *** ADRESSE SET|
00000590: 5A 45 4E 00 CB 21 76 02 3A 57 B2 C6 28 CA 28 54 |ZEN..!v.:W..(.(T|
000005A0: 24 2C 46 AB 31 39 39 39 2C 31 29 29 3A 8F 20 2A |$,F.1999,1)):. *|
000005B0: 2A 2A 20 5A 45 49 43 48 45 4E 20 41 55 53 20 53 |** ZEICHEN AUS S|
000005C0: 54 52 49 4E 47 20 48 4F 4C 45 4E 00 35 22 80 02 |TRING HOLEN.5"..|
000005D0: 3A 57 B2 57 AA 33 33 AC 28 57 B2 32 35 35 29 AA |:W.W.33.(W.255).|
000005E0: 36 34 AC 28 57 B1 36 33 29 AA 33 32 AC 28 57 B3 |64.(W.63).32.(W.|
000005F0: 39 36 29 AB 33 32 AC 28 57 B3 31 36 30 29 AA 36 |96).32.(W.160).6|
00000600: 34 AC 28 57 B1 31 39 31 29 3A 8F 20 2A 2A 2A 20 |4.(W.191):. *** |
00000610: 42 49 4C 44 53 43 48 49 52 4D 43 4F 44 45 20 44 |BILDSCHIRMCODE D|
00000620: 45 53 20 5A 45 49 43 48 45 4E 53 20 45 52 52 45 |ES ZEICHENS ERRE|
00000630: 43 48 4E 45 4E 00 5F 22 8A 02 3A 9E 20 D1 28 22 |CHNEN._"..:. .("|
00000640: 43 44 43 43 22 29 2C 57 2C 33 31 3A 8F 20 2A 2A |CDCC"),W,31:. **|
00000650: 2A 20 55 4E 44 20 53 43 48 52 45 49 42 45 4E 00 |* UND SCHREIBEN.|
00000660: 65 22 94 02 82 00 6B 22 9E 02 3A 00 A2 22 BC 02 |e"....k"..:.."..|
00000670: 54 24 B2 22 55 4E 44 20 44 49 45 53 20 48 49 45 |T$."UND DIES HIE|
00000680: 52 20 44 49 45 20 53 49 45 42 45 4E 55 4E 44 5A |R DIE SIEBENUNDZ|
00000690: 57 41 4E 5A 49 47 53 54 45 20 28 32 37 2E 29 20 |WANZIGSTE (27.) |
000006A0: 21 22 00 BC 22 C6 02 81 20 46 B2 32 30 38 30 20 |!".."... F.2080 |
000006B0: A4 20 32 30 37 39 AA C3 28 54 24 29 00 03 23 D0 |. 2079..(T$)..#.|
000006C0: 02 3A 9E 20 D1 28 22 43 44 43 43 22 29 2C 46 AD |.:. .("CDCC"),F.|
000006D0: 32 35 36 2C 31 38 3A 9E 20 D1 28 22 43 44 43 43 |256,18:. .("CDCC|
000006E0: 22 29 2C 46 20 AF 20 32 35 35 2C 31 39 3A 8F 20 |"),F . 255,19:. |
000006F0: 20 2A 2A 2A 20 41 44 52 45 53 53 45 20 53 45 54 | *** ADRESSE SET|
00000700: 5A 45 4E 00 3B 23 DA 02 3A 57 B2 C6 28 CA 28 54 |ZEN.;#..:W..(.(T|
00000710: 24 2C 46 AB 32 30 37 39 2C 31 29 29 3A 8F 20 2A |$,F.2079,1)):. *|
00000720: 2A 2A 20 5A 45 49 43 48 45 4E 20 41 55 53 20 53 |** ZEICHEN AUS S|
00000730: 54 52 49 4E 47 20 48 4F 4C 45 4E 00 A5 23 E4 02 |TRING HOLEN..#..|
00000740: 3A 57 B2 57 AA 33 33 AC 28 57 B2 32 35 35 29 AA |:W.W.33.(W.255).|
00000750: 36 34 AC 28 57 B1 36 33 29 AA 33 32 AC 28 57 B3 |64.(W.63).32.(W.|
00000760: 39 36 29 AB 33 32 AC 28 57 B3 31 36 30 29 AA 36 |96).32.(W.160).6|
00000770: 34 AC 28 57 B1 31 39 31 29 3A 8F 20 2A 2A 2A 20 |4.(W.191):. *** |
00000780: 42 49 4C 44 53 43 48 49 52 4D 43 4F 44 45 20 44 |BILDSCHIRMCODE D|
00000790: 45 53 20 5A 45 49 43 48 45 4E 53 20 45 52 52 45 |ES ZEICHENS ERRE|
000007A0: 43 48 4E 45 4E 00 CF 23 EE 02 3A 9E 20 D1 28 22 |CHNEN..#..:. .("|
000007B0: 43 44 43 43 22 29 2C 57 2C 33 31 3A 8F 20 2A 2A |CDCC"),W,31:. **|
000007C0: 2A 20 55 4E 44 20 53 43 48 52 45 49 42 45 4E 00 |* UND SCHREIBEN.|
000007D0: D5 23 F8 02 82 00 00 00 |.#...... |
..&.D.. ******************************.K
.N.. * *.P.X.
. * DEMONSTRATIONSPROGRAMM *...... *
*...... *
FUER DIE DARSTELLUNG *...... *
*... .. * ZUSAETZ
LICHER ZEILEN AM *.).... *
*.N.... * 80-ZEICHEN-B
ILDSCHIRM *.S.... *
*...H.. **********************
********...R.. *
*...... * (W) '86 BY FLORIAN MUELLER
*...... * *.
,.... ******************************.2..
.:.8...:.N.,... 15:. Q("C000"):. *** BIL
DSCHIRM INITIALISIEREN...6.. N. (2).40 .
. "PROGRAMM LAEUFT AM 80-ZEICHEN-BILDSC
HIRM":U .%...@.. 5,1:. *** 8
0-ZEICHEN-MODUS EIN, BILDSCHIRM LOESCHEN
.6.J.. 5,4:. 6,1:. *** ZEICHEN "CYAN
", HINTERGRUND SCHWARZ.F.T.. G(11);:.
*** SHIFT+CBM ABSCHALTEN.L.^.:.R.H
.:...... Q("CDCC"),16,20:. 2607,16:. ATT
RIBUT-RAM NACH $1000.A.... Q("CDCC"),27,
6.G...:.M...:.....AD.16.256.80.25.L ...Q
("CDCC"),AD.256,18:.Q("CDCC"),AD . 255,1
9:.Q("CDCC"),2,31:.Q("CDCC"),160,30:. **
* VIDEO-RAM LOESCHEN.X ..AD.2000.G ...Q(
"CDCC"),AD.256,18:.Q("CDCC"),AD . 255,19
:.Q("CDCC"),32,31:.Q("CDCC"),160,30:. **
* ATTRIBUT-RAM LOESCHEN.M ..:.S &.:.3!X.
T$."DIES IST DIE SECHSUNDZWANZIGSTE (26.
) BILDSCHIRMZEILE !":. *** TEXT AUSGEBEN
LASSEN ***.M!B.. F.2000 . 1999.C(T$)..!
L.:. Q("CDCC"),F.256,18:. Q("CDCC"),F .
255,19:. *** ADRESSE SETZEN.K!V.:W.F(J(T
$,F.1999,1)):. *** ZEICHEN AUS STRING HO
LEN.5"..:W.W.33.(W.255).64.(W.63).32.(W.
96).32.(W.160).64.(W.191):. *** BILDSCHI
RMCODE DES ZEICHENS ERRECHNEN._"..:. Q("
CDCC"),W,31:. *** UND SCHREIBEN.E"....K"
..:.."..T$."UND DIES HIER DIE SIEBENUNDZ
WANZIGSTE (27.) !".."F.. F.2080 . 2079.C
(T$)..#P.:. Q("CDCC"),F.256,18:. Q("CDCC
"),F . 255,19:. *** ADRESSE SETZEN.;#Z.
:W.F(J(T$,F.2079,1)):. *** ZEICHEN AUS S
TRING HOLEN..#..:W.W.33.(W.255).64.(W.63
).32.(W.96).32.(W.160).64.(W.191):. ***
BILDSCHIRMCODE DES ZEICHENS ERRECHNEN.O#
..:. Q("CDCC"),W,31:. *** UND SCHREIBEN.
U#......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL