home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / plottext (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  151 lines
  1. 1 rem  plottext
  2. 1000 ifl=0thenl=1:load"sysplotter.o",8,1
  3. 1010 dr=49167:rem draw
  4. 1020 sys49152:rem set graphics
  5. 1030 sys49158:rem clear graphics
  6. 1040 sys49161,0:rem set background black
  7. 1050 sys49164,7:rem set color yellow
  8. 1060 x=120:y=3:l$="loadstar staff":gosub1380
  9. 1070 x=4:y=20:l$="a. gross profit":gosub1380
  10. 1080 x=4:y=40:l$="b. gross loss":gosub1380
  11. 1090 x=4:y=60:l$="c. negligible stuff":gosub1380
  12. 1100 fory=18to67:sysdr,120,y:next
  13. 1110 forx=121to136step2:fory=20to26:sysdr,x,y:next:next
  14. 1120 forx=121to188step2:fory=40to46:sysdr,x,y:next:next
  15. 1130 forx=121to221step2:fory=60to66::sysdr,x,y:next:next
  16. 1140 forxy=0to2*(NULL)step.04:x=160-38*cos(xy):y=160+27*sin(xy):sysdr,x,y:next
  17. 1150 fory=160to133step-1:sysdr,160,y:next
  18. 1160 xy=0:x=160:fory=160to135step-1:xy=xy+1:ifxy=2thenx=x+1:xy=0
  19. 1170 sysdr,x,y:next
  20. 1180 xy=0:x=160:fory=160to174step.5:xy=xy+1:ifxy=1thenx=x+1:xy=0
  21. 1190 sysdr,x,y:next
  22. 1200 x=163:y=136:l$="a":gosub1380
  23. 1210 x=135:y=160:l$="c":gosub1380
  24. 1220 x=182:y=149:l$="b":gosub1380
  25. 1230 x=113:y=191:l$="press space bar":gosub1380
  26. 1240 rem
  27. 1250 poke198,0
  28. 1260 getk$:ifk$=""then1260
  29. 1270 sys49155:rem ungraphics
  30. 1280 rem print"[147]"
  31. 1290 goto63000: rem   'end'
  32. 1300 rem ***********************
  33. 1310 rem *  -p-l-o-t-t-e-x-t-  *
  34. 1320 rem * set x to the horiz- *
  35. 1330 rem * ontal coordinate, y *
  36. 1340 rem * to the vertical.    *
  37. 1350 rem * set l$ to the string*
  38. 1360 rem * you want to draw.   *
  39. 1370 rem * then gosub here.    *
  40. 1380 rem * variables used:     *
  41. 1390 rem * x, y, xy, l, l$, k$ *
  42. 1400 rem * and dr.             *
  43. 1410 rem ***********************
  44. 1420 iflen(l$)<1thenreturn
  45. 1430 forxy=1tolen(l$):k$=mid$(l$,xy,1)
  46. 1440 ifk$=" "ork$="[160]"then1460
  47. 1450 gosub1490
  48. 1460 x=x+6:ifx>312thenx=0:y=y+8
  49. 1470 next
  50. 1480 return
  51. 1490 l=asc(k$)-64
  52. 1500 ifl<1thengosub1820:return
  53. 1510 onlgosub1550,1560,1570,1580,1590,1600,1610,1620,1630,1640,1650,1660,1670
  54. 1520 l=l-13:ifl<1then1540
  55. 1530 onlgosub1680,1690,1700,1710,1720,1730,1740,1750,1760,1770,1780,1790,1800
  56. 1540 return
  57. 1550 gosub2450:gosub2040:gosub2030:return
  58. 1560 gosub2020:gosub2070:gosub2080:gosub2220:gosub2090:gosub2100:return
  59. 1570 gosub2020:gosub2040:gosub2120:return
  60. 1580 gosub2020:gosub2110:gosub2080:gosub2060:return
  61. 1590 gosub1600:gosub2120:return
  62. 1600 gosub2020:gosub2040:gosub2070:return
  63. 1610 gosub1570:gosub2130:gosub2100:return
  64. 1620 gosub2450:gosub2070:return
  65. 1630 gosub2140:return
  66. 1640 gosub2150:gosub2060:gosub2050:return
  67. 1650 gosub2020:gosub2160:return
  68. 1660 gosub2020:gosub2120:return
  69. 1670 gosub2450:gosub2190:return
  70. 1680 gosub2450:gosub2200:return
  71. 1690 gosub2110:gosub2060:gosub2080:gosub2210:return
  72. 1700 gosub1600:gosub2090:return
  73. 1710 gosub1690:gosub2230:return
  74. 1720 gosub1700:gosub2230:return
  75. 1730 gosub2080:gosub2070:gosub2220:gosub2100:gosub2240:return
  76. 1740 gosub2140:gosub2040:return
  77. 1750 gosub2450:gosub2060:return
  78. 1760 gosub2250:return
  79. 1770 gosub2450:gosub2270:return
  80. 1780 gosub2300:gosub2280:return
  81. 1790 gosub2300:gosub2330:return
  82. 1800 gosub2040:gosub2120:gosub2320:return
  83. 1810 remend of alphabet
  84. 1820 ifk$="$"thengosub2410:return
  85. 1830 ifk$="%"thengosub2380:return
  86. 1840 ifk$=","thengosub2370:return
  87. 1850 ifk$="-"thengosub2360:return
  88. 1860 ifk$="."thengosub2350:return
  89. 1870 l=l+17:ifl<1then1890
  90. 1880 onlgosub1900,1910,1920,1940,1950,1960,1970,1980,1990,2010
  91. 1890 return
  92. 1900 gosub1690:gosub2320:return
  93. 1910 gosub2140:sysdr,x+1,y+1:return
  94. 1920 gosub2120:gosub2080:gosub2090:gosub2070:sysdr,x,y+1
  95. 1930 sysdr,x,y+4:sysdr,x,y+5:return
  96. 1940 gosub2080:gosub2070:gosub2060:gosub2090:gosub2100:return
  97. 1950 gosub2030:gosub2330:gosub2340:return
  98. 1960 gosub2040:gosub2340:gosub2070:gosub2100:gosub2060:return
  99. 1970 gosub2210:gosub2080:gosub2070:gosub2060:gosub2100:return
  100. 1980 gosub2040:gosub2320:sysdr,x,y+6:return
  101. 1990 gosub2080:gosub2070:gosub2060:gosub2090:gosub2100:gosub2240
  102. 2000 sysdr,x,y+4:sysdr,x,y+5:return
  103. 2010 gosub2110:gosub2080:gosub2070:gosub2060:gosub2240:return
  104. 2020 foryy=0to6:sysdr,x,y+yy:next:return
  105. 2030 forxx=0to4:sysdr,x+xx,y+3:next:return
  106. 2040 forxx=0to4:sysdr,x+xx,y:next:return
  107. 2050 foryy=0to6:sysdr,x+4,y+yy:next:return
  108. 2060 forxx=1to3:sysdr,x+xx,y+6:next:return
  109. 2070 forxx=1to3:sysdr,x+xx,y+3:next:return
  110. 2080 forxx=1to3:sysdr,x+xx,y:next:return
  111. 2090 sysdr,x+4,y+2:sysdr,x+4,y+1:return
  112. 2100 sysdr,x+4,y+5:sysdr,x+4,y+4:return
  113. 2110 foryy=1to5:sysdr,x+4,y+yy:next:return
  114. 2120 forxx=0to4:sysdr,x+xx,y+6:next:return
  115. 2130 forxx=2to4:sysdr,x+xx,y+3:next:return
  116. 2140 foryy=0to6:sysdr,x+2,y+yy:next:return
  117. 2150 foryy=3to6:sysdr,x,y+yy:next:return
  118. 2160 sysdr,x+4,y:sysdr,x+3,y+1:sysdr,x+2,y+2:sysdr,x+1,y+3
  119. 2170 gosub2230
  120. 2180 return
  121. 2190 sysdr,x+1,y+1:sysdr,x+3,y+1:sysdr,x+2,y+2:sysdr,x+2,y+3:return
  122. 2200 xx=0:foryy=2to4:xx=xx+1:sysdr,x+xx,y+xx:next
  123. 2210 foryy=1to5:sysdr,x,y+yy:next:return
  124. 2220 forxx=1to3:sysdr,x+xx,y+6:next:return
  125. 2230 sysdr,x+2,y+4:sysdr,x+3,y+5:sysdr,x+4,y+6:return
  126. 2240 sysdr,x,y+1:sysdr,x,y+2:return
  127. 2250 foryy=0to4:sysdr,x,y+yy:sysdr,x+4,y+yy:next:sysdr,x+1,y+5:sysdr,x+3,y+5
  128. 2260 sysdr,x+2,y+6:return
  129. 2270 sysdr,x+2,y+3:sysdr,x+2,y+4:sysdr,x+1,y+5:sysdr,x+3,y+5:return
  130. 2280 foryy=5to6:sysdr,x,y+yy:sysdr,x+4,y+yy:next:sysdr,x+1,y+4:sysdr,x+3,y+4
  131. 2290 return
  132. 2300 foryy=0to1:sysdr,x,y+yy:sysdr,x+4,y+yy:next:sysdr,x+1,y+2:sysdr,x+3,y+2
  133. 2310 sysdr,x+2,y+3:return
  134. 2320 yy=5:forxx=0to4:sysdr,x+xx,y+yy:yy=yy-1:next:return
  135. 2330 foryy=4to6:sysdr,x+2,y+yy:next:return
  136. 2340 foryy=0to3:sysdr,x,y+yy:next:return
  137. 2350 forxx=2to3:sysdr,x+xx,y+5:sysdr,x+xx,y+6:next:return
  138. 2360 gosub2070:return
  139. 2370 sysdr,x+3,y+4:sysdr,x+3,y+5:sysdr,x+2,y+6:return
  140. 2380 gosub2320
  141. 2390 forxx=0to1:sysdr,x+xx,y:sysdr,x+xx,y+1:next
  142. 2400 forxx=3to4:sysdr,x+xx,y+5:sysdr,x+xx,y+6:next:return
  143. 2410 gosub2070:forxx=1to4:sysdr,x+xx,y+1:next
  144. 2420 forxx=0to3:sysdr,x+xx,y+5:next
  145. 2430 sysdr,x,y+2:sysdr,x,y+5:sysdr,x+4,y+1:sysdr,x+4,y+4
  146. 2440 sysdr,x+2,y:sysdr,x+2,y+6:return
  147. 2450 gosub2020:gosub2050:return
  148. 63000 print"[147][204]oading [211][217][211][208][204][207][212] menu..."
  149. 63010 print"[144]load"chr$(34)"plotter boot"chr$(34)",8":print"run"
  150. 63020 poke631,13:poke632,13:poke198,2:        end
  151.