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