Crazy.bas

10 ' **** PROGRAM ONE ***
20 '  By Craig Mitchell
30 '
40 BORDER 1:INK 0,1:INK 1,24:INK 2,26:INK 3,6:MODE 1
50 ORIGIN 0,0,0,640,0,98:CLG 3
60 FOR f=-300 TO 940 STEP 50:MOVE 320,200:DRAW f,0,2:NEXT
70 f=104:s=2
80 MOVE 0,f:DRAWR 640,0:f=f-s:s=s+2:IF f>0 THEN 80
90 ORIGIN 0,0,0,640,0,400
100 RAD:FOR f=-PI/2 TO PI/2 STEP 0.02:MOVE SIN(f)*100+320,COS(f)*100+100:DRAWR 0,-COS(f)*100,1:NEXT
110 PRINT CHR$(22)CHR$(1):PEN 0:LOCATE 10,24:PRINT CHR$(164)" Craig Mitchell 1985."
120 LOCATE 12,3:PEN 2:PRINT"C R A Z Y   L E G S":PEN 3:LOCATE 12,5:PRINT"is now loading....."
130 MOVE 100,380:DRAWR 440,0,1:DRAWR 0,-70:DRAWR -440,0:DRAWR 0,70
140 PRINT CHR$(22)CHR$(0):RUN"legs.bas"