Listing of file='KYBD.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'
10 REM ** KEYBOARD DEMO ** 20 OUT 8,199:POKE 33278,0:GOTO 60 30 PLOT 27,88,15,3,63,29,6,6,31,46,15,6,0,3,64,0:OUT 8,207 40 FOR I= 1TO 200:A= PEEK (33278):IF A= 13THEN OUT 8,207:PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "MENU":RUN 45 IF A= 32THEN 10 46 IF A= 72OR A= 104THEN OUT 8,199:PLOT 6,2,12,15,29:PRINT "LOADING DEMO INSTRUCTIONS...":PLOT 3,64,0:LOAD "HELP":RUN 50 NEXT I:OUT 8,199:IF PEEK (33284)= 1THEN PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "DEMO":RUN 60 PLOT 15,30,16,29,18,12,27,24 110 PLOT 6,2,12,27,4:PRINT "LOAD KYBD.DIS":PLOT 27,27 120 K$= " neo lm " 130 REM 140 PLOT 3,0,21 150 PRINT " ALL COMPUCOLOR'S COME WITH THE STANDARD KEYBOARD FEATURED" 160 PRINT "ABOVE. THIS IS A PROFESSIONAL QUALITY KEYBOARD WITH 72 CHERRY" 170 PRINT "SWITCHES. TWO OTHER KEYBOARDS ARE AVAILABLE AS AN OPTION:" 180 PRINT 190 PRINT TAB( 17);"EXTENDED 101 KEY KEYBOARD" 200 PRINT TAB( 17);"DELUXE 117 KEY KEYBOARD" 210 GOSUB 990:GOSUB 990:GOSUB 990 220 GOSUB 960 230 PRINT "THE EXTENDED 101 KEY KEYBOARD HAS ADDITIONAL KEYS TO SIMPLIFY" 240 PRINT "ENTRYS AND TO REDUCE KEY STROKES.";:GOSUB 990 250 PRINT " THIS KEYBOARD COST AN" 260 PRINT "ADDITIONAL $135 AND INCLUDES:":GOSUB 990 270 PRINT 280 PLOT 3,18,24:PRINT " FOUR EDITING KEYS":GOSUB 590 290 PLOT 3,18,24:PRINT " FOUR EDITING KEYS" 300 PLOT 3,18,25:PRINT " 16 KEY CALCULATOR KEYPAD":GOSUB 660 310 PLOT 3,18,25:PRINT " 16 KEY CALCULATOR KEYPAD" 320 PLOT 3,18,26:PRINT " 9 KEY COLOR PAD":GOSUB 410 330 PLOT 3,18,26:PRINT " 9 KEY COLOR PAD" 340 PLOT 3,0,28:PRINT " THE DELUXE 117 KEY KEYBOARD COST AN ADDITIONAL $200 AND ALSO" 350 PRINT "INCLUDES:":GOSUB 990 360 PLOT 3,18,30:PRINT " 16 PROGRAMABLE FUNCTION KEYS":GOSUB 830 370 PLOT 3,18,30:PRINT " 16 PROGRAMABLE FUNCTION KEYS" 380 GOSUB 990:GOSUB 990:GOSUB 990 390 PLOT 3,64,0:GOTO 30 410 REM ** COLOR PAD ** 420 PLOT 3,1,8,6,0:PRINT K$ 430 PLOT 3,1,10,6,8:PRINT K$ 440 PLOT 3,1,12,6,16:PRINT K$ 450 PLOT 3,1,14,6,24:PRINT K$ 460 PLOT 3,4,8,6,32:PRINT K$ 470 PLOT 3,4,10,6,40:PRINT K$ 480 PLOT 3,4,12,6,48:PRINT K$ 490 PLOT 3,4,14,6,56:PRINT K$ 500 PLOT 3,1,16,6,24:PRINT " neeeeo lm " 510 PRINT " ":GOSUB 530:GOSUB 990:GOSUB 990:REM 520 PRINT " ":GOSUB 530:RETURN :REM 530 PLOT 3,0,8:PRINT "` ` ` ` ` ` ` ` ` `" 540 PLOT 3,7,8:PRINT "` ` ` ` ` ` ` ` ` `" 550 PLOT 3,0,7:PRINT "````````" 560 PLOT 3,0,18:PRINT "````````" 570 RETURN 580 REM 590 REM ** EDITING KEYS ** 600 PLOT 3,51,6,6,24:FOR I= 1TO 4:PRINT K$;:NEXT I:PRINT 610 PRINT " ":GOSUB 630:GOSUB 990:GOSUB 990:REM 620 PRINT " ":GOSUB 630:RETURN :REM 630 PLOT 3,50,6:PRINT "` ` `````````````` ` `" 640 RETURN 650 REM 660 REM ** CALCULATOR KEY PAD ** 670 PLOT 3,51,10:PRINT " neoneoneoneo " 680 PLOT 3,51,11:PRINT " a7ba8ba9ba/b " 690 PLOT 3,51,12:PRINT " neoneoneoneo " 700 PLOT 3,51,13:PRINT " a4ba5ba6ba*b " 710 PLOT 3,51,14:PRINT " neoneoneoneo " 720 PLOT 3,51,15:PRINT " a1ba2ba3ba-b " 730 PLOT 3,51,16:PRINT " neoneoneoneo " 740 PLOT 3,51,17:PRINT " a0ba.ba=ba+b " 750 PRINT " ":GOSUB 770:GOSUB 990:GOSUB 990:REM 760 PRINT " ":GOSUB 770:RETURN :REM 770 PLOT 3,50,9:PRINT "``````````````" 780 PLOT 3,50,18:PRINT "``````````````" 790 PLOT 3,50,10:PRINT "` ` ` ` ` ` ` ` `" 800 PLOT 3,63,10:PRINT "` ` ` ` ` ` ` ` `" 810 RETURN 820 REM 830 REM ** 16 FUNCTION KEYS ** 840 PLOT 3,2,4,6,56 850 FOR I= 1TO 7:PRINT K$;:NEXT I:PRINT 860 PLOT 3,23,4,6,56 870 FOR I= 1TO 7:PRINT K$;:NEXT I:PRINT 880 PLOT 3,47,4,6,56:PRINT K$ 890 PRINT " ":GOSUB 910:GOSUB 990:GOSUB 990:REM 900 PRINT " ":GOSUB 910:RETURN :REM 910 PLOT 3,1,4:PRINT "` `" 920 PLOT 3,50,4:PRINT "` `" 930 PLOT 3,1,3:PRINT "``````````````````````````````````````````````````" 940 RETURN 950 REM 960 REM ** ERASE BOTTOM OF DISPLAY ** 970 FOR I= 20TO 30:PLOT 3,0,I,6,0,11:NEXT I 980 PLOT 3,0,20:RETURN 990 REM ** DELAY ** 1000 FOR II= 1TO 2000:NEXT II:RETURN