Commit 27dc94bf authored by Jonas Dralle's avatar Jonas Dralle

Mehr Kommentare

Ist leider broken aufgrund der Kommentare
parent a28eb53d
0000 TITLE Saxnots Erster Textscroller
0000 AUTHOR saxnot
0000 DATE 2019-06-04
0000 REM Bildschirm verkleinert (von 40 auf 38 cols)
0100 POKE 53270,PEEK(53270) AND 247
......@@ -8,21 +12,25 @@
0300 N% = 40
0400 TX$ = " SAXNOT"
0000 REM Dinge
0000 REM Die Nten chars ganz rechts behalten (immer kleiner)
0500 TX$ = RIGHT$(TX$,N%)
0000 REM "Clear Home" Character zum leeren des Bildschirms
0700 PRINT CHR$(147)
0000 REM Scroller startet bei 7 Offset
0800 POKE 53270, (PEEK(53270) AND 248) + 7
0900 PRINT TX$
0000 REM Den angezeigten Bildschirm von offet 7 bis 0 smooth verschieben
1000 FOR P=7 TO 0 STEP -1
1100 POKE 53270, (PEEK(53270) AND 248) + P
1200 NEXT P
0000 REM Laenge des Strings verringern und wieder von vorn
1300 N% = N% - 1
1400 IF N% > 0 THEN GOTO 0500
1500 GOTO 30
0000 REM Wenn ganz links angekommen beginne von vorn
1500 GOTO 0300
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