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

LG-AIMPOLY

FILE INFORMATION

FILENAME(S): LG-AIMPOLY

FILE TYPE(S): PRG

FILE SIZE: 134b

FIRST SEEN: 2025-11-30 21:14:32

APPEARS ON: 1 disk(s)

FILE HASH

a8ec56660703e35e5cc54bf144ab0d76efec0ce4a3ba8b65069498810e3aecbb

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOGO FILES LG-AIMPOLY PRG DuncanTwain 9 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 41 49 4D  20 3A 53 20 3A 41 20 3A  |. TO AIM :S :A :|
00000010: 41 32 20 3A 46 0D 20 46  44 20 3A 53 0D 20 49 46  |A2 :F. FD :S. IF|
00000020: 20 28 20 52 45 4D 41 49  4E 44 45 52 20 3A 4B 20  | ( REMAINDER :K |
00000030: 3A 46 20 29 20 3D 20 30  20 54 48 45 4E 20 52 54  |:F ) = 0 THEN RT|
00000040: 20 3A 41 32 20 45 4C 53  45 20 52 54 20 3A 41 0D  | :A2 ELSE RT :A.|
00000050: 20 4D 41 4B 45 20 22 4B  20 3A 4B 20 2B 20 31 0D  | MAKE "K :K + 1.|
00000060: 20 41 49 4D 20 3A 53 20  3A 41 20 3A 41 32 20 3A  | AIM :S :A :A2 :|
00000070: 46 0D 45 4E 44 0D 0D 4D  41 4B 45 20 22 4B 20 28  |F.END..MAKE "K (|
00000080: 31 33 35 35 29 0D                                 |1355).          |

. TO AIM :S :A :A2 :F. FD :S. IF ( REMAI
NDER :K :F ) = 0 THEN RT :A2 ELSE RT :A.
 MAKE "K :K + 1. AIM :S :A :A2 :F.END..M
AKE "K (1355).
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL