Atari 8-bit Source code

10 REM HARDCOPY NA K6304 K.Hajek 1990
20 EXEC HANDLER
30 DIM FIL$(15),​A$(107),​LINE$(320),​INV$(30)
40 INV$="hXYI `"
50 ? "";
60 ? ""
80 ? ""
90 DIR "D:​*.PIC"
100 TRAP 50
110 ?:​? "ZARIZENI:​SOUBOR",​:​INPUT FIL$
120 GRAPHICS 24
130 ------------------------------
140 OPEN #1,​4,​0,​FIL$:​SCREEN=PEEK(88)+256*PEEK(89)
150 TRAP 170
160 BGET #1,​SCREEN,​7680
170 CLOSE #1
180 ------------------------------
190 E=0:​Z=52
200 K=PEEK(764)
210 IF PEEK(53279)=5 THEN 50
220 IF PEEK(53279)=3 THEN O=USR(ADR(INV$))
230 IF PEEK(53279)=6 THEN EXEC HARDCOPY
240 E=E+1:​IF E=40 THEN C=PEEK(712):​POKE 712,​Z:​E=0:​Z=C
250 GOTO 200
260 ------------------------------
270 PROC HARDCOPY
280 LPRINT "U";CHR$(1);
290 A$="hhhhhhhi((Hjh8(Jii`"
300 SCREEN=PEEK(88)+256*PEEK(89)+360
310 FOR I=1 TO 28
320 LINE$="":​LINE$(320)="":​LINE$(2)=LINE$
330 X=USR(ADR(A$),​ADR(LINE$),​SCREEN-360,​7)
340 LPRINT "K";CHR$(64);CHR$(1);LINE$;"J";CHR$(21);CHR$(13);
350 SCREEN=SCREEN+280
360 NEXT I
370 ENDPROC
380 ------------------------------
390 PROC HANDLER
400 RESTORE 450
410 FOR I=1544 TO 1760
420 READ BYTE:​POKE I,​BYTE
430 NEXT I
440 O=USR(1544):​ENDPROC
450 DATA 104,​165,​9,​9,​2,​133,​9,​169,​9
460 DATA 133,​2,​169,​6,​133,​3,​169,​40
470 DATA 141,​27,​3,​169,​6,​141,​28,​3
480 DATA 162,​56,​160,​6,​76,​66,​198,​93
490 DATA 6,​119,​6,​127,​6,​131,​6,​124
500 DATA 6,​124,​6,​32,​9,​6,​0,​125
510 DATA 160,​203,​160,​182,​179,​176,​180,​175
520 DATA 214,​178,​180,​160,​200,​225,​211,​239
530 DATA 230,​244,​160,​160,​200,​193,​210,​196
540 DATA 195,​207,​208,​217,​160,​160,​177,​185
550 DATA 185,​176,​160,​160,​155,​165,​42,​201
560 DATA 8,​240,​3,​160,​131,​96,​169,​7
570 DATA 160,​171,​162,​6,​32,​92,​228,​169
580 DATA 11,​141,​2,​211,​160,​1,​96,​169
590 DATA 60,​141,​2,​211,​160,​1,​96,​160
600 DATA 131,​96,​104,​166,​17,​208,​8,​162
610 DATA 60,​142,​2,​211,​160,​128,​96,​174
620 DATA 17,​208,​208,​239,​32,​155,​6,​160
630 DATA 1,​96,​133,​47,​169,​1,​141,​220
640 DATA 6,​173,​220,​6,​208,​251,​96,​56
650 DATA 176,​11,​72,​173,​220,​6,​240,​39
660 DATA 165,​47,​160,​9,​24,​162,​16,​144
670 DATA 2,​162,​0,​142,​0,​211,​162,​16
680 DATA 142,​221,​6,​206,​221,​6,​208,​251
690 DATA 192,​0,​240,​6,​74,​136,​208,​229
700 DATA 240,​213,​169,​0,​141,​220,​6,​104
710 DATA 76,​138,​194,​0,​0,​0,​0,​0	

• Download link 1
• Download link 2