100 'MIRROR: BY T WHEELER: 31.1.92 : Prints a mirror image of text in the centre of line selected in normal or italic style in mode 1 or 2 110 BORDER 3:INK 1,24:INK 0,1:INK 3,6:MODE 1:PAPER 0:PEN 1:PRINT"Enter text to mirror":PEN 3:INPUT"",word$:x=LEN(word$): 120 PEN 1:PRINT"Enter MODE 1 or 2":PEN 3:INPUT"",mde:e=2/mde:y=INT(((40*mde)-x)/2)+1:PEN 1:IF mde<1 OR mde>2 THEN 120 130 PRINT"Enter n(ormal) or i(talics)":PEN 3:INPUT"",k$:k$=UPPER$(k$):PEN 1:IF NOT(k$="N" OR k$="I") THEN 130 140 PRINT"Enter line on which to print (1-23) ":PEN 3:INPUT"",lin:PEN 1:IF lin<1 OR lin>23 THEN 140 150 PRINT"Enter Colour No. (27 for no change)":PEN 3:INPUT"",col:PEN 1:IF NOT(col>-1 AND col<28) THEN 150 ELSE IF col<>27 THEN INK 1,col 160 MODE mde:LOCATE y,lin:z=&C000+(&50*(lin-1))+((y-1)*e):PRINT word$:IF k$="N" THEN 200 ELSE IF mde=2 THEN 210 170 FOR j=1 TO x*2:y=4:FOR i=0 TO 7:n=(z+&50+j-1)+((7-i)*&800):IF i<4 THEN n=n-1 180 m=n-1:p=PEEK((z+j-1)+(i*&800)):q=VAL("&X"+MID$(BIN$(p,8),y,5-y)+STRING$(3+y,"0")):r=VAL("&X"+LEFT$(BIN$(PEEK(m),8),4)+"0000"):POKE n,q:POKE m,r:y=y-1:IF y=0 THEN y=4 190 NEXT i,j:END 200 FOR j=1 TO x*e:FOR i=0 TO 7:p=PEEK((z+j-1)+(i*&800)):n=(z+&50+j-1)+((7-i)*&800):POKE n,p:NEXT i,j:END 210 FOR j=1 TO x:FOR i=0 TO 7:n=(z+&50+j-1)+((7-i)*&800):m=n-1 220 p=PEEK((z+j-1)+(i*&800)):q=VAL("&X"+RIGHT$(BIN$(p,8),i+1)+STRING$(7-i,"0")):r=VAL("&X"+BIN$(PEEK(m),8)) OR VAL("&X"+STRING$(i+1,"0")+LEFT$(BIN$(p,8),7-i)):POKE n,q:POKE m,r:NEXT i,j:END★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser... |
|
|