1 'Graphik Demo by Robert Praxmarer 10 MODE 1:BORDER 0:INK 0,0:PEN 1:INK 1,8:SPEED INK 30,30 20 LOCATE 14,22:PRINT"G R A P H I K " 30 LOCATE 17,24:PRINT"D E M O" 40 GRAPHICS PEN 1:MOVE 0,0:DRAW 639,0:DRAW 639,0:DRAW 639,399:DRAW 0,399:DRAW 0,0 50 MASK 15:GRAPHICS PAPER 2:GRAPHICS PEN 3:INK 2,0,26:INK 3,26,0:PEN 1 60 FOR a=1 TO 360 STEP 5:DEG:ORIGIN 320,80 70 DRAW SIN(a)*90,(a)-a/6:NEXT 90 FOR b=1 TO 360 STEP 5:DEG:ORIGIN 320,80 100 DRAW SIN(-b)*90,(b)-b/6 110 NEXT 120 FOR c=0 TO 9000:NEXT 130 FOR y=2 TO 20:x=5:LOCATE x,y:PRINT SPACE$(30):NEXT 140 FOR d=1 TO 600:NEXT 150 FOR e=1 TO 25:PRINT CHR$(128):NEXT 160 CLS:LOCATE 8,12:PRINT"Beginn ihres Hauptprogramms":CALL &BB18:CALL &BC02:CLS