10 rem THE PROGRAM ON THIS DISC ARE
20 rem COPYRIGHT OF D.M.BROAD 1989.
30 rem
40 rem DARRON M BROAD  TEL 254 9320
50 rem
52 print chr$(14)chr$(8)
55 print "C16/+4 LOW RESOLUTION PLOTTING"
60 print "1) SEE INTRODUCTION"
70 print "2) SEE INSTRUCTIONS FOR USE OF"
71 print "3) END
72 get A$: if A$<"1" or A$>"3" goto 72
73 on asc(A$)-48 goto 90,95
75 end
90 A$="INTRO":gosub2000:goto55
95 A$="INSTR":gosub2000:goto55
99 :
1990 rem DISPLAY FILE
2000 open 1,8,0,(A$+".TXT,S")
2010 if ST<>0 then 2040
2030 get#1,B$:print B$;: goto 2010
2040 close1
2042 print "PRESS SPACE BAR"
2050 get B$: if B$<>" " goto 2050
2060 return
2070 :