Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen angezeigt.
| Beide Seiten der vorigen Revision Vorhergehende Überarbeitung | Nächste ÜberarbeitungBeide Seiten der Revision | ||
| z1013:literatur:practic-87-1 [2010/07/28 10:05] – volkerp | z1013:literatur:practic-87-1 [2010/09/01 09:10] – volkerp | ||
|---|---|---|---|
| Zeile 57: | Zeile 57: | ||
| 120 PRINT;INPUT " | 120 PRINT;INPUT " | ||
| 130 OUTCHAR 12 | 130 OUTCHAR 12 | ||
| - | 140 IF V<1 GOTO 120 | + | 140 IF V<1 GOTO 120 |
| - | 150 IF V>2 GOTO 120 | + | 150 IF V>2 GOTO 120 |
| 160 REM BILDAUFBAU | 160 REM BILDAUFBAU | ||
| 165 FOR I=1 TO V | 165 FOR I=1 TO V | ||
| Zeile 70: | Zeile 70: | ||
| 240 POKE P,213 | 240 POKE P,213 | ||
| 250 P=P+A;T=T+1 | 250 P=P+A;T=T+1 | ||
| - | 260 IF P<O GOTO 200 | + | 260 IF P<O GOTO 200 |
| 270 NEXT I | 270 NEXT I | ||
| 280 GOSUB 500 | 280 GOSUB 500 | ||
| Zeile 127: | Zeile 127: | ||
| 810 PRINT; | 810 PRINT; | ||
| 820 PRINT " Noch einmal? Dann bitte" | 820 PRINT " Noch einmal? Dann bitte" | ||
| - | 830 PRINT;PRINT "Taste>J& | + | 830 PRINT;PRINT "Taste>J< druecken!" |
| 840 W=INCHAR | 840 W=INCHAR | ||
| 850 IF W=74 GOTO 10 | 850 IF W=74 GOTO 10 | ||
| Zeile 138: | Zeile 138: | ||
| 122 INPUT " | 122 INPUT " | ||
| - | 124 IF G & | + | 124 IF G > 9 GOTO 122 |
| - | 126 IF G & | + | 126 IF G < 1 GOTO 122 |
| 128 G = 500 / G | 128 G = 500 / G | ||
| 275 X = HEX (3600); GOSUB 900 | 275 X = HEX (3600); GOSUB 900 | ||
| Zeile 145: | Zeile 145: | ||
| 301 IFW = 0W = Y | 301 IFW = 0W = Y | ||
| 302 Y = W | 302 Y = W | ||
| - | 303 IF Q & | + | 303 IF Q < O POKE (HEX (3A00) ), 20 |
| - | 306 IF Q & | + | 306 IF Q > HEX (EC00) POKE (HEX (3A00) ), 20 |
| 305 FOR I = 1 TO G; NEXT I | 305 FOR I = 1 TO G; NEXT I | ||
| 900 POKE X, HEX (CD) | 900 POKE X, HEX (CD) | ||