home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42a.dsk / MAY.1992 / ALIAS.WS.bas < prev    next >
Encoding:
BASIC Source File  |  2014-07-12  |  3.5 KB  |  54 lines
  1. 10  REM  ************************
  2. 11  REM  *   ALIAS WORKSHOP     *
  3. 12  REM  *   by Benoit Gilon    *
  4. 13  REM  *  Copyright (C) 1992  *
  5. 20  REM  * MindCraft Publ. Corp.*
  6. 30  REM  *  Lincoln, MA  01773  *
  7. 40  REM  ************************
  8. 50  REM  ** CHECK THE ENVIRONMENT
  9. 60  TEXT : NORMAL : PRINT  CHR$(21);: IF  PEEK(48896) < >76  THEN  PRINT "THIS PROGRAM MUST BE RUN UNDER PRODOS.": STOP 
  10. 70  DIM OF%(5),AD%(5): FOR P = 0 TO 5: READ OF%(P),AD%(P): NEXT P: DATA  0,826,24,853,40,842,72,865,88,836,104,859
  11. 80 P1 =  PEEK(42631):P2 =  PEEK(42632)
  12. 90  ON P1 = 8 GOTO 140: ON P1 = 27  AND P2 = 170 GOTO 100: PRINT "UNKNOWN COMMAND ENHANCER FOUND": STOP 
  13. 100  ONERR  GOTO 120
  14. 110  PRINT  CHR$(4)"-ALIAS": POKE 216,0: GOTO 130
  15. 120  PRINT "UNABLE TO LOAD ALIAS, SORRY..": POKE 216,0: STOP 
  16. 130 P1 =  PEEK(42631):P2 =  PEEK(42632)
  17. 140 AF = P2 *256 +1132: PRINT  CHR$(4)"BLOAD ALWSOBJ": POKE 811,P2 +2: FOR P = 0 TO 5: POKE AD%(P) +1,(AF +OF%(P))/256: NEXT P
  18. 150  ON  PEEK(49050) GOTO 170: PRINT  CHR$(4)"PREFIX": INPUT PF$: PRINT  CHR$(4)"PREFIX"PF$: REM GETBIPREFIXANDSETMLIPREFIX
  19. 160  REM  ** MAIN MENU
  20. 170  HOME :P$ = "** ALIAS WORKSHOP **": GOSUB 420:P$ = "an ALIAS companion program": GOSUB 440:P$ = "by Benoit Gilon": GOSUB 420:P$ = "Copyright (C) 1992": GOSUB 440:P$ = "MindCraft Publishing Corp.": GOSUB 440: VTAB 11
  21. 180  PRINT " 1: See current Alias definitions": PRINT 
  22. 190  PRINT " 2: Purge all definitions from memory": PRINT 
  23. 200  PRINT " 3: Append definitions from a file": PRINT 
  24. 210  PRINT " 4: Save defintions to a file": PRINT 
  25. 220  PRINT " 5: Exit Alias Workshop": PRINT : PRINT ":";
  26. 230  GET P$: ON  ASC(P$) = 3 GOTO 460: ON P$ <"1"  OR P$ >"5" GOTO 230: PRINT : HOME : ON  VAL(P$) GOTO 240,300,330,370,460
  27. 240 P$ = "ALIAS DEFINITION TABLE": GOSUB 420:P =  PEEK(37)
  28. 250  PRINT  CHR$(4)"SAD": GOTO 280
  29. 260  POKE 216,0:ER =  PEEK(222)
  30. 270  PRINT "ERROR OCCURED, CODE:"ER: GOTO 290
  31. 280  IF P =  PEEK(37)  THEN  PRINT "TABLE EMPTY"
  32. 290  PRINT : PRINT "PRESS ANY KEY TO CONTINUE";: GET R$: GOTO 170
  33. 300 P$ = "FROM MEMORY ALIAS PURGE PHASE": GOSUB 420
  34. 310  FOR P = 1 TO 16: PRINT  CHR$(4)"UNALIAS "P: NEXT P
  35. 320  PRINT "DONE.": GOTO 290
  36. 330 P$ = "APPEND FROM FILE PHASE": GOSUB 420
  37. 340  GOSUB 480: ONERR  GOTO 360
  38. 350  PRINT  CHR$(4)"VERIFY "NF$: POKE 216,0: CALL 778: GOTO 290
  39. 360  POKE 216,0:ER =  PEEK(222): ON ER < >6  AND ER < >7 GOTO 270: PRINT "PATH NOT FOUND": GOTO 290
  40. 370 P$ = "SAVE AS AN ALIAS FILE PHASE": GOSUB 420
  41. 380  GOSUB 480: ONERR  GOTO 400
  42. 390  PRINT  CHR$(4)"CREATE "NF$",TBIN": POKE 216,0: CALL 774:ER =  PEEK(777): ON ER GOTO 270: GOTO 290
  43. 400  POKE 216,0:ER =  PEEK(222): ON ER < >19 GOTO 270: PRINT "FILE ALREADY EXISTS.. NOW WHAT?": PRINT "<C>ANCEL <P>ROCEED: ";: GET P$: PRINT P$: ON P$ < >"P"  AND P$ < >"p" GOTO 290: PRINT  CHR$(4)"UNLOCK"NF$: PRINT  CHR$(4)"DELETE"NF$: GOTO 390
  44. 410  END 
  45. 420  GOSUB 440: PRINT : RETURN 
  46. 430  REM  ** CENTER LINE ON SCREEN
  47. 440  HTAB 20 - LEN(P$) *.5: PRINT P$: RETURN 
  48. 450  REM  ** EVEN GREAT PROGRAMS MUST HAVE AN END
  49. 460  HOME : PRINT "Bye/Au Revoir/Adios/Auf Wiedersehen!": PRINT  CHR$(4)"PREFIX"PF$: END 
  50. 470  REM  GET A FILE PATHNAME
  51. 480  PRINT "Enter <?> to catalog current directory.": PRINT "Press <Return> for Main Menu.": PRINT 
  52. 490  INVERSE : PRINT "FILENAME";: NORMAL : INPUT ": ";NF$: ON NF$ < >"" GOTO 500: POP : GOTO 170
  53. 500  ON  LEFT$(NF$,1) < >"?" GOTO 510:DR$ = "": FOR P = 1 TO  LEN(NF$):VA =  ASC( MID$ (NF$,P,1)):DR$ = DR$ + CHR$(VA +(44 -VA) *(VA = 35)): NEXT P: PRINT  CHR$(4)"CAT" MID$ (DR$,2): GOTO 490: REM  44= "," - 35="#"
  54. 510  RETURN