1 REM  PLOTTEXT
1000 IFL=0THENL=1:LOAD"SYSPLOTTER.O",8,1
1010 DR=49167:REM DRAW
1020 SYS49152:REM SET GRAPHICS
1030 SYS49158:REM CLEAR GRAPHICS
1040 SYS49161,0:REM SET BACKGROUND BLACK
1050 SYS49164,7:REM SET COLOR YELLOW
1060 X=120:Y=3:L$="LOADSTAR STAFF":GOSUB1380
1070 X=4:Y=20:L$="A. GROSS PROFIT":GOSUB1380
1080 X=4:Y=40:L$="B. GROSS LOSS":GOSUB1380
1090 X=4:Y=60:L$="C. NEGLIGIBLE STUFF":GOSUB1380
1100 FORY=18TO67:SYSDR,120,Y:NEXT
1110 FORX=121TO136STEP2:FORY=20TO26:SYSDR,X,Y:NEXT:NEXT
1120 FORX=121TO188STEP2:FORY=40TO46:SYSDR,X,Y:NEXT:NEXT
1130 FORX=121TO221STEP2:FORY=60TO66::SYSDR,X,Y:NEXT:NEXT
1140 FORXY=0TO2*(null)STEP.04:X=160-38*COS(XY):Y=160+27*SIN(XY):SYSDR,X,Y:NEXT
1150 FORY=160TO133STEP-1:SYSDR,160,Y:NEXT
1160 XY=0:X=160:FORY=160TO135STEP-1:XY=XY+1:IFXY=2THENX=X+1:XY=0
1170 SYSDR,X,Y:NEXT
1180 XY=0:X=160:FORY=160TO174STEP.5:XY=XY+1:IFXY=1THENX=X+1:XY=0
1190 SYSDR,X,Y:NEXT
1200 X=163:Y=136:L$="A":GOSUB1380
1210 X=135:Y=160:L$="C":GOSUB1380
1220 X=182:Y=149:L$="B":GOSUB1380
1230 X=113:Y=191:L$="PRESS SPACE BAR":GOSUB1380
1240 REM
1250 POKE198,0
1260 GETK$:IFK$=""THEN1260
1270 SYS49155:REM UNGRAPHICS
1280 REM PRINT"[147]"
1290 GOTO63000: REM   'END'
1300 REM ***********************
1310 REM *  -P-L-O-T-T-E-X-T-  *
1320 REM * SET X TO THE HORIZ- *
1330 REM * ONTAL COORDINATE, Y *
1340 REM * TO THE VERTICAL.    *
1350 REM * SET L$ TO THE STRING*
1360 REM * YOU WANT TO DRAW.   *
1370 REM * THEN GOSUB HERE.    *
1380 REM * VARIABLES USED:     *
1390 REM * X, Y, XY, L, L$, K$ *
1400 REM * AND DR.             *
1410 REM ***********************
1420 IFLEN(L$)<1THENRETURN
1430 FORXY=1TOLEN(L$):K$=MID$(L$,XY,1)
1440 IFK$=" "ORK$="[160]"THEN1460
1450 GOSUB1490
1460 X=X+6:IFX>312THENX=0:Y=Y+8
1470 NEXT
1480 RETURN
1490 L=ASC(K$)-64
1500 IFL<1THENGOSUB1820:RETURN
1510 ONLGOSUB1550,1560,1570,1580,1590,1600,1610,1620,1630,1640,1650,1660,1670
1520 L=L-13:IFL<1THEN1540
1530 ONLGOSUB1680,1690,1700,1710,1720,1730,1740,1750,1760,1770,1780,1790,1800
1540 RETURN
1550 GOSUB2450:GOSUB2040:GOSUB2030:RETURN
1560 GOSUB2020:GOSUB2070:GOSUB2080:GOSUB2220:GOSUB2090:GOSUB2100:RETURN
1570 GOSUB2020:GOSUB2040:GOSUB2120:RETURN
1580 GOSUB2020:GOSUB2110:GOSUB2080:GOSUB2060:RETURN
1590 GOSUB1600:GOSUB2120:RETURN
1600 GOSUB2020:GOSUB2040:GOSUB2070:RETURN
1610 GOSUB1570:GOSUB2130:GOSUB2100:RETURN
1620 GOSUB2450:GOSUB2070:RETURN
1630 GOSUB2140:RETURN
1640 GOSUB2150:GOSUB2060:GOSUB2050:RETURN
1650 GOSUB2020:GOSUB2160:RETURN
1660 GOSUB2020:GOSUB2120:RETURN
1670 GOSUB2450:GOSUB2190:RETURN
1680 GOSUB2450:GOSUB2200:RETURN
1690 GOSUB2110:GOSUB2060:GOSUB2080:GOSUB2210:RETURN
1700 GOSUB1600:GOSUB2090:RETURN
1710 GOSUB1690:GOSUB2230:RETURN
1720 GOSUB1700:GOSUB2230:RETURN
1730 GOSUB2080:GOSUB2070:GOSUB2220:GOSUB2100:GOSUB2240:RETURN
1740 GOSUB2140:GOSUB2040:RETURN
1750 GOSUB2450:GOSUB2060:RETURN
1760 GOSUB2250:RETURN
1770 GOSUB2450:GOSUB2270:RETURN
1780 GOSUB2300:GOSUB2280:RETURN
1790 GOSUB2300:GOSUB2330:RETURN
1800 GOSUB2040:GOSUB2120:GOSUB2320:RETURN
1810 REMEND OF ALPHABET
1820 IFK$="$"THENGOSUB2410:RETURN
1830 IFK$="%"THENGOSUB2380:RETURN
1840 IFK$=","THENGOSUB2370:RETURN
1850 IFK$="-"THENGOSUB2360:RETURN
1860 IFK$="."THENGOSUB2350:RETURN
1870 L=L+17:IFL<1THEN1890
1880 ONLGOSUB1900,1910,1920,1940,1950,1960,1970,1980,1990,2010
1890 RETURN
1900 GOSUB1690:GOSUB2320:RETURN
1910 GOSUB2140:SYSDR,X+1,Y+1:RETURN
1920 GOSUB2120:GOSUB2080:GOSUB2090:GOSUB2070:SYSDR,X,Y+1
1930 SYSDR,X,Y+4:SYSDR,X,Y+5:RETURN
1940 GOSUB2080:GOSUB2070:GOSUB2060:GOSUB2090:GOSUB2100:RETURN
1950 GOSUB2030:GOSUB2330:GOSUB2340:RETURN
1960 GOSUB2040:GOSUB2340:GOSUB2070:GOSUB2100:GOSUB2060:RETURN
1970 GOSUB2210:GOSUB2080:GOSUB2070:GOSUB2060:GOSUB2100:RETURN
1980 GOSUB2040:GOSUB2320:SYSDR,X,Y+6:RETURN
1990 GOSUB2080:GOSUB2070:GOSUB2060:GOSUB2090:GOSUB2100:GOSUB2240
2000 SYSDR,X,Y+4:SYSDR,X,Y+5:RETURN
2010 GOSUB2110:GOSUB2080:GOSUB2070:GOSUB2060:GOSUB2240:RETURN
2020 FORYY=0TO6:SYSDR,X,Y+YY:NEXT:RETURN
2030 FORXX=0TO4:SYSDR,X+XX,Y+3:NEXT:RETURN
2040 FORXX=0TO4:SYSDR,X+XX,Y:NEXT:RETURN
2050 FORYY=0TO6:SYSDR,X+4,Y+YY:NEXT:RETURN
2060 FORXX=1TO3:SYSDR,X+XX,Y+6:NEXT:RETURN
2070 FORXX=1TO3:SYSDR,X+XX,Y+3:NEXT:RETURN
2080 FORXX=1TO3:SYSDR,X+XX,Y:NEXT:RETURN
2090 SYSDR,X+4,Y+2:SYSDR,X+4,Y+1:RETURN
2100 SYSDR,X+4,Y+5:SYSDR,X+4,Y+4:RETURN
2110 FORYY=1TO5:SYSDR,X+4,Y+YY:NEXT:RETURN
2120 FORXX=0TO4:SYSDR,X+XX,Y+6:NEXT:RETURN
2130 FORXX=2TO4:SYSDR,X+XX,Y+3:NEXT:RETURN
2140 FORYY=0TO6:SYSDR,X+2,Y+YY:NEXT:RETURN
2150 FORYY=3TO6:SYSDR,X,Y+YY:NEXT:RETURN
2160 SYSDR,X+4,Y:SYSDR,X+3,Y+1:SYSDR,X+2,Y+2:SYSDR,X+1,Y+3
2170 GOSUB2230
2180 RETURN
2190 SYSDR,X+1,Y+1:SYSDR,X+3,Y+1:SYSDR,X+2,Y+2:SYSDR,X+2,Y+3:RETURN
2200 XX=0:FORYY=2TO4:XX=XX+1:SYSDR,X+XX,Y+XX:NEXT
2210 FORYY=1TO5:SYSDR,X,Y+YY:NEXT:RETURN
2220 FORXX=1TO3:SYSDR,X+XX,Y+6:NEXT:RETURN
2230 SYSDR,X+2,Y+4:SYSDR,X+3,Y+5:SYSDR,X+4,Y+6:RETURN
2240 SYSDR,X,Y+1:SYSDR,X,Y+2:RETURN
2250 FORYY=0TO4:SYSDR,X,Y+YY:SYSDR,X+4,Y+YY:NEXT:SYSDR,X+1,Y+5:SYSDR,X+3,Y+5
2260 SYSDR,X+2,Y+6:RETURN
2270 SYSDR,X+2,Y+3:SYSDR,X+2,Y+4:SYSDR,X+1,Y+5:SYSDR,X+3,Y+5:RETURN
2280 FORYY=5TO6:SYSDR,X,Y+YY:SYSDR,X+4,Y+YY:NEXT:SYSDR,X+1,Y+4:SYSDR,X+3,Y+4
2290 RETURN
2300 FORYY=0TO1:SYSDR,X,Y+YY:SYSDR,X+4,Y+YY:NEXT:SYSDR,X+1,Y+2:SYSDR,X+3,Y+2
2310 SYSDR,X+2,Y+3:RETURN
2320 YY=5:FORXX=0TO4:SYSDR,X+XX,Y+YY:YY=YY-1:NEXT:RETURN
2330 FORYY=4TO6:SYSDR,X+2,Y+YY:NEXT:RETURN
2340 FORYY=0TO3:SYSDR,X,Y+YY:NEXT:RETURN
2350 FORXX=2TO3:SYSDR,X+XX,Y+5:SYSDR,X+XX,Y+6:NEXT:RETURN
2360 GOSUB2070:RETURN
2370 SYSDR,X+3,Y+4:SYSDR,X+3,Y+5:SYSDR,X+2,Y+6:RETURN
2380 GOSUB2320
2390 FORXX=0TO1:SYSDR,X+XX,Y:SYSDR,X+XX,Y+1:NEXT
2400 FORXX=3TO4:SYSDR,X+XX,Y+5:SYSDR,X+XX,Y+6:NEXT:RETURN
2410 GOSUB2070:FORXX=1TO4:SYSDR,X+XX,Y+1:NEXT
2420 FORXX=0TO3:SYSDR,X+XX,Y+5:NEXT
2430 SYSDR,X,Y+2:SYSDR,X,Y+5:SYSDR,X+4,Y+1:SYSDR,X+4,Y+4
2440 SYSDR,X+2,Y:SYSDR,X+2,Y+6:RETURN
2450 GOSUB2020:GOSUB2050:RETURN
63000 PRINT"[147][204]OADING [211][217][211][208][204][207][212] MENU..."
63010 PRINT"[144]LOAD"CHR$(34)"PLOTTER BOOT"CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:        END