DEMO.ALLGEMEIN
FILE INFORMATION
FILENAME(S): DEMO.ALLGEMEIN
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-10-20 14:31:31
APPEARS ON: 1 disk(s)
FILE HASH
bc672380cd98472f0fe5fc8ffd9dd205c45978e44a0a7dfcd3aff92218260ae3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER 09 94 | DEMO.ALLGEMEIN | PRG | C64er, Treasure Chest - Klaus Der Suhler | 6 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 50 29 5B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.P)[ ***********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 2A 5B 2A 2A 20 |**********)*[** |
00000030: 20 20 20 20 20 20 20 20 20 44 45 4D 4F 2D 50 52 | DEMO-PR|
00000040: 4F 47 52 41 4D 4D 20 20 20 20 20 20 20 20 20 20 |OGRAMM |
00000050: 20 20 2A 2A 2A 2A 5B 2A 2A 20 20 20 20 20 20 20 | ****[** |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A | ****|
00000080: 5B 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 41 |[** A|
00000090: 4C 4C 47 45 4D 45 49 4E 20 20 20 20 20 20 20 20 |LLGEMEIN |
000000A0: 20 20 20 20 20 20 2A 2A 2A 29 5B 20 2A 2A 2A 2A | ***)[ ****|
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 29 03 0D 03 03 0D 03 2A 46 4F 52 49 3D 30 54 |*)......*FORI=0T|
000000E0: 4F 39 39 39 3A 50 4F 4B 45 20 31 30 32 34 2B 49 |O999:POKE 1024+I|
000000F0: 2C 50 45 45 4B 28 31 36 32 29 3A 50 4F 4B 45 35 |,PEEK(162):POKE5|
00000100: 35 2A 16 32 39 36 2B 49 2C 50 45 45 4B 28 31 36 |5*.296+I,PEEK(16|
00000110: 32 29 3A 4E 45 58 54 16 23 41 3D 30 3A 41 31 3D |2):NEXT.#A=0:A1=|
00000120: 30 3A 41 32 3D 31 3A 41 33 3D 33 39 3A 41 34 3D |0:A2=1:A3=39:A4=|
00000130: 32 34 3A 58 3D 30 3A 59 3D 30 23 03 0D 03 2A 5B |24:X=0:Y=0#...*[|
00000140: 42 45 49 44 45 20 5A 45 49 4C 45 4E 20 45 52 48 |BEIDE ZEILEN ERH|
00000150: 41 4C 54 45 4E 20 45 49 4E 45 20 5A 45 49 4C 45 |ALTEN EINE ZEILE|
00000160: 4E 4E 55 4D 4D 45 52 2A 2A 5B 53 45 54 5A 54 20 |NNUMMER**[SETZT |
00000170: 4D 41 4E 20 48 49 4E 54 45 52 20 44 45 4D 20 27 |MAN HINTER DEM '|
00000180: 4E 45 58 54 27 20 45 49 4E 20 44 4F 50 50 45 4C |NEXT' EIN DOPPEL|
00000190: 2D 2A 2A 5B 50 55 4E 4B 54 2C 20 45 52 48 41 45 |-**[PUNKT, ERHAE|
000001A0: 4C 54 20 44 49 45 20 5A 45 49 4C 45 20 4D 49 54 |LT DIE ZEILE MIT|
000001B0: 20 44 45 4E 20 56 41 52 49 41 42 2A 28 5B 42 4C | DEN VARIAB*([BL|
000001C0: 45 4E 20 4B 45 49 4E 45 20 5A 45 49 4C 45 4E 4E |EN KEINE ZEILENN|
000001D0: 55 4D 4D 45 52 2C 20 53 4F 4E 44 45 52 4E 20 57 |UMMER, SONDERN W|
000001E0: 49 52 44 28 1E 5B 41 4E 20 44 49 45 20 31 2E 20 |IRD(.[AN DIE 1. |
000001F0: 5A 45 49 4C 45 20 41 4E 47 45 48 41 45 4E 47 54 |ZEILE ANGEHAENGT|
00000200: 2E 1E 03 0D 03 03 0D 03 07 5F 4C 4F 4F 50 07 03 |........._LOOP..|
00000210: 0D 03 1B 49 46 20 41 33 3C 30 20 4F 52 20 41 34 |...IF A3<0 OR A4|
00000220: 20 3C 30 20 54 48 45 4E 20 45 4E 44 1B 03 0D 03 | <0 THEN END....|
00000230: 17 50 4F 4B 45 20 31 30 32 34 2B 58 2B 28 59 2A |.POKE 1024+X+(Y*|
00000240: 34 30 29 2C 33 32 17 03 0D 03 22 49 46 58 3C 41 |40),32...."IFX<A|
00000250: 33 20 41 4E 44 20 41 3D 30 20 54 48 45 4E 20 58 |3 AND A=0 THEN X|
00000260: 3D 58 2B 31 3A 47 CF 4C 4F 4F 50 22 23 49 46 58 |=X+1:G.LOOP"#IFX|
00000270: 3D 41 33 20 41 4E 44 20 59 3C 41 34 20 54 48 45 |=A3 AND Y<A4 THE|
00000280: 4E 20 59 3D 59 2B 31 3A 47 CF 4C 4F 4F 50 23 27 |N Y=Y+1:G.LOOP#'|
00000290: 49 46 59 3D 41 34 20 41 4E 44 20 58 3E 41 31 20 |IFY=A4 AND X>A1 |
000002A0: 54 48 45 4E 20 58 3D 58 2D 31 3A 41 3D 31 3A 47 |THEN X=X-1:A=1:G|
000002B0: CF 4C 4F 4F 50 27 23 49 46 58 3D 41 31 20 41 4E |.LOOP'#IFX=A1 AN|
000002C0: 44 20 59 3E 41 32 20 54 48 45 4E 20 59 3D 59 2D |D Y>A2 THEN Y=Y-|
000002D0: 31 3A 47 CF 4C 4F 4F 50 23 03 0D 03 25 41 3D 30 |1:G.LOOP#...%A=0|
000002E0: 3A 41 31 3D 41 31 2B 31 3A 41 32 3D 41 32 2B 31 |:A1=A1+1:A2=A2+1|
000002F0: 3A 41 33 3D 41 33 2D 31 3A 41 34 3D 41 34 2D 31 |:A3=A3-1:A4=A4-1|
00000300: 25 03 0D 03 0B 47 4F 54 4F 20 4C 4F 4F 50 0B 03 |%....GOTO LOOP..|
00000310: 0D 03 05 52 45 4D 05 2A 5B 2A 2A 2A 2A 2A 2A 2A |...REM.*[*******|
00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000340: 2A 03 0D 03 2A 5B 53 54 45 48 45 4E 20 41 4D 20 |*...*[STEHEN AM |
00000350: 52 45 43 48 54 45 4E 20 52 41 4E 44 20 45 49 4E |RECHTEN RAND EIN|
00000360: 45 52 20 5A 45 49 4C 45 20 4D 45 48 52 2A 03 0D |ER ZEILE MEHR*..|
00000370: 03 29 5B 41 4C 53 20 31 20 4C 45 45 52 5A 45 49 |.)[ALS 1 LEERZEI|
00000380: 43 48 45 4E 2C 20 45 52 48 41 45 4C 54 20 44 49 |CHEN, ERHAELT DI|
00000390: 45 53 45 20 5A 45 49 4C 45 29 03 0D 03 27 5B 45 |ESE ZEILE)...'[E|
000003A0: 49 4E 45 20 45 49 47 45 4E 45 20 5A 45 49 4C 45 |INE EIGENE ZEILE|
000003B0: 4E 4E 55 4D 4D 45 52 2C 20 53 4F 46 45 52 4E 20 |NNUMMER, SOFERN |
000003C0: 44 41 53 27 03 0D 03 27 5B 4C 45 54 5A 54 45 20 |DAS'...'[LETZTE |
000003D0: 5A 45 49 43 48 45 4E 20 4B 45 49 4E 20 44 4F 50 |ZEICHEN KEIN DOP|
000003E0: 50 45 4C 50 55 4E 4B 54 20 4F 44 45 52 27 03 0D |PELPUNKT ODER'..|
000003F0: 03 0D 5B 4B 4F 4D 4D 41 20 49 53 54 2E 0D 03 0D |..[KOMMA IST....|
00000400: 03 03 0D 03 29 5B 42 45 53 49 54 5A 54 20 45 49 |....)[BESITZT EI|
00000410: 4E 45 20 5A 45 49 4C 45 20 33 39 20 4F 44 45 52 |NE ZEILE 39 ODER|
00000420: 20 34 30 20 5A 45 49 43 48 45 4E 2C 29 03 0D 03 | 40 ZEICHEN,)...|
00000430: 29 5B 53 4F 20 45 52 48 41 45 4C 54 20 53 49 45 |)[SO ERHAELT SIE|
00000440: 20 44 41 4E 4E 20 45 49 4E 45 20 45 49 47 45 4E | DANN EINE EIGEN|
00000450: 45 20 5A 45 49 4C 45 4E 29 03 0D 03 28 5B 4E 55 |E ZEILEN)...([NU|
00000460: 4D 4D 45 52 2C 20 57 45 4E 4E 20 44 49 45 20 46 |MMER, WENN DIE F|
00000470: 4F 4C 47 45 4E 44 45 20 42 49 4C 44 53 43 48 49 |OLGENDE BILDSCHI|
00000480: 52 4D 2D 28 03 0D 03 29 5B 5A 45 49 4C 45 20 45 |RM-(...)[ZEILE E|
00000490: 49 4E 45 20 4C 45 45 52 2D 20 4F 2E 20 4B 4F 4D |INE LEER- O. KOM|
000004A0: 4D 45 4E 54 41 52 5A 45 49 4C 45 20 49 53 54 29 |MENTARZEILE IST)|
000004B0: 03 0D 03 28 5B 4F 44 45 52 20 4D 49 54 20 45 49 |...([ODER MIT EI|
000004C0: 4E 45 4D 20 4C 41 42 45 4C 20 42 45 47 49 4E 4E |NEM LABEL BEGINN|
000004D0: 54 2E 20 49 53 54 20 44 41 53 28 03 0D 03 2A 5B |T. IST DAS(...*[|
000004E0: 4E 49 43 48 54 20 44 45 52 20 46 41 4C 4C 2C 20 |NICHT DER FALL, |
000004F0: 57 49 52 44 20 44 49 45 20 4E 41 45 43 48 53 54 |WIRD DIE NAECHST|
00000500: 45 20 5A 45 49 4C 45 2A 03 0D 03 27 5B 41 4E 20 |E ZEILE*...'[AN |
00000510: 44 49 45 53 45 20 5A 45 49 4C 45 20 41 4E 47 45 |DIESE ZEILE ANGE|
00000520: 48 41 45 4E 47 54 20 28 55 4E 54 45 52 20 44 45 |HAENGT (UNTER DE|
00000530: 52 27 03 0D 03 2A 5B 53 45 4C 42 45 4E 20 5A 45 |R'...*[SELBEN ZE|
00000540: 49 4C 45 4E 4E 55 4D 4D 45 52 21 29 2E 20 41 4C |ILENNUMMER!). AL|
00000550: 53 4F 20 41 55 46 47 45 50 41 53 53 54 21 2A 03 |SO AUFGEPASST!*.|
00000560: 0D 03 03 0D 03 29 5B 44 49 45 53 45 52 20 45 44 |.....)[DIESER ED|
00000570: 49 54 4F 52 20 4B 41 4E 4E 20 5A 45 49 4C 45 4E |ITOR KANN ZEILEN|
00000580: 20 42 49 53 20 4D 41 58 2E 20 31 31 36 29 03 0D | BIS MAX. 116)..|
00000590: 03 29 5B 5A 45 49 43 48 45 4E 20 41 55 46 20 45 |.)[ZEICHEN AUF E|
000005A0: 49 4E 4D 41 4C 20 45 49 4E 4C 45 53 45 4E 20 55 |INMAL EINLESEN U|
000005B0: 4E 44 20 55 45 42 45 52 2D 29 03 0D 03 2A 5B 53 |ND UEBER-)...*[S|
000005C0: 45 54 5A 45 4E 2E 20 4C 41 45 4E 47 45 52 45 20 |ETZEN. LAENGERE |
000005D0: 5A 45 49 4C 45 4E 20 4D 55 45 53 53 45 4E 20 44 |ZEILEN MUESSEN D|
000005E0: 45 53 48 41 4C 42 2A 03 0D 03 29 5B 41 55 46 20 |ESHALB*...)[AUF |
000005F0: 4D 45 48 52 45 52 45 4E 20 42 49 4C 44 53 43 48 |MEHREREN BILDSCH|
00000600: 49 52 4D 5A 45 49 4C 45 4E 20 56 45 52 54 45 49 |IRMZEILEN VERTEI|
00000610: 4C 54 29 03 0D 03 0A 5B 57 45 52 44 45 4E 21 0A |LT)....[WERDEN!.|
00000620: 03 0D 03 0C 5B 42 45 49 53 50 49 45 4C 3A 0C 03 |....[BEISPIEL:..|
00000630: 0D 03 2A 46 4F 52 20 49 3D 30 20 54 4F 31 30 30 |..*FOR I=0 TO100|
00000640: 30 3A 50 4F 4B 45 31 30 32 34 2B 49 2C 52 4E 44 |0:POKE1024+I,RND|
00000650: 28 30 29 2A 31 30 3A 4E 45 58 54 2A 0E 50 52 49 |(0)*10:NEXT*.PRI|
00000660: 4E 54 22 48 41 4C 4C 4F 22 0E 03 0D 03 2A 5B 44 |NT"HALLO"....*[D|
00000670: 49 45 53 45 20 5A 45 49 4C 45 20 57 55 45 52 44 |IESE ZEILE WUERD|
00000680: 45 20 42 45 49 20 44 45 52 20 27 41 53 53 45 4D |E BEI DER 'ASSEM|
00000690: 42 4C 49 45 52 2D 2A 29 5B 55 4E 47 27 20 41 55 |BLIER-*)[UNG' AU|
000006A0: 46 20 45 49 4E 4D 41 4C 20 45 49 4E 47 45 4C 45 |F EINMAL EINGELE|
000006B0: 53 45 4E 20 55 4E 44 20 55 4E 54 45 52 20 31 29 |SEN UND UNTER 1)|
000006C0: 23 5B 5A 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 47 |#[ZEILENNUMMER G|
000006D0: 45 53 50 45 49 43 48 45 52 54 20 57 45 52 44 45 |ESPEICHERT WERDE|
000006E0: 4E 2E 23 2A 5B 44 41 20 5A 57 49 53 43 48 45 4E |N.#*[DA ZWISCHEN|
000006F0: 20 44 45 4D 20 27 4E 45 58 54 27 20 55 4E 44 20 | DEM 'NEXT' UND |
00000700: 27 50 52 49 4E 54 27 20 4B 45 49 4E 2A 27 5B 44 |'PRINT' KEIN*'[D|
00000710: 4F 50 50 45 4C 50 55 4E 4B 54 20 53 54 45 48 54 |OPPELPUNKT STEHT|
00000720: 2C 20 4B 4F 4D 4D 54 20 45 53 20 5A 55 20 45 49 |, KOMMT ES ZU EI|
00000730: 4E 45 4D 27 2A 5B 53 45 48 52 20 42 45 4C 49 45 |NEM'*[SEHR BELIE|
00000740: 42 54 45 4E 20 45 46 46 45 4B 54 20 28 22 53 59 |BTEN EFFEKT ("SY|
00000750: 4E 54 41 58 20 45 52 52 4F 52 22 29 2E 2A 03 0D |NTAX ERROR").*..|
00000760: 03 2A 5B 55 4D 20 44 49 45 53 20 5A 55 20 56 45 |.*[UM DIES ZU VE|
00000770: 52 4D 45 49 44 45 4E 2C 20 4D 55 53 53 20 5A 57 |RMEIDEN, MUSS ZW|
00000780: 49 53 43 48 45 4E 20 44 45 4E 2A 2A 5B 5A 45 49 |ISCHEN DEN**[ZEI|
00000790: 4C 45 4E 20 45 4E 54 57 45 44 45 52 20 45 49 4E |LEN ENTWEDER EIN|
000007A0: 45 20 4C 45 45 52 2D 20 4F 2E 20 4B 4F 4D 4D 45 |E LEER- O. KOMME|
000007B0: 4E 54 41 52 2A 10 5B 5A 45 49 4C 45 20 53 54 45 |NTAR*.[ZEILE STE|
000007C0: 48 45 4E 3A 10 03 0D 03 2A 46 4F 52 20 49 3D 30 |HEN:....*FOR I=0|
000007D0: 20 54 4F 31 30 30 30 3A 50 4F 4B 45 31 30 32 34 | TO1000:POKE1024|
000007E0: 2B 49 2C 52 4E 44 28 30 29 2A 31 30 3A 4E 45 58 |+I,RND(0)*10:NEX|
000007F0: 54 2A 03 0D 03 0E 50 52 49 4E 54 22 48 41 4C 4C |T*....PRINT"HALL|
00000800: 4F 22 0E 03 0D 03 22 5B 53 4F 20 49 53 54 20 45 |O"...."[SO IST E|
00000810: 53 20 52 49 43 48 54 49 47 20 21 21 21 21 21 21 |S RICHTIG !!!!!!|
00000820: 21 21 21 21 21 21 21 22 03 0D 03 00 |!!!!!!!".... |
.P)[ ***********************************
**)*[** DEMO-PROGRAMM
****[**
****[** ALLGEMEIN
***)[ ****************************
*********)......*FORI=0TO999:POKE 1024+I
,PEEK(162):POKE55*.296+I,PEEK(162):NEXT.
#A=0:A1=0:A2=1:A3=39:A4=24:X=0:Y=0#...*[
BEIDE ZEILEN ERHALTEN EINE ZEILENNUMMER*
*[SETZT MAN HINTER DEM 'NEXT' EIN DOPPEL
-**[PUNKT, ERHAELT DIE ZEILE MIT DEN VAR
IAB*([BLEN KEINE ZEILENNUMMER, SONDERN W
IRD(.[AN DIE 1. ZEILE ANGEHAENGT........
._LOOP.....IF A3<0 OR A4 <0 THEN END....
.POKE 1024+X+(Y*40),32...."IFX<A3 AND A=
0 THEN X=X+1:GOLOOP"#IFX=A3 AND Y<A4 THE
N Y=Y+1:GOLOOP#'IFY=A4 AND X>A1 THEN X=X
-1:A=1:GOLOOP'#IFX=A1 AND Y>A2 THEN Y=Y-
1:GOLOOP#...%A=0:A1=A1+1:A2=A2+1:A3=A3-1
:A4=A4-1%....GOTO LOOP.....REM.*[*******
*********************************...*[ST
EHEN AM RECHTEN RAND EINER ZEILE MEHR*..
.)[ALS 1 LEERZEICHEN, ERHAELT DIESE ZEIL
E)...'[EINE EIGENE ZEILENNUMMER, SOFERN
DAS'...'[LETZTE ZEICHEN KEIN DOPPELPUNKT
ODER'....[KOMMA IST........)[BESITZT EI
NE ZEILE 39 ODER 40 ZEICHEN,)...)[SO ERH
AELT SIE DANN EINE EIGENE ZEILEN)...([NU
MMER, WENN DIE FOLGENDE BILDSCHIRM-(...)
[ZEILE EINE LEER- O. KOMMENTARZEILE IST)
...([ODER MIT EINEM LABEL BEGINNT. IST D
AS(...*[NICHT DER FALL, WIRD DIE NAECHST
E ZEILE*...'[AN DIESE ZEILE ANGEHAENGT (
UNTER DER'...*[SELBEN ZEILENNUMMER!). AL
SO AUFGEPASST!*......)[DIESER EDITOR KAN
N ZEILEN BIS MAX. 116)...)[ZEICHEN AUF E
INMAL EINLESEN UND UEBER-)...*[SETZEN. L
AENGERE ZEILEN MUESSEN DESHALB*...)[AUF
MEHREREN BILDSCHIRMZEILEN VERTEILT)....[
WERDEN!.....[BEISPIEL:....*FOR I=0 TO100
0:POKE1024+I,RND(0)*10:NEXT*.PRINT"HALLO
"....*[DIESE ZEILE WUERDE BEI DER 'ASSEM
BLIER-*)[UNG' AUF EINMAL EINGELESEN UND
UNTER 1)#[ZEILENNUMMER GESPEICHERT WERDE
N.#*[DA ZWISCHEN DEM 'NEXT' UND 'PRINT'
KEIN*'[DOPPELPUNKT STEHT, KOMMT ES ZU EI
NEM'*[SEHR BELIEBTEN EFFEKT ("SYNTAX ERR
OR").*...*[UM DIES ZU VERMEIDEN, MUSS ZW
ISCHEN DEN**[ZEILEN ENTWEDER EINE LEER-
O. KOMMENTAR*.[ZEILE STEHEN:....*FOR I=0
TO1000:POKE1024+I,RND(0)*10:NEXT*....PR
INT"HALLO"...."[SO IST ES RICHTIG !!!!!!
!!!!!!!"....
> CLICK IMAGE PREVIEW FOR FULL MODAL