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

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                                 
                        
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL