1: DIM IMG(1 TO 600) 'DEFINE VARIBLE FOR IMAGE 2: SCREEN 12 'CHANGE SCREEN MODE 3: FOR I = 1 TO 30 STEP .1 'FOR..NEXT LOOP FOR FILLED CIRCLE 4: CIRCLE (30, 30), I, I / 2 'THE CIRCLE PART OF THE LOOP 5: NEXT I 'END OF LOOP THAT TELLS IT TO LOOP 6: x% = 61 'TELLS WHERE THE X POSITION TO END LOADING IMAGE 7: y% = 60 'TELLS WHERE THE Y POSITION TO END LOADING IMAGE 8: GET (0, 0)-(x%, y%), IMG 'GET CIRCLE FROM SCREEN FOR FASTER DRAWING 9: CLS 'CLEARS SCREEN 10: FOR DRW = 480 TO 0 STEP -1 'FOR..NEXT LOOP FOR MOVING CIRCLE 11: PUT (DRW, 100), IMG, PSET 'PUTS THE CIRCLE AT Y POS 100 AND VARIBLE X POS 12: 'OF "DRW" AND PSET TELLS IT TO ERASE WHATS ON THE 13: 'SCREEN 14: NEXT DRW 'END OF LOOP AND TELLS IT TO LOOP BACK UP 15: 16: SUB SLEEPA (T) 17: TT = TIMER + T 18: 1 IF TIMER >= TT THEN EXIT SUB ELSE GOTO 1 19: END SUB 20: |