SCR17
FILE INFORMATION
FILENAME(S): SCR17
FILE TYPE(S): SEQ
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:15:31
APPEARS ON: 1 disk(s)
FILE HASH
a6acfa646a77cf314e8b275c388959d65b698410ab91e4a63d4460739ec0f131
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FORTH 64 1 | SCR17 | SEQ | DuncanTwain | 11 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000020: 20 20 20 20 20 20 20 20 3A 20 42 4F 54 20 30 20 | : BOT 0 | 00000030: 2C 58 20 3B 20 20 20 20 20 20 20 20 20 20 20 20 |,X ; | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 3A 20 54 4F 50 20 30 20 2C 58 20 3B 20 20 20 20 |: TOP 0 ,X ; | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 20 20 20 20 20 20 20 20 3A 20 53 45 43 20 32 20 | : SEC 2 | 00000080: 2C 58 20 3B 20 20 20 20 20 20 20 20 20 20 20 20 |,X ; | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 20 20 20 20 20 20 48 45 58 20 20 20 20 20 | HEX | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000110: 20 20 20 20 20 20 20 20 3A 20 52 50 29 20 31 30 | : RP) 10| 00000120: 31 20 2C 58 20 3B 20 20 20 20 20 20 20 20 20 20 |1 ,X ; | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000160: 20 20 20 20 20 20 20 20 3A 20 57 48 49 4C 45 2C | : WHILE,| 00000170: 20 3E 52 20 44 55 50 20 31 20 3F 50 41 49 52 53 | >R DUP 1 ?PAIRS| 00000180: 20 52 3E 20 49 46 2C 20 32 2B 20 3B 20 20 20 20 | R> IF, 2+ ; | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001B0: 20 20 20 20 20 20 20 20 3A 20 52 45 50 45 41 54 | : REPEAT| 000001C0: 2C 20 3E 52 20 3E 52 20 31 20 3F 50 41 49 52 53 |, >R >R 1 ?PAIRS| 000001D0: 20 4A 4D 50 2C 20 20 20 20 20 20 20 20 20 20 20 | JMP, | 000001E0: 20 20 20 20 20 20 20 52 3E 20 52 3E 20 32 20 2D | R> R> 2 -| 000001F0: 20 45 4E 44 49 46 2C 20 3B 20 20 20 20 20 20 20 | ENDIF, ; | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000230: 39 30 20 43 4F 4E 53 54 41 4E 54 20 3E 3D 20 39 |90 CONSTANT >= 9| 00000240: 30 20 43 4F 4E 53 54 41 4E 54 20 43 53 20 20 20 |0 CONSTANT CS | 00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000280: 31 30 20 43 4F 4E 53 54 41 4E 54 20 30 3C 20 44 |10 CONSTANT 0< D| 00000290: 30 20 43 4F 4E 53 54 41 4E 54 20 30 3D 20 20 20 |0 CONSTANT 0= | 000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002D0: 35 30 20 43 4F 4E 53 54 41 4E 54 20 56 53 20 20 |50 CONSTANT VS | 000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000320: 46 4F 52 54 48 20 44 45 46 49 4E 49 54 49 4F 4E |FORTH DEFINITION| 00000330: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S | 00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003C0: 44 45 43 49 4D 41 4C 20 20 20 20 20 20 20 20 20 |DECIMAL | 000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
: BOT 0 ,X ;
: TOP 0 ,X ;
: SEC 2 ,X ;
HEX
: RP) 101 ,X ;
: WHILE, >R DUP 1 ?PAIRS R> IF, 2+ ;
: REPEAT, >R >R 1 ?PAIRS JMP,
R> R> 2 - ENDIF, ;
90 CONSTANT >= 90 CONSTANT CS
10 CONSTANT 0< D0 CONSTANT 0=
50 CONSTANT VS
FORTH DEFINITIONS
DECIMAL
> CLICK IMAGE PREVIEW FOR FULL MODAL