Name Badge

Gallery

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$
9990 NEXT X
9995 GOTO 135
9998 SAVE "1013%4"
9999 RUN