_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

DEMO.ON X GOSUB

FILE INFORMATION

FILENAME(S): DEMO.ON X GOSUB

FILE TYPE(S): PRG

FILE SIZE: 699b

FIRST SEEN: 2025-10-20 14:31:31

APPEARS ON: 1 disk(s)

FILE HASH

d02eebf7f997e616dc7e88ae47568d09f0fc8b37f5aa158d8ca55f366603dd95

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
64 ER 09 94 DEMO.ON X GOSUB PRG C64er, Treasure Chest - Klaus Der Suhler 6 18 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 20 44 45 4D 4F 2D 50  |          DEMO-P|
00000040: 52 4F 47 52 41 4D 4D 20  20 20 20 20 20 20 20 20  |ROGRAMM         |
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 4F  |[**            O|
00000090: 4E 20 58 20 47 4F 53 55  42 20 20 20 20 20 20 20  |N X GOSUB       |
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  0A 50 52 49 4E 54 22 93  |*).......PRINT".|
000000E0: 22 0A 03 0D 03 0B 46 4F  52 49 3D 31 54 4F 35 0B  |".....FORI=1TO5.|
000000F0: 03 0D 03 25 4F 4E 20 49  20 47 4F 53 55 42 20 54  |...%ON I GOSUB T|
00000100: 45 53 54 31 2C 54 45 53  54 32 2C 54 45 53 54 33  |EST1,TEST2,TEST3|
00000110: 2C 54 45 53 54 34 2C 25  07 54 45 53 54 35 07 03  |,TEST4,%.TEST5..|
00000120: 0D 03 1C 4E 45 58 54 49  3A 50 52 49 4E 54 22 11  |...NEXTI:PRINT".|
00000130: 11 46 45 52 54 49 47 21  22 3A 45 4E 44 1C 03 0D  |.FERTIG!":END...|
00000140: 03 05 52 45 4D 05 03 0D  03 03 0D 03 29 5B 2A 2A  |..REM.......)[**|
00000150: 20 44 49 45 53 20 53 49  4E 44 20 44 49 45 20 55  | DIES SIND DIE U|
00000160: 4E 54 45 52 50 52 4F 47  52 41 4D 4D 45 2E 2E 2E  |NTERPROGRAMME...|
00000170: 2E 2A 2A 2A 29 03 0D 03  03 0D 03 08 5F 54 45 53  |.***)......._TES|
00000180: 54 31 08 1C 3F 22 50 47  52 20 31 22 3A 47 4F 53  |T1..?"PGR 1":GOS|
00000190: 55 42 57 41 52 54 45 3A  52 45 54 55 52 4E 1C 03  |UBWARTE:RETURN..|
000001A0: 0D 03 08 5F 54 45 53 54  32 08 1C 3F 22 50 52 47  |..._TEST2..?"PRG|
000001B0: 20 32 22 3A 47 4F 53 55  42 57 41 52 54 45 3A 52  | 2":GOSUBWARTE:R|
000001C0: 45 54 55 52 4E 1C 03 0D  03 08 5F 54 45 53 54 33  |ETURN....._TEST3|
000001D0: 08 1D 3F 22 50 52 47 20  33 22 3A 47 4F 53 55 42  |..?"PRG 3":GOSUB|
000001E0: 20 57 41 52 54 45 3A 52  45 54 55 52 4E 1D 03 0D  | WARTE:RETURN...|
000001F0: 03 24 5F 54 45 53 54 34  20 3F 22 50 52 47 20 34  |.$_TEST4 ?"PRG 4|
00000200: 22 3A 47 4F 53 55 42 20  57 41 52 54 45 3A 52 45  |":GOSUB WARTE:RE|
00000210: 54 55 52 4E 24 03 0D 03  23 5F 54 45 53 54 35 20  |TURN$...#_TEST5 |
00000220: 3F 22 50 52 47 20 35 22  3A 47 4F 53 55 42 57 41  |?"PRG 5":GOSUBWA|
00000230: 52 54 45 3A 52 45 54 55  52 4E 23 03 0D 03 05 52  |RTE:RETURN#....R|
00000240: 45 4D 05 03 0D 03 03 0D  03 28 5B 2A 2A 2A 20 45  |EM.......([*** E|
00000250: 49 4E 45 20 4B 4C 45 49  4E 45 20 57 41 52 54 45  |INE KLEINE WARTE|
00000260: 53 43 48 4C 45 49 46 45  2E 2E 2E 20 2A 2A 2A 2A  |SCHLEIFE... ****|
00000270: 28 03 0D 03 03 0D 03 08  5F 57 41 52 54 45 08 1A  |(......._WARTE..|
00000280: 46 4F 52 48 3D 31 54 4F  35 30 30 3A 4E 45 58 54  |FORH=1TO500:NEXT|
00000290: 48 3A 52 45 54 55 52 4E  1A 03 0D 03 15 5B 2E 2E  |H:RETURN.....[..|
000002A0: 2E 55 4E 44 20 44 41 53  20 45 4E 44 45 2E 2E 2E  |.UND DAS ENDE...|
000002B0: 15 03 0D 03 03 0D 03 03  0D 03 00                 |...........     |

.P)[ ***********************************
**)*[**           DEMO-PROGRAMM         
  ****[**                               
    ****[**            ON X GOSUB       
      ***)[ ****************************
*********).......PRINT".".....FORI=1TO5.
...%ON I GOSUB TEST1,TEST2,TEST3,TEST4,%
.TEST5.....NEXTI:PRINT"..FERTIG!":END...
..REM.......)[** DIES SIND DIE UNTERPROG
RAMME....***)......._TEST1..?"PGR 1":GOS
UBWARTE:RETURN....._TEST2..?"PRG 2":GOSU
BWARTE:RETURN....._TEST3..?"PRG 3":GOSUB
 WARTE:RETURN....$_TEST4 ?"PRG 4":GOSUB 
WARTE:RETURN$...#_TEST5 ?"PRG 5":GOSUBWA
RTE:RETURN#....REM.......([*** EINE KLEI
NE WARTESCHLEIFE... ****(......._WARTE..
FORH=1TO500:NEXTH:RETURN.....[...UND DAS
 ENDE..............
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL