home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib36b.dsk / RESTORE.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  24 lines
  1. 10  REM  **********************
  2. 20  REM  * RESTORE.DEMO       *
  3. 30  REM  * BY VERN L. MASTEL  *
  4. 40  REM  * COPYRIGHT(C) 1989  *
  5. 50  REM  * MICROSPARC, INC.   *
  6. 60  REM  * CONCORD, MA 01742  *
  7. 70  REM  **********************
  8. 80  HOME 
  9. 90  ONERR  GOTO 110
  10. 100  PRINT  CHR$(4)"BLOAD RESTORE,A$300": POKE 1013,76: POKE 1014,0: POKE 1015,3: GOTO 120
  11. 110  VTAB 23: PRINT "RESTORE FILE NOT FOUND": END 
  12. 120  HOME : PRINT "RESTORE DEMO BY VERN MASTEL"
  13. 130  PRINT "COPYRIGHT(C) 1989  MICROSPARC, INC."
  14. 140  PRINT : PRINT "1) BANANAS": PRINT "2) ORANGES": PRINT "3) LETTUCE": PRINT "4) QUIT"
  15. 150  VTAB 9: PRINT : PRINT "ENTER YOUR CHOICE (1-4): ";: GET A$:A =  VAL(A$): IF A <1  OR A >4  THEN 150
  16. 160  IF A = 4  THEN  HOME : VTAB 23: END 
  17. 170  & 210 +A *10
  18. 180  READ F$,PRICE,P$
  19. 190  PRINT : PRINT : PRINT "YOU CHOSE ";F$: PRINT "AT ";PRICE;" ";P$
  20. 200  VTAB 23: PRINT "PRESS RETURN TO CONTINUE ";: POKE  -16368,0: GET A$: GOTO 120
  21. 210  END 
  22. 220  DATA  "BANANAS",99,"CENTS PER BUNCH"
  23. 230  DATA  "ORANGES",79,"CENTS PER POUND"
  24. 240  DATA  "LETTUCE",89,"CENTS PER HEAD"