10REM Source program SOURCE.TINY to g ive Compressed Text 20REM on Epson-compatible printers wi th 1/8" line spacing 30OSBYTE=&FFF4:OSWRCH=&FFEE 40FOR pass%=0 TO 3 STEP 3 50P%=&900 60[OPT pass% 70CLD 80LDA #5:LDX #1:JSR OSBYTE½set printe r type 90LDA #6:LDX #0:JSR OSBYTE½set printe r ignore character 100LDA #2:JSR OSWRCH 110LDY #15:JSR ptcom 120LDY #27:JSR ptcom 130LDY #48: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 TINY 900 933 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