Tajemnice ATARI

5 Linii

To już chyba było? Oczywiście, że tak, ale dziś jest lepsze i ładniejsze! Program do drukowania tekstów w trybie graficznym 8 jest kolejnym przykładem na to, że zoptymalizować można wszystko!

1 GRAPHICS 8:S=PEEK(88)+256*PEEK(89):D
IM A$(128):INPUT A$:A=ADR(A$):FOR I=0 
TO LEN(A$)-1:D=PEEK(A+I):X=0:Y=40
2 IF D>=32 AND D<=95 THEN D=D-32
3 IF D>0 AND D<=31 THEN D=D+64
4 IF D>127 THEN D=D-96
5 FOR C=0 TO 7:POKE S+X,PEEK(57344+8*D
+C):X=X+Y:NEXT C:X=0:S=S+1:NEXT I

Powrót na start | Powrót do spisu treści | Powrót na stronę główną