williams-et-al-1983-apple-ii-computer-graphics

124 APPLE II COMPUTER GRAPHICSJ28 : JB JF 8 15 2D C 24JJ : 2J 44 JF JF 7 49 21JJ8 : 24 24 JC 9B J6 2E 2D DJ4 : 8 E 5 2D 2 lC JFJ48 : lC 24 2D 2D J 8 24J5: 24 C 2D J5 92 J6 JB 27J58: 18 8 2D 2D 21 c cJ6 : c c JC JF JF 9 2DJ68 : c 24 JB JF 2 c 2D 15J7 : J6 DB lJ J6 9 2D CJ78 : 24 JB JF 2 C 2D 15 J6J8 : 1 29 2D 2 24 24 JBJ88: JF J2 26 2E 28 28 28 J9 : 24 24 JDGBSAVE NUMBER TABLE, A$J,L$9JListing 11-2. Number table.This number table contains eleven shapes; fi rst come the digits 1 through9, then zero, and finally a critter resembling a hyphen which will be usedto mark each axis of the graph.Now type in and run Listing 11-3.1 REM LINE CHART DEMO2 REMJ REM ******************4 REM * INITIALIZATION *5 REM ******************6 REM7 TEXT : HOME8 VTAB (21)9 PRINT CHR$ (4) ; "BLOAD NUMBER TABLE,A$JW'1 POKE 2J2,: POKE 2JJ,J11 SCALE = 112 REMlJ REM READ NUMBER OF POINTS14 REM AND SPACING15 REM16 READ NP%,SP%17 REM18 REM CHECK TOTAL WIDTH19 REM2 IF (NP%-1) * SP% < 28 GOTO J21 PRINT CHR$ (?) ; "CHART TOO WIDE"