Compucolor.org – Virtual Media

Listing of file='INSTR.BAS;01' on disk='vmedia/chip_25-sector.ccvf'

10 REM  3D PLOTTING PROGRAM MENU V12.80
20 REM  PACKAGE BY: JAMES C. MINOR
30 REM              39 BRYN MAWR ROAD
40 REM              ROCHESTER, NY 14624
50 REM              TELEPHONE (716) 247-7069
100 PLOT  30,16,29,19,15,14,12,3,22,7
110 PRINT  "3D PLOTTING PACKAGE"
120 PLOT  3,11,9:PRINT "ENTIRE PACKAGE (MENU,INPUT3,PLOTTR,DISPLY)"
130 PRINT TAB( 14);"COPYRIGHT 1980 BY DR. JAMES C. MINOR"
140 PRINT :PRINT TAB( 8);"TO BE AVAILABLE ONLY TO MEMBERS OF THE ROCHESTER"
150 PRINT TAB( 5);"COMPUCOLOR USERS' GROUP AND THEIR OFFICIAL AFFILIATES."
160 PLOT  29,21,15,3,16,18
170 PRINT "DO YOU WANT TO CREATE NEW GRAPHS"
180 PLOT  3,19,20
190 PRINT "OR DISPLAY EXISTING ONES ?   ";
200 GOSUB  500:A$= M$
210 IF  A$= "C" THEN  LOAD "INPUT3":RUN
220 IF  A$= "D" THEN  LOAD "DISPLY" :RUN
230 GOTO  100
500 REM  CHARACTER INPUT ROUTINE (W/O CARRIAGE RETURN)
510 POKE  33278,0 :REM  CLEAR KEYBOARD CHARACTER BYTE
520 IF  PEEK (33278)= 0 GOTO  520
530 M$= CHR$ (PEEK (33278))
540 RETURN