|
25 Years of Programming
An open source source for C, C++, OWL, BASIC, MDB, XLS, DOT, and more... |
Home Projects Up Sitemap Search Blog Forum+Chat About Us Privacy Terms of Use Feedback FAQ Images Services Ads Donate Humor |
10 REM EPSON.BAS 01-05-83 11 'Copyright (C)1983 Steven Whitney. 12 'Published under GNU GPL (General Public License) Version 2, with ABSOLUTELY NO WARRANTY. 30 REM SENDS APPROPRIATE CODES TO CHANGE MX-80 PRINTER MODES. 40 PRINT CHR$(27)"E";"Epson.Bas" 90 PRINT:PRINT:PRINT:PRINT:PRINT 100 PRINT "Please take this opportunity to align the paper in your printer" 110 PRINT "And turn it on. Press any key to continue...":Z$=INPUT$(1) 120 PRINT CHR$(27)"E" 130 PRINT "Please select the desired function from the following menu:" 140 PRINT 150 PRINT "1) Change to 132 characters per line" 160 PRINT "2) Change to 80 characters per line" 170 PRINT "3) Change TO 'EMPHASIZED' printing mode" 180 PRINT "4) Change TO ' REGULAR' printing mode" 190 PRINT "5) Print a test line to see the changes made" 200 PRINT "6) Go to the top of a new page" 210 PRINT "7) Exit program and return to CP/M" 220 PRINT:PRINT:PRINT 230 PRINT "There are several more modes available for your printer," 240 PRINT "although these are the most useful." 260 PRINT:PRINT:PRINT 270 INPUT "Please enter the number of your selection: ";N 280 IF N=1 THEN LPRINT CHR$(15) 290 IF N=2 THEN LPRINT CHR$(18) 300 IF N=3 THEN LPRINT CHR$(27)"E" 310 IF N=4 THEN LPRINT CHR$(27)"F" 320 IF N=5 THEN LPRINT "This is a test line to see the changes...see?" 330 IF N=6 THEN LPRINT CHR$(12) 340 IF N=7 THEN SYSTEM 350 PRINT:PRINT "Note that if you want to reset the printer to its original" 360 PRINT "power-up settings, the easiest way to do it is just turn it off" 370 PRINT "and then back on again." 380 PRINT:PRINT "Press any key to continue...":Z$=INPUT$(1) 390 GOTO 120 ANOTHER VERSION: 10 REM PROGRAM NAME 'MXPRINT.BAS' 20 'Copyright (C)1982 Steven Whitney. 21 'Published under GNU GPL (General Public License) Version 2, with ABSOLUTELY NO WARRANTY. 30 PRINT CHR$(27)"E";STRING$(75,"="):PRINT TAB(20)"*** MX-80 PRINT OPTIONS ***":PRINT STRING$(75,"=") 40 PRINT"0 = EXIT THIS PROGRAM" 50 PRINT:PRINT"1 = DOUBLE WIDTH MODE (TURNED OFF AFTER EACH LINE PRINTED)" 60 PRINT:PRINT"2 = COMPRESSED CHARACTER MODE" 70 PRINT"3 = RETURN TO 80 CHARACTERS PER LINE (TURNS OFF COMPRESSED OR DOUBLE WIDE)" 80 PRINT:PRINT"4 = DOUBLE STRIKE (VERTICAL DOT FILL IN)" 90 PRINT"5 = DOUBLE STRIKE OFF" 100 PRINT:PRINT"6 = EMPHASIZED MODE (HORIZONTAL DOT FILL IN)" 110 PRINT"7 = EMPHASIZED MODE OFF" 120 PRINT:PRINT"8 = 'LETTER QUALITY' (BOTH EMPHASIZED MODES AT ONCE)" 130 PRINT 140 INPUT "WHAT IS THE NEXT OPTION YOU WOULD LIKE";A 150 ON A GOTO 160,170,180,190,200,210,220,230 160 LPRINT CHR$(14); : PRINT "NOW, LPRINT THE LINE YOU WANT PRINTED OUT.":STOP 170 LPRINT CHR$(15) : GOTO 10 180 LPRINT CHR$(18) : GOTO 10 190 LPRINT CHR$(27)"G" : GOTO 10 200 LPRINT CHR$(27)"H" : GOTO 10 210 LPRINT CHR$(27)"E" : GOTO 10 220 LPRINT CHR$(27)"F" : GOTO 10 230 LPRINT CHR$(27)"G";CHR$(27)"E" : GOTO 10 240 REM THERE ARE MANY MORE OPTIONS!!!!!!========================
|
|
|
|
|
|