home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib37a.dsk / AUGUST.1989 / PFX.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  45 lines
  1. 10  REM  *************************
  2. 20  REM  * PFX.DEMO              *
  3. 30  REM  * BY BILL TUDOR         *
  4. 40  REM  * COPYRIGHT(C) 1989     *
  5. 50  REM  * MINDCRAFT PUBL. CORP  *
  6. 60  REM  * CONCORD, MA 01742     *
  7. 70  REM  *************************
  8. 80 D$ =  CHR$(4)
  9. 90  ONERR  GOTO 340
  10. 100  PRINT D$;"BRUN PFX.BIN": REM             -Install Command
  11. 110  HOME 
  12. 120  PRINT "PFX demo by Bill Tudor"
  13. 130  PRINT "Copyright(c) 1989 MindCraft Publ. Corp "
  14. 140  PRINT "----------------------------------------"
  15. 150  PRINT "     Arrows  - Change selection"
  16. 160  PRINT "     \ or <  - Move back (pop) a level"
  17. 170  PRINT "     / or >  - Append a level"
  18. 180  PRINT "     Rtn     - Accept prefix"
  19. 190  PRINT "     Esc     - Cancel selection"
  20. 200  PRINT "     Cntrl-X - Clear selection"
  21. 210  VTAB 22: PRINT "---------------------------------------"
  22. 220  PRINT D$;"PFX": REM  - Execute PFX command
  23. 230  VTAB 10: PRINT : CALL  -958
  24. 240  PRINT D$;"PREFIX": INPUT PF$
  25. 250  PRINT "You selected:";PF$
  26. 260  PRINT 
  27. 270  PRINT "PRESS RETURN TO CONTINUE";: INVERSE : PRINT " ";: NORMAL : POKE  -16368,0
  28. 280 X =  PEEK( -16384): IF X <128  THEN 280
  29. 290  IF X < >155  THEN 110
  30. 300  HOME : END 
  31. 310  REM ==================
  32. 320  REM   Error Handler:
  33. 330  REM ==================
  34. 340 EC =  PEEK(222): REM -Error code
  35. 350 EL =  PEEK(219) *256 + PEEK(218): REM -Error line
  36. 360  HOME 
  37. 370  PRINT "Error occurred!"
  38. 380  IF EL = 80  THEN 410
  39. 390  IF EC = 6  THEN 430
  40. 400  RESUME 
  41. 410  PRINT "Cannot find the file:PFX.BIN"
  42. 420  END 
  43. 430  PRINT "Prefix path not found."
  44. 440  CALL  -3288
  45. 450  END