369 PRINT CHR$(7);:RETURN 370 PRINT CHR$(7);: IF LEN(Z1$)<>0 AND Z$<>"" THEN Z$="": SL=SL+1:PHH=PHH-1 374 PH=PHH:GOSUB 99:FOR i%=1 TO sl+1:PRINT" ";:NEXT 379 RETURN 400 OA%=0:CMD=0 410 GET a$:cmd=ASC(a$) 420 IF CMD>96 AND CMD<123 THEN CMD=CMD-32:RETURN 425 IF CMD>64 AND CMD<91 THEN RETURN 435 IF CMD=27 THEN RETURN 440 IF CMD=32 THEN RETURN 450 IF cmd=13 THEN RETURN 460 IF cmd>47 AND cmd<58 THEN RETURN 470 IF CMD=(81+UCA) OR CMD=(81+LCA) THEN OA%=1:CMD=16:RETURN: REM Quit 475 PRINT CHR$(7);:GOTO 400 480 IF cmd>48 OR cmd<58 THEN RETURN 1000 TEXT:INVERSE:HOME:NORMAL 1010 GOSUB 70:GOSUB 71:GOSUB 72 1020 INVERSE:M$="Chart Maker III":pv=1:GOSUB 350:NORMAL 1030 INVERSE: M$="Press ESCAPE to 'Back Out' of Any Function": pv=14:GOSUB 350:NORMAL 1040 INVERSE: m$="Public Domain Software courtesy Apple Computer, Inc.": pv=24:GOSUB 350:NORMAL 1090 GOSUB 7000 1200 Z=0:Z$="":GOSUB 71:a= FRE 1201 pv=24:ph=70:INVERSE:NORMAL 1205 M$="FUNCTIONS-New Enter Move Clear Save Load Draw OA-Quit": GOSUB 354 1210 ON ERROR GOTO 91 1220 GOSUB 400 1230 IF OA%=1 AND CMD=16 THEN 91 1235 IF OA%=1 THEN 1299 1240 IF CMD=78 THEN GOSUB 8000:GOTO 1200:REM Start New Chart 1250 IF CMD=69 THEN x9=0:x8=0:GOSUB 6000:GOTO 1200: REM Enter a Line 1260 IF CMD=68 THEN GOSUB 9000:GOTO 1200:REM Draw the Chart 1270 IF cmd=67 THEN GOSUB 8500:GOTO 1200:REM Clear Line 1272 IF cmd=77 THEN GOSUB 10000:GOTO 1200:REM Move a line 1274 IF cmd=83 THEN GOSUB 2000:GOTO 1200:REM Save a Chart 1275 IF cmd=76 THEN GOSUB 3000:GOTO 1200:REM Load a Chart 1276 IF cmd>47 AND cmd<58 THEN x9=2: x8=VAL(CHR$(cmd)):cmd=69:GOSUB 6000:GOTO 1200 1299 PRINT CHR$(7);:GOTO 1220 2000 GOSUB 71:m$="Save a Chart Specification":GOSUB 357 2100 pv=20:m$="Name to Save Chart : ":GOSUB 353 2110 pv=20:ph=54:sl=13:GOSUB 101: IF a$=CHR$(27) THEN GOSUB 72:RETURN 2120 name$="C."+b$ 2130 ON ERR GOTO 2200 2140 DELETE name$ 2200 ON ERR GOTO 2300 2205 OPEN#1 AS OUTPUT,name$ 2210 FOR i=1 TO 10 2220 PRINT#1;txt$(i):PRINT#1;center$(i):PRINT#1;dent(i): PRINT#1;size(i):PRINT#1;bold$(i):PRINT#1;color(i): PRINT#1;sl$(i) 2230 NEXT 2240 CLOSE 2250 GOSUB 72:RETURN 2300 GOSUB 72:PRINT CHR$(7);:CLOSE 2320 m$="There is no room on the disk":pv=18:GOSUB 353 2330 m$="You'll have to delete files or use a different disk": pv=20:GOSUB 353 2340 m$="Press Any Key to Continue":pv=22:GOSUB 353 2350 GOSUB 400 2360 ON ERR GOTO 2380 2370 DELETE name$ 2380 GOTO 2250 2400 PRINT ERR, ERRLIN:END 3000 GOSUB 71:m$="Load a Chart Specification":GOSUB 357 3100 pv=20:m$="Name of Chart to Load : ":GOSUB 353 3110 pv=20:ph=54:sl=13:GOSUB 101: IF a$=CHR$(27) THEN GOSUB 72:RETURN 3120 name$="C."+b$ 3130 ON ERR GOTO 3300 3200 OPEN#1 AS INPUT,name$ 3210 FOR i=1 TO 10 3220 INPUT#1;txt$(i):INPUT#1;center$(i):INPUT#1;dent(i): INPUT#1;size(i):INPUT#1;bold$(i):INPUT#1;color(i): INPUT#1;sl$(i) 3230 NEXT:CLOSE 3240 GOSUB 7005 3250 GOSUB 72:RETURN 3300 GOSUB 72:m$="Could NOT find Chart named "+name$: pv=20:GOSUB 353 3310 m$="Press Any Key to Continue": pv=22:GOSUB 353:PRINT CHR$(7); 3320 GOSUB 400:GOSUB 72:GOTO 3250 4000 m$="This Function Not Implemented, Yet":pv=20:GOSUB 353 4010 m$="Press Any Key to Continue":pv=22:GOSUB 353 4015 PRINT CHR$(7); 4020 GOSUB 400 4030 RETURN 6000 GOSUB 71:m$="Enter/Change a Line":GOSUB 357 6010 m$="Line (1-10) : Size (1-3) : Color (1-4):": pv=18:ph=5:GOSUB 352 6020 m$="Center (y/n): Bold (y/n): Slant (y/n): Indent Spaces:": pv=20:ph=5:GOSUB 352 6030 m$="Text : ":pv=22:ph=5:GOSUB 352 6100 pv=18:ph=18:sl=2:ll=1:ul=10 6102 IF x8=0 AND x9=2 THEN x8=10 6103 IF x8<>0 THEN GOSUB 99:PRINT x8;:GOTO 6130 6105 GOSUB 201:IF a$=CHR$(27) THEN GOTO 6990 6110 ON x9 GOTO 6120,6130 6120 GOSUB 369:x8=0:GOTO 6100 6130 n=x8 6200 pv=18:ph=39:sl=1:ll=1:ul=3:GOSUB 201:IF a$=CHR$(27) THEN GOTO 6990 6210 ON x9 GOTO 6220,6230 6220 GOSUB 369:GOTO 6200 6230 size=x8