home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 93 / SGDS 93.2mg / SDGS.93 / SDA93 / A / M.GRAPH.BGIN (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-05-22  |  2.2 KB  |  117 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ROT= 0: SPEED= 255: REM <CTRL-0x0d>(C)1988
  2. 100  PRINT  CHR$(21): IF  PEEK(176) >63  THEN  PRINT "TOO BIG. HGR2 WILL KILL LAST LINES.": STOP 
  3. 110  HGR2 : CALL 2304: POKE 48688, PEEK(0): POKE 48689, PEEK(1):::::::
  4. 130  CALL 2260: REM GSMONO
  5. 140  POKE 104,14: GOTO 1
  6. 150  CALL 2281: REM GSCOLR
  7. 160  PRINT  CHR$(4)"BYE5d"BYE"d SPEED= <CTRL-0x08> DEL h`8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF _ TAB(  IF ) TAB( ) SIN PLOT ) TAB( `"
  8. 36286  <<CTRL-0x09> IF 1 GET  PLOT  SGN<CTRL-0x09> SPEED= 3 DEL 
  9. 389  SPEED= 
  10. 20653  TAB(  IF R TAB(  IF W TAB(  ONERR  ASC -@ = <CTRL-0x04> IF U TAB( ` IF T TAB(  SPEED=   DEL  ASC`) PLOT  PLOT <CTRL-0x09> J<UNKNOWN TOKEN> ONERR <UNKNOWN TOKEN>H ONERR  STR$) END  DEL <UNKNOWN TOKEN> IF  PLOT <CTRL-0x09> -  HGR2 u ONERR %  TO <UNKNOWN TOKEN> DEL & ONERR )8 RIGHT$<CTRL-0x04><CTRL-0x18>e ASC DEL '<CTRL-0x18> ONERR  e$e& DEL & SPEED= 
  11. 3593  PLOT <CTRL-0x09>. HLIN <CTRL-0x09><CTRL-0x0e> PLOT <CTRL-0x09>. HLIN <CTRL-0x09><CTRL-0x0e> PLOT <CTRL-0x09>. HLIN <CTRL-0x09> ONERR <UNKNOWN TOKEN>)<CTRL-0x0f>i<CTRL-0x09>m HLIN <CTRL-0x09> PLOT  HLIN <CTRL-0x09> VTAB 
  12. 3517 <CTRL-0x0a>H ONERR 2 -? = <CTRL-0x04>hIHh PLOT <UNKNOWN TOKEN><CTRL-0x09> LOMEM: <UNKNOWN TOKEN> TAB( <CTRL-0x03> HGR2 <CTRL-0x07> COLOR= 
  13. 64333 <CTRL-0x09> COLOR= 
  14. 9873 <CTRL-0x18> SPEED= <CTRL-0x04>e' DEL ' LEFT$ TAN<CTRL-0x08> =  > ?<UNKNOWN TOKEN> -<CTRL-0x0c><UNKNOWN TOKEN><CTRL-0x0f> -<CTRL-0x14><UNKNOWN TOKEN>"h DEL <UNKNOWN TOKEN> ?<UNKNOWN TOKEN><CTRL-0x09> END L<UNKNOWN TOKEN><UNKNOWN TOKEN> X<UNKNOWN TOKEN>8 ONERR # VAL" STORE  RESUME ! J<UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> X<UNKNOWN TOKEN>L +<CTRL-0x09> SPEED= 
  15. 8837  SPEED= ( DEL ! SPEED= <CTRL-0x18> DEL #L +<CTRL-0x09><CTRL-0x0c><CTRL-0x0c><CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  16. 13107 3<CTRL-0x12>?<CTRL-0x12><CTRL-0x12>?<CTRL-0x12>
  17. 7683 0<CTRL-0x1f><CTRL-0x0c>
  18. 3096 <CTRL-0x06>33
  19. 7683 <CTRL-0x03>><CTRL-0x0c>
  20. 12 
  21. 1542 <CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  22. 6168 <CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  23. 16140 <CTRL-0x0c><CTRL-0x1e>
  24. 16140 ?<CTRL-0x0c><CTRL-0x0c>
  25. 12 
  26. 62 <CTRL-0x1c><CTRL-0x1c><CTRL-0x1c>
  27. 3096 <CTRL-0x06><CTRL-0x03><CTRL-0x03>
  28. 13107 33<CTRL-0x0c>
  29. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  30. 7216 <CTRL-0x06><CTRL-0x03>?
  31. 7216 03<CTRL-0x1e>
  32. 13107 ?00
  33. 12319 03<CTRL-0x1e>
  34. 7939 33<CTRL-0x1e>
  35. 3096 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  36. 7731 33<CTRL-0x1e>
  37. 15923 03<CTRL-0x1e><CTRL-0x0c><CTRL-0x0c>
  38. 0 
  39. 7168 <CTRL-0x18><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x06><CTRL-0x03><CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  40. 30 <CTRL-0x1e><CTRL-0x1e>
  41. 6156 0<CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  42. 7216 <CTRL-0x0c>
  43. 13086 ;;<CTRL-0x03>3<CTRL-0x1e>
  44. 16179 333
  45. 7987 33<CTRL-0x1f>
  46. 771 <CTRL-0x03>3<CTRL-0x1e>
  47. 13107 33<CTRL-0x1f>
  48. 3843 <CTRL-0x03><CTRL-0x03>?
  49. 3843 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  50. 15107 33<CTRL-0x1e>
  51. 16179 333
  52. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  53. 12336 03<CTRL-0x1e>
  54. 3871 <CTRL-0x1f>33
  55. 771 <CTRL-0x03><CTRL-0x03>?
  56. 13119 333
  57. 13107 333
  58. 13107 33<CTRL-0x1e>
  59. 7987 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  60. 13107 3?<CTRL-0x1e>p<CTRL-0x1f>33<CTRL-0x1f><CTRL-0x1f>33
  61. 7683 00<CTRL-0x1f>
  62. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  63. 13107 33<CTRL-0x1e>
  64. 13107 3<CTRL-0x1e><CTRL-0x0c>
  65. 13107 ??3
  66. 3102 <CTRL-0x1e>33
  67. 7731 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  68. 3096 <CTRL-0x06><CTRL-0x03>?
  69. 1542 <CTRL-0x06><CTRL-0x06><CTRL-0x1e>
  70. 3078 <CTRL-0x18>00
  71. 6168 <CTRL-0x18><CTRL-0x18><CTRL-0x1e>
  72. 51 
  73. 1550 <CTRL-0x0c>
  74. 13118 >
  75. 13087 33<CTRL-0x1f><CTRL-0x1e>3<CTRL-0x03>3<CTRL-0x1e>
  76. 13118 33><CTRL-0x1e>3?<CTRL-0x03>>
  77. 7942 <CTRL-0x06><CTRL-0x06><CTRL-0x06>>33>0<CTRL-0x1e><CTRL-0x03><CTRL-0x03><CTRL-0x1f>3333
  78. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  79. 6172 <CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x0e><CTRL-0x03><CTRL-0x03>33<CTRL-0x0f>33
  80. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>3??33<CTRL-0x1f>3333<CTRL-0x1e>333<CTRL-0x1e><CTRL-0x1f>33<CTRL-0x1f><CTRL-0x03><CTRL-0x03>
  81. 13107 >00
  82. 819 <CTRL-0x03><CTRL-0x03>><CTRL-0x03><CTRL-0x1e>0<CTRL-0x1f>
  83. 1567 <CTRL-0x06><CTRL-0x06><CTRL-0x1c>3333>333<CTRL-0x1e><CTRL-0x0c>33??33<CTRL-0x1e><CTRL-0x0c><CTRL-0x1e>3333>0<CTRL-0x1e>
  84. 3096 <CTRL-0x06>?
  85. 1548 <CTRL-0x0c><CTRL-0x0c><CTRL-0x18>
  86. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  87. 6156 <CTRL-0x0c><CTRL-0x0c><CTRL-0x06>
  88. 0 
  89. 16191 ???
  90. 1670   GET  COS <UNKNOWN TOKEN> ASC PR#  RESUME <CTRL-0x06> XDRAW 
  91. 50928 <CTRL-0x03>0}  NOT <CTRL-0x02>0y ONERR <CTRL-0x01> -<CTRL-0x03> HGR2 s<CTRL-0x18>e<CTRL-0x03> -) GOSUB l ONERR 
  92. 26256 <CTRL-0x18>e<CTRL-0x02> -<CTRL-0x19> GOSUB _ DEL # ONERR <CTRL-0x02> DEL " ONERR <CTRL-0x01> DEL ! ONERR <CTRL-0x03> DEL   ASC  ASC"  NOT !  NOT !  STOP <CTRL-0x0d> COLOR= <CTRL-0x18> VTAB <CTRL-0x03> GR  POKE  ASC<CTRL-0x0d> XDRAW <CTRL-0x06> * = <UNKNOWN TOKEN>  DRAW <CTRL-0x0d> = <UNKNOWN TOKEN> VTAB <CTRL-0x03> CLEAR  PEEK<CTRL-0x0d> XDRAW <CTRL-0x06> * = <UNKNOWN TOKEN>  STOP <CTRL-0x0d> ONERR <CTRL-0x02> AT # GOSUB <CTRL-0x0a> COLOR= <CTRL-0x08> GR   DRAW <CTRL-0x0d> = <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR= <CTRL-0x18> VTAB <CTRL-0x03> GR  POKE /<CTRL-0x0d> XDRAW <CTRL-0x06> * = <UNKNOWN TOKEN>  DRAW <CTRL-0x0d> = <UNKNOWN TOKEN>  NOT # X<UNKNOWN TOKEN>` INPUT <CTRL-0x06> ONERR <CTRL-0x09> LOMEM: <CTRL-0x01> GR  HGR <UNKNOWN TOKEN> GR  ONERR <CTRL-0x08> HGR <UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> ONERR <CTRL-0x07> HGR <UNKNOWN TOKEN><CTRL-0x18> ONERR <UNKNOWN TOKEN>i<CTRL-0x04> DEL <UNKNOWN TOKEN> LOMEM: <CTRL-0x06>` ONERR <CTRL-0x02> ASC<CTRL-0x02>  TO <UNKNOWN TOKEN> ONERR )8 RIGHT$<CTRL-0x04><CTRL-0x18>e ASC DEL <UNKNOWN TOKEN> ONERR (e<CTRL-0x03> DEL <UNKNOWN TOKEN>`<CTRL-0x03>
  93. 31103 sysy<CTRL-0x03>
  94. 32639 <CTRL-0x0f>
  95. 32639 ?
  96. 32639 ,<CTRL-0x0e>
  97. 0  POKE 104,8: POKE 48688,240: POKE 48689,253: RUN 
  98. 1  RESTORE : REM  LEAVE THIS HERE IF YOU USE DATA   
  99. 2  REM TO QUIT:POKE104,8:GOTO150
  100. 3  REM BLOAD IMAGES @ $DCB
  101. 4  REM BLOAD BOXRTN @ $D00
  102. 5  REM BLOAD FONT   @ $A00
  103. 10  DIM BQ$(16),LQ$(16),PQ$(16): REM    ELEMENTS FOR BAR, LINE, PIE GRAPHS
  104. 20 BOX = 3328: INVERSE :ES$ =  CHR$(27)
  105. 30  ONERR  GOTO 90
  106. 40  PRINT  CHR$(4)"BLOAD M.GRAPH.PRNT,A24576"
  107. 50  PRINT  CHR$(4)"BLOAD M.GRAPH.SHTB,A25600": POKE 232,0: POKE 233,100: ROT= 0: SCALE= 1
  108. 60 OP$(0) = "Yes":OP$(1) = "No":OP$(2) = "No":OP$(3) = "Yes": REM  screen/file/printerFLGS
  109. 70 PR = 1
  110. 80  CALL BOX,1,1,40,24: CALL BOX,11,10,18,3: PRINT "   One moment...": PRINT  CHR$(4)"CHAIN M.GRAPH.MAIN"
  111. 90  CALL  -3288
  112. 100  POKE 216,0
  113. 110  CALL BOX,5,5,30,15: PRINT : PRINT "          FATAL ERROR."
  114. 120  PRINT : PRINT "     Missing a module."
  115. 130  PRINT : PRINT "  Press a key to exit."
  116. 140  GET K$
  117. 150  POKE 104,8: GOTO 150