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

EPROGAM2

FILE INFORMATION

FILENAME(S): EPROGAM2

FILE TYPE(S): SEQ

FILE SIZE: 140b

FIRST SEEN: 2025-11-30 21:07:03

APPEARS ON: 1 disk(s)

FILE HASH

17f1d664dfcbe54c1aa682cc1cdd5c607532b716ce28a8ca0507ea5d6d4883df

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
UTILITY PET 02 EPROGAM2 SEQ DuncanTwain 30 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 0D 0D 0D 20 50 52 4F 47  52 41 4D 32 3A 0D 20 20  |... PROGRAM2:.  |
00000010: 20 20 20 69 6E 74 20 76  61 72 20 49 20 3B 0D 20  |   int var I ;. |
00000020: 20 20 20 20 66 6F 72 20  49 20 66 72 6F 6D 20 31  |    for I from 1|
00000030: 20 75 70 74 6F 20 31 30  0D 20 20 20 20 20 72 65  | upto 10.     re|
00000040: 70 0D 20 20 20 20 20 20  20 50 55 54 20 28 20 49  |p.       PUT ( I|
00000050: 20 29 20 3B 0D 20 20 20  20 20 20 20 50 55 54 20  | ) ;.       PUT |
00000060: 28 20 49 20 2A 20 49 20  29 20 3B 0D 20 20 20 20  |( I * I ) ;.    |
00000070: 20 20 20 4C 49 4E 45 20  28 20 31 20 29 0D 20 20  |   LINE ( 1 ).  |
00000080: 20 20 20 65 6E 64 72 65  70 20 2E 0D              |   endrep ..    |

... PROGRAM2:.     INT VAR I ;.     FOR 
I FROM 1 UPTO 10.     REP.       PUT ( I
 ) ;.       PUT ( I * I ) ;.       LINE 
( 1 ).     ENDREP ..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL