Graphics

Gallery

Source Code

   10 REM "GRAPHICS"
   20 REM Courtesy John W. Petersen; adapted by Cedric R. Bastiaans
   30 BORDER 2: PAPER 1: INK 6: CLS 
  100 INPUT "TYPE A #, 0 TO 46: ";X: INPUT "HOW MANY REPEATS? (EVEN NUMBERS WILL CAUSE THE SCREEN TO END UP BLANK AGAIN; TRY 2): ";Y: FOR N=1 TO Y: PLOT 65,27: DRAW OVER 1;120,120,(X*10+9)*3*PI: NEXT N
  110 PRINT #1;TAB 4;"PRESS ENTER TO CONTINUE": PAUSE 0
  200 PAPER 2: INK 7: CLS : FOR X=0 TO 65 STEP .1: PLOT 2*X*SIN X+125,X*COS X+88:: NEXT X
  210 PRINT #1;TAB 4;"PRESS ENTER TO CONTINUE": PAUSE 0
  300 PAPER 4: INK 0: CLS : INPUT "CHOOSE AN ODD #(101 TO 255): ";X: OVER 1: FOR N=0 TO 1: PLOT 65,27: DRAW 110,110,PI*X: NEXT N
  310 PRINT #1;TAB 4;"PRESS ENTER TO CONTINUE": PAUSE 0
  400 PAPER 6: INK 2: CLS : FOR X=0 TO 245: PLOT X,40*SIN (X/10)+88: DRAW 10,10: DRAW -10,5: NEXT X
  410 PRINT #1;TAB 4;"PRESS ENTER TO CONTINUE": PAUSE 0
  500 PAPER 3: INK 0: CLS : FOR J=49 TO 99 STEP 10: CLS : PRINT J: PLOT 128,0: DRAW 0,175,J^3*PI: NEXT J
  510 PRINT #1;TAB 4;"PRESS ENTER TO CONTINUE": PAUSE 0
  600 PAPER 6: INK 1: CLS : FOR N=0 TO 360 STEP 8: LET X=50*SIN (N*PI/180): LET Y=50*COS (N*PI/180): CIRCLE X+127,Y+87,30: NEXT N
  610 PRINT #1;TAB 4;"PRESS ENTER TO CONTINUE": PAUSE 0
  700 CLS : BORDER 2: FOR M=1 TO 5: FOR N=0 TO 7: PAPER N: INK 9: PRINT "L.I.S.T. USR GR ";: NEXT N: NEXT M
  800 PAUSE 120: CLS : LET A$="THANK YOU": PAPER 3: INK 0: PRINT AT 10,INT ((33- LEN A$)/2);A$
  900 PAUSE 60 : LET B$="FOR YOUR INTEREST !": PAPER 5: PRINT AT 12,INT ((33-LEN B$)/2);B$
 9999 SAVE "graphics" LINE 1