PofoWiki

Eine kleine Animation mit GPRINT: RUNMAN.BAS

DIM G$(5)
G$(1)="98483e682c"
G$(2)="58483e28ec"
G$(3)="0058fe1000"
A=SCREEN
SCREEN 6
CMODE=4:?"  The Running Man":CMODE=0
LINE(0,17)-(239,17)
GLOCATE 1,20
?"  This is a demo of ";:CMODE=1:?"text";:CMODE=0:?" and ";:CMODE=2:?"Graphics"
CMODE=0:?"  On the same screen.  The little"
CMODE=4:?" man";:CMODE=0:?" is created with GPRINT"
CMODE=8:?"** You can also print upside-down **  ":CMODE=0
CMODE=12:?"   ";:CMODE=13:?"Combine Modes"
GLOCATE 1,1:CMODE=24:?"Sideways ":CMODE=0
GLOCATE 233,8:CMODE=20:?"Wide":CMODE=0
P=10:L=10
21 FOR X=1 TO 3
GLOCATE 1,P-1:GPRINT "00"
GPRINT G$(X)
 if X<>3 THEN CLICK
FOR Y=1 TO 15 : NEXT Y
22  A$=INKEY$: IF A$<>"" THEN 23
   IF ASC(A$)=27 THEN 999
   IF A$=" " THEN WAIT
NEXT X
P=P+2:IF P>200 THEN 23
GOTO 21
23 SCREEN A
999 IF ISRUN THEN RUN "menu" ELSE END