williams-et-al-1983-apple-ii-computer-graphics
williams-et-al-1983-apple-ii-computer-graphics
williams-et-al-1983-apple-ii-computer-graphics
- No tags were found...
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
22<strong>ii</strong>' PRINT "CONTINUE? (Y/N) ": GET R$23<strong>ii</strong>' IF R$ = "N" GOTO 86<strong>ii</strong>l24<strong>ii</strong>l IF R$ = "Y" GOTO J<strong>ii</strong>l<strong>ii</strong>l25<strong>ii</strong>l GOTO 21<strong>ii</strong>l26<strong>ii</strong>l REM27<strong>ii</strong>l REM READ DATA POINTS28<strong>ii</strong>l REM AND FIND MAXIMUM29<strong>ii</strong>l REMJ<strong>ii</strong>l<strong>ii</strong>l DIM DP(NP%-1)Jl<strong>ii</strong>l FOR I = <strong>ii</strong>' TO NP%-:132<strong>ii</strong>' READ DP(I)33<strong>ii</strong>' IF MAX < DP (I) THEN MAX DP(I)J4<strong>ii</strong>l NEXT IJ5<strong>ii</strong>l REMJ6<strong>ii</strong>l REM ESTABLISH SCALE37<strong>ii</strong>' REM38<strong>ii</strong>' SCL = 15<strong>ii</strong>l I MAXJ9<strong>ii</strong>l REM4<strong>ii</strong>l<strong>ii</strong>l REM DRAW FRAME41<strong>ii</strong>l REM42<strong>ii</strong>l HGR4J<strong>ii</strong>l HCOLOR = 644<strong>ii</strong>l HPLOT 24,<strong>ii</strong>l TO 24, 159 TO 278,159 TO278,<strong>ii</strong>l TO 24,<strong>ii</strong>l45<strong>ii</strong>l REM46<strong>ii</strong>l REM ******************47<strong>ii</strong>l REM * CUSTOM SCALING *48<strong>ii</strong>l REM ******************49<strong>ii</strong>l REM5<strong>ii</strong>l<strong>ii</strong>l REM SCALE VERTICAL AXIS51<strong>ii</strong>l REM52<strong>ii</strong>l HCOLOR = 35J<strong>ii</strong>l FOR I = 2<strong>ii</strong>' TO MAX STEP 2<strong>ii</strong>l54<strong>ii</strong>l ROT = 16 : DRAW 11 AT 24, 16<strong>ii</strong>l-I * SCL55<strong>ii</strong>l ROT = <strong>ii</strong>'56<strong>ii</strong>l N$ = STR$ (I) :NL = LEN (N$)57<strong>ii</strong>l FOR J = 1 TO NL58<strong>ii</strong>l DIGIT = VAL ( MID$ (N$,J,1) ):IF DIGIT = <strong>ii</strong>' THEN DIGIT = l<strong>ii</strong>l59<strong>ii</strong>l DRAW DIGIT AT (J-1) * 7,16<strong>ii</strong>l-I * SCL6<strong>ii</strong>'<strong>ii</strong>' NEXT J61<strong>ii</strong>l NEXT I62<strong>ii</strong>l REM6J<strong>ii</strong>l REM SCALE HORIZONTAL AXIS64<strong>ii</strong>l REM65<strong>ii</strong>l ROT = <strong>ii</strong>'661i' FOR I = 1 TO NP%-1CHAPTER 11-GRAPHS AND CHARTS 125
Change language