Just Another Spreadsheet!

0 REM                                                         SPREADSHEET                     WRITTEN BY KRISTIAN BOISVERT    ©1987 BYTE POWER                 
    2 REM                                                         PRINT DRIVER SHOULD BE AT       29000 AND SHOULDN'T BE MORE     THAN 900 BYTES LONG!!!           
    6 INK VAL "0": PAPER VAL "7": BORDER VAL "7": CLEAR VAL "28999": DIM a$(VAL "255"): LET E=VAL "0"
    7 PRINT AT VAL "0",VAL "0";: LET l=VAL "USR 29976"
    8 GO TO PEEK VAL "65535"
    9 REM CALCULATE---DON'T MESS          WITH THIS PART!!!     
   10 ON ERR GO TO VAL "7010": LET e=VAL a$
   20 ON ERR RESET : LET A=VAL "PEEK 23627+256*PEEK 23628+262": FOR F=VAL "0" TO VAL "4": POKE F+VAL "45902",PEEK (A+F): NEXT F: PRINT AT VAL "0",VAL "0";: LET A$="": LET L=USR VAL "44952": GO TO PEEK VAL "65535"
  100 REM QUIT PROGRAM
  110 PRINT USR 0
  200 REM SAVE FILE
  210 GO SUB VAL "8000": IF B$="" THEN GO TO VAL "210"
  220 SAVE B$CODE VAL "45840",VAL "18654"
  230 PRINT AT VAL "20",VAL "0";"REWIND TO VERIFY ";B$: VERIFY B$CODE 
  240 GO TO VAL "270"
  250 REM LOAD FILE
  255 GO SUB VAL "8000"
  260 LOAD B$CODE VAL "45840"
  270 PRINT AT VAL "0",VAL "0";: LET L=VAL "USR 38619": GO TO PEEK VAL "65535"
 7000 REM ON ERROR IN FORMULA
 7010 PRINT #VAL "0";AT VAL "0",VAL "0";TAB VAL "7";"ERROR IN CELL "; FLASH VAL "1";CHR$ VAL "((PEEK 65533)+1+64)";("0" AND VAL "PEEK 65534<10");PEEK VAL "65534"
 7020 ON ERR RESET : BEEP VAL ".5",VAL "20": PAUSE VAL "0": PRINT AT VAL "0",VAL "0";: GO TO VAL "270"
 8000 REM GET STRING
 8010 INPUT "FILE NAME:"; LINE B$: IF LEN B$>VAL "10" THEN GO TO VAL "8010"
 8020 RETURN 
 9000 CLS : PRINT AT VAL "8",VAL "3";"JUST ANOTHER SPREADSHEET!";AT VAL "10",VAL "8";"©1987 BYTE POWER";AT VAL "12",VAL "2";"WRITTEN BY KRISTIAN BOISVERT"
 9005 PRINT AT VAL "20",VAL "0";"STILL LOADING..."
 9006 INK VAL "7": PRINT AT VAL "15",VAL "0";: LOAD ""CODE : PRINT AT VAL "15",VAL "0";: LOAD ""CODE 
 9010 INK VAL "0": PRINT AT VAL "20",VAL "0";TAB VAL "31";" ": IF VAL "PEEK 23681=0" THEN PRINT AT VAL "15",VAL "0";: LIST VAL "9999": STOP 
 9020 RUN 
 9999 SAVE "SHEET" LINE VAL "9000": SAVE "SHEET"CODE VAL "29976",VAL "15864": SAVE "SHEET"CODE VAL "64494",VAL "920": VERIFY "SHEET": VERIFY "SHEET"CODE : VERIFY "SHEET"CODE