Listing of file='PRINT2.BAS;01' on disk='vmedia/demos-sector.ccvf'
0 O= PEEK (33265):PLOT 27,18,3,27,13:PRINT "ALIGN PAGE THEN HIT RETURN :":INPUT " ";Z 1 PLOT 31:PRINT :PRINT :PRINT TAB( 5);"************************" 3 PRINT TAB( 5);"THE MICROLINE 80 PRINTER" 5 PRINT TAB( 5);"************************" 7 PRINT :B= 1 9 FOR I= 1 TO 3 11 IF B> 3 THEN B= 1 13 PLOT (28+ B) 15 PRINT "A B C D E F G H I J K L M N O P Q R S T" 20 PRINT :REM 30 PRINT "A B C D E F G H I J K L M N O P Q R S T" 40 PRINT 45 REM 50 PRINT "U V W X Y Z 1 2 3 4 5 6 7 8 9 0 * + -" 55 PRINT 60 PRINT "U V W X Y Z 1 2 3 4 5 6 7 8 9 0 * + -" 61 PRINT 62 PRINT "a b c d e f g h i j k l m n o p q r s t":PRINT 63 PRINT "a b c d e f g h i j k l m n o p q r s t" 64 PRINT 65 PRINT "u v w x y z ! # $ % & ' ( ) < > , . / =" 66 PRINT 67 PRINT "u v w x y z ! # $ % & ' ( ) < > , . / =" 70 PRINT :PRINT :B= B+ 1:NEXT I 73 PLOT 30 75 PRINT TAB( 15);"AVAILABLE FROM: THE LOGIC SHOP" 76 PRINT " " 78 PRINT TAB( 15);"91 REGENT STREET,CHIPPENDALE,N.S.W." 80 PRINT " " 82 PRINT TAB( 15);"TELEPHONE: (02) 699 4910" 84 PRINT " " 86 PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 88 POKE 33265,O 90 INPUT " SHALL I CONTINUE ?";A$ 95 IF LEFT$ (A$,1)= "Y"THEN 0 100 PLOT 12:END