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%:RETURNBajtek | ★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser... |
CPCrulez[Content Management System] v8.7-desktop/c
Page créée en 667 millisecondes et consultée 1228 foisL'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. |
|
|
★
