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

PASCAL1.SOURCE

FILE INFORMATION

FILENAME(S): PASCAL1.SOURCE

FILE TYPE(S): DEL

FILE SIZE: 154b

FIRST SEEN: 2025-12-02 23:08:22

APPEARS ON: 1 disk(s)

FILE HASH

138cf40f6b3094c96f4dc81b78e3be2fc7f0dfb235850e9cc395e71c9630fd88

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SPRACHPROGRAMME PASCAL1.SOURCE DEL swasti, flohmarkt, swasti, misc 2 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 56 41 52 20 57 45 52 54  31 2C 57 45 52 54 32 2C  |VAR WERT1,WERT2,|
00000010: 57 45 52 54 33 2C 57 45  52 54 34 2C 57 45 52 54  |WERT3,WERT4,WERT|
00000020: 35 2C 57 45 52 54 36 3A  49 4E 54 45 47 45 52 3B  |5,WERT6:INTEGER;|
00000030: FF 42 45 47 49 4E FF 20  20 20 20 20 57 52 49 54  |.BEGIN.     WRIT|
00000040: 45 4C 4E 28 27 47 45 42  45 4E 20 53 49 45 20 44  |ELN('GEBEN SIE D|
00000050: 52 45 49 20 57 45 52 54  45 20 45 49 4E 27 29 3B  |REI WERTE EIN');|
00000060: FF 20 20 20 20 20 52 45  41 44 20 28 57 45 52 54  |.     READ (WERT|
00000070: 31 29 3B FF 20 20 20 20  20 57 52 49 54 45 4C 4E  |1);.     WRITELN|
00000080: 28 27 57 45 52 54 20 31  20 3D 27 2C 20 57 45 52  |('WERT 1 =', WER|
00000090: 54 31 29 3B FF 45 4E 44  2E FF                    |T1);.END..      |

VAR WERT1,WERT2,WERT3,WERT4,WERT5,WERT6:
INTEGER;.BEGIN.     WRITELN('GEBEN SIE D
REI WERTE EIN');.     READ (WERT1);.    
 WRITELN('WERT 1 =', WERT1);.END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL