Trains

   5 REM "TRAIN" by
     Stan Livingston SINCUS
    Johnson City NY 1985
   6 PLOT 0,159: DRAW 255,0
  10 GO SUB 380
  20 DIM a$(32)
  30 DIM c$(32)
  35 REM in lines 40,60,80 use U
SER DEFINED GRAPHICS
  40 LET c$="PR
 "
  50 DIM f$(32)
  60 LET f$="Q
 "
  65 REM line 70 enter speed of
train,try 1-15
  70 INPUT "PAUSE?";n
  80 LET a$="ABCDEFGFGFGHIHIHIJK
JKMMNO"
  85 REM LINE 90 DIRECTION OF TR
AIN
  90 INPUT "RIGHT OR LEFT ?";D$
 100 IF D$="R" OR D$="r" THEN GO
 TO 240
 110 PRINT AT 1,0;a$
 120 FOR b=1 TO 32
 130 LET e$=c$(1)
 140 LET c$=c$(2 TO 32)+e$
 150 LET b$=a$(1)
 160 LET a$=a$(2 TO 32)+b$+"  "
 170 PRINT AT 1,0;a$
 180 PRINT AT 0,0;c$
 190 PAUSE n
 200 IF b=32 THEN LET b=1
 210 IF CODE INKEY$=13 THEN CLS
: GO TO 6
 220 NEXT b
 230 STOP
 240 PRINT AT 1,0;a$
 250 PRINT AT 0,0;f$
 260 FOR b=1 TO 32
 270 LET g$=f$(32)
 280 LET f$=g$+f$
 290 LET b$=a$(32)
 300 LET a$=b$+a$
 310 PRINT AT 1,0;a$
 320 PRINT AT 0,0;f$
 330 PAUSE n
 340 IF b=32 THEN LET b=1
 350 IF CODE INKEY$=13 THEN CLS
: GO TO 6
 360 NEXT b
 370 STOP
 380 FOR x=65368 TO 65368+143
 390 READ y: POKE x,y
 400 NEXT x
 420 DATA 6,63,127,255,127,63,29
,8
 430 DATA 0,255,255,255,255,255,
221,136
 440 DATA 63,255,255,255,255,255
,239,198
 450 DATA 31,63,127,127,127,255,
28,8
 460 DATA 254,254,254,254,254,25
5,56,16
 470 DATA 255,127,127,127,127,25
5,56,16
 480 DATA 255,254,254,254,254,25
5,28,8
 490 DATA 127,73,73,79,79,255,11
2,32
 500 DATA 254,146,146,242,242,25
5,28,8
 510 DATA 0,0,0,127,127,255,56,1
6
 520 DATA 0,0,0,254,254,255,28,8
 530 DATA 0,0,0,0,0,255,56,16
 540 DATA 0,0,0,0,0,255,28,8
 550 DATA 3,255,6,38,39,255,56,1
6
 560 DATA 192,255,48,50,242,255,
28,8
 570 DATA 0,0,0,0,0,0,3,4
 580 DATA 0,0,0,0,0,0,248,4
 590 DATA 0,0,0,0,0,0,255,0
 600 RETURN

---

PIE GRAPH

Stan got a TRS model CGP-115 for $89 at Radio Shack, a small four color plotter, 40 or 80 characters per line, 64 type sizes, underlining, hooks into centronics IF. Pretty nifty! can print side ways quite easily. Plain paper rolls are cheap too.

SINE AND COSINE CURVES