CODINGLISTINGS ★ POWIęKSZANIE NAPISÓW|BAJTEK)

Powiększanie Napisów|Bajtek)Coding Listings

Prezentujemy krótki, lecz interesujący program pozwalający na powiększanie liter i znaków graficznych. Program wykorzystuje instrukcję SYMBOL AFTER 32, co pozwala na redefiniowanie wszystkich znaków. Zamiast linii 70, 80 i 85 można wpisać własne i ewentualnie przenumerować linię 90.

60 CALL &BC02:BORDER 6:MODE 0:SYMBOL AFTER 32:DEF FNz1=zy%-z3%*zh%:DEF FNz2=zy%-z3%*zh%+zh%
65 DEF FNz3=zx%+(7-z5%)*zw%+z1%*zw%*8:DEF FN z4=zx%+(8-z5%)*zw%+z1%*zw%*8-8:DEF FNz5=z4% AND 2^z5%:CLS
70 zz$="Przyklad":zx%=2:zy%=398:zc%=1:zw%=10:zh%=12:GOSUB 40000
80 zz$="dzialania ":zx%=6:zy%=250:zc%=7:zw%=7:zh%=6:GOSUB 40000
85 zz$="programu":zx%=40:zy%=170:zc%=11:zw%=9:zh%=22:GOSUB 40000
90 GOTO 90
40000 FOR z1%=0 TO LEN(zz$)-1:z2%=ASC(MID$(zz$,z1%+1,1))-32:FOR z3%=1 TO 8
40001 z4%=PEEK(HIMEM+z3%+z2%*8):FOR z5%=7 TO 0 STEP -1:IF FNz5 THEN ORIGIN 0,0,FNz3,FNz4,FNz1,FNz2:CLG zc%
40010 NEXT z5%,z3%,z1%:RETURN

Bajtek

★ PUBLISHER: Bajtek
★ ANNÉE: 1986
★ CONFIG: 64K + AMSDOS
★ LANGAGE:
★ LICENCE: LISTING
★ AUTHOR: Wojciech Ziółek

CPCrulez[Content Management System] v8.7-desktop/cache
Page créée en 132 millisecondes et consultée 462 fois

L'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent  du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko.