10 REM AST1
   20 REM MODIFIED JAN 2026
   30 REM FLAXCOTTAGE EDUCATIONAL ARCHIVE
   40 MODE4
   50 
   51 VDU19,0,4;0;19,1,3;0;
   60 PROCWORDS
   70 PROCLINES
   80 PROCCIRCLE(900,450,26)
   90 PROCHAZE(900,450,60)
  100 PROCSTARS
  110 PROCCHARS
  120 VDU19,0,4,0,0,0,19,1,3,0,0,0,5:MOVE1200,1200
  130 IF PAGE=&E00THENCHAIN"AST2"ELSEMODE7:PRINT'"LOADING ..."''"PLEASE WAIT.":PAGE=&7000:CHAIN"LDR"
  140 DEF PROCWORDS
  150 PRINT'''TAB(33)"PLANET"
  160 PRINT'TAB(33)"VIEWER"
  170 
  180 PRINTTAB(4,28)"(c) BRILLIANT SOFTWARE 1983"
  190 ENDPROC
  200  
  210 DEF PROCHAZE(X%,Y%,D%)
  220 MOVEX%,Y%
  230 FORA=0TO2.1*PI STEP .16:DRAWX%+SIN(A)*D%,Y%-COS(A)*D%:DRAWX%,Y%:NEXT 
  240 ENDPROC
  250 DEFPROCSTARS
  260 FORF%=1TO66:PLOT69,RND(1280),RND(1080):NEXT
  270 FORF%=1TO44:PLOT69,RND(600)+600,RND(600)+150:NEXT
  280 FORF%=1TO55:PLOT69,RND(300)+750,RND(300)+300:NEXT
  290 FORF%=1TO77:PLOT69,RND(200)+800,RND(200)+350:NEXT
  300 ENDPROC
  310 DEF PROCLINES
  320 MOVE900,450:DRAW900,1100:A=50:MOVE900,450:FORB=0TO1.65*PI STEP .15:DRAW900+SIN(B)*A,450+COS(B)*A:A=A^1.01:NEXT:DRAW676,1100:A=30:MOVE900,450:FORB=PI/2TO1.65*PI STEP .15:DRAW900+SIN(B)*A,500+COS(B)*A:A=A^1.015:NEXT:DRAW784,1100
  330 MOVE1200,800:DRAW1020,360:A=160:FORB=.8*PI TO1.65*PI STEP .15:DRAW900+SIN(B)*A,450+COS(B)*A:A=A^1.009:NEXT:DRAW554,1100:ENDPROC
  340 DEF PROCCIRCLE(X%,Y%,D%)
  350 MOVEX%,Y%:MOVEX%,Y%+D%
  360 FORA=0TO2.1*PI STEP .13:PLOT85,X%+SIN(A)*D%,Y%-COS(A)*D%:MOVEX%,Y%:NEXT  
  370 ENDPROC
  380  
  390 DEF PROCCHARS
  400 VDU23,224,0,0,54,124,72,124,54,0,23,225,28,50,24,60,102,102,60,0,23,226,64,96,48,24,60,110,70,0,23,227,124,100,100,124,102,102,124,96,23,228,60,102,66,126,66,102,60,0,23,229,0,2,126,100,36,36,36,0,23,230,112,80,112,0,0,0,0,0
  410 VDU23,231,96,96,96,0,0,0,0,0,23,232,108,108,108,0,0,0,0,0,23,233,64,64,112,80,80,0,0,0,23,234,0,124,84,84,0,0,0,0,23,235,112,64,112,16,112,0,0,0,23,236,0,0,0,110,74,106,42,110,23,237,0,0,0,16,16,112,80,112,23,238,0,0,0,0,101,22,37,117
  420 VDU23,239,60,102,195,219,195,102,60,0,23,240,28,48,96,96,96,48,28,0,23,241,54,28,54,99,54,28,62,28,23,242,28,54,99,54,28,62,28,0,23,243,28,42,73,127,73,42,28,0,23,244,7,51,125,204,204,120,56,0,23,245,48,122,10,26,50,98,255,2          
  430 VDU23,246,120,96,96,110,123,99,102,4,23,247,28,62,28,54,99,54,28,0,23,248,231,195,189,24,24,60,24,0,23,249,124,102,102,124,96,96,126,0
  440 ENDPROC
  450