10 ' HYPER-HARDCOPY
20 ' (C) Friedemann Tonner (USISOFT) 30 DATA 11,00,00,DD,21,6A,A0,3E,C9,ED,47,21,90,01,01,00,00,D5,EB,09,EB,C5,0880 40 DATA E5,CD,F0,BB,CD,35,BC,78,32,23,A0,DD,7E,00,CD,2B,BD,30,F8,E1,C1,D1,0D33 50 DATA 0C,3E,7F,B9,20,DF,CD,5B,A0,2B,CB,45,28,D4,ED,57,3D,28,04,ED,47,18,0979 60 DATA CB,CD,5B,A0,CD,5B,A0,CD,5B,A0,CD,5B,A0,3E,02,BA,C8,01,80,00,EB,09,0B22 70 DATA EB,18,AC,3E,0A,CD,2B,BD,30,F9,3E,0D,CD,2B,BD,30,F9,C9,30,38,47,51,09C7 80 DATA 4F,44,45,67,25,75,39,6B,46,3F,54,3B,5B,6A,66,29,3C,2F,3A,2C,7C,21,20,0673,00 90 a=&A000:MEMORY &9FFF:RESTORE 30:z=20:g=0:WHILE a<&A086:READ x$:x=VAL("&"+x$) 100 IF x>&FF THEN s=x:z=z+10:IF s<>g THEN PRINT"DATA-Fehler in";z:END ELSE g=0:GOTO 120 110 g=g+x:POKE a,x:a=a+1 120 WEND 130 PRINT#8,CHR$(27)CHR$(51)CHR$(13);:'Zeilenabstand 13/216 Zoll 140 PRINT#8,CHR$(27)CHR$(83)CHR$(0);:'Hochstellung 150 PRINT#8,CHR$(15);:'Schmalschrift 160 ORIGIN 0,0:CALL &A000 |