Home » Computer Media » Classy Front End Pt 1

Classy Front End Pt 1

Developer(s): Paul Bingham
Date: 1987
Type: Program
Platform(s): TS 2068

Draw proportionally spaced characters using the TS 2068 graphic commands.

Content

Appears On

Related Products

Related Articles

Program demonstrates printing with variable-width fonts using PLOT/DRAW.

Related Content

Image Gallery

Source Code

    1 REM CLASSY FRONT END Part 1       
   10 DIM n$(200): GO TO 1000
   32 GO TO 1130
   33 PLOT x+2,y+1: DRAW 1,0: PLOT x+2,y+3: DRAW 0,3: DRAW 1,0: DRAW 0,-3: GO TO 1140
   34 PLOT x+2,y+7: DRAW 0,-2: PLOT x+5,y+5: DRAW 0,2: GO TO 1170
   35 PLOT x+1,y: DRAW 0,7: PLOT x+4,y: DRAW 0,7: PLOT x,y+2: DRAW 5,0: PLOT x,y+6: DRAW 5,0: GO TO 1160
   36 PLOT x+3,y: DRAW 0,7: PLOT x+1,y+2: DRAW 1,0: DRAW 0,-1: DRAW 2,0: PLOT x+4,y+4: DRAW -2,0: DRAW 0,2: DRAW 2,0: PLOT x+5,y+2: DRAW 0,1: PLOT x+1,y+5: GO TO 1160
   37 PLOT x+3,y+5: DRAW -1,-1: DRAW -1,0: DRAW 0,1: DRAW 1,1: DRAW 4,0: DRAW 0,-1: DRAW -1,0: DRAW 0,-2: DRAW 1,0: DRAW 0,-1: DRAW -1,-1: PLOT x+3,y+1: DRAW 0,1: DRAW 1,0: DRAW 0,1: GO TO 1170
   38 PLOT x+4,y+1: DRAW -1,-1: DRAW 0,1: DRAW -1,0: DRAW 0,4: DRAW 2,0: PLOT x+1,y+2: PLOT x+3,y+6: DRAW -2,-2: DRAW 2,-1: DRAW 1,0: GO TO 1150
   39 PLOT x+3,y+7: DRAW 0,-1: DRAW -1,-1: GO TO 1130
   40 PLOT x+3,y: PLOT x+3,y+7: PLOT x+2,y+1: DRAW 0,5: PLOT x+1,y+2: DRAW 0,3: GO TO 1140
   41 PLOT x+1,y: PLOT x+1,y+7: PLOT x+2,y+1: DRAW 0,5: PLOT x+3,y+2: DRAW 0,3: GO TO 1140
   42 PLOT x+1,y+4: DRAW 1,1: DRAW -1,1: PLOT x+3,y+3: DRAW 0,4: PLOT x+5,y+4: DRAW -1,1: DRAW 1,1: GO TO 1160
   43 PLOT x+3,y+1: DRAW 0,4: PLOT x+1,y+3: DRAW 4,0: GO TO 1160
   44 PLOT x+2,y: PLOT x+3,y+1: DRAW 0,2: DRAW -1,0: GO TO 1140
   45 PLOT x+2,y+3: DRAW 3,0: DRAW 0,1: DRAW -3,0: GO TO 1170
   46 PLOT x+2,y+1: DRAW 1,0: DRAW 0,1: DRAW -1,0: GO TO 1150
   47 PLOT x+2,y+1: DRAW 0,1: PLOT x+3,y+3: DRAW 0,1: PLOT x+4,y+5: DRAW 0,1: GO TO 1150
   48 PLOT x+1,y+2: DRAW 0,3: PLOT x+4,y+1: DRAW -2,0: DRAW 0,5: DRAW 2,0: PLOT x+5,y+2: DRAW 0,3: PLOT x+3,y+3: PLOT x+4,y+4: GO TO 1160
   49 GO SUB 1100: DRAW 2,0: DRAW -1,0: DRAW 0,5: PLOT x+1,y+5: GO TO 1140
   50 GO SUB 1100: DRAW 0,1: DRAW 1,0: DRAW 0,-1: DRAW 2,0: PLOT x+1,y+5: PLOT x+2,y+6: DRAW 1,0: PLOT x+4,y+4: DRAW 0,1: PLOT x+3,y+3: GO TO 1150
   51 PLOT x+1,y+2: PLOT x+2,y+1: DRAW 2,0: DRAW 0,5: DRAW -3,0: PLOT x+5,y+2: DRAW 0,1: PLOT x+5,y+6: PLOT x+3,y+4: GO TO 1160
   52 PLOT x+3,y+1: DRAW 0,5: DRAW -1,0: DRAW 0,-1: PLOT x+4,y+3: DRAW -3,0: DRAW 0,2: GO TO 1150
   53 PLOT x+1,y+2: PLOT x+4,y+6: DRAW -3,0: DRAW 0,-2: DRAW 2,0: PLOT x+2,y+5: PLOT x+4,y+2: DRAW 0,1: PLOT x+2,y+1: DRAW 1,0: GO TO 1150
   54 PLOT x+4,y+1: DRAW -2,0: DRAW 0,1: DRAW -1,0: DRAW 0,1: DRAW 1,0: DRAW 0,2: PLOT x+4,y+4: DRAW -3,0: PLOT x+5,y+2: DRAW 0,1: PLOT x+3,y+6: DRAW 1,0: GO TO 1160
   55 PLOT x+1,y+1: DRAW 0,2: DRAW 1,0: DRAW 0,1: DRAW 1,0: DRAW 0,2: DRAW -3,0: GO TO 1140
   56 PLOT x+4,y+1: DRAW -2,0: DRAW 0,1: DRAW -1,0: DRAW 0,1: DRAW 1,0: DRAW 0,3: DRAW 2,0: PLOT x+1,y+5: PLOT x+5,y+5: PLOT x+3,y+4: DRAW 1,0: PLOT x+5,y+2: DRAW 0,1: GO TO 1160
   57 PLOT x+5,y+2: DRAW 0,1: DRAW -3,0: DRAW 0,3: DRAW 2,0: PLOT x+1,y+4: DRAW 0,1: PLOT x+2,y+1: DRAW 2,0: PLOT x+5,y+4: DRAW 0,1: GO TO 1160
   58 PLOT x+2,y+4: DRAW 1,0: PLOT x+3,y+2: DRAW -1,0: GO TO 1140
   59 PLOT x+2,y+4: DRAW 1,0: PLOT x+2,y: PLOT x+3,y+1: DRAW 0,1: DRAW -1,0: GO TO 1140
   60 PLOT x+1,y+3: DRAW 3,-3: PLOT x+1,y+4: DRAW 3,3: PLOT x+3,y+2: DRAW -1,1: DRAW 0,1: DRAW 1,1: GO TO 1150
   61 PLOT x,y+2: DRAW 0,2: PLOT x,y+4: DRAW 0,2: GO TO 1130
   62 PLOT x+4,y+3: DRAW -3,-3: PLOT x+4,y+4: DRAW -3,3: PLOT x+2,y+2: DRAW 1,1: DRAW 0,1: DRAW -1,1: GO TO 1150
   63 PLOT x+1,y+5: PLOT x+3,y+1: DRAW 1,0: PLOT x+2,y+6: DRAW 2,0: DRAW 0,-1: DRAW 1,0: DRAW 0,-1: DRAW -1,0: DRAW 0,-1: DRAW -1,0: GO TO 1160
   64 PLOT x+3,y+2: DRAW -1,0: DRAW 0,1: PLOT x+1,y+5: PLOT x+3,y+4: DRAW 1,0: DRAW 0,-3: DRAW 1,0: PLOT x+6,y+2: DRAW 0,3: PLOT x+2,y+6: DRAW 3,0: GO TO 1170
   65 GO SUB 1100: DRAW 0,4: PLOT x+2,y+1: DRAW 0,5: DRAW 2,0: PLOT x+5,y+1: DRAW 0,4: PLOT x+5,y+3: DRAW -2,0: GO TO 1160
   66 GO SUB 1100: DRAW 0,5: PLOT x+4,y+1: DRAW -2,0: DRAW 0,5: DRAW 2,0: PLOT x+5,y+5: PLOT x+3,y+4: DRAW 1,0: PLOT x+5,y+2: DRAW 0,1: GO TO 1160
   67 PLOT x+1,y+2: DRAW 0,3: PLOT x+4,y+1: DRAW -2,0: DRAW 0,5: DRAW 2,0: PLOT x+5,y+2: PLOT x+5,y+5: GO TO 1160
   68 GO SUB 1100: DRAW 0,5: PLOT x+4,y+1: DRAW -2,0: DRAW 0,5: DRAW 2,0: PLOT x+5,y+2: DRAW 0,3: GO TO 1160
   69 PLOT x+5,y+1: DRAW -4,0: DRAW 0,5: DRAW 4,0: DRAW -3,0: DRAW 0,-2: DRAW 2,0: DRAW -2,0: DRAW 0,-2: GO TO 1160
   70 PLOT x+5,y+6: DRAW -4,0: DRAW 0,-5: DRAW 1,0: DRAW 0,3: DRAW 2,0: PLOT x+2,y+5: GO TO 1150
   71 PLOT x+4,y+3: DRAW 1,0: DRAW 0,-2: DRAW -3,0: DRAW 0,5: DRAW 2,0: PLOT x+1,y+2: DRAW 0,3: PLOT x+5,y+5: GO TO 1160
   72 GO SUB 1100: DRAW 0,5: DRAW 1,0: DRAW 0,-5: DRAW 0,3: DRAW 3,0: DRAW 0,2: DRAW 0,-5: GO TO 1160
   73 GO SUB 1100: DRAW 2,0: DRAW 0,5: DRAW -2,0: DRAW 3,0: DRAW -2,0: DRAW 0,-5: DRAW 2,0: GO TO 1150
   74 PLOT x+2,y+1: DRAW 2,0: DRAW 0,5: DRAW 1,0: DRAW 0,-4: PLOT x+1,y+2: DRAW 0,1: GO TO 1160
   75 GO SUB 1100: DRAW 0,5: DRAW 1,0: DRAW 0,-5: PLOT x+3,y+3: DRAW 0,1: PLOT x+4,y+2: PLOT x+4,y+5: PLOT x+5,y+1: PLOT x+5,y+6: GO TO 1160
   76 GO SUB 1100: DRAW 0,5: DRAW 1,0: DRAW 0,-5: DRAW 3,0: GO TO 1160
   77 GO SUB 1100: DRAW 0,5: DRAW 1,0: DRAW 0,-5: PLOT x+3,y+5: PLOT x+4,y+4: PLOT x+5,y+5: DRAW 1,0: DRAW 0,1: DRAW 0,-5: GO TO 1170
   78 GO SUB 1100: DRAW 0,5: DRAW 1,0: DRAW 0,-5: PLOT x+3,y+5: DRAW 0,-1: PLOT x+4,y+3: DRAW 0,-1: PLOT x+5,y+1: DRAW 0,5: GO TO 1160
   79 PLOT x+1,y+2: DRAW 0,3: PLOT x+4,y+1: DRAW -2,0: DRAW 0,5: DRAW 2,0: PLOT x+5,y+2: DRAW 0,3: GO TO 1160
   80 GO SUB 1100: DRAW 0,5: DRAW 3,0: DRAW -2,0: DRAW 0,-5: DRAW 0,2: DRAW 2,0: PLOT x+5,y+4: DRAW 0,1: GO TO 1160
   81 PLOT x+3,y+3: PLOT x+1,y+2: DRAW 0,3: PLOT x+4,y+2: DRAW 0,-1: DRAW -2,0: DRAW 0,5: DRAW 2,0: PLOT x+5,y: DRAW 0,5: GO TO 1160
   82 GO SUB 1100: DRAW 0,5: DRAW 3,0: DRAW -2,0: DRAW 0,-5: DRAW 0,2: DRAW 2,0: DRAW 0,-1: DRAW 1,0: DRAW 0,-1: PLOT x+5,y+4: DRAW 0,1: GO TO 1160
   83 PLOT x+1,y+2: DRAW 1,0: DRAW 0,-1: DRAW 2,0: PLOT x+4,y+4: DRAW -2,0: DRAW 0,2: DRAW 2,0: PLOT x+5,y+2: DRAW 0,1: PLOT x+1,y+5: GO TO 1160
   84 PLOT x+1,y+6: DRAW 2,0: DRAW 0,-5: DRAW 1,0: DRAW 0,5: DRAW 2,0: GO TO 1160
   85 PLOT x+1,y+2: DRAW 0,4: DRAW 1,0: DRAW 0,-5: DRAW 2,0: PLOT x+5,y+2: DRAW 0,4: GO TO 1160
   86 PLOT x+1,y+5: DRAW 0,1: DRAW 1,0: DRAW 0,-3: DRAW 1,0: DRAW 0,1: DRAW 0,-3: DRAW 1,0: DRAW 0,1: PLOT x+5,y+3: DRAW 0,1: PLOT x+6,y+5: DRAW 0,1: GO TO 1160
   87 PLOT x+1,y+2: DRAW 0,4: DRAW 1,0: DRAW 0,-5: DRAW 1,0: DRAW 0,1: DRAW 1,0: DRAW 0,2: DRAW 0,-2: DRAW 2,0: DRAW 0,4: PLOT x+5,y+1: GO TO 1170
   88 GO SUB 1100: DRAW 1,0: DRAW 0,1: DRAW 1,0: DRAW 0,1: DRAW 1,0: DRAW 0,1: DRAW -1,0: DRAW 0,1: DRAW -1,0: DRAW 0,1: DRAW -1,0: PLOT x+5,y+2: PLOT x+5,y+5: PLOT x+6,y+1: PLOT x+6,y+6: GO TO 1170
   89 PLOT x+4,y+4: DRAW 0,-3: DRAW -1,0: DRAW 0,3: DRAW -1,0: DRAW 0,1: DRAW -1,0: DRAW 0,1: PLOT x+6,y+6: PLOT x+5,y+5: GO TO 1160
   90 PLOT x+1,y+6: DRAW 4,0: DRAW 0,-1: DRAW -1,0: DRAW 0,-1: DRAW -1,0: DRAW 0,-1: DRAW -1,0: DRAW 0,-1: DRAW -1,0: DRAW 0,-1: DRAW 4,0: GO TO 1160
   91 PLOT x+2,y: DRAW -1,0: DRAW 0,7: DRAW 1,0: GO TO 1130
   92 PLOT x+4,y+1: DRAW 0,1: PLOT x+3,y+3: DRAW 0,1: PLOT x+2,y+5: DRAW 0,1: GO TO 1150
   93 PLOT x+1,y: DRAW 1,0: DRAW 0,7: DRAW -1,0: GO TO 1130
   94 PLOT x+1,y+4: DRAW 2,2: DRAW 2,-2: DRAW -2,2: DRAW 0,-5: GO TO 1160
   95 PLOT x,y: DRAW 7,0: GO TO 1180
   96 PLOT x+6,y: DRAW -5,0: DRAW 0,5: DRAW 1,0: DRAW 0,1: DRAW 5,0: DRAW 0,-5: DRAW -5,0: DRAW 0,3: GO TO 1180
   97 PLOT x+4,y+4: DRAW 0,-3: DRAW -2,0: DRAW 0,3: DRAW 1,0: PLOT x+1,y+2: DRAW 0,1: GO TO 1150
   98 GO SUB 1100: DRAW 0,5: DRAW 0,-2: DRAW 2,0: DRAW 0,-3: DRAW -1,0: PLOT x+4,y+2: DRAW 0,1: GO TO 1150
   99 PLOT x+1,y+2: DRAW 0,1: PLOT x+4,y+1: DRAW -2,0: DRAW 0,3: DRAW 2,0: GO TO 1150
  100 PLOT x+4,y+6: DRAW 0,-5: DRAW -2,0: DRAW 0,3: DRAW 1,0: PLOT x+1,y+2: DRAW 0,1: GO TO 1150
  101 PLOT x+4,y+3: DRAW 0,1: DRAW -2,0: DRAW 0,-3: DRAW 2,0: DRAW -1,0: DRAW 0,1: DRAW -2,0: DRAW 0,1: GO TO 1150
  102 PLOT x+1,y+4: DRAW 2,0: PLOT x+2,y+1: DRAW 0,5: PLOT x+3,y+6: GO TO 1140
  103 PLOT x+4,y: DRAW 0,4: DRAW -2,0: DRAW 0,-3: DRAW 1,0: PLOT x+1,y+3: DRAW 0,-1: PLOT x+4,y: DRAW -3,0: GO TO 1150
  104 GO SUB 1100: DRAW 0,5: PLOT x+2,y+4: DRAW 1,0: PLOT x+4,y+3: DRAW 0,-2: GO TO 1150
  105 GO SUB 1100: DRAW 2,0: DRAW -1,0: DRAW 0,3: DRAW -1,0: PLOT x+2,y+6: GO TO 1140
  106 PLOT x,y: DRAW 1,0: PLOT x+2,y+1: DRAW 0,3: PLOT x+2,y+6: GO TO 1130
  107 GO SUB 1100: DRAW 0,5: PLOT x+2,y+3: DRAW 1,0: DRAW 0,-1: PLOT x+4,y+1: PLOT x+4,y+4: GO TO 1150
  108 GO SUB 1100: DRAW 2,0: DRAW -1,0: DRAW 0,5: PLOT x+1,y+6: GO TO 1140
  109 GO SUB 1100: DRAW 0,3: PLOT x+2,y+1: DRAW 0,3: DRAW 3,0: PLOT x+4,y+1: DRAW 0,2: PLOT x+6,y+1: DRAW 0,2: GO TO 1170
  110 GO SUB 1100: DRAW 0,3: PLOT x+2,y+1: DRAW 0,3: DRAW 1,0: PLOT x+4,y+1: DRAW 0,2: GO TO 1150
  111 PLOT x+3,y+1: DRAW -1,0: DRAW 0,3: DRAW 1,0: PLOT x+1,y+2: DRAW 0,1: PLOT x+4,y+2: DRAW 0,1: GO TO 1150
  112 PLOT x+1,y: DRAW 0,4: DRAW 2,0: DRAW 0,-3: DRAW -1,0: PLOT x+4,y+3: DRAW 0,-1: GO TO 1150
  113 PLOT x+4,y: DRAW 0,4: DRAW -2,0: DRAW 0,-3: DRAW 1,0: PLOT x+1,y+3: DRAW 0,-1: GO TO 1150
  114 GO SUB 1100: DRAW 0,3: PLOT x+2,y+1: DRAW 0,2: PLOT x+3,y+4: DRAW 1,0: GO TO 1150
  115 GO SUB 1100: DRAW 2,0: DRAW 0,2: DRAW -2,0: PLOT x+4,y+2: PLOT x+4,y+4: DRAW -2,0: GO TO 1150
  116 PLOT x+2,y+1: DRAW 0,5: PLOT x+1,y+4: DRAW 2,0: PLOT x+3,y+1: GO TO 1140
  117 PLOT x+1,y+2: DRAW 0,2: PLOT x+2,y+4: DRAW 0,-3: DRAW 2,0: DRAW 0,3: GO TO 1150
  118 PLOT x+1,y+4: DRAW 0,-1: DRAW 1,0: DRAW 0,-1: DRAW 1,0: DRAW 0,-1: PLOT x+4,y+3: DRAW 0,1: GO TO 1150
  119 PLOT x+1,y+2: DRAW 0,2: PLOT x+2,y+4: DRAW 0,-3: DRAW 3,0: DRAW -1,0: DRAW 0,2: PLOT x+6,y+2: DRAW 0,2: GO TO 1170
  120 GO SUB 1100: PLOT x+1,y+4: PLOT x+4,y+4: PLOT x+4,y+1: PLOT x+2,y+2: DRAW 1,0: DRAW 0,1: DRAW -1,0: GO TO 1150
  121 PLOT x+1,y: DRAW 1,0: PLOT x+3,y+1: PLOT x+1,y+3: DRAW 0,1: DRAW 1,0: DRAW 0,-2: DRAW 2,0: DRAW 0,2: GO TO 1150
  122 GO SUB 1100: DRAW 3,0: PLOT x+1,y+4: DRAW 3,0: PLOT x+2,y+2: PLOT x+3,y+3: GO TO 1150
  123 PLOT x,y+7: DRAW 5,0: GO TO 1160
  124 PLOT x+1,y: DRAW 0,7: PLOT x+2,y: DRAW 0,7: GO TO 1140
  125 PLOT x,y: DRAW 5,0: PLOT x,y+2: DRAW 5,0: PLOT x,y+4: DRAW 5,0: PLOT x,y+6: DRAW 5,0: GO TO 1160
  126 GO SUB 1100: DRAW 3,3: PLOT x+7,y+1: DRAW -2,2: PLOT x+2,y+1: DRAW 4,4: PLOT x+5,y+3: DRAW 2,2: PLOT x+6,y+1: DRAW -4,4: PLOT x+4,y+4: DRAW 0,3: PLOT x+3,y+3: DRAW -2,2: GO TO 1180
  127 PLOT x+1,y+3: DRAW 0,1: PLOT x+4,y+2: DRAW -2,0: DRAW 0,3: DRAW 2,0: PLOT x+3,y: DRAW 0,2: PLOT x+3,y+5: DRAW 0,2: GO TO 1150
  184 GO SUB 1300
  191 LET x=x+20: RETURN 
  199 PLOT x+1,y+3: DRAW 0,1: PLOT x+2,y+3: DRAW 0,1: GO TO 1130
  200 LET x=x-1: RETURN 
  201 PLOT x,y: DRAW 2,0: PLOT x,y+1: DRAW 2,2: PLOT x,y+4: DRAW 2,2: PLOT x,y+7: DRAW 2,0: GO TO 1130
  999 RETURN 
 1000 INPUT "PHRASE: ";n$
 1010 INPUT "PRINT AT "; FLASH 1;"?"; FLASH 0;",x (to 21):";yy
 1020 INPUT "PRINT AT y,"; FLASH 1;"?"; FLASH 0;" (to 31):";xx
 1030 PRINT n$
 1040 LET x=xx*8: LET y=168-yy*8: FOR t=1 TO 200: LET a=CODE n$(t): GO SUB a: NEXT t
 1050 STOP 
 1100 PLOT x+1,y+1: RETURN 
 1120 LET x=x+2: IF x>248 THEN GO TO 1300
 1125 RETURN 
 1130 LET x=x+3: IF x>248 THEN GO TO 1300
 1135 RETURN 
 1140 LET x=x+4: IF x>248 THEN GO TO 1300
 1145 RETURN 
 1150 LET x=x+5: IF x>248 THEN GO TO 1300
 1155 RETURN 
 1160 LET x=x+6: IF x>248 THEN GO TO 1300
 1165 RETURN 
 1170 LET x=x+7: IF x>248 THEN GO TO 1300
 1175 RETURN 
 1180 LET x=x+8: IF x>248 THEN GO TO 1300
 1185 RETURN 
 1300 LET x=0: LET y=y-8: RETURN 
 9999 SAVE "cfe" LINE 1: SAVE "cfe" LINE 1
    1 REM CLASSY FRONT END Part 1       
   10 DIM n$(200): GO TO 1000
   32 GO TO 1130
   33 PLOT x+2,y+1: DRAW 1,0: PLOT x+2,y+3: DRAW 0,3: DRAW 1,0: DRAW 0,-3: GO TO 1140
   34 PLOT x+2,y+7: DRAW 0,-2: PLOT x+5,y+5: DRAW 0,2: GO TO 1170
   35 PLOT x+1,y: DRAW 0,7: PLOT x+4,y: DRAW 0,7: PLOT x,y+2: DRAW 5,0: PLOT x,y+6: DRAW 5,0: GO TO 1160
   36 PLOT x+3,y: DRAW 0,7: PLOT x+1,y+2: DRAW 1,0: DRAW 0,-1: DRAW 2,0: PLOT x+4,y+4: DRAW -2,0: DRAW 0,2: DRAW 2,0: PLOT x+5,y+2: DRAW 0,1: PLOT x+1,y+5: GO TO 1160
   37 PLOT x+3,y+5: DRAW -1,-1: DRAW -1,0: DRAW 0,1: DRAW 1,1: DRAW 4,0: DRAW 0,-1: DRAW -1,0: DRAW 0,-2: DRAW 1,0: DRAW 0,-1: DRAW -1,-1: PLOT x+3,y+1: DRAW 0,1: DRAW 1,0: DRAW 0,1: GO TO 1170
   38 PLOT x+4,y+1: DRAW -1,-1: DRAW 0,1: DRAW -1,0: DRAW 0,4: DRAW 2,0: PLOT x+1,y+2: PLOT x+3,y+6: DRAW -2,-2: DRAW 2,-1: DRAW 1,0: GO TO 1150
   39 PLOT x+3,y+7: DRAW 0,-1: DRAW -1,-1: GO TO 1130
   40 PLOT x+3,y: PLOT x+3,y+7: PLOT x+2,y+1: DRAW 0,5: PLOT x+1,y+2: DRAW 0,3: GO TO 1140
   41 PLOT x+1,y: PLOT x+1,y+7: PLOT x+2,y+1: DRAW 0,5: PLOT x+3,y+2: DRAW 0,3: GO TO 1140
   42 PLOT x+1,y+4: DRAW 1,1: DRAW -1,1: PLOT x+3,y+3: DRAW 0,4: PLOT x+5,y+4: DRAW -1,1: DRAW 1,1: GO TO 1160
   43 PLOT x+3,y+1: DRAW 0,4: PLOT x+1,y+3: DRAW 4,0: GO TO 1160
   44 PLOT x+2,y: PLOT x+3,y+1: DRAW 0,2: DRAW -1,0: GO TO 1140
   45 PLOT x+2,y+3: DRAW 3,0: DRAW 0,1: DRAW -3,0: GO TO 1170
   46 PLOT x+2,y+1: DRAW 1,0: DRAW 0,1: DRAW -1,0: GO TO 1150
   47 PLOT x+2,y+1: DRAW 0,1: PLOT x+3,y+3: DRAW 0,1: PLOT x+4,y+5: DRAW 0,1: GO TO 1150
   48 PLOT x+1,y+2: DRAW 0,3: PLOT x+4,y+1: DRAW -2,0: DRAW 0,5: DRAW 2,0: PLOT x+5,y+2: DRAW 0,3: PLOT x+3,y+3: PLOT x+4,y+4: GO TO 1160
   49 GO SUB 1100: DRAW 2,0: DRAW -1,0: DRAW 0,5: PLOT x+1,y+5: GO TO 1140
   50 GO SUB 1100: DRAW 0,1: DRAW 1,0: DRAW 0,-1: DRAW 2,0: PLOT x+1,y+5: PLOT x+2,y+6: DRAW 1,0: PLOT x+4,y+4: DRAW 0,1: PLOT x+3,y+3: GO TO 1150
   51 PLOT x+1,y+2: PLOT x+2,y+1: DRAW 2,0: DRAW 0,5: DRAW -3,0: PLOT x+5,y+2: DRAW 0,1: PLOT x+5,y+6: PLOT x+3,y+4: GO TO 1160
   52 PLOT x+3,y+1: DRAW 0,5: DRAW -1,0: DRAW 0,-1: PLOT x+4,y+3: DRAW -3,0: DRAW 0,2: GO TO 1150
   53 PLOT x+1,y+2: PLOT x+4,y+6: DRAW -3,0: DRAW 0,-2: DRAW 2,0: PLOT x+2,y+5: PLOT x+4,y+2: DRAW 0,1: PLOT x+2,y+1: DRAW 1,0: GO TO 1150
   54 PLOT x+4,y+1: DRAW -2,0: DRAW 0,1: DRAW -1,0: DRAW 0,1: DRAW 1,0: DRAW 0,2: PLOT x+4,y+4: DRAW -3,0: PLOT x+5,y+2: DRAW 0,1: PLOT x+3,y+6: DRAW 1,0: GO TO 1160
   55 PLOT x+1,y+1: DRAW 0,2: DRAW 1,0: DRAW 0,1: DRAW 1,0: DRAW 0,2: DRAW -3,0: GO TO 1140
   56 PLOT x+4,y+1: DRAW -2,0: DRAW 0,1: DRAW -1,0: DRAW 0,1: DRAW 1,0: DRAW 0,3: DRAW 2,0: PLOT x+1,y+5: PLOT x+5,y+5: PLOT x+3,y+4: DRAW 1,0: PLOT x+5,y+2: DRAW 0,1: GO TO 1160
   57 PLOT x+5,y+2: DRAW 0,1: DRAW -3,0: DRAW 0,3: DRAW 2,0: PLOT x+1,y+4: DRAW 0,1: PLOT x+2,y+1: DRAW 2,0: PLOT x+5,y+4: DRAW 0,1: GO TO 1160
   58 PLOT x+2,y+4: DRAW 1,0: PLOT x+3,y+2: DRAW -1,0: GO TO 1140
   59 PLOT x+2,y+4: DRAW 1,0: PLOT x+2,y: PLOT x+3,y+1: DRAW 0,1: DRAW -1,0: GO TO 1140
   60 PLOT x+1,y+3: DRAW 3,-3: PLOT x+1,y+4: DRAW 3,3: PLOT x+3,y+2: DRAW -1,1: DRAW 0,1: DRAW 1,1: GO TO 1150
   61 PLOT x,y+2: DRAW 0,2: PLOT x,y+4: DRAW 0,2: GO TO 1130
   62 PLOT x+4,y+3: DRAW -3,-3: PLOT x+4,y+4: DRAW -3,3: PLOT x+2,y+2: DRAW 1,1: DRAW 0,1: DRAW -1,1: GO TO 1150
   63 PLOT x+1,y+5: PLOT x+3,y+1: DRAW 1,0: PLOT x+2,y+6: DRAW 2,0: DRAW 0,-1: DRAW 1,0: DRAW 0,-1: DRAW -1,0: DRAW 0,-1: DRAW -1,0: GO TO 1160
   64 PLOT x+3,y+2: DRAW -1,0: DRAW 0,1: PLOT x+1,y+5: PLOT x+3,y+4: DRAW 1,0: DRAW 0,-3: DRAW 1,0: PLOT x+6,y+2: DRAW 0,3: PLOT x+2,y+6: DRAW 3,0: GO TO 1170
   65 GO SUB 1100: DRAW 0,4: PLOT x+2,y+1: DRAW 0,5: DRAW 2,0: PLOT x+5,y+1: DRAW 0,4: PLOT x+5,y+3: DRAW -2,0: GO TO 1160
   66 GO SUB 1100: DRAW 0,5: PLOT x+4,y+1: DRAW -2,0: DRAW 0,5: DRAW 2,0: PLOT x+5,y+5: PLOT x+3,y+4: DRAW 1,0: PLOT x+5,y+2: DRAW 0,1: GO TO 1160
   67 PLOT x+1,y+2: DRAW 0,3: PLOT x+4,y+1: DRAW -2,0: DRAW 0,5: DRAW 2,0: PLOT x+5,y+2: PLOT x+5,y+5: GO TO 1160
   68 GO SUB 1100: DRAW 0,5: PLOT x+4,y+1: DRAW -2,0: DRAW 0,5: DRAW 2,0: PLOT x+5,y+2: DRAW 0,3: GO TO 1160
   69 PLOT x+5,y+1: DRAW -4,0: DRAW 0,5: DRAW 4,0: DRAW -3,0: DRAW 0,-2: DRAW 2,0: DRAW -2,0: DRAW 0,-2: GO TO 1160
   70 PLOT x+5,y+6: DRAW -4,0: DRAW 0,-5: DRAW 1,0: DRAW 0,3: DRAW 2,0: PLOT x+2,y+5: GO TO 1150
   71 PLOT x+4,y+3: DRAW 1,0: DRAW 0,-2: DRAW -3,0: DRAW 0,5: DRAW 2,0: PLOT x+1,y+2: DRAW 0,3: PLOT x+5,y+5: GO TO 1160
   72 GO SUB 1100: DRAW 0,5: DRAW 1,0: DRAW 0,-5: DRAW 0,3: DRAW 3,0: DRAW 0,2: DRAW 0,-5: GO TO 1160
   73 GO SUB 1100: DRAW 2,0: DRAW 0,5: DRAW -2,0: DRAW 3,0: DRAW -2,0: DRAW 0,-5: DRAW 2,0: GO TO 1150
   74 PLOT x+2,y+1: DRAW 2,0: DRAW 0,5: DRAW 1,0: DRAW 0,-4: PLOT x+1,y+2: DRAW 0,1: GO TO 1160
   75 GO SUB 1100: DRAW 0,5: DRAW 1,0: DRAW 0,-5: PLOT x+3,y+3: DRAW 0,1: PLOT x+4,y+2: PLOT x+4,y+5: PLOT x+5,y+1: PLOT x+5,y+6: GO TO 1160
   76 GO SUB 1100: DRAW 0,5: DRAW 1,0: DRAW 0,-5: DRAW 3,0: GO TO 1160
   77 GO SUB 1100: DRAW 0,5: DRAW 1,0: DRAW 0,-5: PLOT x+3,y+5: PLOT x+4,y+4: PLOT x+5,y+5: DRAW 1,0: DRAW 0,1: DRAW 0,-5: GO TO 1170
   78 GO SUB 1100: DRAW 0,5: DRAW 1,0: DRAW 0,-5: PLOT x+3,y+5: DRAW 0,-1: PLOT x+4,y+3: DRAW 0,-1: PLOT x+5,y+1: DRAW 0,5: GO TO 1160
   79 PLOT x+1,y+2: DRAW 0,3: PLOT x+4,y+1: DRAW -2,0: DRAW 0,5: DRAW 2,0: PLOT x+5,y+2: DRAW 0,3: GO TO 1160
   80 GO SUB 1100: DRAW 0,5: DRAW 3,0: DRAW -2,0: DRAW 0,-5: DRAW 0,2: DRAW 2,0: PLOT x+5,y+4: DRAW 0,1: GO TO 1160
   81 PLOT x+3,y+3: PLOT x+1,y+2: DRAW 0,3: PLOT x+4,y+2: DRAW 0,-1: DRAW -2,0: DRAW 0,5: DRAW 2,0: PLOT x+5,y: DRAW 0,5: GO TO 1160
   82 GO SUB 1100: DRAW 0,5: DRAW 3,0: DRAW -2,0: DRAW 0,-5: DRAW 0,2: DRAW 2,0: DRAW 0,-1: DRAW 1,0: DRAW 0,-1: PLOT x+5,y+4: DRAW 0,1: GO TO 1160
   83 PLOT x+1,y+2: DRAW 1,0: DRAW 0,-1: DRAW 2,0: PLOT x+4,y+4: DRAW -2,0: DRAW 0,2: DRAW 2,0: PLOT x+5,y+2: DRAW 0,1: PLOT x+1,y+5: GO TO 1160
   84 PLOT x+1,y+6: DRAW 2,0: DRAW 0,-5: DRAW 1,0: DRAW 0,5: DRAW 2,0: GO TO 1160
   85 PLOT x+1,y+2: DRAW 0,4: DRAW 1,0: DRAW 0,-5: DRAW 2,0: PLOT x+5,y+2: DRAW 0,4: GO TO 1160
   86 PLOT x+1,y+5: DRAW 0,1: DRAW 1,0: DRAW 0,-3: DRAW 1,0: DRAW 0,1: DRAW 0,-3: DRAW 1,0: DRAW 0,1: PLOT x+5,y+3: DRAW 0,1: PLOT x+6,y+5: DRAW 0,1: GO TO 1160
   87 PLOT x+1,y+2: DRAW 0,4: DRAW 1,0: DRAW 0,-5: DRAW 1,0: DRAW 0,1: DRAW 1,0: DRAW 0,2: DRAW 0,-2: DRAW 2,0: DRAW 0,4: PLOT x+5,y+1: GO TO 1170
   88 GO SUB 1100: DRAW 1,0: DRAW 0,1: DRAW 1,0: DRAW 0,1: DRAW 1,0: DRAW 0,1: DRAW -1,0: DRAW 0,1: DRAW -1,0: DRAW 0,1: DRAW -1,0: PLOT x+5,y+2: PLOT x+5,y+5: PLOT x+6,y+1: PLOT x+6,y+6: GO TO 1170
   89 PLOT x+4,y+4: DRAW 0,-3: DRAW -1,0: DRAW 0,3: DRAW -1,0: DRAW 0,1: DRAW -1,0: DRAW 0,1: PLOT x+6,y+6: PLOT x+5,y+5: GO TO 1160
   90 PLOT x+1,y+6: DRAW 4,0: DRAW 0,-1: DRAW -1,0: DRAW 0,-1: DRAW -1,0: DRAW 0,-1: DRAW -1,0: DRAW 0,-1: DRAW -1,0: DRAW 0,-1: DRAW 4,0: GO TO 1160
   91 PLOT x+2,y: DRAW -1,0: DRAW 0,7: DRAW 1,0: GO TO 1130
   92 PLOT x+4,y+1: DRAW 0,1: PLOT x+3,y+3: DRAW 0,1: PLOT x+2,y+5: DRAW 0,1: GO TO 1150
   93 PLOT x+1,y: DRAW 1,0: DRAW 0,7: DRAW -1,0: GO TO 1130
   94 PLOT x+1,y+4: DRAW 2,2: DRAW 2,-2: DRAW -2,2: DRAW 0,-5: GO TO 1160
   95 PLOT x,y: DRAW 7,0: GO TO 1180
   96 PLOT x+6,y: DRAW -5,0: DRAW 0,5: DRAW 1,0: DRAW 0,1: DRAW 5,0: DRAW 0,-5: DRAW -5,0: DRAW 0,3: GO TO 1180
   97 PLOT x+4,y+4: DRAW 0,-3: DRAW -2,0: DRAW 0,3: DRAW 1,0: PLOT x+1,y+2: DRAW 0,1: GO TO 1150
   98 GO SUB 1100: DRAW 0,5: DRAW 0,-2: DRAW 2,0: DRAW 0,-3: DRAW -1,0: PLOT x+4,y+2: DRAW 0,1: GO TO 1150
   99 PLOT x+1,y+2: DRAW 0,1: PLOT x+4,y+1: DRAW -2,0: DRAW 0,3: DRAW 2,0: GO TO 1150
  100 PLOT x+4,y+6: DRAW 0,-5: DRAW -2,0: DRAW 0,3: DRAW 1,0: PLOT x+1,y+2: DRAW 0,1: GO TO 1150
  101 PLOT x+4,y+3: DRAW 0,1: DRAW -2,0: DRAW 0,-3: DRAW 2,0: DRAW -1,0: DRAW 0,1: DRAW -2,0: DRAW 0,1: GO TO 1150
  102 PLOT x+1,y+4: DRAW 2,0: PLOT x+2,y+1: DRAW 0,5: PLOT x+3,y+6: GO TO 1140
  103 PLOT x+4,y: DRAW 0,4: DRAW -2,0: DRAW 0,-3: DRAW 1,0: PLOT x+1,y+3: DRAW 0,-1: PLOT x+4,y: DRAW -3,0: GO TO 1150
  104 GO SUB 1100: DRAW 0,5: PLOT x+2,y+4: DRAW 1,0: PLOT x+4,y+3: DRAW 0,-2: GO TO 1150
  105 GO SUB 1100: DRAW 2,0: DRAW -1,0: DRAW 0,3: DRAW -1,0: PLOT x+2,y+6: GO TO 1140
  106 PLOT x,y: DRAW 1,0: PLOT x+2,y+1: DRAW 0,3: PLOT x+2,y+6: GO TO 1130
  107 GO SUB 1100: DRAW 0,5: PLOT x+2,y+3: DRAW 1,0: DRAW 0,-1: PLOT x+4,y+1: PLOT x+4,y+4: GO TO 1150
  108 GO SUB 1100: DRAW 2,0: DRAW -1,0: DRAW 0,5: PLOT x+1,y+6: GO TO 1140
  109 GO SUB 1100: DRAW 0,3: PLOT x+2,y+1: DRAW 0,3: DRAW 3,0: PLOT x+4,y+1: DRAW 0,2: PLOT x+6,y+1: DRAW 0,2: GO TO 1170
  110 GO SUB 1100: DRAW 0,3: PLOT x+2,y+1: DRAW 0,3: DRAW 1,0: PLOT x+4,y+1: DRAW 0,2: GO TO 1150
  111 PLOT x+3,y+1: DRAW -1,0: DRAW 0,3: DRAW 1,0: PLOT x+1,y+2: DRAW 0,1: PLOT x+4,y+2: DRAW 0,1: GO TO 1150
  112 PLOT x+1,y: DRAW 0,4: DRAW 2,0: DRAW 0,-3: DRAW -1,0: PLOT x+4,y+3: DRAW 0,-1: GO TO 1150
  113 PLOT x+4,y: DRAW 0,4: DRAW -2,0: DRAW 0,-3: DRAW 1,0: PLOT x+1,y+3: DRAW 0,-1: GO TO 1150
  114 GO SUB 1100: DRAW 0,3: PLOT x+2,y+1: DRAW 0,2: PLOT x+3,y+4: DRAW 1,0: GO TO 1150
  115 GO SUB 1100: DRAW 2,0: DRAW 0,2: DRAW -2,0: PLOT x+4,y+2: PLOT x+4,y+4: DRAW -2,0: GO TO 1150
  116 PLOT x+2,y+1: DRAW 0,5: PLOT x+1,y+4: DRAW 2,0: PLOT x+3,y+1: GO TO 1140
  117 PLOT x+1,y+2: DRAW 0,2: PLOT x+2,y+4: DRAW 0,-3: DRAW 2,0: DRAW 0,3: GO TO 1150
  118 PLOT x+1,y+4: DRAW 0,-1: DRAW 1,0: DRAW 0,-1: DRAW 1,0: DRAW 0,-1: PLOT x+4,y+3: DRAW 0,1: GO TO 1150
  119 PLOT x+1,y+2: DRAW 0,2: PLOT x+2,y+4: DRAW 0,-3: DRAW 3,0: DRAW -1,0: DRAW 0,2: PLOT x+6,y+2: DRAW 0,2: GO TO 1170
  120 GO SUB 1100: PLOT x+1,y+4: PLOT x+4,y+4: PLOT x+4,y+1: PLOT x+2,y+2: DRAW 1,0: DRAW 0,1: DRAW -1,0: GO TO 1150
  121 PLOT x+1,y: DRAW 1,0: PLOT x+3,y+1: PLOT x+1,y+3: DRAW 0,1: DRAW 1,0: DRAW 0,-2: DRAW 2,0: DRAW 0,2: GO TO 1150
  122 GO SUB 1100: DRAW 3,0: PLOT x+1,y+4: DRAW 3,0: PLOT x+2,y+2: PLOT x+3,y+3: GO TO 1150
  123 PLOT x,y+7: DRAW 5,0: GO TO 1160
  124 PLOT x+1,y: DRAW 0,7: PLOT x+2,y: DRAW 0,7: GO TO 1140
  125 PLOT x,y: DRAW 5,0: PLOT x,y+2: DRAW 5,0: PLOT x,y+4: DRAW 5,0: PLOT x,y+6: DRAW 5,0: GO TO 1160
  126 GO SUB 1100: DRAW 3,3: PLOT x+7,y+1: DRAW -2,2: PLOT x+2,y+1: DRAW 4,4: PLOT x+5,y+3: DRAW 2,2: PLOT x+6,y+1: DRAW -4,4: PLOT x+4,y+4: DRAW 0,3: PLOT x+3,y+3: DRAW -2,2: GO TO 1180
  127 PLOT x+1,y+3: DRAW 0,1: PLOT x+4,y+2: DRAW -2,0: DRAW 0,3: DRAW 2,0: PLOT x+3,y: DRAW 0,2: PLOT x+3,y+5: DRAW 0,2: GO TO 1150
  184 GO SUB 1300
  191 LET x=x+20: RETURN 
  199 PLOT x+1,y+3: DRAW 0,1: PLOT x+2,y+3: DRAW 0,1: GO TO 1130
  200 LET x=x-1: RETURN 
  201 PLOT x,y: DRAW 2,0: PLOT x,y+1: DRAW 2,2: PLOT x,y+4: DRAW 2,2: PLOT x,y+7: DRAW 2,0: GO TO 1130
  999 RETURN 
 1000 INPUT "PHRASE: ";n$
 1010 INPUT "PRINT AT "; FLASH 1;"?"; FLASH 0;",x (to 21):";yy
 1020 INPUT "PRINT AT y,"; FLASH 1;"?"; FLASH 0;" (to 31):";xx
 1030 PRINT n$
 1040 LET x=xx*8: LET y=168-yy*8: FOR t=1 TO 200: LET a=CODE n$(t): GO SUB a: NEXT t
 1050 STOP 
 1100 PLOT x+1,y+1: RETURN 
 1120 LET x=x+2: IF x>248 THEN GO TO 1300
 1125 RETURN 
 1130 LET x=x+3: IF x>248 THEN GO TO 1300
 1135 RETURN 
 1140 LET x=x+4: IF x>248 THEN GO TO 1300
 1145 RETURN 
 1150 LET x=x+5: IF x>248 THEN GO TO 1300
 1155 RETURN 
 1160 LET x=x+6: IF x>248 THEN GO TO 1300
 1165 RETURN 
 1170 LET x=x+7: IF x>248 THEN GO TO 1300
 1175 RETURN 
 1180 LET x=x+8: IF x>248 THEN GO TO 1300
 1185 RETURN 
 1300 LET x=0: LET y=y-8: RETURN 
 9999 SAVE "cfe" LINE 1: SAVE "cfe" LINE 1

Tags

People