Incomplete implementation of figForth. Promised updates included help screens, assembler and better SAVE system.
Content
Image Gallery
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