Bildschirmschoner
Bildschirmschoner
Nummer 1
:ClrHome
:Lbl ST
:0→X
:Lbl 1
:randInt(1,8) →A
:randInt(1,16)→B
:Output(A,B,”8”)
:X+1→X
:if X=110:Goto 2
:Goto 1
:Lbl 2
:randInt(1,8) →A
:randInt(1,14) →B
:Output(A,B,“( π)”
:X+1→X
:if X=220:Goto 3
:Goto 2
:Lbl 3
:randInt(1,8,) →A
:randInt(1,14) →B
:Output(A,B,“-“)
:X+1→X
:if X=330:Goto ST
:Goto 3
Nummer 2
:ClrHome
:ZStandard
:AxesOff
:CoordOff
:randInt(1,40)→X
:randInt(1,90) →Y
:randInt(1,40) →A
:randInt(1,90) →B
:randInt(1,40) →C
:randInt(1,90) →D
:Text(X,Y,“O“)
:Text(A,B,“O“)
:Text(C,D,”O”)
:if X=56:Goto X
:if A=56:Goto A
:if C=56:Goto C
:X+1→X
:A+1→A
:C+1→C
:Goto 1
:Lbl X
:randInt(1,40) →X
:randInt(1,90) →Y
:Goto 1
:Lbl A
:randInt(1,40) →A
:randInt(1,90) →B
:Goto 1
:Lbl C
:randInt(1,40) →C
:randInt(1,90) →D
:Goto 1