DEMO SHOW.PIC
FILE INFORMATION
FILENAME(S): DEMO SHOW.PIC
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-12-02 02:01:01
APPEARS ON: 1 disk(s)
FILE HASH
cf61e698c83ace9c6819447e88f13a41543ee2f20b16d738634bbb4772a1d792
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AMICA PAINT | DEMO SHOW.PIC | PRG | marcus | 19 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 64 00 8B 20 4D B2 30 A7 4D B2 31 3A |..%.d.. M.0.M.1:| 00000010: 93 22 53 48 4F 57 20 50 49 43 2E 35 32 34 38 30 |."SHOW PIC.52480| 00000020: 22 2C 38 2C 31 00 4A 08 6E 00 8F 20 2A 2A 2A 2A |",8,1.J.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 00 6F 08 78 00 8F |**********.o.x..| 00000050: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 00000070: 94 08 82 00 8F 20 2A 20 42 41 53 49 43 20 44 45 |..... * BASIC DE| 00000080: 4D 4F 20 5A 55 52 20 20 20 20 20 20 20 20 20 20 |MO ZUR | 00000090: 20 20 20 2A 00 B9 08 8C 00 8F 20 2A 20 22 53 48 | *...... * "SH| 000000A0: 4F 57 20 50 49 43 2E 35 32 34 38 30 22 20 2D 20 |OW PIC.52480" - | 000000B0: 52 4F 55 54 49 4E 45 20 2A 00 DE 08 96 00 8F 20 |ROUTINE *...... | 000000C0: 2A 20 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 2A 00 03 | *..| 000000E0: 09 A0 00 8F 20 2A 2A 2A 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 00 09 09 AA 00 8F 00 1E 09 B4 00 8F 20 |***............ | 00000110: 4E 41 4D 45 4E 20 45 49 4E 47 45 42 45 4E 00 24 |NAMEN EINGEBEN.$| 00000120: 09 BE 00 8F 00 3F 09 C8 00 99 3A 99 3A 99 22 4E |.....?....:.:."N| 00000130: 41 4D 45 20 44 45 53 20 42 49 4C 44 45 53 22 00 |AME DES BILDES".| 00000140: 5D 09 D2 00 99 22 28 4F 44 45 52 20 24 46 55 45 |]...."(ODER $FUE| 00000150: 52 20 44 49 52 45 43 54 4F 52 59 29 22 00 77 09 |R DIRECTORY)".w.| 00000160: DC 00 41 24 B2 22 22 3A 85 41 24 3A 8B 41 24 B2 |..A$."":.A$:.A$.| 00000170: 22 24 22 A7 34 35 30 00 7D 09 E6 00 8F 00 97 09 |"$".450.}.......| 00000180: F0 00 8F 20 42 49 4C 44 20 4C 41 44 45 4E 20 26 |... BILD LADEN &| 00000190: 20 5A 45 49 47 45 4E 00 9D 09 FA 00 8F 00 AF 09 | ZEIGEN.........| 000001A0: 04 01 9E 35 32 34 38 30 2C 38 2C 41 24 2C 31 00 |...52480,8,A$,1.| 000001B0: B5 09 0E 01 8F 00 D0 09 18 01 8F 20 54 41 53 54 |........... TAST| 000001C0: 45 4E 44 52 55 43 4B 20 41 42 57 41 52 54 45 4E |ENDRUCK ABWARTEN| 000001D0: 00 D6 09 22 01 8F 00 EA 09 2C 01 A1 20 41 24 3A |...".....,.. A$:| 000001E0: 8B 41 24 B2 22 22 A7 33 30 30 00 F0 09 36 01 8F |.A$."".300...6..| 000001F0: 00 0C 0A 40 01 8F 20 54 45 58 54 4D 4F 44 55 53 |...@.. TEXTMODUS| 00000200: 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 12 0A 4A | EINSCHALTEN...J| 00000210: 01 8F 00 24 0A 54 01 9E 35 32 34 38 30 2C 38 2C |...$.T..52480,8,| 00000220: 22 22 2C 30 00 51 0A 5E 01 99 22 57 4F 4C 4C 45 |"",0.Q.^.."WOLLE| 00000230: 4E 20 53 49 45 20 44 41 53 20 42 49 4C 44 20 4E |N SIE DAS BILD N| 00000240: 4F 43 48 20 45 49 4E 4D 41 4C 20 53 45 48 45 4E |OCH EINMAL SEHEN| 00000250: 22 00 6B 0A 68 01 85 41 24 3A 8B C8 28 41 24 2C |".k.h..A$:..(A$,| 00000260: 31 29 B3 B1 22 4A 22 A7 32 30 30 00 71 0A 72 01 |1).."J".200.q.r.| 00000270: 8F 00 8F 0A 7C 01 8F 20 42 49 4C 44 20 4E 4F 43 |....|.. BILD NOC| 00000280: 48 20 45 49 4E 4D 41 4C 20 5A 45 49 47 45 4E 00 |H EINMAL ZEIGEN.| 00000290: 95 0A 86 01 8F 00 A7 0A 90 01 9E 35 32 34 38 30 |...........52480| 000002A0: 2C 38 2C 22 22 2C 31 00 B0 0A 9A 01 89 33 30 30 |,8,"",1......300| 000002B0: 00 B6 0A A4 01 8F 00 CD 0A AE 01 8F 20 44 49 52 |............ DIR| 000002C0: 45 43 54 4F 52 59 20 5A 45 49 47 45 4E 00 D3 0A |ECTORY ZEIGEN...| 000002D0: B8 01 8F 00 FF 0A C2 01 9F 31 2C 38 2C 30 2C 22 |.........1,8,0,"| 000002E0: 24 22 3A 97 37 38 31 2C 31 3A 9E 36 35 34 37 38 |$":.781,1:.65478| 000002F0: 3A A1 41 24 2C 41 24 3A 5A 24 B2 C7 28 30 29 00 |:.A$,A$:Z$..(0).| 00000300: 23 0B CC 01 A1 41 24 2C 41 24 2C 4C 24 2C 48 24 |#....A$,A$,L$,H$| 00000310: 3A 8B 53 54 A7 9E 36 35 34 38 34 3A A0 31 3A 89 |:.ST..65484:.1:.| 00000320: 32 30 30 00 3F 0B D1 01 99 C6 28 4C 24 AA 5A 24 |200.?.....(L$.Z$| 00000330: 29 AA 32 35 36 AC C6 28 48 24 AA 5A 24 29 3B 00 |).256..(H$.Z$);.| 00000340: 8C 0B D2 01 A1 41 24 2C 42 24 2C 43 24 2C 44 24 |.....A$,B$,C$,D$| 00000350: 2C 45 24 2C 46 24 2C 47 24 2C 48 24 2C 49 24 2C |,E$,F$,G$,H$,I$,| 00000360: 4A 24 2C 4B 24 2C 4C 24 2C 4D 24 2C 4E 24 2C 4F |J$,K$,L$,M$,N$,O| 00000370: 24 2C 50 24 2C 51 24 2C 52 24 2C 53 24 2C 54 24 |$,P$,Q$,R$,S$,T$| 00000380: 2C 55 24 2C 56 24 2C 57 24 2C 58 24 00 C3 0B D3 |,U$,V$,W$,X$....| 00000390: 01 99 41 24 42 24 43 24 44 24 45 24 46 24 47 24 |..A$B$C$D$E$F$G$| 000003A0: 48 24 49 24 4A 24 4B 24 4C 24 4D 24 4E 24 4F 24 |H$I$J$K$L$M$N$O$| 000003B0: 50 24 51 24 52 24 53 24 54 24 55 24 56 24 57 24 |P$Q$R$S$T$U$V$W$| 000003C0: 58 24 3B 00 DE 0B D6 01 A1 41 24 2C 42 24 3A 8B |X$;......A$,B$:.| 000003D0: 41 24 A7 99 41 24 42 24 3B 3A 89 34 37 30 00 EB |A$..A$B$;:.470..| 000003E0: 0B E0 01 99 41 24 3A 89 34 36 30 00 F7 0B EA 01 |....A$:.460.....| 000003F0: A0 31 3A 89 32 30 30 00 FD 0B F4 01 8F 00 1E 0C |.1:.200.........| 00000400: FE 01 8F 20 53 59 4E 54 41 58 20 44 45 53 20 22 |... SYNTAX DES "| 00000410: 53 59 53 2D 42 45 46 45 48 4C 53 22 20 3A 00 24 |SYS-BEFEHLS" :.$| 00000420: 0C 08 02 8F 00 47 0C 12 02 8F 20 53 59 53 35 32 |.....G.... SYS52| 00000430: 34 38 30 2C 47 45 52 41 45 54 2C 22 4E 41 4D 45 |480,GERAET,"NAME| 00000440: 22 2C 4D 4F 44 55 53 00 4D 0C 1C 02 8F 00 6A 0C |",MODUS.M.....j.| 00000450: 26 02 8F 20 47 45 52 41 45 54 20 3A 20 47 45 52 |&.. GERAET : GER| 00000460: 41 45 54 45 4E 55 4D 4D 45 52 00 8F 0C 30 02 8F |AETENUMMER...0..| 00000470: 20 20 20 20 20 20 20 20 20 20 31 3D 44 41 54 41 | 1=DATA| 00000480: 53 2E 20 38 3D 46 4C 4F 50 50 59 20 2E 2E 2E 00 |S. 8=FLOPPY ....| 00000490: 95 0C 3A 02 8F 00 B1 0C 44 02 8F 20 22 4E 41 4D |..:.....D.. "NAM| 000004A0: 45 22 20 3A 20 50 52 4F 47 52 41 4D 4D 4E 41 4D |E" : PROGRAMMNAM| 000004B0: 45 00 CF 0C 4E 02 8F 20 20 20 20 20 20 20 20 20 |E...N.. | 000004C0: 20 5A 2E 42 2E 20 22 5B 42 5D 54 45 53 54 22 00 | Z.B. "[B]TEST".| 000004D0: F3 0C 58 02 8F 20 20 20 20 20 20 20 20 20 20 57 |..X.. W| 000004E0: 49 52 44 20 41 4C 53 20 4E 41 4D 45 20 4E 55 52 |IRD ALS NAME NUR| 000004F0: 20 22 22 00 19 0D 62 02 8F 20 20 20 20 20 20 20 | ""...b.. | 00000500: 20 20 20 28 4C 45 45 52 53 54 52 49 4E 47 29 20 | (LEERSTRING) | 00000510: 41 4E 47 45 47 45 42 45 4E 00 3D 0D 6C 02 8F 20 |ANGEGEBEN.=.l.. | 00000520: 20 20 20 20 20 20 20 20 20 57 49 52 44 20 4B 45 | WIRD KE| 00000530: 49 4E 20 4E 45 55 45 53 20 42 49 4C 44 00 63 0D |IN NEUES BILD.c.| 00000540: 76 02 8F 20 20 20 20 20 20 20 20 20 20 47 45 4C |v.. GEL| 00000550: 41 44 45 4E 20 28 55 4D 20 4E 55 52 20 49 4E 20 |ADEN (UM NUR IN | 00000560: 44 45 4E 00 88 0D 80 02 8F 20 20 20 20 20 20 20 |DEN...... | 00000570: 20 20 20 54 45 58 54 2D 2F 47 52 41 46 49 4B 4D | TEXT-/GRAFIKM| 00000580: 4F 44 55 53 20 55 4D 2D 00 A2 0D 8A 02 8F 20 20 |ODUS UM-...... | 00000590: 20 20 20 20 20 20 20 20 5A 55 53 43 48 41 4C 54 | ZUSCHALT| 000005A0: 45 4E 00 A8 0D 94 02 8F 00 C7 0D 9E 02 8F 20 4D |EN............ M| 000005B0: 4F 44 55 53 20 20 3A 20 5A 41 48 4C 20 56 4F 4E |ODUS : ZAHL VON| 000005C0: 20 30 42 49 53 20 32 00 EC 0D A8 02 8F 20 20 20 | 0BIS 2...... | 000005D0: 20 20 20 20 20 20 20 30 3D 54 45 58 54 4D 4F 44 | 0=TEXTMOD| 000005E0: 2E 45 49 4E 53 43 48 41 4C 54 45 4E 00 0B 0E B2 |.EINSCHALTEN....| 000005F0: 02 8F 20 20 20 20 20 20 20 20 20 20 31 3D 47 52 |.. 1=GR| 00000600: 41 46 49 4B 20 5A 45 49 47 45 4E 00 2F 0E BC 02 |AFIK ZEIGEN./...| 00000610: 8F 20 20 20 20 20 20 20 20 20 20 32 3D 41 4C 54 |. 2=ALT| 00000620: 45 4E 20 4D 4F 44 55 53 20 42 45 49 42 45 2D 00 |EN MODUS BEIBE-.| 00000630: 53 0E C6 02 8F 20 20 20 20 20 20 20 20 20 20 48 |S.... H| 00000640: 41 4C 54 45 4E 20 28 4E 55 52 20 53 49 4E 4E 56 |ALTEN (NUR SINNV| 00000650: 4F 4C 4C 00 75 0E D0 02 8F 20 20 20 20 20 20 20 |OLL.u.... | 00000660: 20 20 20 57 45 4E 4E 20 41 55 43 48 20 45 49 4E | WENN AUCH EIN| 00000670: 20 42 49 4C 44 00 94 0E DA 02 8F 20 20 20 20 20 | BILD...... | 00000680: 20 20 20 20 20 47 45 4C 41 44 45 4E 20 57 49 52 | GELADEN WIR| 00000690: 44 2C 44 41 00 B4 0E E4 02 8F 20 20 20 20 20 20 |D,DA...... | 000006A0: 20 20 20 20 53 4F 4E 53 54 20 47 41 52 20 4E 49 | SONST GAR NI| 000006B0: 43 48 54 53 00 C4 0E EE 02 8F 20 50 41 53 53 49 |CHTS...... PASSI| 000006C0: 45 52 54 29 00 CA 0E F8 02 8F 00 EE 0E 02 03 8F |ERT)............| 000006D0: 20 45 53 20 49 53 54 20 44 41 52 41 55 46 20 5A | ES IST DARAUF Z| 000006E0: 55 20 41 43 48 54 45 4E 2C 20 44 41 53 53 00 0F |U ACHTEN, DASS..| 000006F0: 0F 0C 03 8F 20 44 41 53 20 42 49 4C 44 20 41 55 |.... DAS BILD AU| 00000700: 43 48 20 57 49 52 4B 4C 49 43 48 20 4D 49 54 00 |CH WIRKLICH MIT.| 00000710: 2F 0F 16 03 8F 20 22 41 4D 49 43 41 20 50 41 49 |/.... "AMICA PAI| 00000720: 4E 54 22 20 47 45 53 50 45 49 43 48 45 52 54 00 |NT" GESPEICHERT.| 00000730: 52 0F 20 03 8F 20 57 55 52 44 45 2C 20 53 4F 4E |R. .. WURDE, SON| 00000740: 53 54 20 49 53 54 20 45 49 4E 20 41 42 53 54 55 |ST IST EIN ABSTU| 00000750: 52 5A 00 6E 0F 2A 03 8F 20 44 45 53 20 52 45 43 |RZ.n.*.. DES REC| 00000760: 48 4E 45 52 53 20 4D 4F 45 47 4C 49 43 48 00 00 |HNERS MOEGLICH..| 00000770: 00 |. |
..%.D.. M.0.M.1:."SHOW PIC.52480",8,1.J.
N.. ******************************.O.X..
* *...... *
BASIC DEMO ZUR *...... * "SH
OW PIC.52480" - ROUTINE *...... *
*... .. ***********
*******************............ NAMEN EI
NGEBEN.$.....?.H..:.:."NAME DES BILDES".
].R.."(ODER $FUER DIRECTORY)".W...A$."":
.A$:.A$."$".450.}.......... BILD LADEN &
ZEIGEN............52480,8,A$,1.......P.
... TASTENDRUCK ABWARTEN.V.".....,.. A$:
.A$."".300...6.....@.. TEXTMODUS EINSCHA
LTEN...J...$.T..52480,8,"",0.Q.^.."WOLLE
N SIE DAS BILD NOCH EINMAL SEHEN".K.H..A
$:.H(A$,1).."J".200.Q.R.....|.. BILD NOC
H EINMAL ZEIGEN............52480,8,"",1.
.....300.......M.... DIRECTORY ZEIGEN.S.
......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$.C.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............ SYNTAX DES "
SYS-BEFEHLS" :.$.....G.... SYS52480,GERA
ET,"NAME",MODUS.M.....J.&.. GERAET : GER
AETENUMMER...0.. 1=DATAS. 8=FLO
PPY ......:.....D.. "NAME" : PROGRAMMNAM
E.O.N.. Z.B. "[B]TEST"...X..
WIRD ALS NAME NUR ""...B..
(LEERSTRING) ANGEGEBEN.=.L..
WIRD KEIN NEUES BILD.C.V.. GEL
ADEN (UM NUR IN DEN...... TEXT-
/GRAFIKMODUS UM-...... ZUSCHALT
EN.......G.... MODUS : ZAHL VON 0BIS 2.
..... 0=TEXTMOD.EINSCHALTEN....
.. 1=GRAFIK ZEIGEN./....
2=ALTEN MODUS BEIBE-.S.F.. H
ALTEN (NUR SINNVOLL.U.P.. WENN
AUCH EIN BILD...Z.. GELADEN WIR
D,DA...... SONST GAR NICHTS.D..
.. PASSIERT).J.......... ES IST DARAUF Z
U ACHTEN, DASS...... DAS BILD AUCH WIRKL
ICH MIT./.... "AMICA PAINT" GESPEICHERT.
R. .. WURDE, SONST IST EIN ABSTURZ.N.*..
DES RECHNERS MOEGLICH...
> CLICK IMAGE PREVIEW FOR FULL MODAL