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

TEST.SOURCE

FILE INFORMATION

FILENAME(S): TEST.SOURCE

FILE TYPE(S): SEQ

FILE SIZE: 205b

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

APPEARS ON: 1 disk(s)

FILE HASH

727166b484ade2c317a0970ce19f1f59c61c8a9a3e8c7984b3ee89e678a21aa2

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
ABACUS PASCAL TEST.SOURCE SEQ Treasure Chest - Reamigation 15 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 50 52 4F 47 52 41 4D 20  54 45 53 54 3B FF 56 41  |PROGRAM TEST;.VA|
00000010: 52 20 41 3A 49 4E 54 45  47 45 52 3B FF 20 20 20  |R A:INTEGER;.   |
00000020: 20 42 3A 49 4E 54 45 47  45 52 3B FF 20 20 20 20  | B:INTEGER;.    |
00000030: 43 3A 49 4E 54 45 47 45  52 3B FF 42 45 47 49 4E  |C:INTEGER;.BEGIN|
00000040: FF 20 20 20 20 57 52 49  54 45 28 27 C2 49 54 54  |.    WRITE('.ITT|
00000050: 45 20 C1 20 45 49 4E 47  45 42 45 4E 3A 20 27 29  |E . EINGEBEN: ')|
00000060: 3B FF 20 20 20 20 52 45  41 44 4C 4E 28 41 29 3B  |;.    READLN(A);|
00000070: FF 20 20 20 20 57 52 49  54 45 28 27 C2 49 54 54  |.    WRITE('.ITT|
00000080: 45 20 C2 20 45 49 4E 47  45 42 45 4E 3A 20 27 29  |E . EINGEBEN: ')|
00000090: 3B FF 20 20 20 20 52 45  41 44 4C 4E 28 42 29 3B  |;.    READLN(B);|
000000A0: FF 20 20 20 43 3A 3D 41  2A 42 3B FF 20 20 20 57  |.   C:=A*B;.   W|
000000B0: 52 49 54 45 4C 4E 28 27  C1 20 2A 20 C2 20 49 53  |RITELN('. * . IS|
000000C0: 54 20 27 2C 43 29 3B FF  45 4E 44 2E FF           |T ',C);.END..   |

PROGRAM TEST;.VAR A:INTEGER;.    B:INTEG
ER;.    C:INTEGER;.BEGIN.    WRITE('BITT
E A EINGEBEN: ');.    READLN(A);.    WRI
TE('BITTE B EINGEBEN: ');.    READLN(B);
.   C:=A*B;.   WRITELN('A * B IST ',C);.
END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL