home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / THEDUT.ZIP / THEDRAW.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-02-15  |  405 b   |  16 lines
  1. 10 'load/save files created by TheDraw and saved with the B<S>ave option.
  2. 20 SCREEN 0
  3. 30 DEF SEG= &HB800 'b0000 for mono
  4. 40 PRINT"LOAD or SAVE ? _";
  5. 50 YN$=INKEY$:IF LEN(YN$)=0 THEN 50
  6. 60 IF YN$="L" OR YN$="l" THEN 100
  7. 70 IF YN$="S" OR YN$="s" THEN 130
  8. 80 GOTO 50
  9. 90 '
  10. 100 BLOAD "THEBAS.BSV",0
  11. 110 GOTO 140
  12. 120 '
  13. 130 BSAVE "THEBAS.BSV",0,&H4000
  14. 140 N$=INKEY$:IF LEN(N$)=0 THEN 140
  15. 150 END
  16.