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

BABY4

FILE INFORMATION

FILENAME(S): BABY4

FILE TYPE(S): SEQ

FILE SIZE: 175b

FIRST SEEN: 2025-11-30 16:59:30

APPEARS ON: 1 disk(s)

FILE HASH

0a01a65cbbf318fa39bffd6508469f80f07e18159c73fdc4f308724e8d60bb7a

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
KMMM PASCAL BABY4 SEQ High Voltage Complete C64 Collection 25 13 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 50 52 4F 47 52 41 4D 20  54 45 53 54 3B 0D 0D 56  |PROGRAM TEST;..V|
00000010: 41 52 20 49 20 3A 20 49  4E 54 45 47 45 52 3B 0D  |AR I : INTEGER;.|
00000020: 0D 42 45 47 49 4E 0D 20  20 49 3A 3D 31 30 30 30  |.BEGIN.  I:=1000|
00000030: 3B 0D 20 20 52 45 50 45  41 54 0D 20 20 20 20 49  |;.  REPEAT.    I|
00000040: 3A 3D 49 2B 31 3B 0D 20  20 20 20 57 52 49 54 45  |:=I+1;.    WRITE|
00000050: 4C 4E 28 49 29 3B 0D 20  20 55 4E 54 49 4C 20 49  |LN(I);.  UNTIL I|
00000060: 3D 31 35 30 30 3B 0D 45  4E 44 2E 20 20 20 20 20  |=1500;.END.     |
00000070: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000080: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 0D  |               .|
00000090: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |................|
000000A0: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 03     |............... |

PROGRAM TEST;..VAR I : INTEGER;..BEGIN. 
 I:=1000;.  REPEAT.    I:=I+1;.    WRITE
LN(I);.  UNTIL I=1500;.END.             
                       .................
...............
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL