Certificate

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."