1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   M\NSTER1
3 REM ! Utg}va  1.0    83-01-01
4 REM ! av (c) Johan Hedin.
7 REM ! Minne 16 Kbytes
8 REM ! Ins{nt av 525
9 REM ++++++++++++++++++++++++++++++++
10 REM 
11 REM Screened by  C R LERIN.
12 REM 
70 RANDOMIZE : R1%=71% : K1%=77%
80 ; CHR$(12%)CUR(12,10);
90 ; "DIMENSION (6-60)"; : INPUT D%
100 E%=D%/2%-1% : F%=2%
110 ; CHR$(12%);
120 FOR I%=0% TO 23%
130 ; CUR(I%,0%)CHR$(23%); : NEXT I%
140 FOR R%=0% TO E% : FOR K%=0% TO R%
150 IF RND>.3 THEN 290
160 G%=(R1%-R1%/(D%+3%)*(D%+3%))/2%
170 FOR T%=G% TO R1%-D%-G% STEP D%+3%
180 H%=(K1%-K1%/(D%+3%)*(D%+3%))/2%
190 FOR Y%=H% TO K1%-D%-H% STEP D%+3%
200 SETDOT R%+T%,K%+F%+Y%
210 SETDOT K%+T%,R%+F%+Y%
220 SETDOT R%+T%,D%-K%+F%+Y%
230 SETDOT K%+T%,D%-R%+F%+Y%
240 SETDOT D%-R%+T%,K%+F%+Y%
250 SETDOT D%-K%+T%,R%+F%+Y%
260 SETDOT D%-R%+T%,D%-K%+F%+Y%
270 SETDOT D%-K%+T%,D%-R%+F%+Y%
280 NEXT Y% : NEXT T%
290 NEXT K% : NEXT R%
300 IF S%=1% THEN 340
310 S%=0% : GET A$
320 IF ASC(A$)=13% 80
330 IF A$="A" 350 ELSE 110
340 POKE 32721,160 : FOR I=0 TO 2000 : NEXT I
350 S%=1% : IF PEEK(65013)<>0 THEN 310
360 GOTO 110