Commit 0fe34b55 authored by saxnot's avatar saxnot

Mehr herumprobieren

parent 9e5a691a
......@@ -6,14 +6,16 @@
29 REM "Clear" Character ausgeben
30 PRINTCHR$(147)
35 FOR N=10 TO 0:
35 FOR N=10 TO 0 STEP -1:
42 REM String verbreitern
43 TX$ = " "
44 FOR W=N TO 0:
44 FOR W=5 TO 0:
45 TX$ = TX$ + " "
47 NEXT
48 TX$ = TX$ + " S.A.X.N.O.T."
49 TX$ = TX$
47 NEXT W
48 TX$ = TX$ + "S.A.X.N.O.T."
50 POKE 53270,(PEEK(53270) AND 248) + 7 : PRINT
......@@ -24,10 +26,14 @@
60 PRINT TX$
61 PRINT N%
69 REM Bewegung um 7 Pixel nach links
70 FOR P=7 TO 0 STEP-1
80 POKE 53270, (PEEK(53270) AND 248) + P
90 FOR X=1 TO 10 : NEXT
100 NEXT
104 REM nun alles erneut einen char daneben malen
105 NEXT N
100 NEXT P
105 NEXT N : GOTO 43
\ No newline at end of file
110 GOTO 29
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment