Compucolor.org – Virtual Media

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