Atari 8-bit Source code

10 GOSUB 170
20 DIM A$(107),​LINE$(320),​FIL$(12)
30 A$="hhhhhhhi((Hjh8(Jii`"
35 ? "D:​FILES"
36 TRAP 35
37 INPUT FIL$
40 OPEN #1,​4,​0,​FIL$
50 TRAP 90:​? ""
60 GET #1,​M
70 IF M=155 THEN ?:​GOSUB 100:​GOTO 50
80 ? CHR$(M);:​GOTO 60
90 GOSUB 100:​CLOSE #1:​END
100 SCREEN=PEEK(88)+256*PEEK(89)+360
110 FOR I=1 TO 1
120 LINE$="":​LINE$(320)="":​LINE$(2)=LINE$
130 X=USR(ADR(A$),​ADR(LINE$),​SCREEN,​7)
140 LPRINT "K";CHR$(64);CHR$(1);LINE$;"J";CHR$(32);CHR$(13);
150 SCREEN=SCREEN+280
160 NEXT I:​RETURN
165 REM RUTINA K6304 HARDCOPY
170 RESTORE 220
180 FOR I=1544 TO 1760
190 READ BYTE:​POKE I,​BYTE
200 NEXT I
210 O=USR(1544):​RETURN
220 DATA 104,​165,​9,​9,​2,​133,​9,​169,​9
230 DATA 133,​2,​169,​6,​133,​3,​169,​40
240 DATA 141,​27,​3,​169,​6,​141,​28,​3
250 DATA 162,​56,​160,​6,​76,​66,​198,​93
260 DATA 6,​119,​6,​127,​6,​131,​6,​124
270 DATA 6,​124,​6,​32,​9,​6,​0,​125
280 DATA 160,​203,​160,​182,​179,​176,​180,​175
290 DATA 214,​178,​180,​160,​200,​225,​211,​239
300 DATA 230,​244,​160,​160,​200,​193,​210,​196
310 DATA 195,​207,​208,​217,​160,​160,​177,​185
320 DATA 185,​176,​160,​160,​155,​165,​42,​201
330 DATA 8,​240,​3,​160,​131,​96,​169,​7
340 DATA 160,​171,​162,​6,​32,​92,​228,​169
350 DATA 11,​141,​2,​211,​160,​1,​96,​169
360 DATA 60,​141,​2,​211,​160,​1,​96,​160
370 DATA 131,​96,​104,​166,​17,​208,​8,​162
380 DATA 60,​142,​2,​211,​160,​128,​96,​174
390 DATA 17,​208,​208,​239,​32,​155,​6,​160
400 DATA 1,​96,​133,​47,​169,​1,​141,​220
410 DATA 6,​173,​220,​6,​208,​251,​96,​56
420 DATA 176,​11,​72,​173,​220,​6,​240,​39
430 DATA 165,​47,​160,​9,​24,​162,​16,​144
440 DATA 2,​162,​0,​142,​0,​211,​162,​16
450 DATA 142,​221,​6,​206,​221,​6,​208,​251
460 DATA 192,​0,​240,​6,​74,​136,​208,​229
470 DATA 240,​213,​169,​0,​141,​220,​6,​104
480 DATA 76,​138,​194,​0,​0,​0,​0,​0	

• Download link 1
• Download link 2