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

COUNT.PAS

FILE INFORMATION

FILENAME(S): COUNT.PAS

FILE TYPE(S): SEQ

FILE SIZE: 159b

FIRST SEEN: 2025-11-02 16:57:22

APPEARS ON: 1 disk(s)

FILE HASH

7488633dfeb847c0457f2d2c8885a45146cfd2a5a75442c429a68360d4a96dbf

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TURBO PASCAL COUNT.PAS SEQ Treasure Chest - Romfreak 11 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 50 52 4F 47 52 41 4D 20  43 4F 55 4E 54 20 28 49  |PROGRAM COUNT (I|
00000010: 4E 50 55 54 2C 4F 55 54  50 55 54 29 3B 0D 56 41  |NPUT,OUTPUT);.VA|
00000020: 52 0D 20 49 2C 4E 20 3A  20 49 4E 54 45 47 45 52  |R. I,N : INTEGER|
00000030: 3B 0D 42 45 47 49 4E 0D  20 57 52 49 54 45 4C 4E  |;.BEGIN. WRITELN|
00000040: 3B 0D 20 57 52 49 54 45  20 28 27 45 4E 44 20 4F  |;. WRITE ('END O|
00000050: 46 20 43 4F 55 4E 54 3A  20 27 29 3B 0D 20 52 45  |F COUNT: ');. RE|
00000060: 41 44 4C 4E 20 28 4E 29  3B 0D 20 46 4F 52 20 49  |ADLN (N);. FOR I|
00000070: 20 3A 3D 20 31 20 54 4F  20 4E 20 44 4F 0D 20 20  | := 1 TO N DO.  |
00000080: 20 20 57 52 49 54 45 4C  4E 20 28 27 53 54 45 50  |  WRITELN ('STEP|
00000090: 20 4E 2E 20 27 2C 49 29  3B 0D 45 4E 44 2E 0D     | N. ',I);.END.. |

PROGRAM COUNT (INPUT,OUTPUT);.VAR. I,N :
 INTEGER;.BEGIN. WRITELN;. WRITE ('END O
F COUNT: ');. READLN (N);. FOR I := 1 TO
 N DO.    WRITELN ('STEP N. ',I);.END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL