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

SUMPRG

FILE INFORMATION

FILENAME(S): SUMPRG

FILE TYPE(S): SEQ

FILE SIZE: 200b

FIRST SEEN: 2025-11-02 16:30:33

APPEARS ON: 1 disk(s)

FILE HASH

05ff729eb1543565e79da0a14db9fb83e8b7e14de8c2e4eabc7e4dee43e88836

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
UTILITIES 2 A SUMPRG SEQ Treasure Chest - OzzyC64 30 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 50 52 4F 47 52 41 4D 20  53 55 4D 28 49 4E 50 55  |PROGRAM SUM(INPU|
00000010: 54 2C 4F 55 54 50 55 54  29 3B 0D 56 41 52 20 41  |T,OUTPUT);.VAR A|
00000020: 2C 42 2C 54 4F 54 41 4C  20 3A 20 49 4E 54 45 47  |,B,TOTAL : INTEG|
00000030: 45 52 3B 0D 42 45 47 49  4E 0D 20 20 20 20 57 52  |ER;.BEGIN.    WR|
00000040: 49 54 45 4C 4E 28 27 45  4E 54 45 52 20 54 57 4F  |ITELN('ENTER TWO|
00000050: 20 4E 55 4D 42 45 52 53  20 54 4F 20 42 45 20 41  | NUMBERS TO BE A|
00000060: 44 44 45 44 2E 2E 2E 27  29 3B 0D 20 20 20 20 52  |DDED...');.    R|
00000070: 45 41 44 28 41 2C 42 29  3B 0D 20 20 20 20 54 4F  |EAD(A,B);.    TO|
00000080: 54 41 4C 20 3A 3D 20 41  20 2B 20 42 3B 0D 20 20  |TAL := A + B;.  |
00000090: 20 20 57 52 49 54 45 4C  4E 28 27 54 48 45 20 53  |  WRITELN('THE S|
000000A0: 55 4D 20 4F 46 27 2C 20  41 20 2C 27 41 4E 44 27  |UM OF', A ,'AND'|
000000B0: 2C 20 42 20 2C 27 49 53  27 2C 20 54 4F 54 41 4C  |, B ,'IS', TOTAL|
000000C0: 29 0D 45 4E 44 2E 0D 03                           |).END...        |

PROGRAM SUM(INPUT,OUTPUT);.VAR A,B,TOTAL
 : INTEGER;.BEGIN.    WRITELN('ENTER TWO
 NUMBERS TO BE ADDED...');.    READ(A,B)
;.    TOTAL := A + B;.    WRITELN('THE S
UM OF', A ,'AND', B ,'IS', TOTAL).END...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL