Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- software:diy:basic:diy:basic:pbgk:src_runman [24/08/2008 15:08] – angelegt uxt
+++ software:diy:basic:diy:basic:pbgk:src_runman [Unbekanntes Datum] (aktuell) – Externe Bearbeitung (Unbekanntes Datum) 127.0.0.1
@@ Zeile 1: / Zeile 1: @@
+Eine kleine Animation mit GPRINT: RUNMAN.BAS
+<code SDLbasic>
+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
+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
+  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
+SCREEN A
+IF ISRUN THEN RUN "menu" ELSE END
+</code>