Commit af863549 authored by saxnot's avatar saxnot

Alles kaputt gespielt

parent eda21c60
......@@ -2,16 +2,21 @@
11 REM vgl. Programmers Reference Guide Seiten 128ff
12 REM TODO commenting best practices recherche
18 REM Bildschirm verkleinert (nur noch 24 rows)
19 REM konfigurierbar machen - oder veroderung ordentlicher
20 POKE 53265,PEEK(53265) AND 247
15 REM 53265 = Memory für Rows
16 REM 53270 = Memory für Columns
18 REM Bildschirm von 25 auf 24 Rows verkleinert
20 POKE 53265, PEEK(53265) AND 247
24 REM von 40 cols auf 38 cols fuer scroll support
25 POKE 53270, PEEK(53270) AND 247
29 REM Das "Clear" Character ausgeben zum screenclearen
30 PRINTCHR$(147)
38 REM cursor nach unten bewegen
39 REM TODO geht dies auch mit anderen blanken chars - ausprobieren
40 FOR X=1 TO 24: PRINTCHR$(17);:NEXT
40 REM # FOR X=1 TO 24: PRINTCHR$(17);:NEXT
50 POKE 53265,(PEEK(53265) AND 248) + 7 : PRINT
......@@ -20,8 +25,15 @@
70 FOR P=6 TO 0 STEP-1
80 POKE 53265, (PEEK(53265) AND 248) + P
89 REM SPEEDUPLOOP fuer arbeitsplatzsicherung
81 REM # POKE 53270, (PEEK(53270) AND 248) + P
89 REM SPEEDUPLOOP for insurance
90 FOR X=1 TO 50 : NEXT
100 NEXT : GOTO 50
POKE 53270,PEEK(53270)AND 247
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