Atari 8-bit Source code

10REM
15REM
20REM
25REM
30REM
35REM
40REM
45REM
50REM
55REM
60REM
65REM
70REM
110CLOSE#1:CLOSE#7
115TRAP115:STATUS#7,PE:IFPE=138THENGRAPHICS2:POSITION3,6:?#6;"TURNONprinter":END
120OPEN#1,4,0,"K:"
130OPEN#7,8,0,"P:"
135?#7;CHR$(27);CHR$(64)
140GRAPHICS0
150REM155POKE710,254:POKE712,138:POKE709,202
155POKE710,130:POKE712,130:POKE709,10
160CLR
170DIMA$(40),B$(40),C$(40),D$(40),E$(40)
180DIMF$(40),L$(40),P$(40),Q$(40),S$(40),U$(40),W$(40)
190A$="(A)subscriptFONT(togglesB5:C:S)"
200B$="(B)N/72INCHLINE"
210C$="(C)COMPRESSED"
220D$="(D)DOUBLESTRIKE"
230E$="(E)EMPHASIZED"
240F$="(F)SKIPOVERPERF"
250L$="(L)CHARACTERSPERLINE"
255P$="(P)PAPER-OUTENABLE(SW.1-3=L)"
260Q$="(Q)"
270S$="(S)SUBSCRIPT"
280U$="(U)UNIDIRECTIONALPRINT"
290W$="(W)DOUBLEWIDTH"
295TRAP297:GOTO300
297RUN
300POSITION8,0:?"*************************"
310POSITION8,1:?"*EPSONPRINTEROPTIONS*"
315POSITION8,2:?"*************************"
320?"(H)HELP(R)RESETPRINTER":?
330?A$:?B$:?C$:?D$:?E$:?F$
340?L$:?P$:?Q$:?S$:?U$:?W$
430POSITION7,22:?""
440POSITION10,18:?"YOURCHOICE(S):";
450GET#1,K
455IFCHR$(K)="H"THENGOSUB800:?""
457IFCHR$(K)="R"THENRUN
460IFCHR$(K)="A"THEN?#7;CHR$(27);CHR$(65);CHR$(5);CHR$(15);CHR$(27);CHR$(83);CHR$(1)
465IFCHR$(K)="A"THENB$(4,5)="*5":C$(4,4)="*":S$(4,4)="*":DL=5
470IFCHR$(K)="B"THENPOSITION2,19:?">";:INPUTDL:?#7;CHR$(27);CHR$(65);CHR$(DL):B$(4,5)="*N"
480IFCHR$(K)="C"THEN?#7;CHR$(15):C$(4,4)="*"
490IFCHR$(K)="D"THEN?#7;CHR$(27);CHR$(71):D$(4,4)="*"
500IFCHR$(K)="E"ANDC$(4,4)<>"*"ANDS$(4,4)<>"*"THEN?#7;CHR$(27);CHR$(69):E$(4,4)="*"
510IFCHR$(K)="F"THENPOSITION2,20:?">";:INPUTPF:?#7;CHR$(27);CHR$(78);CHR$(PF):F$(4,4)="*"
520IFCHR$(K)="L"THENPOSITION2,21:?">";:INPUTCH:?#7;CHR$(27);CHR$(81);CHR$(CH):L$(4,4)="*"
525IFCHR$(K)="P"THEN?#7;CHR$(27);CHR$(57):P$(4,4)="*"
530IFCHR$(K)="Q"THEN?#7:Q$(4,4)="*":GOTO580
540IFCHR$(K)="S"THEN?#7;CHR$(27);CHR$(83);CHR$(1):S$(4,4)="*"
550IFCHR$(K)="U"THEN?#7;CHR$(27);CHR$(85);CHR$(1):U$(4,4)="*"
560IFCHR$(K)="W"THEN?#7;CHR$(27);CHR$(87);CHR$(1):W$(4,4)="*"
570GOTO300
580?""
590POSITION7,5:?"**EPSONPRINTMODE**"
600POSITION7,6:?"----------------"
610?
620IFC$(4,4)<>"*"THEN?"FONT"
630IFA$(4,4)="*"THEN?A$(4)
640IFB$(4,4)="*"THEN?B$(4);"(";DL;"/72)"
650IFC$(4,4)="*"THEN?C$(4)
660IFD$(4,4)="*"THEN?D$(4)
670IFE$(4,4)="*"THEN?E$(4,15)
680IFF$(4,4)="*"THEN?F$(4);"(";PF;"LINES)"
690IFL$(4,4)="*"THEN?L$(4);"(";CH;"/LINE)"
695IFP$(4,4)="*"THEN?P$(4,20);"D"
700IFS$(4,4)="*"THEN?S$(4)
710IFU$(4,4)="*"THEN?U$(4)
720IFW$(4,4)="*"THEN?W$(4)
721IFDL=0THENDL=12
722FL=INT(66*(12/DL))
725?:?"Thismodegives";FL;"lines/11in."
730IFQ$(4,4)="*"THEN?:?""
735IFQ$(4,4)="*"THEN?""
737IFQ$(4,4)="*"THEN?""
740CLOSE#1:CLOSE#7
750END
800?""
810?:?"Thisisaprogramtosendall"
820?"thoseCONTROLCODEcombinationsto"
830?"theEpsonMX-80printerforsuch"
840?"thingsascompressedprintor'sub-"
850?"scriptfont'(*trythis,Iuseitto"
860?"get150+linesonan11inchsheet"
870?"ofpaper!!!)orDouble-Widthorany"
880?"otherthingsyoumayneed(mixand"
890?"match).*[subscriptfont=ACSQ]"
900?:?"Allyouneeddois:"
910?"TURNONPRINTER&INTERFACEMOD."
920?"RUNTHISPROGRAM(RESETSPRINTER)"
930?"ENTERTHELETTEROFTHEOPTION(S)"
940?"YOUDESIRE(A'*'WILLAPPEAR"
950?"NEXTTOTHEOPTIONASITISSENT)"
960?"WHENDONETYPE'Q'(ASINQUIT)."
970?"YOUCANNOWTURNOFFTHECOMPUTER"
980?"AND/ORTHEDISKDRIVE.THEEPSON"
990?"WILLREMEMBER!!!!!"
1000POSITION2,23:?"PRESSTOCONTINUEINSTRUCTIONS";
1010IFPEEK(53279)<>6THEN1010
1020?""
1030?:?"IleavethePAPEROUTswitch(#1-3)ON(Left)whichturnsthepaper"
1040?"outsensorOFF(makesense?).Thenif"
1050?"Iwanttoprintasinglesheet,Icandosowithoutthebuzzersringingand"
1060?"theEPSONprinterhaltingatthehalfwaypoint.IfIamusingthepin-"
1070?"fedforms,Icanselect(P)onthemenuandthesensorisenabledwhich"
1080?"enablesmetowalkawayandnotworryabouttheprintrollergettingmessedUP."
1090?:?"NOTE:":?:?"AfewprogramslikeLETTERPERFECT,whichinternallyreset&controlthe"
1100?"Epsonprinter,willaffecttheprintstatuspreviouslyselectedbythis"
1110?"programandmaynotbecompatable."
1500POSITION2,23:?"PRESSTOBEGINPROGRAM...";:FORDELAY=1TO500:NEXTDELAY
1510IFPEEK(53279)<>6THEN1510
1520RETURN	

• Download link 1

• Download link 1