Source Code
20 LET C$=" "
30 PRINT "ENTER YOUR NAME"
40 INPUT N$
50 IF LEN N$>15 THEN LET N$=N$(1 TO 15)
60 IF LEN N$=0 THEN GOTO 40
80 PRINT AT 0,0;"% \''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''% ";AT 4,0;"% \..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% "
90 FOR G=1 TO 4
100 PRINT AT G,0;"% ";AT G,31;"% "
110 NEXT G
120 PRINT AT 2,11;N$
130 LET R$="\@@\~~\,,\!!\;;\@@\' \..\''\..\''\..\..\'' \ ' \.. \ : \..\'' \ :"
135 LET H=INT (RND*LEN R$)+1
140 LET C$=R$(H)
150 FOR X=1 TO 15
160 PRINT AT 0,16-X;C$;AT 0,15+X;C$
170 PRINT AT 4,16-X;C$;AT 4,15+X;C$
\n9990 NEXT X
\n9995 GOTO 135
\n9998 SAVE "1013%4"
\n9999 RUN
