DataMuseum.dk

Presents historical artifacts from the history of:

Jet Computer Jet80

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Jet Computer Jet80

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦128bb5592⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »ICOND.SL5«

Derivation

└─⟦c50ca4728⟧ Bits:30003533 StackWorks FORTH version 1.2 for Z-80
    └─ ⟦this⟧ »ICOND.SL5«

TextFile

                  ( INTERPRETER CONDITIONALS )

: IFEND ;

: OTHERWISE  'S IFEND   BEGIN
     WORD FIND IF
	 OVER = 
	 ELSE 0
     ENDIF
 END DROP ;

: IFTRUE NOT IF
     'S OTHERWISE   'S IFEND    BEGIN
	 WORD FIND IF
	     DUP 4 PICK =     SWAP 3 PICK =    ø
	     ELSE 0
	 ENDIF
     END 2DROP
 ENDIF ;

: IFDEFINED WORD FIND IF
     DROP 1
     ELSE 0
 ENDIF IFTRUE ;

ÆEND-OF-FILEÅ

«eof»