035
Heute, 13:45 Uhr
Bert
|
Ich hab die (kurzen) Demos mal abgetippt:
| Quellcode: | 10 REM *** DEMO1 PIXEL RAM *** 20 WINDOW 0,31,0,39:!FENSTER AUF 30 CLS : FOR X=0 TO 10239 40 VPOKE X,255 : NEXT X : END 50 REM *** DEMO2 BIT-MUSTER *** 60 CLS:C$="BYTE M =":FOR M=0 TO 255 70 PRINTAT(12,6);C$;M:!FORX=1TO26STEP2 80 FOR X=1 TO 26 STEP2:VPOKE 453+X,M 90 VPOKE677+X,M:NEXTX:PAUSE7:NEXTM:END 100 REM *** DEMO3 FARBE *** 110 WINDOW 0,31,0,39 : CLS 120 PRINT "*** FARBCODE ***" 130 FOR FB=0 TO 255 140 FOR P=10240 TO 10399 150 VPOKE P,FB 160 PRINT AT(1,15);FB 170 NEXT P,FB 180 END
|
Demo 3 (RUN 100) schaut so aus:
 -- Viele Grüße, Bert |