PASCAL1
FILE INFORMATION
FILENAME(S): PASCAL1
FILE TYPE(S): DEL
FILE SIZE: 158b
FIRST SEEN: 2025-12-02 23:08:22
APPEARS ON: 1 disk(s)
FILE HASH
6b3f6741de04258d153b43a467ad6303e42568e1c329b7dcd386965ba93f3ab5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPRACHPROGRAMME | PASCAL1 | DEL | swasti, flohmarkt, swasti, misc | 2 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 1F 08 E8 03 50 52 4F 47 52 41 4D 20 50 C6 |......PROGRAM P.|
00000010: 41 4C 31 20 28 85 2C 4F 55 54 50 55 54 29 3B 00 |AL1 (.,OUTPUT);.|
00000020: 34 08 F2 03 56 41 52 20 57 45 52 54 31 3A B5 45 |4...VAR WERT1:.E|
00000030: 47 45 52 3B 00 3E 08 FC 03 42 45 47 49 4E 00 63 |GER;.>...BEGIN.c|
00000040: 08 06 04 57 52 49 54 45 4C 4E 28 22 47 45 42 45 |...WRITELN("GEBE|
00000050: 4E 20 53 49 45 20 57 45 52 54 20 31 20 45 49 4E |N SIE WERT 1 EIN|
00000060: 22 29 3B 00 73 08 10 04 87 4C 4E 28 57 45 52 54 |");.s....LN(WERT|
00000070: 31 29 3B 00 94 08 1A 04 57 52 49 54 45 4C 4E 28 |1);.....WRITELN(|
00000080: 22 57 45 52 54 20 31 20 3D 20 22 2C 20 57 45 52 |"WERT 1 = ", WER|
00000090: 54 31 29 3B 00 9B 08 24 04 80 2E 00 00 00 |T1);...$...... |
......PROGRAM PFAL1 (.,OUTPUT);.4...VAR
WERT1:.EGER;.>...BEGIN.C...WRITELN("GEBE
N SIE WERT 1 EIN");.S....LN(WERT1);.....
WRITELN("WERT 1 = ", WERT1);...$......
> CLICK IMAGE PREVIEW FOR FULL MODAL