Checkbook Accounts

0                                                             CHECKBOOK ACCOUNTS              WRITTEN BY KRISTIAN BOISVERT    ©1987 BYTE POWER                 
   20 REM                                                        PRINT DRIVER SHOULD BE          BETWEEN 30000 & 49999           OR BETWEEN 62000 & 65535           
   30 LET REDO=-6: IF PEEK 23681=0 THEN PRINT AT 15,0;: LIST 9999: STOP 
   40 PAUSE 300
   45 LET l=USR 50900
   46 GO TO PEEK 65535
   50 REM QUIT PORGRAM
   60 CLEAR 65535: NEW 
  100 REM LOAD
  110 GO SUB 2000
  120 LOAD a$CODE 60056
  130 LET l=USR 57365
  140 GO TO PEEK 65535
  200 REM SAVE
  210 GO SUB 2000
  220 IF a$="" THEN GO TO 210
  225 SAVE a$CODE 60056,1778
  230 PRINT AT 10,4;"REWIND TAPE TO VERIFY...": VERIFY a$CODE 
  240 GO TO 130
 2000 INPUT "FILE NAME:"; LINE a$: IF LEN a$>10 THEN GO TO 2000
 2010 RETURN 
 9000 INK 0: PAPER 7: BORDER 7: CLEAR 29999: PRINT AT 8,7;"CHECKBOOK ACCOUNTS"
 9010 PRINT AT 10,2;"Written by KRISTIAN BOISVERT";AT 12,8;"©1987 BYTE POWER"
 9015 PRINT AT 15,0;"Still LOADING...": INK 7: PRINT AT 18,0;: LOAD ""CODE : INK 0
 9020 GO TO 10
 9999 SAVE "CHECKBOOK" LINE 9000: SAVE "CHECKBOOK"CODE 5e4,10056: VERIFY "CHECKBOOK": VERIFY "CHECKBOOK"CODE 5E4,10056