8-Bit Software Online Conversion
:0.$.Land - Listing
10MODE1
20VDU19,3,8,0,0,0,0
30VDU19,0,15,0,0,0,0
40FOR X=-5000 TO 6279 STEP 200
50MOVE X,0
60GCOL0,3
70MOVE 640,385
80PLOT 85,X+100,0
90MOVE 640,385
100GCOL0,0
110PLOT 85,X+200,0
120NEXT X
130GCOL4,0
140Y=385
150FOR V=2 TO 10 STEP 2
160VS=V*V
170US=(V+1)*(V+1)
180MOVE 0,Y-VS:MOVE0,Y:PLOT85,1279,Y-V
S
190MOVE 1279,Y:PLOT 85,0,Y
200Y=Y-(VS+US)
210NEXT V