Certificate maker with borders.
Content
Image Gallery
Source Code
5 REM certificat
10 BORDER 6: RESTORE : GO SUB 9000
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 char.) ";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;"\a \b \c \d \e \f \g \h \i \j \k \l \m \n "
8090 INPUT "Which graphics symbol? ";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$;: NEXT i
8999 STOP
9000 REM UDG
9010 DATA 255,255,195,195,195,195,255,255
9020 FOR a=0 TO 7
9030 READ b: POKE USR "\a"+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 "\b"+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 "\c"+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 "\d"+a,b
9190 NEXT a
9210 DATA 0,60,126,102,102,126,60,0
9220 FOR a=0 TO 7
9230 READ b: POKE USR "\e"+a,b
9240 NEXT a
9260 DATA 102,102,102,102,102,102,102,102
9270 FOR a=0 TO 7
9280 READ b: POKE USR "\f"+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 "\g"+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 "\h"+a,b
9390 NEXT a
9410 DATA 24,24,0,219,219,0,24,24
9420 FOR a=0 TO 7
9430 READ b: POKE USR "\i"+a,b
9440 NEXT a
9460 DATA 195,195,60,60,60,60,195,195
9470 FOR a=0 TO 7
9480 READ b: POKE USR "\j"+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 "\k"+a,b
9540 NEXT a
9560 DATA 231,231,231,0,0,231,231,231
9570 FOR a=0 TO 7
9580 READ b: POKE USR "\l"+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 "\m"+a,b
9640 NEXT a
9660 DATA 255,129,129,129,129,129,129,255
9670 FOR a=0 TO 7
9680 READ b: POKE USR "\n"+a,b
9690 NEXT a
9700 RETURN
9999 CLEAR : CLS : SAVE "certificat" LINE 1: BEEP 1,32: PRINT AT 9,9; INVERSE 1;"Program Saved": PRINT AT 11,6;" Rewind to verify. ": VERIFY "certificat": BEEP 1,0: PRINT AT 13,7; FLASH 1;"Program Verified."