Listing of file='IDS440.BAS;02' on disk='vmedia/chip_129-sector.ccvf'
20 PLOT 12 90 PRINT "******************************************************" 100 PRINT :PRINT "* USE OF IDS 440 PRINTER AND COMPUCOLOR II COMPUTERS *" 105 PRINT :PRINT "******************************************************" 106 PRINT :INPUT "TURN ON PRINTER, SET TOF & HIT RETURN";ZZ:GOSUB 20000 110 REM 120 REM VERSION 1.0 ++ BEC ++ 24/5/80 130 REM 140 PLOT 10,10:PRINT "DIP SWITCH POSITIONS - TOP VIEW":PRINT 160 PRINT " ^ V ^ V ^ ^ V V ^ V ^ V V V NOTE:^=OFF" 170 PRINT " A 1 2 3 4 5 6 7 B 1 2 3 4 5 6 7 NOTE:V=ON" 180 PRINT :PRINT ,"SET B6=^ TO DISENABLE SOFTWARE CONTROL" 200 PRINT :PRINT "#1 SOFTWARE CONTROL CODES (NORMAL MODE):" 210 PRINT 215 DATA 8.3,10,12,16.5 220 FOR S= 28TO 31:READ Q:GOSUB 500:NEXT 260 PLOT 10,29:PRINT "#2 SOFTWARE CONTROL CODES (ENHANCED MODE):" 270 PRINT "THIS REQUIRES TWO CONTROL CODES-ENHANCED AND CPI" 280 FOR S= 28TO 31:PLOT 10,1,S:GOSUB 515:NEXT 290 PLOT 2,10,29:PRINT "#3 CONTROL CODES 1 AND 2 FOR NORMAL AND ENHANCED MODES" 300 PRINT "WORK AS A BI-STABLE:THEY NEED ONLY BE SPECIFIED WHEN YOU WANT TO CHANGE" 310 PRINT "*NB:PLOT1 AND 2 SHOULD ONLY BE EXECUTED IN A PROGRAMME AFTER" 320 PRINT "OUTPUT HAS BEEN SWITCHED TO THE RS232 PORT ! 330 PRINT "PLOT1 EQUALS THE AUTO KEY(MENU WILL BE DOWN-LOADED OVER YOUR PROGRAMME)" 340 PRINT "AND PLOT2 SELECTS PLOT MODE WHEN RUNNING WITH OUTPUT TO SCREEN" 350 PLOT 10,29:PRINT "#4 PLOT13=CARRIAGE RETURN WITHOUT A LINE FEED" 360 PRINT "THE NEXT LINE IS PRINTED 4 TIMES" 370 FOR A= 1TO 4:PRINT "PLOT13 UNDERLINING ";:PLOT 13:NEXT :PRINT 380 PLOT 10:PRINT "#5 LINE FEEDS CAN BE SUPPRESSED BY EITHER A , OR ;" 390 PRINT "THE ',' DOES NOT TAB. NOTE THAT PLOT10 =PRINT STATEMENT" 400 PRINT "AS FAR AS THE IDS440 IS CONCERNED, BUT NOT FOR THE COMPUTER !" 410 PRINT "A 'PRINT' MUST BE ISSUED < LINE BUFFER IS FULL. THIS RESETS" 420 PRINT "IT TO ZERO: OTHERWISE A LINE FEED IS FORCED WHEN THE BUFFER IS FULL" 421 PLOT 10:PRINT "#6 PLOT11=VERTICAL TAB IS FOR IDS440 GRAPHICS" 422 PRINT "IN CHARACTER MODE IT =PLOT10 (LF) EXCEPT ONLY 6/7 OF A CHARACTER IS FED" 423 PLOT 10:PRINT "#7 THE TAB(X) FUNCTION PROVIDES ABSOLUTE ADDRESS INDENTS" 424 PRINT "SPC(X) GIVES RELATIVE OR INCREMENTAL SPACING" 425 PLOT 10:PRINT "#8 LOWER CASE CHARACTERS CAN BE PRINTED VIA 'PRINT CHR$(A)'" 426 PRINT "PRINTER SETTING-UP MUST HAVE PLOT15(A7 FLAG OFF) FOR CORRECT CODES" 427 PLOT 10:PRINT "#9 ALTERNATIVELY,lower case letters MAY BE SENT BY REMOVING THE" 428 PRINT "'CAPS LOCK' SWITCH IN A QUOTED STRING. NB-THIS GIVES SPECIAL CHARACTERS ON" 429 PRINT "THE CRT.REMEMBER TO RESET BEFORE EXITING QUOTES AS THE COMPUTER GETS CONFUSED!" 468 PLOT 10,10:PRINT "DEMONSTRATIONS - SEE PROGRAMME LISTINGS FOR CODE AT 1000" 470 Q$= "123456789 ":GOSUB 1990:GOTO 1000 490 POKE 33265,Z9:END :REM RESET OP TO CRT 500 PLOT 2,S:FOR T= 0TO 6:PRINT "**PLOT";S;:NEXT :PRINT 502 REM THAT "PRINT" = LINE FEED (PLOT10) + RESET TO ZERO OF 503 REM BASIC LINE COUNTER. WITHOUT IT,WE GET AN LF AT 96 CHARS. 505 PRINT "TEST MESSAGE NUMBER 1 - PRINTED WITH PLOT";S;" STATEMENT" 510 PRINT "THIS SETS PRINT MODE TO";Q;" CH.PER INCH":PLOT 10:RETURN 515 PRINT "TEST MESSAGE NUMBER 2" 520 PRINT "PRINTED WITH PLOT1,";S;" STATEMENT":RETURN 1000 PRINT "; LF SUPP":FOR A= 1TO 5:PRINT Q$;:NEXT :GOSUB 1990 1010 PRINT ", LF SUPP":FOR A= 1TO 5:PRINT Q$,:NEXT :GOSUB 1990 1020 PRINT "PLOT10 LF OVERIDES ;":FOR A= 1TO 5:PRINT Q$;:PLOT 10:NEXT :GOSUB 1990 1030 PRINT "LINE BUFFER OVERIDES PLOT10":FOR A= 1TO 10:PRINT Q$;:PLOT 10:NEXT :GOSUB 1990 1040 PRINT "VERTICAL TAB":FOR A= 1TO 5:PRINT Q$;:PLOT 11:NEXT :GOSUB 1990 1050 PRINT "TAB";:FOR A= 1TO 5:PRINT TAB( A* 10);Q$:NEXT :GOSUB 1990 1060 PRINT "SPC";:FOR A= 1TO 5:PRINT SPC( A);Q$;:NEXT :GOSUB 1990 1064 PLOT 10:PRINT "THIS FORM FEED (PLOT12) ENSURES NEXT TABLE IS NOT SPLIT UP" 1065 PLOT 12:PRINT "ASCII SET INC LOWER CASE. A/CHR$(A) FOR A = 32 TO 127":PLOT 10 1070 A= 32:FOR K1= 1TO 12:FOR K= 0TO 7:X$= CHR$ (A) 1080 PRINT TAB( K* 8);A;" ";X$;:A= A+ 1:NEXT K:PRINT :NEXT K1 1090 PLOT 10,10:PRINT "SAME TABLE - DIFFERENT FORMAT":PRINT 1100 FOR K1= 0TO 15:A= 32+ K1:FOR K= 0TO 5:X$= CHR$ (A) 1110 PRINT TAB( K* 8);A;" ";X$;:A= A+ 16:NEXT K:PRINT :NEXT K1 1900 PLOT 10,10:PRINT "END OF OUTPUT":GOTO 490 1990 B= B+ 1:PRINT "MARKER";B:RETURN 19000 Q$= "123456789 ":GOSUB 20000 19990 POKE 33265,Z9:END :REM RESET OP TO CRT 20000 Z9= 0:REM BASIC OP FLAG FOR RE-USE LATER 20010 REM SENDS 96 CHARACTERS PER LINE 20020 PLOT 27,18,4,27,13:REM OP TO PRINTER 20030 PLOT 12:RETURN :REM FORM FEED,NORMAL MODE,10 CPI 20100 GOSUB 20000:PLOT 30:LIST :PRINT :POKE 33265,Z9:END :REM TYPE"RUN 20100" FOR LISTING