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P$="(I)ITALICS"
255L$="(L)CHARACTERSPERLINE"
260Q$="(Q)"
270S$="(S)SUBSCRIPT"
280U$="(T)PICAFONT(12CHAR/INCH)"
290W$="(W)DOUBLEWIDTH"
295TRAP297:GOTO300
297RUN
300POSITION8,0:?"**************************"
310POSITION8,1:?"*GEMINIPRINTEROPTIONS*"
315POSITION8,2:?"**************************"
320?"(H)HELP(R)RESET":?
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)="I"THEN?#7;CHR$(27);CHR$(52);: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)="T"THEN?#7;CHR$(27);CHR$(66);CHR$(2);: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:?"**GEMINI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,11)
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?"PRINTSETINSTRUCTIONS"
810?:?"Thisisaprogramtosendall"
820?"thoseCONTROLCODEcombinationsto"
830?"theGemini10x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=BCS)"
900?:?"Allyouneeddois:"
910?"1.TURNONPRINTER&INTERFACEMOD."
920?"2.RUNTHISPROGRAM(RESETSPRINTER)"
930?"3.ENTERTHELETTEROFTHEOPTION(S)"
940?"YOUDESIRE(A'*'WILLAPPEAR"
950?"NEXTTOTHEOPTIONASITISSENT)"
960?"4.WHENDONETYPE'Q'(ASINQUIT)."
970?"5YOUCANNOWTURNOFFTHECOMPUTER"
980?"AND/ORTHEDISKDRIVE.THEGEMINI"
990?"WILLREMEMBER!!!!!"
1000POSITION10,23:?"HITTOBEGIN";
1010IFPEEK(53279)<>6THEN1010
1020RETURN	

• Download link 1

• Download link 1