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

LOOP.LOGO

FILE INFORMATION

FILENAME(S): LOOP.LOGO

FILE TYPE(S): PRG

FILE SIZE: 170b

FIRST SEEN: 2025-11-30 21:27:28

APPEARS ON: 1 disk(s)

FILE HASH

ace3bce85013ca8c5c8df775ae22d48fe25c7d1ec65cde0c75899159047db46e

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
P31A LOGO LOOP.LOGO PRG DuncanTwain 21 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 42 45 53  54 55 55 52 0D 20 4D 41  |. TO BESTUUR. MA|
00000010: 4B 45 20 22 44 20 52 43  0D 20 49 46 20 3A 44 20  |KE "D RC. IF :D |
00000020: 3D 20 22 45 20 53 45 54  48 20 30 0D 20 49 46 20  |= "E SETH 0. IF |
00000030: 3A 44 20 3D 20 22 44 20  53 45 54 48 20 39 30 0D  |:D = "D SETH 90.|
00000040: 20 49 46 20 3A 44 20 3D  20 22 58 20 53 45 54 48  | IF :D = "X SETH|
00000050: 20 31 38 30 0D 20 49 46  20 3A 44 20 3D 20 22 53  | 180. IF :D = "S|
00000060: 20 53 45 54 48 20 32 37  30 0D 45 4E 44 0D 0D 54  | SETH 270.END..T|
00000070: 4F 20 4C 4F 4F 50 20 3A  47 0D 20 46 44 20 3A 47  |O LOOP :G. FD :G|
00000080: 0D 20 49 46 20 52 43 3F  20 42 45 53 54 55 55 52  |. IF RC? BESTUUR|
00000090: 0D 20 4C 4F 4F 50 20 3A  47 0D 45 4E 44 0D 0D 4D  |. LOOP :G.END..M|
000000A0: 41 4B 45 20 22 44 20 22  03 0D                    |AKE "D "..      |

. TO BESTUUR. MAKE "D RC. IF :D = "E SET
H 0. IF :D = "D SETH 90. IF :D = "X SETH
 180. IF :D = "S SETH 270.END..TO LOOP :
G. FD :G. IF RC? BESTUUR. LOOP :G.END..M
AKE "D "..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL