100 REM  ******************************
110 REM  * VIDEO PRO-TITLER COMPANION *
120 REM  * FONT EDITOR  VERSION 2.1   *
130 REM  * PROGRAMMED BY JOHN ALLEN   *
140 REM  * FONTS & DOCS  BY BILL WIND *
150 REM  * M-L CODE BY SCOTT E. RESH  *
160 REM  *                            *
170 REM  * (C) 1989 BY JOHN F. ALLEN  *
180 REM  *      WILLIAM C. WIND       *
190 REM  *       SCOTT E. RESH        *
200 REM  ******************************
210 POKE53281,.:PRINT"[147]	":GOSUB1290
220 POKE147,.:SYS57812"FE.ML",8,1:SYS62631
230 PRINT"    [208]LEASE PRESS ANY KEY TO BEGIN..."
240 GETA$:IFA$=""THEN240
250 PRINTCHR$(9);CHR$(142);CHR$(9);
260 POKE56,128:CLR:REM DO NOT REMOVE!!
270 SP$="                                    "
280 PRINT "[147]";
290 PRINTTAB(22);"DRAW/ERASE"
300 PRINTTAB(22)"CHAR  REVERSE"
310 PRINTTAB(28)"CHANGE"
320 PRINTTAB(28)"CLEAR"
330 PRINTTAB(28)"COPY"
340 PRINTTAB(22)"PASTE OVER"
350 PRINTTAB(28)"WITH"
360 PRINTTAB(28)"REVERSE"
370 PRINTTAB(22)"SHIFT UP"
380 PRINTTAB(28)"DOWN"
390 PRINTTAB(28)"LEFT"
400 PRINTTAB(28)"RIGHT"
410 PRINTTAB(22)"FLIP  LEFT-RIGHT"
420 PRINTTAB(22)"      TOP-BOTTOM"
430 PRINTTAB(22)"FONT  LOAD"
440 PRINTTAB(22)"      SAVE"
450 PRINTTAB(22)"EXIT TO LOADSTAR"
460 PRINTTAB(27);"[164][164][164][164][164][164][164][164][164][164][164][164][164]";
470 PRINT"VIDEO PRO-TITLER COMPANION  FONT EDITOR "
480 PRINT"[144]  (C) 1989 BY JOHN ALLEN AND BILL WIND"
490 PRINT"   [151]MACHINE LANGUAGE BY SCOTT E. RESH"
500 :
510 PRINT"";
520 FORT=1TO16:PRINT" [204][204][204][204][204][204][204][204][204][204][204][204][204][204][204][204][146]":NEXTT
530 DIMN$(63)
540 FORT=0TO62:READN$(T):NEXTT
550 CH=0:FE=34500
560 SYSFE+18:REM INIT SPRITES
570 :
580 PRINT"";:PRINTN$(CH);SP$
590 SYSFE+21:REM CALL 'WKRP'
600 ONPEEK(252)GOTO640,800,830,1080
610 :
620 REM ------ C H A N G E ------------
630 :
640 POKE53280,(PEEK(53280)AND15)+1
650 SYSFE+9:J=PEEK(252)
660 IFJ<>4THEN690
670 IFCH=0THEN650
680 CH=CH-1:POKE251,CH:SYSFE+15:GOTO750
690 IFJ<>2THEN720
700 IFCH=62THEN650
710 SYSFE+12:CH=CH+1:POKE251,CH:GOTO750
720 IFJ<>5THEN650
730 POKE53280,ABS((PEEK(53280)-1))AND15
740 SYSFE+24:POKE53269,63:GOTO580
750 SYSFE+6:PRINT"";:PRINTN$(CH);SP$
760 GOTO650
770 :
780 REM ----- LOAD & SAVE FONTS ------
790 :
800 GOSUB890:IFP=0THENGOTO580
810 SYSFE:SYSFE+6:CH=0:GOTO580
820 :
830 GOSUB890:IFP=0THENGOTO580
840 OPEN15,8,15:PRINT#15,"S0:"+A$
850 CLOSE15:SYSFE+3:CH=0:GOTO580
860 :
870 REM-------------------------------
880 :
890 PRINT"";SP$
900 PRINT"[156]";
910 A$="":POKE198,.
920 GETF$:PRINT"[164][157]";
930 IFF$=""THEN920
940 IFF$=CHR$(13)THENPRINT" ":GOTO1010
950 IF(F$=CHR$(20)ANDLEN(A$))THENA$=LEFT$(A$,LEN(A$)-1):PRINT"[157]  [157][157]";:GOTO920
960 IFLEN(A$)=16THEN920
970 IFF$=CHR$(34)THEN920
975 AV=ASC(F$)
980 IF((AV<32)OR(AV>127))THEN920
990 A$=A$+F$:PRINTF$;:GOTO920
1000 :
1010 PRINT"[145]                  ";
1020 P=LEN(A$):IFP=0THENRETURN
1030 IFP>16THENP=0:RETURN
1040 POKE252,P:FORT=1TOP:POKE679+T,ASC(MID$(A$,T,1)):NEXTT:RETURN
1050 :
1060 REM----- RETURN TO LOADSTAR ------
1070 :
1080 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
1090 IFER<>63THENPRINT"[147]":END
1100 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
1110 PRINT"[158]LOAD"Q$A$Q$",8"
1120 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
1130 :
1140 DATAA,B,C,D,E,F,G,!,QUOTES
1150 DATAH,I,1,J,K,L,M,N,O,P,Q,R,S,T
1160 DATAU,V,W,X,Y,Z,0,2,3,4,5,6,7,8,9
1170 DATACOPYRIGHT (@),$,DOT (%),&
1180 DATAAPOSTROPHE,(,),COMMA,*
1190 DATAUNDERLINE,DOUBLE LINE (=)
1200 DATADASH,PERIOD,/,COLON,SEMICOLON
1210 DATALEFT END OF THICK LINE ([)
1220 DATARIGHT END OF THICK LINE (])
1230 DATALEFT END OF UNDERLINE,SPACE
1240 DATATHICK LINE (\),?
1250 DATARIGHT END OF DOUBLE LINE (>)
1260 DATALEFT END OF DOUBLE LINE (<)
1270 DATACHECK MARK (#)
1280 :
1290 POKE214,13:PRINT:PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
1300 FORI=1TO5:PRINT"                                       ":NEXT
1310 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #61      "
1320 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694     "
1330 PRINT"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]   "
1340 PRINT"                                       "
1350 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
1360 AU$="[214]IDEO [208]RO-[212]ITLER [195]OMPANION":POKE214,15
1370 PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
1380 AU$="[198] [207] [206] [212]   [197] [196] [201] [212] [207] [210]":POKE214,16:PRINT
1390 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$""
1400 AU$="[194]Y [202]OHN [193]LLEN & [194]ILL [215]IND  ([195]) 1989":POKE214,18:PRINT
1410 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$"":RETURN