home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 93 / SGDS 93.2mg / SDGS.93 / SDA93 / A / M.GRAPH (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-05-22  |  1.3 KB  |  52 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 100  TEXT : HOME : PRINT  CHR$(21)
  2. 110  PRINT "MIGHTY GRAPH BY JIM WEILER"
  3. 120  VTAB 12: PRINT "CHECKING SYSTEM MEMORY. PLEASE WAIT."
  4. 130  IF  PEEK(115) < >0  OR  PEEK(116) < >150  OR  PEEK(104) < >8  OR  PEEK(103) < >1  THEN 480
  5. 135  ONERR  GOTO 530
  6. 140  HIMEM: 15360: PRINT  CHR$(4)"PREFIX": INPUT K$: PRINT  CHR$(4)"PREFIX"K$
  7. 150  POKE 33,1
  8. 160  POKE 35,1
  9. 170  HOME 
  10. 180  ONERR  GOTO 470
  11. 190  PRINT  CHR$(4)"CAT/RAM"
  12. 200  FOR C = 525 TO 529
  13. 210 T$ = T$ + CHR$( PEEK(C) -128)
  14. 220  NEXT 
  15. 230  PRINT  CHR$(4)"PREFIX": INPUT SVPTH$
  16. 240  IF  VAL(T$) < >119  THEN 470
  17. 241 T$ = "": FOR C = 547 TO 551
  18. 242 T$ = T$ + CHR$( PEEK(C) -128)
  19. 243  NEXT 
  20. 244  IF  VAL(T$) < >8  THEN 470
  21. 250  PRINT  CHR$(4)"-M.GRAPH.DUPE"
  22. 260  TEXT : VTAB 13
  23. 270  PRINT "COPYING MODULES TO RAMDISK."
  24. 280  PRINT "STARTUP MODULE...";
  25. 290  ONERR  GOTO 530
  26. 300  PRINT  CHR$(4)"DUPE M.GRAPH.BGIN,/RAM/M.GRAPH.BGIN"
  27. 310  PRINT "MAIN MODULE...";
  28. 320  PRINT  CHR$(4)"DUPE M.GRAPH.MAIN,/RAM/M.GRAPH.MAIN"
  29. 330  PRINT "DRAWING MODULE...";
  30. 340  PRINT  CHR$(4)"DUPE M.GRAPH.DRAW,/RAM/M.GRAPH.DRAW"
  31. 350  PRINT "DATA ENTRY MODULE...";
  32. 360  PRINT  CHR$(4)"DUPE M.GRAPH.INPT,/RAM/M.GRAPH.INPT"
  33. 370  PRINT "FILE OPTIONS MODULE...";
  34. 380  PRINT  CHR$(4)"DUPE M.GRAPH.FILE,/RAM/M.GRAPH.FILE"
  35. 390  PRINT "IMAGEWRITER SUPPORT MODULE...";
  36. 400  PRINT  CHR$(4)"DUPE M.GRAPH.PRNT,/RAM/M.GRAPH.PRNT"
  37. 410  PRINT "PIE GRAPHICS MODULE...";
  38. 420  PRINT  CHR$(4)"DUPE M.GRAPH.SHTB,/RAM/M.GRAPH.SHTB"
  39. 430  POKE 216,0
  40. 440  PRINT  CHR$(4)"UNDUPE"
  41. 450  PRINT  CHR$(4)"PREFIX/RAM"
  42. 460  IF  PEEK(49149) = 1  THEN  POKE 41859,3: REM  FIX CHAIN BUG
  43. 470  POKE 216,0: PRINT  CHR$(4)"CHAINM.GRAPH.BGIN"
  44. 480  TEXT : HOME 
  45. 490  VTAB 12
  46. 500  PRINT "BAD MEMORY CONFIGURATION.": PRINT : PRINT "REBOOT. TRY AGAIN."
  47. 510  GET K$
  48. 520  PRINT  CHR$(4)"BYE"
  49. 530  POKE 216,0
  50. 540  PRINT "UNABLE TO FIND ALL MODULES."
  51. 550  PRINT : PRINT "PRESS A KEY TO EXIT."
  52. 560  GOTO 510