10 LINE=49152
20 HARDCOPY=LINE+3
30 CLEAR=HARDCOPY+3
50 DEF FNAC(X)=(-ATN(X/SQR(1-X^2))+(null)/2)*180/(null)
100 SYS CLEAR
110 A$="_HALLO C64 REDAKTION! DIES IST EIN DEMO MEINER HARDCOPYROUTINE!"
111 A$=A$+"ENDLICH IST ES MOEGLICH,GRAFIKEN IN HOHER QUALITAET ZU DRUCKEN,DIE "
112 A$=A$+"MAN NICHT NUR IN SEIN BRIEFMARKENALBUM KLEBEN KANN!"
113 A$=A$+"MAN KANN 6 METER LANGE POSTER IN DOPPELTER AUFLOESUNG DRUCKEN!!!"
120 ZA=50:ZB=50:L=LEN(A$):R=100:W=0:T=0
130 T=T+1:S=FNAC((ZA^2-2*R^2)/((-2)*R^2))
140 W=W+S:ZW=270-W
150 R=R+ZB*S/360
160 ZX=R*COS(W*(null)/180)+480
170 ZY=(-R*SIN(W*(null)/180)+480)*1.2
180 Z$=MID$(A$,T,1):PRINTZ$;
190 GOSUB 50000
200 IF T=L THEN 220
210 GOTO 130
220 PRINT:SYS HARDCOPY,960*1.2
230 END
50000 REM ZEICHEN-ROUTINE
50005 IF ZF=1 THEN 50055
50010 ZF=1:DIMZD(255):READ ZA$:GOTO 50040
50020 READ ZA$:IF ZA$<>"-2" THEN 50020
50030 READ ZA$:IF ZA$="ENDE" THEN 50055
50040 ZD(ASC(ZA$))=PEEK(65)+PEEK(66)*256
50050 GOTO 50020
50055 ZH=ZD(ASC(Z$)):POKE 66,INT(ZH/256):POKE 65,ZH-PEEK(66)*256
50060 READ Z1,Z2
50070 GOSUB 50160
50080 Z3=Z1:Z4=Z2
50090 READ Z1
50100 IF Z1=-2 THEN Z1=21:Z2=7:GOSUB 50160:RETURN
50110 IF Z1=-1 THEN 50060
50120 READ Z2
50130 GOSUB 50160
50140 SYS 49152,1,Z1,Z2,Z3,Z4
50150 Z3=Z1:Z4=Z2:GOTO 50090
50155 REM VERGROESSERN UND DREHEN
50160 Z6=(Z1-7)*ZA/15:Z7=(Z2-7)*ZB/15
50170 ZV=ZW*(null)/180
50180 Z1=ZX+Z6*COS(ZV)-Z7*SIN(ZV)
50190 Z2=ZY+1.2*(Z6*SIN(ZV)+Z7*COS(ZV))
50200 RETURN
60000 DATA "A",2,14,2,5,7,1,12,5,12,14,-1,2,7,12,7,-2
60010 DATA "B",2,14,2,1,9,1,12,3,12,5,9,7,12,9,12,12,9,14,2,14,-1,2,7,9,7,-2
60020 DATA "C",12,12,9,14,5,14,2,12,2,3,5,1,9,1,12,3,-2
60030 DATA "D",2,14,2,1,8,1,12,4,12,11,8,14,2,14,-2
60040 DATA "E",12,14,2,14,2,1,12,1,-1,2,7,9,7,-2
60050 DATA "F",2,14,2,1,12,1,-1,2,7,9,7,-2
60060 DATA "G",8,9,12,9,12,12,9,14,5,14,2,12,2,3,5,1,9,1,12,3,-2
60070 DATA "H",2,1,2,14,-1,2,7,12,7,-1,12,1,12,14,-2
60080 DATA "I",7,14,7,1,-2
60090 DATA "J",2,1,12,1,12,11,9,14,4,14,2,11,-2
60100 DATA "K",2,1,2,14,-1,12,1,2,7,12,14,-2
60110 DATA "L",2,1,2,14,12,14,-2
60120 DATA "M",2,14,2,1,7,7,12,1,12,14,-2
60130 DATA "N",2,14,2,1,12,14,12,1,-2
60140 DATA "O",2,3,5,1,9,1,12,3,12,12,9,14,5,14,2,12,2,3,-2
60150 DATA "P",2,14,2,1,9,1,12,3,12,5,9,7,2,7,-2
60160 DATA "Q",2,3,5,1,9,1,12,3,12,12,9,14,5,14,2,12,2,3,-1,9,12,12,14,-2
60170 DATA "R",2,14,2,1,9,1,12,3,12,5,9,7,2,7,12,14,-2
60180 DATA "S",12,3,9,1,5,1,2,3,2,5,5,7,9,7,12,9,12,12,9,14,5,14,2,12,-2
60190 DATA "T",2,1,12,1,-1,7,1,7,14,-2
60200 DATA "U",2,1,2,12,5,14,9,14,12,12,12,1,-2
60210 DATA "V",2,1,2,10,7,14,12,10,12,1,-2
60220 DATA "W",1,1,4,14,7,9,10,14,13,1,-2
60230 DATA "X",2,1,12,14,-1,2,14,12,1,-2
60240 DATA "Y",2,14,12,1,-1,2,1,6,8,-2
60250 DATA "Z",2,1,12,1,2,14,12,14,-2
60260 DATA " ",0,0,-2
60270 DATA "0",12,12,2,3,5,1,9,1,12,3,12,12,9,14,5,14,2,12,2,3,-2
60280 DATA "1",4,5,10,1,10,14,-2
60290 DATA "2",2,3,5,1,9,1,12,3,12,6,2,11,2,13,12,13,-2
60300 DATA "3",2,3,5,1,9,1,12,3,12,6,9,7,12,8,12,12,9,14,5,14,2,12,-2
60310 DATA "4",12,1,2,6,2,10,12,10,-1,7,6,7,14,-2
60320 DATA "5",12,1,2,1,2,7,5,5,9,5,12,7,12,12,9,14,5,14,2,12,-2
60330 DATA "6",12,1,8,1,2,9,2,12,5,14,9,14,12,12,12,9,9,7,5,7,2,9,-2
60340 DATA "7",2,4,2,1,12,1,12,4,2,14,-2
60350 DATA "8",5,7,9,7,12,9,12,12,9,14,5,14,2,12,2,9,5,7,2,5,2,2,4,1,9,1,12,3
60360 DATA 12,5,9,7,-2
60370 DATA "9",2,14,8,14,12,6,12,3,9,1,5,1,2,3,2,6,5,8,9,8,12,6,-2
60380 DATA "_",12,7,2,7,-1,9,11,12,7,9,3,-2
60390 DATA "!",7,12,7,1,-1,6.5,14,7.5,14,-2
60400 DATA ",",8,13,6,15,-2
60410 DATA "ENDE"