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