Source Code
1 REM Y% \.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN
\n1000 FAST
\n1001 RAND USR 16514
\n1002 FOR N=8 TO 14
\n1003 PRINT AT N,0;E$
\n1004 NEXT N
\n1005 POKE 16418,0
\n1006 PRINT AT 22,0;F$;AT 23,0;F$
\n1007 SLOW
\n1010 FOR N=1 TO 28
\n1020 PRINT AT 9,0;C$( TO 31)
\n1030 PRINT AT 13,0;D$( TO 31)
\n1040 LET C$=C$(2 TO LEN C$)+C$(1)
\n1050 LET D$=D$(LEN D$)+D$( TO LEN D$-1)
\n1060 NEXT N
\n1080 FOR N=8 TO 14
\n1090 PRINT AT N,0;"\: ";AT N,31;"\ :"
\n1100 NEXT N
\n1110 FOR N=1 TO 30 STEP 2
\n1120 PRINT AT 11,N;"\!!\;;"
\n1130 NEXT N
\n1135 PRINT AT 11,31;"% "
\n1150 FOR N=29 TO 1 STEP -2
\n1160 PRINT AT 11,N;"\;;\!!"
\n1170 NEXT N
\n1180 PRINT AT 11,0;"% "
\n1190 PRINT AT 9,1;E$( TO 30);AT 13,1;E$( TO 30)
\n1200 PRINT AT 4,8;"%T%H%E% %S%Y%N%C%H%R%O%-%S%E%T%T%E";AT 19,9;"%B%U%L%L%E%T%I%N% %B%O%A%R%D";AT 22,10;"%O%C%T%O%B%E%R% %1%9%8%2"
\n1210 LET L=LEN A$
\n1220 FOR B=1 TO L
\n1230 IF B>L-29 THEN GOTO 1300
\n1240 PRINT AT 9,1;A$(B TO B+29)
\n1250 NEXT B
\n1300 LET L=LEN B$
\n1310 FOR B=1 TO L
\n1320 IF B>L-29 THEN GOTO 1210
\n1330 PRINT AT 13,1;B$(B TO B+29)
\n1340 NEXT B
\n9998 SAVE "BULLETI%N"
\n9999 GOTO 1
