======GVBASIC超酷艺术字======

wqx1

还可以

zhaofeixxx

0 :
5 : GOTO 1000
10 TEXT :INPUT "文字：";W$
20 INPUT "显示X:";WX
30 INPUT "显示Y:";WY:INPUT "倍数X:";BX:INPUT "倍数Y:";BY
35 INPUT "偏移X:";XX:INPUT "偏移Y:";YY:
40 BX=BX+1:BY=BY+1:GRAPH:CLS
50 LOCATE 1,2RINT W$: GOTO 90
60 PA=PY*20+(PX/8)+6592
70 PB=PEEK (PA)RAW PX,PY,0:IF PEEK (PA)=PB THEN PP=0 ELSE PP=1
80 RETURN
90 ZY=WY: FOR I=1 TO 16
100 FOR J=1 TO LEN(W$)*8
110 PX=7+JY=I-1:GOSUB 60:IF PEEK (199)>128 THEN 140
120 IF PP=1 THEN BOX WX+(J-1)*BX,WY+(I-1)*BY,WX+J*BX-1,WY+I*BY-1,1
130 WY=WY+YY:NEXT :WX=WX+XX:WY=ZY:NEXT
140 RETURN
1000 GRAPH:W$="CV艺术字