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

EPROGRAM1

FILE INFORMATION

FILENAME(S): EPROGRAM1

FILE TYPE(S): SEQ

FILE SIZE: 163b

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

APPEARS ON: 1 disk(s)

FILE HASH

487af64fe806e149151ab208c71c26cf5db4325413a3450dad6421c4496dc801

FOUND ON DISKS (1 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 0D 0D 0D 20 50 52 4F 47  52 41 4D 31 3A 0D 20 20  |... PROGRAM1:.  |
00000010: 20 20 20 69 6E 74 20 76  61 72 20 49 20 3A 3A 20  |   int var I :: |
00000020: 31 20 3B 0D 20 20 20 20  20 69 6E 74 20 76 61 72  |1 ;.     int var|
00000030: 20 53 55 4D 20 3A 3A 20  30 20 3B 0D 20 20 20 20  | SUM :: 0 ;.    |
00000040: 20 72 65 70 0D 20 20 20  20 20 20 20 53 55 4D 20  | rep.       SUM |
00000050: 69 6E 63 72 20 49 20 3B  0D 20 20 20 20 20 20 20  |incr I ;.       |
00000060: 49 20 69 6E 63 72 20 31  0D 20 20 20 20 20 75 6E  |I incr 1.     un|
00000070: 74 69 6C 0D 20 20 20 20  20 20 20 49 20 3E 20 31  |til.       I > 1|
00000080: 30 0D 20 20 20 20 20 65  6E 64 72 65 70 20 3B 0D  |0.     endrep ;.|
00000090: 20 20 20 20 20 50 55 54  20 28 20 53 55 4D 20 29  |     PUT ( SUM )|
000000A0: 20 2E 0D                                          | ..             |

... PROGRAM1:.     INT VAR I :: 1 ;.    
 INT VAR SUM :: 0 ;.     REP.       SUM 
INCR I ;.       I INCR 1.     UNTIL.    
   I > 10.     ENDREP ;.     PUT ( SUM )
 ..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL