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

PROGRAMM1.PAS

FILE INFORMATION

FILENAME(S): PROGRAMM1.PAS

FILE TYPE(S): DEL

FILE SIZE: 863b

FIRST SEEN: 2025-11-02 16:54:37

APPEARS ON: 1 disk(s)

FILE HASH

af6684dba43ed93eff6f6a60425eabd32d517d45de5b9895f05a44c9317bee18

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TOOLS PROGRAMM1.PAS DEL Treasure Chest - Reamigation 15 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 08 1F 08 00 00 12 22  54 4F 4F 4C 53 20 20 20  |......."TOOLS   |
00000010: 20 20 20 20 20 20 20 20  22 20 53 30 32 32 41 00  |        " S022A.|
00000020: 39 08 0A 00 20 50 52 4F  47 52 41 4D 4D 31 20 28  |9... PROGRAMM1 (|
00000030: 85 2C 4F 55 54 50 55 54  29 00 52 08 1E 00 52 4F  |.,OUTPUT).R...RO|
00000040: 4D 50 54 B2 27 49 42 20  41 48 4C 20 45 49 4E 3A  |MPT.'IB AHL EIN:|
00000050: 27 3B 00 72 08 21 00 20  20 22 54 4F 4F 4C 20 36  |';.r.!.  "TOOL 6|
00000060: 34 22 20 20 20 20 20 20  20 20 20 20 50 52 47 20  |4"          PRG |
00000070: 20 20 00 92 08 0B 00 20  20 22 54 4F 4F 4C 20 36  |  .....  "TOOL 6|
00000080: 34 2F 44 45 4D 4F 22 20  20 20 20 20 50 52 47 20  |4/DEMO"     PRG |
00000090: 20 20 00 A3 08 32 00 5A  41 48 4C 3A 20 B5 45 47  |  ...2.ZAHL: .EG|
000000A0: 45 52 3B 00 AE 08 46 00  52 49 54 45 4E 3B 00 CE  |ER;...F.RITEN;..|
000000B0: 08 4E 00 20 20 22 50 41  53 43 41 4C 20 43 4F 4D  |.N.  "PASCAL COM|
000000C0: 50 49 4C 45 52 22 20 20  50 52 47 20 20 20 00 EE  |PILER"  PRG   ..|
000000D0: 08 09 00 20 20 20 22 50  41 53 43 41 4C 20 4C 4F  |...   "PASCAL LO|
000000E0: 41 44 45 52 22 20 20 20  20 50 52 47 20 20 00 0E  |ADER"    PRG  ..|
000000F0: 09 01 00 20 20 20 22 31  31 33 34 35 22 20 20 20  |...   "11345"   |
00000100: 20 20 20 20 20 20 20 20  20 50 52 47 20 20 00 2E  |         PRG  ..|
00000110: 09 0E 00 20 20 22 50 45  54 20 45 4D 55 4C 41 54  |...  "PET EMULAT|
00000120: 4F 52 22 20 20 20 20 20  50 52 47 20 20 20 00 4E  |OR"     PRG   .N|
00000130: 09 23 00 20 20 22 45 44  49 54 4F 52 20 46 53 45  |.#.  "EDITOR FSE|
00000140: 22 20 20 20 20 20 20 20  50 52 47 20 20 20 00 6E  |"       PRG   .n|
00000150: 09 07 00 20 20 20 22 43  42 4D 2D 4D 41 55 53 22  |...   "CBM-MAUS"|
00000160: 20 20 20 20 20 20 20 20  20 50 52 47 20 20 00 8E  |         PRG  ..|
00000170: 09 49 00 20 20 22 53 49  4D 4F 4E 27 53 20 42 41  |.I.  "SIMON'S BA|
00000180: 53 49 43 22 20 20 20 20  50 52 47 20 20 20 00 AE  |SIC"    PRG   ..|
00000190: 09 42 00 20 20 22 46 4F  52 54 48 22 20 20 20 20  |.B.  "FORTH"    |
000001A0: 20 20 20 20 20 20 20 20  50 52 47 20 20 20 00 CE  |        PRG   ..|
000001B0: 09 48 00 20 20 22 20 20  53 2E 20 20 20 20 44 45  |.H.  "  S.    DE|
000001C0: 4D 4F 22 20 20 20 20 20  50 52 47 20 20 20 00 EE  |MO"     PRG   ..|
000001D0: 09 10 00 20 20 22 5A 45  49 43 48 45 4E 47 45 4E  |...  "ZEICHENGEN|
000001E0: 45 52 41 54 4F 52 22 20  50 52 47 20 20 20 00 0E  |ERATOR" PRG   ..|
000001F0: 0A 01 00 20 20 20 22 D0  C5 D4 20 45 4D 55 20 42  |...   "... EMU B|
00000200: 4F 4F 54 22 20 20 20 20  20 50 52 47 20 20 00 2E  |OOT"     PRG  ..|
00000210: 0A 11 00 20 20 22 45 4D  55 4C 41 54 4F 52 22 20  |...  "EMULATOR" |
00000220: 20 20 20 20 20 20 20 20  50 52 47 20 20 20 00 4E  |        PRG   .N|
00000230: 0A 05 00 20 20 20 22 44  54 53 43 48 2E 54 41 53  |...   "DTSCH.TAS|
00000240: 54 41 54 55 52 22 20 20  20 50 52 47 20 20 00 6E  |TATUR"   PRG  .n|
00000250: 0A 1C 00 20 20 22 53 4F  52 54 49 45 52 41 4C 47  |...  "SORTIERALG|
00000260: 4F 52 49 54 48 4D 22 20  50 52 47 20 20 20 00 8E  |ORITHM" PRG   ..|
00000270: 0A 04 00 20 20 20 22 41  42 53 43 48 52 45 49 42  |...   "ABSCHREIB|
00000280: 55 4E 47 22 20 20 20 20  20 50 52 47 20 20 00 99  |UNG"     PRG  ..|
00000290: 0A 50 00 52 49 54 45 4E  3B 00 AA 0A 5A 00 52 49  |.P.RITEN;...Z.RI|
000002A0: 54 45 28 52 4F 4D 50 54  29 3B 00 B7 0A 64 00 87  |TE(ROMPT);...d..|
000002B0: 28 5A 41 48 4C 29 3B 00  D7 0A 6A 00 20 22 43 4F  |(ZAHL);...j. "CO|
000002C0: 4D 41 4C 36 34 44 22 20  20 20 20 20 20 20 20 20  |MAL64D"         |
000002D0: 50 52 47 20 20 20 20 00  F7 0A 05 00 20 20 20 22  |PRG    .....   "|
000002E0: 43 4F 4D 41 4C 45 52 52  4F 52 53 22 20 20 20 20  |COMALERRORS"    |
000002F0: 20 20 53 45 51 20 20 00  17 0B 0D 00 20 20 22 44  |  SEQ  .....  "D|
00000300: 44 50 4C 4F 54 54 49 4E  47 2E 4C 22 20 20 20 20  |DPLOTTING.L"    |
00000310: 20 53 45 51 20 20 20 00  35 0B 42 00 42 4C 4F 43  | SEQ   .5.B.BLOC|
00000320: 4B 53 20 46 52 45 45 2E  20 20 20 20 20 20 20 20  |KS FREE.        |
00000330: 20 20 20 20 20 00 5C 0B  6E 00 52 49 54 45 4E 28  |     .\.n.RITEN(|
00000340: 5A 41 48 4C 2C 27 55 41  44 52 41 54 20 49 53 54  |ZAHL,'UADRAT IST|
00000350: 27 2C 5A 41 48 4C AC 5A  41 48 4C 29 00 00 00     |',ZAHL.ZAHL)... |
......."TOOLS           " S022A.9... PRO
GRAMM1 (.,OUTPUT).R...ROMPT.'IB AHL EIN:
';.R.!.  "TOOL 64"          PRG   ..... 
 "TOOL 64/DEMO"     PRG   ...2.ZAHL: .EG
ER;...F.RITEN;.N.N.  "PASCAL COMPILER"  
PRG   .....   "PASCAL LOADER"    PRG  ..
...   "11345"            PRG  .....  "PE
T EMULATOR"     PRG   .N.#.  "EDITOR FSE
"       PRG   .N...   "CBM-MAUS"        
 PRG  ...I.  "SIMON'S BASIC"    PRG   ..
.B.  "FORTH"            PRG   .N.H.  "  
S.    DEMO"     PRG   .....  "ZEICHENGEN
ERATOR" PRG   .....   "PET EMU BOOT"    
 PRG  .....  "EMULATOR"         PRG   .N
...   "DTSCH.TASTATUR"   PRG  .N...  "SO
RTIERALGORITHM" PRG   .....   "ABSCHREIB
UNG"     PRG  ...P.RITEN;...Z.RITE(ROMPT
);...D..(ZAHL);.W.J. "COMAL64D"         
PRG    .....   "COMALERRORS"      SEQ  .
....  "DDPLOTTING.L"     SEQ   .5.B.BLOC
KS FREE.             .\.N.RITEN(ZAHL,'UA
DRAT IST',ZAHL.ZAHL)...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL