figForth v1.0

Developer(s): Robert Burton
Date: 198x
Type: Program
Platform(s): TS 2068

Incomplete implementation of figForth. Promised updates included help screens, assembler and better SAVE system.

Appears on

Timex Sinclair Public Domain Library Tape 2001
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20001 to 20050. These tapes were compiled by Tony Willing.

Gallery

figForth v1.0

Source Code

  800 ON ERR RESET : CLS : ON ERR GO TO 800: LET A=USR 32771: GO TO 803
  801 LET A=USR 32774: GO TO 803
  802 ON ERR GO TO 800: LET A=USR 32768
  803 PRINT : PRINT "BASIC: CONT & <CR> returns to FORTH      OR   GO TO 800" : ON ERR RESET : STOP : GO TO 801
  804 PRINT AT 5,6; FLASH 1;"LOADING MACHINE CODE":  LOAD "20015A" CODE : LOAD "20015B"CODE : POKE 23658,8: CLS : BEEP 1,2: BEEP 1,0: GO TO 802: REM  23658,8 IS CAPS LOCK
  805 REM **********************  to save a copy, type GO TO 806  *******************************
  806 PRINT AT 0,0;"SAVING FORTH": SAVE "20015" LINE 804: PAUSE 25: BEEP 1,0: SAVE "20015A"CODE 31744,8500: PAUSE 25: BEEP 1,0: SAVE "20015B"CODE 55295,10240: STOP 
  807 REM ********While in FORTH typing  ``  will give the intro-ductory screens.******
  808 REM *********************** TO SAVE RAM DISK, GO TO 809    ********************************
  809 PRINT AT 0,0;"SAVING FORTH RAM": SAVE "20015B"CODE 55295,10240

Tags

People

Scroll to Top