10 REM ++++++++++++++++++++++++++++++++
11 REM ! Program ....   GODJUL2
12 REM ! Utg}va  1.0    1980-11
13 REM ! av (c) Eilert Johansson
14 REM ! Minne 16 Kbytes
15 REM ! Ins{nt av
16 REM ++++++++++++++++++++++++++++++++
17 REM 
18 REM Red. by The Computer Phantome
19 REM 
20 RANDOMIZE 
21 N(1)=20 : N1(1)=16 : N(2)=36 : N1(2)=19 : N(3)=52 : N1(3)=22 : N(4)=68 : N1(4)=25 : P=500
22 F=1 : E=0
23 ; CHR$(12); : ; STRING$(1200,151);
24 ; CUR(0,25)CHR$(135)'BOHUSL[N-81'
25 ; CUR(19,2)'j|||||||||||||||||||||||||||||||5'
26 ; CUR(20,3)'kcssssss{ G O D   J U L wssssss37'
27 ; CUR(21,4)'o||||?'
28 ; CUR(22,4)'"!'
29 ; CUR(23,4);CHR$(151)'###############################';
30 FOR J=1 TO 2000 : NEXT J
31 I=I+1 : IF I=5 THEN 39 : READ B,C
32 FOR A=59 TO B STEP -1
33 FOR D=1 TO 6
34 SETDOT A,(D-1)+C
35 NEXT D
36 NEXT A
37 GOTO 31
38 DATA 13,14,16,30,19,46,22,62
39 ; CUR(3,8)'i' : ; CUR(4,16)'i' : ; CUR(5,24)'i' : ; CUR(6,32)'i'
40 ; CUR(4,7)'|~|' : ; CUR(5,15)'|~|' : ; CUR(6,23)'|~|' : ; CUR(7,31)'|~|'
41 FOR J=1 TO 2000 : NEXT J
42 READ A$(0),B$(0),C$(0),D$(0),A$(1),B$(1),C$(1),D$(1)
43 ; CUR(0,7)A$(F)
44 ; CUR(1,7)B$(F)
45 ; CUR(2,7)C$(F)
46 ; CUR(3,7)D$(F)
47 ; CUR(1,15)A$(E)
48 ; CUR(2,15)B$(E)
49 ; CUR(3,15)C$(E)
50 ; CUR(4,15)D$(E)
51 ; CUR(2,23)A$(F)
52 ; CUR(3,23)B$(F)
53 ; CUR(4,23)C$(F)
54 ; CUR(5,23)D$(F)
55 ; CUR(3,31)A$(E)
56 ; CUR(4,31)B$(E)
57 ; CUR(5,31)C$(E)
58 ; CUR(6,31)D$(E)
59 FOR J=1 TO P : NEXT J
60 IF RND<.15 AND K=0 THEN K=1
61 IF K=1 THEN 63 ELSE IF K=2 THEN 66
62 GOTO 75
63 L=INT(RND*5) : IF Q=4 THEN END ELSE IF L=0 OR M(L)>0 OR L>4 THEN 63
64 K=2 : P=350 : Q=Q+1
65 M(L)=1
66 FOR J=1 TO 10
67 SETDOT N1(L),N(L)
68 CLRDOT N1(L)-1,N(L)+1
69 N1(L)=N1(L)+1
70 IF N1(L)=56 THEN 73
71 NEXT J
72 GOTO 75
73 K=0 : CLRDOT N1(L)-1,N(L)+1 : SETDOT N1(L)+1,N(L)+1 : SETDOT N1(L),N(L)+1 : SETDOT N1(L)+1,N(L)
74 P=500
75 IF F=1 THEN F=0 ELSE F=1
76 IF E=1 THEN E=0 ELSE E=1
77 GOTO 43
78 DATA ' 4','`4','j','*67',' j',' u','j','*65'