> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 64 00 8B 20 4D B2 30 20 A7 20 4D B2 |..(.d.. M.0 . M.|
00000010: 31 3A 93 20 22 53 48 4F 57 20 50 49 43 2E 35 32 |1:. "SHOW PIC.52|
00000020: 34 38 30 22 2C 38 2C 31 00 4D 08 6E 00 8F 20 2A |480",8,1.M.n.. *|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 08 |*************.r.|
00000050: 78 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |x.. * |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 2A 00 97 08 82 00 8F 20 2A 20 42 41 53 49 43 | *...... * BASIC|
00000080: 20 44 45 4D 4F 20 5A 55 52 20 20 20 20 20 20 20 | DEMO ZUR |
00000090: 20 20 20 20 20 20 2A 00 BC 08 8C 00 8F 20 2A 20 | *...... * |
000000A0: 22 53 48 4F 57 20 50 49 43 2E 35 32 34 38 30 22 |"SHOW PIC.52480"|
000000B0: 20 2D 20 52 4F 55 54 49 4E 45 20 2A 00 E1 08 96 | - ROUTINE *....|
000000C0: 00 8F 20 2A 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 20 20 | |
000000E0: 2A 00 06 09 A0 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000100: 2A 2A 2A 2A 2A 2A 00 0C 09 AA 00 8F 00 21 09 B4 |******.......!..|
00000110: 00 8F 20 4E 41 4D 45 4E 20 45 49 4E 47 45 42 45 |.. NAMEN EINGEBE|
00000120: 4E 00 27 09 BE 00 8F 00 43 09 C8 00 99 3A 99 3A |N.'.....C....:.:|
00000130: 99 20 22 4E 41 4D 45 20 44 45 53 20 42 49 4C 44 |. "NAME DES BILD|
00000140: 45 53 22 00 63 09 D2 00 99 20 22 28 4F 44 45 52 |ES".c.... "(ODER|
00000150: 20 24 20 46 55 45 52 20 44 49 52 45 43 54 4F 52 | $ FUER DIRECTOR|
00000160: 59 29 22 00 81 09 DC 00 41 24 B2 22 22 3A 85 20 |Y)".....A$."":. |
00000170: 41 24 3A 8B 20 41 24 B2 22 24 22 20 A7 20 34 35 |A$:. A$."$" . 45|
00000180: 30 00 87 09 E6 00 8F 00 A1 09 F0 00 8F 20 42 49 |0............ BI|
00000190: 4C 44 20 4C 41 44 45 4E 20 26 20 5A 45 49 47 45 |LD LADEN & ZEIGE|
000001A0: 4E 00 A7 09 FA 00 8F 00 BA 09 04 01 9E 20 35 32 |N............ 52|
000001B0: 34 38 30 2C 38 2C 41 24 2C 31 00 C0 09 0E 01 8F |480,8,A$,1......|
000001C0: 00 DB 09 18 01 8F 20 54 41 53 54 45 4E 44 52 55 |...... TASTENDRU|
000001D0: 43 4B 20 41 42 57 41 52 54 45 4E 00 E1 09 22 01 |CK ABWARTEN...".|
000001E0: 8F 00 F7 09 2C 01 A1 20 41 24 3A 8B 41 24 B2 22 |....,.. A$:.A$."|
000001F0: 22 20 A7 20 33 30 30 00 FD 09 36 01 8F 00 19 0A |" . 300...6.....|
00000200: 40 01 8F 20 54 45 58 54 4D 4F 44 55 53 20 45 49 |@.. TEXTMODUS EI|
00000210: 4E 53 43 48 41 4C 54 45 4E 00 1F 0A 4A 01 8F 00 |NSCHALTEN...J...|
00000220: 32 0A 54 01 9E 20 35 32 34 38 30 2C 38 2C 22 22 |2.T.. 52480,8,""|
00000230: 2C 30 00 5F 0A 5E 01 99 22 57 4F 4C 4C 45 4E 20 |,0._.^.."WOLLEN |
00000240: 53 49 45 20 44 41 53 20 42 49 4C 44 20 4E 4F 43 |SIE DAS BILD NOC|
00000250: 48 20 45 49 4E 4D 41 4C 20 53 45 48 45 4E 22 00 |H EINMAL SEHEN".|
00000260: 7D 0A 68 01 85 20 41 24 3A 8B 20 C8 28 41 24 2C |}.h.. A$:. .(A$,|
00000270: 31 29 B3 B1 22 4A 22 20 A7 20 32 30 30 00 83 0A |1).."J" . 200...|
00000280: 72 01 8F 00 A1 0A 7C 01 8F 20 42 49 4C 44 20 4E |r.....|.. BILD N|
00000290: 4F 43 48 20 45 49 4E 4D 41 4C 20 5A 45 49 47 45 |OCH EINMAL ZEIGE|
000002A0: 4E 00 A7 0A 86 01 8F 00 BA 0A 90 01 9E 20 35 32 |N............ 52|
000002B0: 34 38 30 2C 38 2C 22 22 2C 31 00 C4 0A 9A 01 89 |480,8,"",1......|
000002C0: 20 33 30 30 00 CA 0A A4 01 8F 00 E1 0A AE 01 8F | 300............|
000002D0: 20 44 49 52 45 43 54 4F 52 59 20 5A 45 49 47 45 | DIRECTORY ZEIGE|
000002E0: 4E 00 E7 0A B8 01 8F 00 15 0B C2 01 9F 20 31 2C |N............ 1,|
000002F0: 38 2C 30 2C 22 24 22 3A 97 37 38 31 2C 31 3A 9E |8,0,"$":.781,1:.|
00000300: 36 35 34 37 38 3A A1 20 41 24 2C 41 24 3A 5A 24 |65478:. A$,A$:Z$|
00000310: B2 C7 28 30 29 00 3F 0B CC 01 A1 20 41 24 2C 41 |..(0).?.... A$,A|
00000320: 24 2C 4C 24 2C 48 24 3A 8B 20 53 54 20 A7 20 9E |$,L$,H$:. ST . .|
00000330: 20 36 35 34 38 34 3A A0 31 3A 89 20 32 30 30 00 | 65484:.1:. 200.|
00000340: 5B 0B D1 01 99 C6 28 4C 24 AA 5A 24 29 AA 32 35 |[.....(L$.Z$).25|
00000350: 36 AC C6 28 48 24 AA 5A 24 29 3B 00 A9 0B D2 01 |6..(H$.Z$);.....|
00000360: A1 20 41 24 2C 42 24 2C 43 24 2C 44 24 2C 45 24 |. A$,B$,C$,D$,E$|
00000370: 2C 46 24 2C 47 24 2C 48 24 2C 49 24 2C 4A 24 2C |,F$,G$,H$,I$,J$,|
00000380: 4B 24 2C 4C 24 2C 4D 24 2C 4E 24 2C 4F 24 2C 50 |K$,L$,M$,N$,O$,P|
00000390: 24 2C 51 24 2C 52 24 2C 53 24 2C 54 24 2C 55 24 |$,Q$,R$,S$,T$,U$|
000003A0: 2C 56 24 2C 57 24 2C 58 24 00 E1 0B D3 01 99 20 |,V$,W$,X$...... |
000003B0: 41 24 42 24 43 24 44 24 45 24 46 24 47 24 48 24 |A$B$C$D$E$F$G$H$|
000003C0: 49 24 4A 24 4B 24 4C 24 4D 24 4E 24 4F 24 50 24 |I$J$K$L$M$N$O$P$|
000003D0: 51 24 52 24 53 24 54 24 55 24 56 24 57 24 58 24 |Q$R$S$T$U$V$W$X$|
000003E0: 3B 00 02 0C D6 01 A1 20 41 24 2C 42 24 3A 8B 20 |;...... A$,B$:. |
000003F0: 41 24 20 A7 20 99 20 41 24 42 24 3B 3A 89 20 34 |A$ . . A$B$;:. 4|
00000400: 37 30 00 10 0C E0 01 99 41 24 3A 89 20 34 36 30 |70......A$:. 460|
00000410: 00 1D 0C EA 01 A0 31 3A 89 20 32 30 30 00 23 0C |......1:. 200.#.|
00000420: F4 01 8F 00 44 0C FE 01 8F 20 53 59 4E 54 41 58 |....D.... SYNTAX|
00000430: 20 44 45 53 20 22 53 59 53 2D 42 45 46 45 48 4C | DES "SYS-BEFEHL|
00000440: 53 22 20 3A 00 4A 0C 08 02 8F 00 6E 0C 12 02 8F |S" :.J.....n....|
00000450: 20 53 59 53 20 35 32 34 38 30 2C 47 45 52 41 45 | SYS 52480,GERAE|
00000460: 54 2C 22 4E 41 4D 45 22 2C 4D 4F 44 55 53 00 74 |T,"NAME",MODUS.t|
00000470: 0C 1C 02 8F 00 91 0C 26 02 8F 20 47 45 52 41 45 |.......&.. GERAE|
00000480: 54 20 3A 20 47 45 52 41 45 54 45 4E 55 4D 4D 45 |T : GERAETENUMME|
00000490: 52 00 B6 0C 30 02 8F 20 20 20 20 20 20 20 20 20 |R...0.. |
000004A0: 20 31 3D 44 41 54 41 53 2E 20 38 3D 46 4C 4F 50 | 1=DATAS. 8=FLOP|
000004B0: 50 59 20 2E 2E 2E 00 BC 0C 3A 02 8F 00 D8 0C 44 |PY ......:.....D|
000004C0: 02 8F 20 22 4E 41 4D 45 22 20 3A 20 50 52 4F 47 |.. "NAME" : PROG|
000004D0: 52 41 4D 4D 4E 41 4D 45 00 F6 0C 4E 02 8F 20 20 |RAMMNAME...N.. |
000004E0: 20 20 20 20 20 20 20 20 5A 2E 42 2E 20 22 5B 42 | Z.B. "[B|
000004F0: 5D 54 45 53 54 22 00 1A 0D 58 02 8F 20 20 20 20 |]TEST"...X.. |
00000500: 20 20 20 20 20 20 57 49 52 44 20 41 4C 53 20 4E | WIRD ALS N|
00000510: 41 4D 45 20 4E 55 52 20 22 22 00 40 0D 62 02 8F |AME NUR "".@.b..|
00000520: 20 20 20 20 20 20 20 20 20 20 28 4C 45 45 52 53 | (LEERS|
00000530: 54 52 49 4E 47 29 20 41 4E 47 45 47 45 42 45 4E |TRING) ANGEGEBEN|
00000540: 00 64 0D 6C 02 8F 20 20 20 20 20 20 20 20 20 20 |.d.l.. |
00000550: 57 49 52 44 20 4B 45 49 4E 20 4E 45 55 45 53 20 |WIRD KEIN NEUES |
00000560: 42 49 4C 44 00 8A 0D 76 02 8F 20 20 20 20 20 20 |BILD...v.. |
00000570: 20 20 20 20 47 45 4C 41 44 45 4E 20 28 55 4D 20 | GELADEN (UM |
00000580: 4E 55 52 20 49 4E 20 44 45 4E 00 AF 0D 80 02 8F |NUR IN DEN......|
00000590: 20 20 20 20 20 20 20 20 20 20 54 45 58 54 2D 2F | TEXT-/|
000005A0: 47 52 41 46 49 4B 4D 4F 44 55 53 20 55 4D 2D 00 |GRAFIKMODUS UM-.|
000005B0: C9 0D 8A 02 8F 20 20 20 20 20 20 20 20 20 20 5A |..... Z|
000005C0: 55 53 43 48 41 4C 54 45 4E 00 CF 0D 94 02 8F 00 |USCHALTEN.......|
000005D0: EF 0D 9E 02 8F 20 4D 4F 44 55 53 20 20 3A 20 5A |..... MODUS : Z|
000005E0: 41 48 4C 20 56 4F 4E 20 30 20 42 49 53 20 32 00 |AHL VON 0 BIS 2.|
000005F0: 15 0E A8 02 8F 20 20 20 20 20 20 20 20 20 20 30 |..... 0|
00000600: 3D 54 45 58 54 4D 4F 44 2E 20 45 49 4E 53 43 48 |=TEXTMOD. EINSCH|
00000610: 41 4C 54 45 4E 00 34 0E B2 02 8F 20 20 20 20 20 |ALTEN.4.... |
00000620: 20 20 20 20 20 31 3D 47 52 41 46 49 4B 20 5A 45 | 1=GRAFIK ZE|
00000630: 49 47 45 4E 00 58 0E BC 02 8F 20 20 20 20 20 20 |IGEN.X.... |
00000640: 20 20 20 20 32 3D 41 4C 54 45 4E 20 4D 4F 44 55 | 2=ALTEN MODU|
00000650: 53 20 42 45 49 42 45 2D 00 7E 0E C6 02 8F 20 20 |S BEIBE-.~.... |
00000660: 20 20 20 20 20 20 20 20 20 20 48 41 4C 54 45 4E | HALTEN|
00000670: 20 28 4E 55 52 20 53 49 4E 4E 56 4F 4C 4C 00 A2 | (NUR SINNVOLL..|
00000680: 0E D0 02 8F 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00000690: 57 45 4E 4E 20 41 55 43 48 20 45 49 4E 20 42 49 |WENN AUCH EIN BI|
000006A0: 4C 44 00 C3 0E DA 02 8F 20 20 20 20 20 20 20 20 |LD...... |
000006B0: 20 20 20 20 47 45 4C 41 44 45 4E 20 57 49 52 44 | GELADEN WIRD|
000006C0: 2C 44 41 00 E5 0E E4 02 8F 20 20 20 20 20 20 20 |,DA...... |
000006D0: 20 20 20 20 20 53 4F 4E 53 54 20 47 41 52 20 4E | SONST GAR N|
000006E0: 49 43 48 54 53 00 00 0F EE 02 8F 20 20 20 20 20 |ICHTS...... |
000006F0: 20 20 20 20 20 20 20 50 41 53 53 49 45 52 54 29 | PASSIERT)|
00000700: 00 06 0F F8 02 8F 00 2A 0F 02 03 8F 20 45 53 20 |.......*.... ES |
00000710: 49 53 54 20 44 41 52 41 55 46 20 5A 55 20 41 43 |IST DARAUF ZU AC|
00000720: 48 54 45 4E 2C 20 44 41 53 53 00 4B 0F 0C 03 8F |HTEN, DASS.K....|
00000730: 20 44 41 53 20 42 49 4C 44 20 41 55 43 48 20 57 | DAS BILD AUCH W|
00000740: 49 52 4B 4C 49 43 48 20 4D 49 54 00 6B 0F 16 03 |IRKLICH MIT.k...|
00000750: 8F 20 22 41 4D 49 43 41 20 50 41 49 4E 54 22 20 |. "AMICA PAINT" |
00000760: 47 45 53 50 45 49 43 48 45 52 54 00 8E 0F 20 03 |GESPEICHERT... .|
00000770: 8F 20 57 55 52 44 45 2C 20 53 4F 4E 53 54 20 49 |. WURDE, SONST I|
00000780: 53 54 20 45 49 4E 20 41 42 53 54 55 52 5A 00 AA |ST EIN ABSTURZ..|
00000790: 0F 2A 03 8F 20 44 45 53 20 52 45 43 48 4E 45 52 |.*.. DES RECHNER|
000007A0: 53 20 4D 4F 45 47 4C 49 43 48 00 00 00 |S MOEGLICH... |
..(.D.. M.0 . M.1:. "SHOW PIC.52480",8,1
.M.N.. ******************************.R.
X.. * *......
* BASIC DEMO ZUR *...... *
"SHOW PIC.52480" - ROUTINE *...... *
*... .. ********
**********************.......!.... NAMEN
EINGEBEN.'.....C.H..:.:. "NAME DES BILD
ES".C.R.. "(ODER $ FUER DIRECTORY)".....
A$."":. A$:. A$."$" . 450............ BI
LD LADEN & ZEIGEN............ 52480,8,A$
,1............ TASTENDRUCK ABWARTEN...".
....,.. A$:.A$."" . 300...6.....@.. TEXT
MODUS EINSCHALTEN...J...2.T.. 52480,8,""
,0._.^.."WOLLEN SIE DAS BILD NOCH EINMAL
SEHEN".}.H.. A$:. H(A$,1).."J" . 200...
R.....|.. BILD NOCH EINMAL ZEIGEN.......
..... 52480,8,"",1.D.... 300.J..........
DIRECTORY ZEIGEN.........B.. 1,8,0,"$":
.781,1:.65478:. A$,A$:Z$.G(0).?.L.. A$,A
$,L$,H$:. ST . . 65484: 1:. 200.[.Q..F(L
$.Z$).256.F(H$.Z$);...R.. A$,B$,C$,D$,E$
,F$,G$,H$,I$,J$,K$,L$,M$,N$,O$,P$,Q$,R$,
S$,T$,U$,V$,W$,X$...S.. A$B$C$D$E$F$G$H$
I$J$K$L$M$N$O$P$Q$R$S$T$U$V$W$X$;...V..
A$,B$:. A$ . . A$B$;:. 470......A$:. 460
..... 1:. 200.#.....D.... SYNTAX DES "SY
S-BEFEHLS" :.J.....N.... SYS 52480,GERAE
T,"NAME",MODUS.T.......&.. GERAET : GERA
ETENUMMER...0.. 1=DATAS. 8=FLOP
PY ......:...X.D.. "NAME" : PROGRAMMNAME
...N.. Z.B. "[B]TEST"...X..
WIRD ALS NAME NUR "".@.B..
(LEERSTRING) ANGEGEBEN.D.L..
WIRD KEIN NEUES BILD...V.. GELA
DEN (UM NUR IN DEN...... TEXT-/
GRAFIKMODUS UM-.I.... ZUSCHALTE
N.O.......... MODUS : ZAHL VON 0 BIS 2.
..... 0=TEXTMOD. EINSCHALTEN.4.
... 1=GRAFIK ZEIGEN.X....
2=ALTEN MODUS BEIBE-.~.F..
HALTEN (NUR SINNVOLL...P..
WENN AUCH EIN BILD.C.Z.. GELA
DEN WIRD,DA...... SONST GAR N
ICHTS...... PASSIERT).......*
.... ES IST DARAUF ZU ACHTEN, DASS.K....
DAS BILD AUCH WIRKLICH MIT.K.... "AMICA
PAINT" GESPEICHERT... .. WURDE, SONST I
ST EIN ABSTURZ...*.. DES RECHNERS MOEGLI
CH...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL