10REM Source program SOURCE.ITALICS t o give italic text 20REM on Epson-compatible printers by setting msb. 30REM Written 6/10/92 to assemble @ & 900 40OSBYTE=&FFF4:OSWRCH=&FFEE 50FOR pass%=0 TO 3 STEP 3 60P%=&900 70[OPT pass% 80CLD 90LDA #5:LDX #1:JSR OSBYTE½set printe r type 100LDA #6:LDX #0:JSR OSBYTE½set printe r ignore character 110LDA #2:JSR OSWRCH 120LDY #27:JSR ptcom 130LDY #62:JSR ptcom 140LDA #3:JSR OSWRCH 150RTS 160½ 170½ 180½ 190½ 200½ 210.ptcom:LDA #1:JSR OSWRCH 220TYA:JSR OSWRCH 230RTS 240] 250NEXT 260PRINT"Save machine code ? Y/N" 270INPUT YN$:YN$=LEFT$(YN$,1) 280IF YN$="Y" OR YN$="y" THEN 290 ELSE END 290PRINT"DFS or ADFS - input A or D" 300REPEAT 310INPUT fs$:fs$=LEFT$(fs$,1) 320UNTIL fs$="A" OR fs$="a" OR fs$="D" OR fs$="d" 330IF fs$="A" OR fs$="a" THEN file$="A DFS" ELSE file$="DFS" 340PRINT'"Insert disc"''"Press SPACE B AR when ready"'' 350IF GET=32 THEN 360 ELSE 340 360INPUT"DRIVE "D% 370IF file$="ADFS" THEN PROCadf ELSE P ROCdisc 380*SAVE ITALICS 900 92E 390PRINT"Backup ? Y/N" 400INPUT YN$:YN$=LEFT$(YN$,1) 410IF YN$="Y" OR YN$="y" THEN 290 ELSE END 420DEFPROCadf 430*ADFS 440OSCLI"MOUNT "+STR$(D%) 450ENDPROC 460DEFPROCdisc 470*DISC 480OSCLI"DRIVE "+STR$(D%) 490ENDPROC