Certificate Maker

   5 REM certificat
   8 LOAD ""SCREEN$
  10 BORDER 6: RESTORE : GO SUB
9000
  50 PRINT AT 18,3; FLASH 1;"Pre
ss any key to continue."
  60 PAUSE 0
 150 CLS
 200 INPUT "How many lines?(1-8)
";l: IF l>8 THEN GO TO 200
 225 IF l=8 THEN LET y=4
 226 IF l=7 THEN LET y=5
 227 IF l=6 THEN LET y=6
 228 IF l=5 THEN LET y=7
 229 IF l=4 THEN LET y=8
 230 IF l=3 THEN LET y=9
 231 IF l=2 THEN LET y=10
 232 IF l=1 THEN LET y=11
 233 FOR i=1 TO l
 234 INPUT "Print line (1-26 cha
r.) ";c$: PRINT AT y,(32-LEN c$)
/2;c$
 235 LET y=y+2
 240 PRINT
 250 NEXT i
8080 PRINT AT 20,2;"A B C D E F
G H I J K L M N"
8085 PRINT AT 21,2;"■ ✖ = + ● ‖
○ ⁙ ✣ ✖ ∷ ∷ □ □ "
8090 INPUT "Which graphics symbo
l? ";a$
8100 FOR i=0 TO 31: PRINT AT 0,i
;a$;: NEXT i
8110 FOR i=0 TO 31: PRINT AT 1,i
;a$;: NEXT i
8120 FOR i=1 TO 18: PRINT TAB 0;
 OVER 1;a$;a$;TAB 30; OVER 1;a$;
a$: NEXT i
8130 FOR i=1 TO 64: PRINT a$;: N
EXT i
8200 INPUT "COPY or AGAIN? (C/A)
 ";c$
8300 IF c$="c" OR c$="C" THEN CO
PY : GO TO 8200
8350 IF c$="a" OR c$="A" THEN GO
 TO 150
8999 STOP
9000 REM UDG
9010 DATA 255,255,195,195,195,19
5,255,255
9020 FOR a=0 TO 7
9030 READ b: POKE USR "■"+a,b
9040 NEXT a
9060 DATA 129,66,60,60,60,60,66,
129
9070 FOR a=0 TO 7
9080 READ b: POKE USR "✖"+a,b
9090 NEXT a
9110 DATA 0,255,255,0,0,255,255,
0
9120 FOR a=0 TO 7
9130 READ b: POKE USR "="+a,b
9140 NEXT a
9160 DATA 0,24,24,126,126,24,24,
0
9170 FOR a=0 TO 7
9180 READ b: POKE USR "+"+a,b
9190 NEXT a
9210 DATA 0,60,126,102,102,126,6
0,0
9220 FOR a=0 TO 7
9230 READ b: POKE USR "●"+a,b
9240 NEXT a
9260 DATA 102,102,102,102,102,10
2,102,102
9270 FOR a=0 TO 7
9280 READ b: POKE USR "‖"+a,b
9290 NEXT a
9310 DATA 60,126,195,195,195,195
,126,60
9320 FOR a=0 TO 7
9330 READ b: POKE USR "○"+a,b
9340 NEXT a
9360 DATA 204,204,51,51,204,204,
51,51
9370 FOR a=0 TO 7
9380 READ b: POKE USR "⁙"+a,b
9390 NEXT a
9410 DATA 24,24,0,219,219,0,24,2
4
9420 FOR a=0 TO 7
9430 READ b: POKE USR "✣"+a,b
9440 NEXT a
9460 DATA 195,195,60,60,60,60,19
5,195
9470 FOR a=0 TO 7
9480 READ b: POKE USR "✖"+a,b
9490 NEXT a
9510 DATA 0,238,238,0,0,238,238,
0
9520 FOR a=0 TO 7
9530 READ b: POKE USR "∷"+a,b
9540 NEXT a
9560 DATA 231,231,231,0,0,231,23
1,231
9570 FOR a=0 TO 7
9580 READ b: POKE USR "∷"+a,b
9590 NEXT a
9610 DATA 0,126,66,66,66,66,126,
0
9620 FOR a=0 TO 7
9630 READ b: POKE USR "□"+a,b
9640 NEXT a
9660 DATA 255,129,129,129,129,12
9,129,255
9670 FOR a=0 TO 7
9680 READ b: POKE USR "□"+a,b
9690 NEXT a
9700 RETURN
9999 SAVE "certificat" LINE 1: B
EEP 1,32: PRINT AT 9,9; INVERSE
1;"Program Saved": INPUT "  Rewi
nd, then press 'ENTER' to verify
. ";q$: VERIFY "certificat": BEE
P 1,0: PRINT AT 13,7; FLASH 1;"P
rogram Verified."