1 REMTITLES
10 REM  ***********************
20 REM  *                     *
30 REM  *  BY: DAVID ROSE     *
40 REM  *      TORONTO        *
50 REM  *      CANADA         *
60 REM  *                     *
65 REM  *      MAR 11/91      *
66 REM  *                     *
70 REM  ***********************
73 IFXH=1THEN100
74 IFXG=1THEN390
75 DIMCH$(45),PC(45),W$(15),PL(3,18),PA(3,18),CO(3,18):SP(1)=1384
76 SP(2)=1504:SP(3)=1624:CR(1)=55656:CR(2)=55776:CR(3)=55896:F$(1)="BLOC"
77 F$(2)="DANA":F$(3)="DOLL":F$(4)="JESS":BO=14:BA=6
80 PRINT"[147]"TAB(12)"TITLE GENERATOR":PRINTTAB(12)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
90 [153]""[163]8)" WAIT......LOADING DATA WAIT":[137]2000
100 XH[178]0:[153]"LOAD"[163]12)"TITLE GENERATOR":[153][163]12)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
110 R$="":A$="":LR=0
120 PRINT" ENTER YOUR TITLE (MAX. 50 CHARACTERS)
130 [153]:[153]" - TO";:[141]1000:[139]LR[177]50[167]100
140 [133]" CORRECT (Y/N)";YN$:[139]YN$[178]"N"[167]100
145 [139]YN$[178]"Y"[167]TT$[178]R$:B[178]LR:[153]""[163]14)" PARSING... WAIT":[137]160
150 [153]"ONONON";:[137]140
160 M[178]1:[129]I[178]1[164]B:L$[178][202](TT$,I,1):[139]L$[179][177]":"[167]W$(M)[178]W$(M)[170]L$:[130]:[137]180
170 W$(M)[178]W$(M)[170]":":M[178]M[170]1:[130]
180 C[178]1:L$(C)[178]W$(1):[129]I[178]2[164]M
190 [139][195](L$(C)[170]W$(I))[179][178]18[167]L$(C)[178]L$(C)[170]W$(I):[130]:[137]210
200 L$(C)[178][200](L$(C),[195](L$(C))[171]1):C[178]C[170]1:L$(C)[178]W$(I):[130]
210 [139]C[179][178]3[167]230
220 [153][163]5)"SORRY, YOUR TITLE IS TOO LONGWAIT":[129]DE[178]1[164]2500:[130]
225 [129]I[178]1[164]M:W$(I)[178]"":[130]:[129]I[178]1[164]C:L$(I)[178]"":[130]:[137]100
230 [129]X[178]1[164]C:LL(X)[178][195](L$(X)):[129]Y[178]1[164]LL(X)
235 PL(X,Y)[178]SP(X)[170](20[171]LL(X))[170](2[172](Y[171]1))
240 CO(X,Y)[178]CR(X)[170](20[171]LL(X))[170](2[172](Y[171]1))
250 A$[178][202](L$(X),Y,1):[141]2200:[130]:[130]
255 [139]F$[179][177]""[167][141]1250:[139]YN$[178]"Y"[167]390
260 [151]53272,([194](53272)[175]240)[170]14:[153]"LOAD--FONTS--"
270 [151]1226,49:PL[178]1189:PA[178]53:[141]3000:PL[178]PL[170]2:PA[178]57:[141]3000:PL[178]PL[170]2:PA[178]61
280 [141]3000:PL[178]PL[170]2:PA[178]65:[141]3000
290 [151]1346,50:PL[178]1309:PA[178]33:[141]3000:PL[178]PL[170]2:PA[178]37:[141]3000:PL[178]PL[170]2:PA[178]41
300 [141]3000:PL[178]PL[170]2:PA[178]37:[141]3000
310 [151]1466,51:PL[178]1429:PA[178]69:[141]3000:PL[178]PL[170]2:PA[178]73:[141]3000:PL[178]PL[170]2:PA[178]77
320 [141]3000:PL[178]PL[170]2:PA[178]77:[141]3000
330 [151]1586,52:PL[178]1549:PA[178]81:[141]3000:PL[178]PL[170]2:PA[178]85:[141]3000:PL[178]PL[170]2:PA[178]89
340 [141]3000:PL[178]PL[170]2:PA[178]89:[141]3000:R$[178]"":LR[178]0
350 [151]214,18:[153]:[153]"SELECT 1-4 - TO";:[141]1150:A[178][197](R$)
355 [139]F$[178]F$(A)[167]390
360 [153]"LOAD":[151]53272,21
370 [153]""[163]12)"TITLE GENERATOR":[153][163]12)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
380 PRINT""TAB(7)" WAIT........LOADING FONT [146]
385 XG[178]1:[147]"0:"[170]F$(A)[170]".FONT",8,1
390 XG[178]0:[153]"LOAD":[151]53272,([194](53272)[175]240)[170]12
400 [129]X[178]1[164]C:[129]Y[178]1[164]LL(X):PL[178]PL(X,Y):PA[178]PA(X,Y):[141]3000:[130]:[130]
410 [161]A$:[139]A$[178]""[167]410
420 X[178][171](A$[178][199](133))[171]2[172](A$[178][199](134))[171]3[172](A$[178][199](135))[171]4[172](A$[178][199](136))
430 [145]X[137]450,470,490,520
440 [137]550
450 BC[178]BC[170]1:[139]BC[177]15[167]BC[178]0
460 [151]53280,BC:[137]410
470 AC[178]AC[170]1:[139]AC[177]15[167]AC[178]0
480 [151]53281,AC:[137]410
490 CC[178]CC[170]1:[139]CC[177]15[167]CC[178]0
500 [129]X[178]1[164]C:[129]Y[178]1[164]LL(X):[151]CO(X,Y),CC:[151]CO(X,Y)[170]1,CC
510 [151]CO(X,Y)[170]40,CC:[151]CO(X,Y)[170]41,CC:[130]:[130]:[137]410
520 [153]"LOAD":[151]53272,21:F$[178]F$(A)
530 [153][199](154):[151]53280,BO:[151]53281,BA
540 [137]260
550 [153]"LOAD"[199](154):[151]53272,21:[151]53280,BO:[151]53281,BA
560 [153][163]12)"TITLE GENERATOR":[153][163]12)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
570 INPUT" MORE TITLES (Y/N)";YN$:IFYN$<>"Y"THEN590
580 FORI=1TOM:W$(I)="":NEXT:FORI=1TOC:L$(I)="":NEXT:F$=F$(A):GOTO100
590 IFYN$<>"N"THENPRINT"":GOTO570
600 END
1000 GETA$:IFA$=""THEN1000
1010 IFA$=CHR$(13)THENPRINT"[157] ":RETURN
1020 IFA$=CHR$(20)ANDLR-1<0THEN1000
1030 IFA$=CHR$(20)THENPRINT"[157]"A$"[164]";:R$=LEFT$(R$,LR-1):LR=LEN(R$):GOTO1000
1040 IFA$=CHR$(39)ORA$=CHR$(44)ORA$=CHR$(45)ORA$=CHR$(46)THEN1080
1050 IFA$=CHR$(32)THENA$=CHR$(58):GOTO1090
1055 IFA$=CHR$(160)THENA$=CHR$(59):GOTO1090
1060 IFA$<CHR$(48)ORA$>CHR$(90)THEN1000
1070 IFA$>CHR$(57)ANDA$<CHR$(65)THEN1000
1080 PRINT"[157]"A$"[164]";:GOTO1100
1090 PRINT"[157] [164]";
1100 R$=R$+A$:LR=LEN(R$):IFLR>50THENPRINT:GOTO1120
1110 GOTO1000
1120 PRINTTAB(6)"MAXIMUM 50 CHARACTERS, PLEASE[146]":FORDE=1TO2500:NEXT:RETURN
1150 GETA$:IFA$=""THEN1150
1160 IFA$=CHR$(13)ANDLR=0THEN1150
1170 IFA$=CHR$(13)THENPRINT"[157] ":RETURN
1180 IFA$=CHR$(20)ANDLR-1<0THEN1150
1190 IFA$=CHR$(20)ORA$=CHR$(157)THENPRINT"[157]"CHR$(20)"[164]";:R$="":LR=0:GOTO1150
1195 IFLR=1THEN1150
1200 IFA$<CHR$(49)ORA$>CHR$(52)THEN1150
1210 PRINT"[157]"A$"[164]";
1220 R$=R$+A$:LR=1:GOTO1150
1250 INPUT"    SAME FONT (Y/N)";YN$:IFYN$="Y"ORYN$="N"THENRETURN
1260 PRINT"[145][145][145]";:GOTO1250
2000 CH$(1)="'":PC(1)=0:CH$(2)=",":PC(2)=4:CH$(3)="-":PC(3)=8
2010 CH$(4)=".":PC(4)=12:CH$(15)=":":PC(15)=57:CH$(16)=";":PC(16)=61
2020 FORX=5TO8:CH$(X)=CHR$(43+X):PC(X)=(X-1)*4:NEXT:FORX=9TO14:CH$(X)=CHR$(43+X)
2030 PC(X)=X*4-3:NEXT:FORX=17TO42:CH$(X)=CHR$(48+X):PC(X)=X*4-3:NEXT
2040 XH=1:LOAD"0:MENU.FONT",8,1
2200 L=1:U=43
2210 I=INT((L+U)/2)
2220 IFA$=CH$(I)THENPA(X,Y)=PC(I):RETURN
2230 IFA$>CH$(I)THEN2250
2240 IFU<>ITHENU=I:GOTO2210
2250 IFL<>ITHENL=I:GOTO2210
2999 RETURN
3000 POKEPL,PA:POKEPL+1,PA+1:POKEPL+40,PA+2:POKEPL+41,PA+3:RETURN