Difference between revisions of "Crazy.bas"
From CPCWiki - THE Amstrad CPC encyclopedia!
(New page: 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,...) |
|||
(One intermediate revision by one other user not shown) | |||
Line 1: | Line 1: | ||
+ | <pre> | ||
10 ' **** PROGRAM ONE *** | 10 ' **** PROGRAM ONE *** | ||
20 ' By Craig Mitchell | 20 ' By Craig Mitchell | ||
Line 13: | Line 14: | ||
130 MOVE 100,380:DRAWR 440,0,1:DRAWR 0,-70:DRAWR -440,0:DRAWR 0,70 | 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" | 140 PRINT CHR$(22)CHR$(0):RUN"legs.bas" | ||
+ | </pre> | ||
+ | |||
+ | [[Category:Programming]] |
Latest revision as of 15:59, 17 December 2010
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"