Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
Related Products
Related Articles
Related Content
Image Gallery
Source Code
5 REM %P%A%T%T%E%R%N%S
10 DIM G$(9)
20 FOR I=1 TO 9
30 LET G$(I)=CHR$ (INT (RND*11)+(RND>.5)*128)
40 NEXT I
50 PRINT AT 0,0;
60 FOR I=1 TO 78
70 PRINT G$;
80 NEXT I
90 PRINT G$( TO 2);
95 PAUSE 120
100 GOTO 20
200 SAVE "1006%5"
210 RUN