110 REM **** A KILOBAUD MYSTERY PROGRAM *****
120 REM FROM THE APRIL, 1978, ISSUE.
130 REM BY TOM RUGG AND PHIL FELDMAN
150 DIM A(42)
160 FOR J=3 TO 28
170 A(J)=J+62
180 NEXT J
190 FOR J=1 TO 10
200 A(J+29)=J+47
210 NEXT J
220 FOR J=1 TO 2
230 A(J)=J+31
240 NEXT J
250 REM NOW IT GETS MORE MYSTERIOUS
260 A(A(1)-3)=A(A(2))-7
270 T=0
280 FOR J=1 TO 9
290 T=T+J
300 NEXT J
310 A(T-5)=T+1
320 A(A(T-T+1)+T/5)=T+INT(T/3)+3
330 T=T-A(2)
340 J=T/4
350 A(T*J+2*J)=J*T+(T/J)-1
410 GOSUB 500
500 GOSUB 700
510 READ T
520 IF T<>0 THEN 550
530 GOSUB 700
550 IF T<0 THEN 580
560 GOSUB 800
570 GOTO 510
580 IF T=-1 THEN 1230
590 J=ABS(T)
600 READ T
610 FOR K=1 TO J
620 GOSUB 800
630 NEXT K
640 GOTO 510
700 T=A(24)-A(29)
710 PRINT
720 FOR J=1 TO 5/2
730 GOSUB 900
740 NEXT J
750 PRINT
760 RETURN
800 PRINT CHR$(A(T));
810 RETURN
900 PRINT CHR$(T);
910 RETURN
920 DATA -5,1,3,18,20,11,14,1,8,-2,17,14
930 DATA 2,0,22,20,27,1,6,7,14,7,22,11,16,9,1,14,11,16,7,21
940 DATA 1,39,33,30,1,3,16,6,1,39,34,30,-4,40,-1
950 DATA 1,3,9,3,11,16,2,0,16,17,25,1,20,7,15,17,24,7,1
960 DATA 39,32,30,29,1,39,35,30,29,1,3,16,6,1,39,36,30,-1
970 DATA 20,11,6,6,14,7,-4,40,1,25,10,3,22,42,21,1,3,1,22,10,20
980 DATA -2,7,1,22,17,7,6,1,21,14,17,22,10,41,0,-4,40,6,7,14,7
990 DATA 22,7,1,39,37,30,29,1,39,38,30,29,1,3,16,6,1,-2,39,30,-1
1000 DATA -3,1,10,3,2,1,10,3,2,1,10,3,2,1,10,3,2,1,0,11,42,15,1
1010 DATA 3,1,5,17,15,18,23,22,7,20,29,1,16,17,22,1,3,1,28,-2
1020 DATA 17,14,17,9,11,21,22,2,0,4,27,7,-1
1230 PRINT
1240 END
0 DATA 3,1,5,17,15,18,23,22,7,20,29,1,16,17,22,1,3,1,28,-2
1020 DATA 17,14,17,9,11,21,22,2,0,4,27,7,-1
12