Microworld

Gallery

Source Code

  10 DIM E$(3)
  20 LET S$=CHR$ 0+CHR$ 9+CHR$ 8+CHR$ 9
  30 REM T$ IS THE TITLE.
  40 REM IT CAN BE CHANGED.
  50 LET T$="MICROWORLD"
  60 FAST 
  70 RAND 
  80 FOR M=0 TO 60
  90 FOR N=0 TO INT (RND*40)+1
 100 PLOT M,N
 110 NEXT N
 120 NEXT M
 130 SLOW 
 140 PRINT AT 21,15-(LEN T$/2);
 150 FOR N=1 TO LEN T$
 160 PRINT CHR$ (CODE T$(N)+128);
 170 NEXT N
 180 FOR N=1 TO 28
 190 PRINT AT 0,N;S$
 200 NEXT N
 210 PRINT AT 0,29;E$
 220 GOTO 180
 230 SAVE "1018%1"
 240 RUN