Not too far away some interesting type-ins were mentioned, and I've just typed in three of them (that is, pasted an OCR version and corrected it):Here's Program 2Here's Program 3
Here's Program 1
- Triangles (Your Computer 1982-02 "Screening BBC Micro's Fine Display of Colour")
Colour String Art (as above)
Code:
10 REM "STRING ART BLACK AND WHITE"20 REM (C) RUSTON 198130 REPEAT40 MODE 050 X=RND(1280):Y=RND(1280)60 L=RND(1280):M=RND(1024)70 U=20-RND(40):V=20-RND(40)80 P=20-RND(40):Q=20-RND(40)90 FOR K = 1 TO 150100 MOVE X,Y110 DRAW L,M120 IF X+U>1279 OR X+U<0 U=-U130 IF Y+V>1023 OR Y+V<0 V=-V140 IF L+P>1279 OR L+P<0 P=-P150 IF M+Q>1023 OR M+Q<0 Q=-Q160 X=X+U:Y=Y+V170 L=L+P:M=M+Q180 NEXT K190 A$=GET$200 UNTIL FALSECode:
10 REM "COLOUR STRING ART"20 REM (C) RUSTON 198130 REPEAT40 MODE 250 X=RND(1280):Y=RND(1280)60 L=RND(1280):M=RND(1024)70 U=20-RND(40):V=20-RND(40)80 P=20-RND(40):Q=20-RND(40)90 FOR K = 1 TO 150100 MOVE X,Y110 DRAW L,M120 IF X+U>1279 OR X+U<0 U=-U:GCOL0,RND(6)+1130 IF Y+V>1023 OR Y+V<0 V=-V:GCOL0,RND(6)+1140 IF L+P>1279 OR L+P<0 P=-P:GCOL0,RND(6)+1150 IF M+Q>1023 OR M+Q<0 Q=-Q:GCOL0,RND(6)+1160 X=X+U:Y=Y+V170 L=L+P:M=M+Q180 NEXT K190 A$=GET$200 UNTIL FALSECode:
10 REM "TRIANGLES"20 REM COPYRIGHT (C) RUSTON 198130 MODE 040 A=RND(1280):B=RND(1024)50 C=RND(1280):D=RND(1024)60 E=RND(1280):F=RND(1024)70 U=20-RND(40):V=20-RND(40)80 W=20-RND(40):X=20-RND(40)90 Y=20-RND(40):Z=20-RND(40)100 MOVE A,B:DRAW C,D:DRAW E,F110 DRAW A,B120 IF A+U>1279 OR A+U<0 THEN U=-U130 IF B+V>1023 OR B+V<0 THEN V=-V140 IF C+W>1279 OR C+W<0 THEN W=-W150 IF D+X>1023 OR D+X<0 THEN X=-X160 IF E+Y>1279 OR E+Y<0 THEN Y=-Y170 IF F+Z>1023 OR F+Z<0 THEN Z=-Z180 IF RND(10)>7 THEN VDU 19,1,RND(6)+1,0,0,0190 PLOT 7,C,D:PLOT 7,E,F200 PLOT 7,A,B210 A=A+U: B=B+V:C=C+W: D=D+X: E=E+Y:F=F+Z220 GOTO 100Statistics: Posted by BigEd — Sun Apr 20, 2025 3:32 pm