60NEXTR 70 PRINT#4, CHR$(8); 80FORR=1TO3 90 PRINT#4,A$(R) lOONEXTR 110 PRINT#4,CHR$(15) 120FORL=1TO8:PRINT#4:NEXTL 130 CLOSE4 140END 200 DATA 129,129,250,250,158,158,255,255 210 DATA 158,158,250,250,129,129, 128, 128 220 DATA 128, 128, 159,159,243,243, 179, 179 230 DATA 243,243, 159,159, 128,128, 128,128 240 DATA 128, 128, 130,130, 131,131, 128,128 250 DATA 131, 131, 130, 130, 128,128, 128, 128 Result: - ~ ~~ All Bit Pattern Printing All bit pattern printing works along the same principles as bit image printing. An all bit pattern is a pattern created by placing each dot individually, with the dots forming a pattern when a program designed to display the pattern is RUN.
The following program demonstrates bit pattern printing in the Commodore dot graphics mode. 10 OPEN 4,4 20 A$='"' 30FORl=OTO 127 40 A$= A$+ CHR$(1+127) 50NEXTI 60 = "" 70FOR]=127 TOO STEP-1 80 = + CHR$0 + 127) 90NEXTJ lOOFORK= 1TO3 110 PRINT#4,CHR$(8);A$;CHR$(15);" ALL BIT PATTERN 1" 120NEXTK 130 PRINT#4 140 FORK= 1 TO 3 150 PRINT#4,CHR$(8);B$;CHR$(15);" ALL BIT PATTERN 2" 160NEXTK 170 FORM= 1 TO 8:PRINT#4:NEXT M 180 CLOSE4 77