Home » Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape01b_acorn_talkback.wav » TALK3
TALK3
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape01b_acorn_talkback.wav |
| Filename: | TALK3 |
| Read OK: | ✔ |
| File size: | 2A78 bytes |
| Load address: | FFFF1900 |
| Exec address: | FFFF8023 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Acornsoft_Educational.ADF » Talkback/TALK3
- Personal collection » Acorn hard disk » zipped_disks » elk08 » acornsofte/Talkback/TALK3
- Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape01a_acorn_talkback.wav » TALK3
- Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape01b_acorn_talkback.wav » TALK3
File contents
20ONERRORGOTO40
30PRINT" Press"'" SPACE BAR"'"to continue";:REPEATUNTILGET=32
40MODE6:VDU19,0,4;0;:PROCd(-1):PROCH:PROCd(0)
50W=0:ONERRORGOTO1930
60REPEATPROCJ:UNTILW:MODE6:*FX4,0
70*FX12,0
80END
90DEFFN@(X,H,U,L):LOCALH$,G$:PRINTTAB(H,U);
100IFL=4ANDD%G$="T.":PRINTG$;:X=9
110REPEAT*FX15,1
120H$=GET$:IFINSTR("*ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890,.!? :-&'",H$)=0ANDH$<>CHR$13ANDH$<>CHR$127VDU7:GOTO120ELSEIFLENG$=0ANDH$=CHR$127THEN170ELSEIF(LENG$=0ORL=1)ANDH$=CHR$32THEN170
130IFX=7AND(G$="T"ORG$="t")ANDH$="."THEN170
140IFLENG$>0ANDH$=CHR$127G$=LEFT$(G$,LENG$-1):IFL=2ANDPOS<12VDU13
150IFH$=CHR$13THEN180ELSEPRINTH$;:IFH$<>CHR$127G$=G$+H$
160IFL=2ANDPOS<11PRINTSTRING$(11," ");
170UNTILLENG$>X:VDU7,127:G$=LEFT$(G$,X):REPEATH$=GET$
180UNTILH$=CHR$13ORH$=CHR$127:IFH$=CHR$127G$=LEFT$(G$,LENG$-1):PRINTH$;:GOTO110
190IFG$="*"G$="":VDU8,32,8
200IFLENG$=0VDU7:GOTO110ELSE=G$
210DEFPROC8(L$):LOCALX%,Y%:DIMX%-1:Y%=X%DIV256:$X%=L$:CALL&FFF7:ENDPROC
220DEFPROCK(K%):LOCALI$:CLS:COLOUR0:COLOUR129:PRINTTAB(16,1)" Load ":COLOUR1:COLOUR128:PRINT'''TAB(3)"What is the name of the character"'TAB(8)"that you wish to load ?"'''TAB(3)"Type it then press RETURN ";
230I$=FN@(7,POS,VPOS,4):I$=" "+I$+" ":PROC9:PROC2(K%,I$):PROC8("LO."+I$+STR$~K%):IFMID$(I$,2,2)="T."ORMID$(I$,2,2)="t."I$=" "+MID$(I$,4)
240PROCSP:IFK%!20>K%!16IFK%!28=TRUEK%!28=FALSE:K%!16=K%!16+1
250IFK%=J `%=0:ENDPROCELSE`%=1:ENDPROC
260DEFPROC9:CLS:PRINTTAB(4,7)"Press RETURN to ";K$;I$;:REPEATUNTILGET=13:PRINT':VDU28,11,14,39,10:ENDPROC
270DEFPROCA(K%):LOCALI$:I$=$(K%+32):IFD%I$=" T."+MID$(I$,2,-1)
280PROC9:PROC8("SA."+I$+STR$~K%+" +"+STR$~(f%+1)+" 0 0"):ENDPROC
290DEFPROCd(L):IFINKEY-256=0GOTO320ELSEIFLTHEN*FX14,6
300IFNOTLTHEN*FX13,6
310ENDPROC
320IFL !&210=(!&210AND&FFFF0000)+&70ELSE!&210=(!&210AND&FFFF0000)+(!&71AND&FFFF)
330ENDPROC
340DEFPROCH:H$=" ":_$=H$:O$=STRING$(120,H$):S$=O$:M$=O$:`$=O$:N$=O$:Y$=O$:G$=O$:T$=O$:L$=O$:J$=STRING$(65,H$):U$=J$:K$=STRING$(11,H$):Z$=K$:W$=" not in use ":Q$=W$:R$=W$:I$=W$:X$=STRING$(20,H$):V$=K$:b$="Press number: "
350A$=STRING$(9,H$):B$=A$:L$="":V$="":`$="":A$="":B$="":O$="":N$="":M$="":Y$="":G$="":X$="":J$="":U$="":K$="":Z$="":I$="":T$="":H$="":S$="":*FX4,1
360Q=0:R=0:V=0:M=0:N=0:`%=0:I=1:S=1:G%=0:W=0:c%=5:d%=300:s%=0:IFPAGE=&800T=&C000ELSET=&C40
370FORX%=0TO121STEP4:T!X%=0:NEXT:f%=(FN8-1289)DIV2:DIMJ f%,K f%:PROC2(J,W$):PROC2(K,W$):ENDPROC
380DEFPROCL:CLS:PRINTTAB(9,9)"That can't be used"TAB(10)"please try again"'
390PROC4:ENDPROC
400DEFPROC4:PRINT'TAB(5)"Press SPACE BAR to continue";CHR$7;:REPEATUNTILGET=32:ENDPROC
410DEFFN8:DIMP%-1:=HIMEM-P%
420DEFPROC2(K%,I$):LOCALI%:FORI%=0TO(f%-4)STEP4:K%!I%=0:NEXT:PROCSP:K%!8=1:K%!16=1:ENDPROC
430DEFPROCSP:K%!20=(f%-330)DIV66:!K%=264+K%:K%!4=1:K%!12=1:$(K%+32)=I$:IFK%=J Q$=I$:ENDPROCELSER$=I$:ENDPROC
440DEFPROCB(H,U,Y):VDU31,H,U:PRINTSTRING$(Y," ");:ENDPROC
450DEFFN5(S$):LOCALJ%,M$:FORJ%=1TOLENS$:IFASC(MID$(S$,J%,1))>64M$=M$+CHR$(ASC(MID$(S$,J%,1))AND&DF)ELSEM$=M$+MID$(S$,J%,1)
460NEXT:=M$
470DEFFN4(S$):LOCALJ%,M$,H$:IFLENS$=0THEN=M$ELSEFORJ%=1TOLENS$:H$=MID$(S$,J%,1):M$=M$+CHR$(ASC(H$)OR&20):NEXT:=M$
480DEFFN0:PRINTTAB(11)b$;:REPEATL=GET:UNTILL>31:=(LOR48)-48
490DEFPROCC(G$):LOCALJ%,S%,M%,U$:G$=FN2(G$):IFG$=" "ENDPROCELSES%=1:M%=0:J%=1:REPEATREPEATJ%=INSTR(G$," ",J%+1):IFJ%<=S%+16M%=J%
500UNTILJ%>=S%+16ORJ%=LENG$:U$=MID$(G$,S%,M%-S%):IFLENU$>16PRINTLEFT$(U$,15)"-":J%=S%+15:S%=J%ELSEPRINTU$:J%=M%+1:S%=J%
510UNTILS%>=LENG$:ENDPROC
520DEFPROC5:CLS:PRINTTAB(2,5)"You have no room for more entries":PROC4:ENDPROC
530DEFFN6(S$):LOCALJ%,M$,H$:IFLENS$=0THEN=M$ELSEFORJ%=1TOLENS$:H$=MID$(S$,J%,1):IFH$<>"%"M$=M$+H$
540NEXT:=M$
550DEFFN2(G$):LOCALJ%,L%,A$,B$:G$=" "+G$+" ":IFG$=" ":=MID$(G$,2)ELSERESTORE1960:FORL%=1TO3:READA$,B$:REPEAT:J%=INSTR(G$," "+A$):IFJ%>0G$=MID$(G$,1,J%-1)+" "+B$+MID$(G$,J%+3)
560UNTILJ%=0:NEXT:=MID$(G$,2)
570DEFFN3:PRINTTAB(13)"Press Y or N: ";:REPEAT_$=GET$:UNTILINSTR("YyNn",_$)<>0:IF_$="Y"OR_$="y"=-1ELSE=0
580DEFPROCD(K%):LOCALH,a%:PROCHI:PRINTSPC1;K%!12;SPC1:COLOUR1:COLOUR128:a%=!K%+K%!12*66:VDU28,H,16,H+16,11:CLS:VDU28,H,8,H+15,7:CLS:$a%=FN@(16,0,0,3):$a%=FN4($a%):VDU28,H,16,H+16,11:CLS:$(a%+17)=FN@(48,0,0,3):ENDPROC
590DEFPROCHI:COLOUR129:COLOUR0:IF`%=0H=2:VDU31,9,3:ENDPROCELSEH=21:VDU31,28,3:ENDPROC
600DEFPROCN(K%):IFK%!28PROC5:ENDPROCELSEPROCd(-1):K%!12=K%!16:PROC1(K%):PROCd(0):ENDPROC
610DEFPROC1(K%):PROCD(K%):K%!16=K%!16+1:IFK%!16>K%!20K%!28=TRUE:K%!16=K%!20
620ENDPROC
630DEFPROCO(K%):LOCAL_%,b%,e%,J%:b%=K%!12*66+264:_%=K%!16*66+264:e%=K%!20*66+264:IF_%>b%FORJ%=b%TO_%-1:K%?J%=K%?(J%+66):NEXT
640IF_%=e%OR_%=b%FORJ%=_%TO_%+66:K%?J%=0:NEXT
650IFNOT((b%=_%)OR(_%=e%ANDK%!28))ELSEK%!28=FALSE:IFb%=_%ANDK%!12>1K%!12=K%!12-1:ENDPROCELSEENDPROC
660K%!16=K%!16-1:IFK%!16=K%!12ANDK%!12>1K%!12=K%!12-1
670ENDPROC
680DEFPROCQ(K%):IFK%!12+1<K%!16ORK%!12+1=K%!16ANDK%!28K%!12=K%!12+1:ENDPROCELSEENDPROC
690DEFPROC6(K%):IFK%!12-1<1ENDPROCELSEK%!12=K%!12-1:ENDPROC
700DEFPROCR(a%):LOCALH,K%:PROCSH:J$=$(a%*66+!K%):VDU28,H,8,H+15,7:CLS:J$=FN2(J$):PRINTJ$;:VDU28,H,16,H+16,11:CLS:PROCC($(a%*66+17+!K%)):ENDPROC
710DEFPROCSH:IF`%=0K%=J:H=2:ENDPROCELSEK%=K:H=21:ENDPROC
720DEFPROCS(K%):LOCALX%:IFK%!28PROC5:ENDPROCELSEPROCd(-1):IFK%!16>1FORX%=K%!16TOK%!12+1STEP-1:$(X%*66+!K%)=$((X%-1)*66+!K%):$(X%*66+!K%+17)=$((X%-1)*66+!K%+17):NEXT
730PROC1(K%):PROCd(0):ENDPROC
740DEFPROCT(K%):IFK%!24PROC5:ENDPROCELSEPROCd(-1):K%!4=K%!8:PROCE(K%):K%!8=(K%!8)+1:IFK%!8>4K%!24=TRUE:K%!8=4
750PROCd(0):ENDPROC
760DEFPROCE(K%):LOCALH,a%:PROCHI:PRINT;K%!4:COLOUR1:COLOUR128:a%=K%+K%!4*65:VDU28,H,12,H+16,7:CLS:$a%=FN@(64,0,0,3):ENDPROC
770DEFPROCU(K%):IFK%!4+1<K%!8ORK%!4+1=K%!8ANDK%!24K%!4=K%!4+1:ENDPROCELSEENDPROC
780DEFPROCV(K%):IFK%!4-1<1ENDPROCELSEK%!4=K%!4-1:ENDPROC
790DEFPROCW(K%):LOCAL_%,b%,e%,J%:b%=K%!4*65:_%=K%!8*65:e%=260:IF_%>b%FORJ%=b%TO_%-1:K%?J%=K%?(J%+65):NEXT
800IF_%=e%OR_%=b%FORJ%=_%TO_%+65:K%?J%=0:NEXT
810IFNOT(b%=_%OR(_%=e%ANDK%!24))ELSEK%!24=FALSE:IFb%=_%ANDK%!4>1K%!4=K%!4-1:ENDPROCELSEENDPROC
820K%!8=K%!8-1:IFK%!8=K%!4ANDK%!4>1K%!4=K%!4-1
830ENDPROC
840DEFPROCX(a%):LOCALH,K%,g%:PROCSH:g%=a%*65+K%:VDU28,H,13,H+16,7:CLS:PROCC($g%):ENDPROC
850DEFPROC3(K%,I$):LOCALS%:Q=FALSE:V=FALSE
860IFNREPEATS%=RND(4):UNTIL(S%<K%!8)OR(S%=K%!8ANDK%!24):L$=$(S%*65+K%):PROCg(I$,L$):N=FALSE:ENDPROC
870PROCY(K%):IFMANDL$<>O$PROCg(I$,L$):ENDPROC
880IFMANDNOTQ Q=TRUE:GOTO870ELSEIF`$>""Y$=`$:`$="":V=TRUE:GOTO870ELSEN=TRUE:GOTO860
890DEFPROCY(K%):LOCALT$,C%,L%,M%,J%,J$:T$=" "+FN4(Y$)+" ":L%=0:J%=K%!16+NOTK%!28:R=FALSE:M=FALSE:IFLENT$<65T$=T$+STRING$(65-LENT$,"|")
900IFLENT$>66M=TRUE:Q=TRUE:L$=O$:ENDPROC
910REPEATL%=L%+1:J$=" "+$(L%*66+!K%):IFRIGHT$(J$,1)="*"R=TRUE:J$=LEFT$(J$,LENJ$-1)
920IFLENJ$>LENT$R=FALSEELSEIFINSTR(T$,J$)>0M=TRUEELSER=FALSE
930UNTILMORL%=J%:IFNOTMENDPROCELSEC%=1:FORM%=L%TOJ%:IF$(M%*66+!K%)=$(L%*66+!K%)T?C%=M%:C%=C%+1
940NEXT:IFC%=2L$=$(T?1*66+!K%+17)ELSEC%=RND(C%-1):L$=$(T?C%*66+!K%+17)
950IFR L$=L$+FN7
960ENDPROC
970DEFPROCg(X$,G$):LOCALM%,J%,S%,U$:X$=X$+STRING$(8," "):X$=LEFT$(X$,11):PRINT'TAB(0)X$;:G$=FN2(FN5(LEFT$(G$,1))+MID$(G$,2)):IFINSTR(G$," ")=LENG$THEN1000ELSES%=1:M%=0:J%=1:REPEATREPEATJ%=INSTR(G$," ",J%+1):IFJ%<=S%+26M%=J%
980UNTILJ%>=S%+26ORJ%=LENG$:U$=MID$(G$,S%,M%-S%)+STRING$(20," "):U$=LEFT$(U$,26):PRINTTAB(11)U$:IFJ%>S%+26ANDM%=S%-1M%=S%+25
990J%=M%+1:S%=J%:UNTILS%>=LENG$:GOTO1010
1000J%=1:REPEATPRINTTAB(11)MID$(G$,J%,26):J%=J%+26:UNTILJ%>=LENG$
1010`$=O$:O$=Y$:Y$=L$:IFV O$="":ENDPROCELSEENDPROC
1020DEFPROC7:VDU3:PRINT'V$;:L$=FN@(63,11,VPOS,2):PRINTCHR$13STRING$(LENL$+LENL$DIV27*11+1,CHR$127);:IFG%VDU2
1030PROCg(V$,L$):ENDPROC
1040DEFFN7:LOCALK$,Z$,N$,I%,J%:N$=MID$(T$,(LENJ$+INSTR(T$,J$))):IFLENN$<10N$=N$+STRING$(10,"|")
1050RESTORE1950:FORJ%=1TO19:READK$,Z$:K$=" "+K$+" ":Z$=" "+Z$+" ":REPEATI%=INSTR(N$,K$,1):IFI%>0N$=MID$(N$,1,I%-1)+Z$+MID$(N$,I%+LENK$)
1060UNTILI%=0:NEXT:I%=INSTR(N$,"|"):IFI%>0N$=LEFT$(N$,I%-2):IFI%=1N$=""
1070IFLEFT$(N$,1)>" "N$=" "+N$
1080=FN6(N$)
1090DEFPROCJ:LOCALG:VDU15,3,20,26,12,28,1,24,38,1,19,0,4;0;:COLOUR0:COLOUR129:PRINTTAB(12,1)" Choice page ":COLOUR1:COLOUR128:*FX15
1100PRINT''TAB(9)"1) Create or alter"'TAB(12)"a character"''TAB(9)"2) Load a character"''TAB(9)"3) Drop a character"''TAB(9)"4) Save a character"''TAB(9)"5) Start dialogue"''TAB(9)"6) End the program"'''''" ESCAPE will return you to this page"
1110PRINTTAB(0,15)':G=FN0:IFG<1ORG>6VDU7:GOTO1110
1120ONGGOTO1130,1140,1150,1160,1170,1180
1130PROCZ:ENDPROC
1140PROC@("Load"):ENDPROC
1150PROC@("Drop"):ENDPROC
1160PROC@("Save"):ENDPROC
1170PROCc:ENDPROC
1180VDU19,0,7;0;19,1,0;0;12,7:PRINTTAB(13,6)"Are you sure"'TAB(11)"you want to end"''':W=FN3:ENDPROC
1190DEFPROCF(h%):LOCALI$,K%:CLS:COLOUR0:COLOUR129:PRINTTAB(12,1)" Create/alter ":COLOUR1:COLOUR128:PRINT'''TAB(7)"What do you want to call"'TAB(11)"the character ?"''TAB(3)"Type it then press RETURN: ";
1200I$=FN@(7,POS,VPOS,1):I$=" "+I$+" ":`%=h%:IF`%=0Q$=I$:$(J+32)=I$ELSER$=I$:$(K+32)=I$
1210DEFPROCZ:LOCALG
1220CLS:COLOUR0:COLOUR129:PRINTTAB(12,1)" Create/alter ":IF`%=0VDU31,23,5:PRINTQ$ELSEVDU31,23,7:PRINTR$
1230COLOUR1:COLOUR128:IF`%=0PRINTTAB(23,7)R$ELSEPRINTTAB(23,5)Q$
1240PRINTTAB(7,5)"1) Character A: "''TAB(7)"2) Character B: "''TAB(7)"3) Keywords and Responses"''TAB(7)"4) Starters":PROCCP
1250G=FN0:IFG<1ORG>4VDU7,11,13:GOTO1250
1260ONGGOTO1270,1270,1280,1290
1270`%=G-1:PROCF(`%):ENDPROC
1280PROC_:ENDPROC
1290PROC`:ENDPROC
1300DEFPROC@(K$):LOCALG,K%:CLS:COLOUR0:COLOUR129:PRINTTAB(17,1)" "K$" ":COLOUR1:COLOUR128:K$=FN4(K$):PRINT'''TAB(11)"Characters in use"''TAB(11)"A: "Q$''TAB(11)"B: "R$''''TAB(4)"Do you want to "K$" character A"'TAB(11)"or character B ?"''
1310PRINT" Type A or B then press RETURN: ";:_$=FN@(1,POS,VPOS,3):G=(INSTR("ABab",_$)-1)MOD2:IFG=-1VDU7,127,13:GOTO1310
1320IFG=0K%=JELSEK%=K
1330IFK$="load"PROCK(K%)ELSEIFK$="save"PROCA(K%)ELSEIFK$="drop"PROC2(K%,W$)
1340VDU26:ENDPROC
1350DEFPROC_:LOCALG,Q%
1360VDU26,19,1,4;0;12:PRINTTAB(1,20)"1 Starters 3 Add a new pair"'" 2 Other character 4 Change a pair"'" ";CHR$225;" Go back one 5 Delete a pair"'" ";CHR$224;" See next one 6 Insert a pair":VDU28,0,18,39,1:COLOUR129:CLS:COLOUR0
1370PRINTTAB(9,0)"Keywords and Responses":COLOUR1:COLOUR128:VDU28,1,17,38,2,12,19,1,7;0;:FORY%=0TO13:VDU31,18,Y%,228,229:NEXT:VDU31,1,1:PRINT"A: ":VDU31,20,1:PRINT"B: ":VDU31,1,3:PRINT"Keyword":VDU31,20,3:PRINT"Keyword":VDU31,1,7:PRINT"Response":VDU31,20,7:PRINT"Response"
1380VDU28,1,17,38,2:IF`%=0COLOUR0:COLOUR129:Q%=J:VDU31,9,3:PRINTSPC1;Q%!12;SPC1
1390VDU31,5,1:PRINTQ$:COLOUR1:COLOUR128:VDU31,24,1:IF`%=1COLOUR0:COLOUR129:Q%=K:VDU31,28,3:PRINTSPC1;Q%!12;SPC1
1400VDU31,24,1:PRINTR$:COLOUR1:COLOUR128:PROCR(Q%!12):VDU28,1,17,38,2
1410PRINTTAB(0,13)':G=FN0:IF(G<1ORG>6)ANDG<>136ANDG<>137VDU7:GOTO1410ELSEIFG=136G=7ELSEIFG=137G=8
1420PROCB(4,15,33):ONGGOTO1520,1460,1430,1470,1480,1490,1450,1440
1430PROCN(Q%):IFNOTQ%!28THEN1380ELSE1360
1440PROCQ(Q%):GOTO1380
1450PROC6(Q%):GOTO1380
1460`%=1-`%:GOTO1380
1470IFQ%!16=1GOTO1430ELSEPROCD(Q%):GOTO1380
1480PROCO(Q%):GOTO1380
1490PROCS(Q%):IFNOTQ%!28THEN1380ELSE1360
1500ENDPROC
1510DEFPROC`:LOCALG,Q%
1520VDU26,19,1,4;0;12:PRINTTAB(1,20)"1 Keywords/Responses 3 Add a Starter"'" 2 Other character 4 Change Starter"'" ";CHR$225;" Go back one 5 Delete Starter"'" ";CHR$224;" See next one":VDU28,0,18,39,1:COLOUR129:CLS:COLOUR0
1530PRINTTAB(16,0)"Starters":COLOUR1:COLOUR128:VDU28,1,17,38,2,12,19,1,7;0;:FORY%=0TO13:VDU31,18,Y%,228,229:NEXT:VDU31,1,1:PRINT"A:":VDU31,20,1:PRINT"B:":VDU31,1,3:PRINT"Starter":VDU31,20,3:PRINT"Starter"
1540VDU28,1,17,38,2:IF`%=0COLOUR0:COLOUR129:Q%=J:VDU31,9,3:PRINT;Q%!4
1550VDU31,5,1:PRINTQ$:COLOUR1:COLOUR128:VDU31,24,1:IF`%=1COLOUR0:COLOUR129:Q%=K:VDU31,28,3:PRINT;Q%!4
1560VDU31,24,1:PRINTR$:COLOUR1:COLOUR128:PROCX(Q%!4):VDU28,1,17,38,2
1570PRINTTAB(12,13)':G=FN0:IF(G<1ORG>5)ANDG<>136ANDG<>137VDU7:GOTO1570ELSEIFG=136G=6ELSEIFG=137G=7
1580PROCB(4,15,33):ONGGOTO1360,1620,1590,1630,1640,1610,1600
1590PROCT(Q%):IFNOTQ%!24THEN1540ELSE1520
1600PROCU(Q%):GOTO1540
1610PROCV(Q%):GOTO1540
1620`%=1-`%:GOTO1540
1630IFQ%!8=1GOTO1590ELSEPROCE(Q%):GOTO1540
1640PROCW(Q%):GOTO1540:ENDPROC
1650DEFPROCc:*FX15
1660CLS:COLOUR0:COLOUR129:PRINTTAB(14,1)" Dialogue ":COLOUR1:COLOUR128:PRINT'''TAB(11)"Characters in use"''TAB(11)"A: "Q$''TAB(11)"B: "R$:PRINT'TAB(4)"Do you want a dialogue between"''TAB(4)"1)"Q$"and"R$'TAB(4)"2)"Q$"and you"'TAB(4)"3)"R$"and you":PROCCP
1670I=FN0:IFI<1ORI>3VDU7,11,13:GOTO1670ELSEIF(J!8=1AND(I=1ORI=2))OR(K!8=1AND(I=1ORI=3))OR(J!16=1AND(I=1ORI=2))OR(K!16=1AND(I=1ORI=3))PROCL:GOTO1660
1680IFI=1THEN1710ELSECLS:COLOUR0:COLOUR129:PRINTTAB(14,1)" Dialogue ":COLOUR1:COLOUR128:PRINT''''TAB(3)"Who is to be the first speaker ?"'''TAB(12)"1)";:IFI=2PRINTQ$ELSEPRINTR$
1690PRINT'TAB(12)"2) you"''
1700S=FN0:IFS<1ORS>2VDU7,13,11:GOTO1700
1710CLS:COLOUR0:COLOUR129:PRINTTAB(14,1)" Dialogue ":COLOUR1:COLOUR128:IFV$<>""PRINT'''TAB(9)"Is your name";V$;"?"':IFFN3ELSEPRINT'''TAB(9)"What is your name ?"'''" Type it then press RETURN: ";:V$=FN@(9,POS,VPOS,3):V$=" "+V$+" "
1720O$="":Y$="":CLS:COLOUR0:COLOUR129:PRINTTAB(14,1)" Dialogue ":COLOUR1:COLOUR128:PROCM:IFI<>1PROCbELSEPROCf:IFc%=1PROCG
1730ENDPROC
1740DEFPROCM:LOCAL_$:G%=FALSE:PRINT'''TAB(7)"Do you want a printout ?"''':IFNOTFN3ENDPROCELSEG%=TRUE:ENDPROC
1750DEFPROCb:LOCALK%,I$:VDU26,20,19,1,0;0;12,31,0,16:PROCCP:VDU28,0,19,39,1:COLOUR129:CLS:COLOUR0:PRINTTAB(16,0)"Dialogue":COLOUR1:COLOUR128:VDU28,1,18,38,2:CLS:VDU19,1,2;0;:IFI=2K%=J:I$=Q$ELSEK%=K:I$=R$
1760IFG%VDU2
1770PRINT:ONSGOTO1780,1790
1780N=TRUE:REPEATPROC3(K%,I$):PROC7:UNTILFALSE:ENDPROC
1790REPEATPROC7:PROC3(K%,I$):UNTILFALSE:ENDPROC
1800DEFPROCf:LOCALO:O=TRUE:N=TRUE:VDU26,20,19,1,2;0;12:PRINTTAB(1,21)"1) Restart 2) Choice page 3) Join in"''" Speed:":VDU28,0,19,39,1:COLOUR129:CLS:COLOUR0:PRINTTAB(16,0)"Dialogue"':COLOUR1:COLOUR128:s%=0:PROCG:s%=1:VDU3:CLS:IFG%VDU2
1810REPEAT:IFINKEY-129ANDc%<>1THEN1890ELSEIFNOTINKEY-49THEN1840ELSEVDU3:CLS:O=TRUE:N=TRUE:IFc%=1PROCG
1820IFG%VDU2
1830UNTILFALSE
1840e=INKEY(9):IFINKEY-18PROC7:O=NOTO:IFc%=1PROCG
1850REPEAT:IFINKEY-122ANDd%>0PROCGELSEIFINKEY-26ANDd%<600s%=-1:PROCG:s%=1
1860IFc%=1UNTILTRUE:UNTILINKEY-50:ENDPROC
1870*FX15,1
1880e=INKEY(50):UNTILNOT(INKEY-122ORINKEY-26)
1890b=TIME:IFOPROC3(J,Q$)ELSEPROC3(K,R$)
1900O=NOTO:e=INKEY(d%-TIME+b):UNTILINKEY-50:ENDPROC
1910DEFPROCG:d%=d%-s%*75:c%=c%+s%:V%=VPOS:W%=POS:VDU3,28,13,24,39,23:CLS:PRINT"�����������"TAB(c%,0);:VDU227,28,1,18,38,2,31,W%,V%:IFG%VDU2:ENDPROCELSEENDPROC
1920DEFPROCCP:PRINT'''''" Press ESCAPE for Choice page":VDU11,11,11,11:ENDPROC
1930VDU3,26:IFERR=17S$="":T$="":U$="":M$="":N$="":X$=""ELSEIFERR=254PROCLELSECLS:REPORT:PROC4:IFERR<>214ELSEIFK%=J Q$=W$:$(J+32)=W$ELSER$=W$:$(K+32)=W$
1940GOTO60
1950DATAyou,me%,i,you%,me,you%,are,am%,am,are%,was,were%,were,was%,your,my%,my,your%,i've,you've%,you've,I've%,i'm,you're%,you're,I'm%,i'll,you'll%,you'll,I'll%,i'd,you'd%,you'd,I'd%,yourself,myself%,myself,yourself%
1960DATAi ,I ,i',I',i*,I*
��Th@
2�" Press"'" SPACE BAR"'"to continue";:���=32
(!�6:�19,0,4;0;:�d(-1):�H:�d(0)
2W=0:��tJG
<��J:�W:�6:*FX4,0
F *FX12,0
P�
Z ݤ@(X,H,U,L):�H$,G$:�H,U);
d�L=4�D%G$="T.":�G$;:X=9
n �*FX15,1
x�H$=�:�"*ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890,.!? :-&'",H$)=0�H$<>�13�H$<>�127�7:�Dx@��G$=0�H$=�127��tj@��(�G$=0�L=1)�H$=�32��tj@
�$�X=7�(G$="T"�G$="t")�H$="."��tj@
�,�G$>0�H$=�127G$=�G$,�G$-1):�L=2��<12�13
�'�H$=�13��tt@��H$;:�H$<>�127G$=G$+H$
��L=2��<11��11," ");
�!��G$>X:�7,127:G$=�G$,X):�H$=�
�4�H$=�13�H$=�127:�H$=�127G$=�G$,�G$-1):�H$;:�Dn@
��G$="*"G$="":�8,32,8
��G$=0�7:�Dn@�=G$
�2��8(L$):�X%,Y%:�X%-1:Y%=X%�256:$X%=L$:�&FFF7:�
ܜ��K(K%):�I$:�:�0:�129:�16,1)" Load ":�1:�128:�'''�3)"What is the name of the character"'�8)"that you wish to load ?"'''�3)"Type it then press RETURN ";
�iI$=�@(7,�,�,4):I$=" "+I$+" ":�9:�2(K%,I$):�8("LO."+I$+�~K%):�I$,2,2)="T."��I$,2,2)="t."I$=" "+�I$,4)
�1�SP:�K%!20>K%!16�K%!28=�K%!28=�:K%!16=K%!16+1
��K%=J `%=0:�`%=1:�
E��9:�:�4,7)"Press RETURN to ";K$;I$;:���=13:�':�28,11,14,39,10:�
1��A(K%):�I$:I$=$(K%+32):�D%I$=" T."+�I$,2,-1)
/�9:�8("SA."+I$+�~K%+" +"+�~(f%+1)+" 0 0"):�
"#��d(L):�-256=0�D@A��L�*FX14,6
,�L�*FX13,6
6�
@G�L !&210=(!&210�&FFFF0000)+&70�!&210=(!&210�&FFFF0000)+(!&71�&FFFF)
J�
T���H:H$=" ":_$=H$:O$=�120,H$):S$=O$:M$=O$:`$=O$:N$=O$:Y$=O$:G$=O$:T$=O$:L$=O$:J$=�65,H$):U$=J$:K$=�11,H$):Z$=K$:W$=" not in use ":Q$=W$:R$=W$:I$=W$:X$=�20,H$):V$=K$:b$="Press number: "
^�A$=�9,H$):B$=A$:L$="":V$="":`$="":A$="":B$="":O$="":N$="":M$="":Y$="":G$="":X$="":J$="":U$="":K$="":Z$="":I$="":T$="":H$="":S$="":*FX4,1
hTQ=0:R=0:V=0:M=0:N=0:`%=0:I=1:S=1:G%=0:W=0:c%=5:d%=300:s%=0:�=&800T=&C000�T=&C40
rF�X%=0�121�4:T!X%=0:�:f%=(�8-1289)�2:�J f%,K f%:�2(J,W$):�2(K,W$):�
|;��L:�:�9,9)"That can't be used"�10)"please try again"'
��4:�
�7��4:�'�5)"Press SPACE BAR to continue";�7;:���=32:�
�ݤ8:�P%-1:=�-P%
�@��2(K%,I$):�I%:�I%=0�(f%-4)�4:K%!I%=0:�:�SP:K%!8=1:K%!16=1:�
�V��SP:K%!20=(f%-330)�66:!K%=264+K%:K%!4=1:K%!12=1:$(K%+32)=I$:�K%=J Q$=I$:�R$=I$:�
�"��B(H,U,Y):�31,H,U:��Y," ");:�
�Vݤ5(S$):�J%,M$:�J%=1��S$:�(�S$,J%,1))>64M$=M$+�(�(�S$,J%,1))�&DF)�M$=M$+�S$,J%,1)
� �:=M$
�Pݤ4(S$):�J%,M$,H$:�S$=0�=M$��J%=1��S$:H$=�S$,J%,1):M$=M$+�(�(H$)�&20):�:=M$
�&ݤ0:�11)b$;:�L=�:�L>31:=(L�48)-48
�]��C(G$):�J%,S%,M%,U$:G$=�2(G$):�G$=" "�S%=1:M%=0:J%=1:��J%=�G$," ",J%+1):�J%<=S%+16M%=J%
�Z�J%>=S%+16�J%=�G$:U$=�G$,S%,M%-S%):�U$>16�U$,15)"-":J%=S%+15:S%=J%��U$:J%=M%+1:S%=J%
��S%>=�G$:�
8��5:�:�2,5)"You have no room for more entries":�4:�
Hݤ6(S$):�J%,M$,H$:�S$=0�=M$��J%=1��S$:H$=�S$,J%,1):�H$<>"%"M$=M$+H$
�:=M$
&�ݤ2(G$):�J%,L%,A$,B$:G$=" "+G$+" ":�G$=" ":=�G$,2)���thG:�L%=1�3:�A$,B$:�:J%=�G$," "+A$):�J%>0G$=�G$,1,J%-1)+" "+B$+�G$,J%+3)
0�J%=0:�:=�G$,2)
:Iݤ3:�13)"Press Y or N: ";:�_$=�:��"YyNn",_$)<>0:�_$="Y"�_$="y"=-1�=0
D���D(K%):�H,a%:�HI:�1;K%!12;�1:�1:�128:a%=!K%+K%!12*66:�28,H,16,H+16,11:�:�28,H,8,H+15,7:�:$a%=�@(16,0,0,3):$a%=�4($a%):�28,H,16,H+16,11:�:$(a%+17)=�@(48,0,0,3):�
N3��HI:�129:�0:�`%=0H=2:�31,9,3:�H=21:�31,28,3:�
X8��N(K%):�K%!28�5:��d(-1):K%!12=K%!16:�1(K%):�d(0):�
b@��1(K%):�D(K%):K%!16=K%!16+1:�K%!16>K%!20K%!28=�:K%!16=K%!20
l�
vm��O(K%):�_%,b%,e%,J%:b%=K%!12*66+264:_%=K%!16*66+264:e%=K%!20*66+264:�_%>b%�J%=b%�_%-1:K%?J%=K%?(J%+66):�
�&�_%=e%�_%=b%�J%=_%�_%+66:K%?J%=0:�
�E�((b%=_%)�(_%=e%�K%!28))�K%!28=�:�b%=_%�K%!12>1K%!12=K%!12-1:��
�3K%!16=K%!16-1:�K%!16=K%!12�K%!12>1K%!12=K%!12-1
��
�?��Q(K%):�K%!12+1<K%!16�K%!12+1=K%!16�K%!28K%!12=K%!12+1:��
�'��6(K%):�K%!12-1<1�K%!12=K%!12-1:�
�n��R(a%):�H,K%:�SH:J$=$(a%*66+!K%):�28,H,8,H+15,7:�:J$=�2(J$):�J$;:�28,H,16,H+16,11:�:�C($(a%*66+17+!K%)):�
�$��SH:�`%=0K%=J:H=2:�K%=K:H=21:�
Ђ��S(K%):�X%:�K%!28�5:��d(-1):�K%!16>1�X%=K%!16�K%!12+1�-1:$(X%*66+!K%)=$((X%-1)*66+!K%):$(X%*66+!K%+17)=$((X%-1)*66+!K%+17):�
��1(K%):�d(0):�
�R��T(K%):�K%!24�5:��d(-1):K%!4=K%!8:�E(K%):K%!8=(K%!8)+1:�K%!8>4K%!24=�:K%!8=4
� �d(0):�
�W��E(K%):�H,a%:�HI:�;K%!4:�1:�128:a%=K%+K%!4*65:�28,H,12,H+16,7:�:$a%=�@(64,0,0,3):�
9��U(K%):�K%!4+1<K%!8�K%!4+1=K%!8�K%!24K%!4=K%!4+1:��
$��V(K%):�K%!4-1<1�K%!4=K%!4-1:�
Z��W(K%):�_%,b%,e%,J%:b%=K%!4*65:_%=K%!8*65:e%=260:�_%>b%�J%=b%�_%-1:K%?J%=K%?(J%+65):�
&�_%=e%�_%=b%�J%=_%�_%+65:K%?J%=0:�
*@�(b%=_%�(_%=e%�K%!24))�K%!24=�:�b%=_%�K%!4>1K%!4=K%!4-1:��
4,K%!8=K%!8-1:�K%!8=K%!4�K%!4>1K%!4=K%!4-1
>�
H@��X(a%):�H,K%,g%:�SH:g%=a%*65+K%:�28,H,13,H+16,7:�:�C($g%):�
R��3(K%,I$):�S%:Q=�:V=�
\H�N�S%=�(4):�(S%<K%!8)�(S%=K%!8�K%!24):L$=$(S%*65+K%):�g(I$,L$):N=�:�
f �Y(K%):�M�L$<>O$�g(I$,L$):�
p9�M��Q Q=�:�DfC��`$>""Y$=`$:`$="":V=�:�DfC�N=�:�D\C
zg��Y(K%):�T$,C%,L%,M%,J%,J$:T$=" "+�4(Y$)+" ":L%=0:J%=K%!16+�K%!28:R=�:M=�:�T$<65T$=T$+�65-�T$,"|")
��T$>66M=�:Q=�:L$=O$:�
�=�L%=L%+1:J$=" "+$(L%*66+!K%):��J$,1)="*"R=�:J$=�J$,�J$-1)
�!�J$>�T$R=���T$,J$)>0M=��R=�
�J�M�L%=J%:�M�C%=1:�M%=L%�J%:�$(M%*66+!K%)=$(L%*66+!K%)T?C%=M%:C%=C%+1
�>�:�C%=2L$=$(T?1*66+!K%+17)�C%=�(C%-1):L$=$(T?C%*66+!K%+17)
��R L$=L$+�7
��
ʛ��g(X$,G$):�M%,J%,S%,U$:X$=X$+�8," "):X$=�X$,11):�'�0)X$;:G$=�2(�5(�G$,1))+�G$,2)):�G$," ")=�G$��dhC�S%=1:M%=0:J%=1:��J%=�G$," ",J%+1):�J%<=S%+26M%=J%
�\�J%>=S%+26�J%=�G$:U$=�G$,S%,M%-S%)+�20," "):U$=�U$,26):�11)U$:�J%>S%+26�M%=S%-1M%=S%+25
� J%=M%+1:S%=J%:�S%>=�G$:�drC
�+J%=1:��11)�G$,J%,26):J%=J%+26:�J%>=�G$
�"`$=O$:O$=Y$:Y$=L$:�V O$="":��
�C��7:�3:�'V$;:L$=�@(63,11,�,2):�13ĩL$+�L$�27*11+1,�127);:�G%�2
�g(V$,L$):�
Cݤ7:�K$,Z$,N$,I%,J%:N$=�T$,(�J$+�T$,J$))):�N$<10N$=N$+�10,"|")
f��t^G:�J%=1�19:�K$,Z$:K$=" "+K$+" ":Z$=" "+Z$+" ":�I%=�N$,K$,1):�I%>0N$=�N$,1,I%-1)+Z$+�N$,I%+�K$)
$4�I%=0:�:I%=�N$,"|"):�I%>0N$=�N$,I%-2):�I%=1N$=""
.�N$,1)>" "N$=" "+N$
8 =�6(N$)
B]��J:�G:�15,3,20,26,12,28,1,24,38,1,19,0,4;0;:�0:�129:�12,1)" Choice page ":�1:�128:*FX15
L��''�9)"1) Create or alter"'�12)"a character"''�9)"2) Load a character"''�9)"3) Drop a character"''�9)"4) Save a character"''�9)"5) Start dialogue"''�9)"6) End the program"'''''" ESCAPE will return you to this page"
V"�0,15)':G=�0:�G<1�G>6�7:�DVD
`$�G�DjD,�DtD,�D~D,�tHD,�tRD,�t\D
j�Z:�
t�@("Load"):�
~�@("Drop"):�
��@("Save"):�
��c:�
�Q�19,0,7;0;19,1,0;0;12,7:�13,6)"Are you sure"'�11)"you want to end"''':W=�3:�
����F(h%):�I$,K%:�:�0:�129:�12,1)" Create/alter ":�1:�128:�'''�7)"What do you want to call"'�11)"the character ?"''�3)"Type it then press RETURN: ";
�MI$=�@(7,�,�,1):I$=" "+I$+" ":`%=h%:�`%=0Q$=I$:$(J+32)=I$�R$=I$:$(K+32)=I$
�
��Z:�G
�D�:�0:�129:�12,1)" Create/alter ":�`%=0�31,23,5:�Q$��31,23,7:�R$
�$�1:�128:�`%=0�23,7)R$��23,5)Q$
�i�7,5)"1) Character A: "''�7)"2) Character B: "''�7)"3) Keywords and Responses"''�7)"4) Starters":�CP
� G=�0:�G<1�G>4�7,11,13:�dbD
��G�dvD,�dvD,�T@E,�TJE
�`%=G-1:�F(`%):�
�_:�
�`:�
���@(K$):�G,K%:�:�0:�129:�17,1)" "K$" ":�1:�128:K$=�4(K$):�'''�11)"Characters in use"''�11)"A: "Q$''�11)"B: "R$''''�4)"Do you want to "K$" character A"'�11)"or character B ?"''
c�" Type A or B then press RETURN: ";:_$=�@(1,�,�,3):G=(�"ABab",_$)-1)�2:�G=-1�7,127,13:�T^E
(�G=0K%=J�K%=K
29�K$="load"�K(K%)��K$="save"�A(K%)��K$="drop"�2(K%,W$)
< �26:�
F
��_:�G,Q%
P��26,19,1,4;0;12:�1,20)"1 Starters 3 Add a new pair"'" 2 Other character 4 Change a pair"'" ";�225;" Go back one 5 Delete a pair"'" ";�224;" See next one 6 Insert a pair":�28,0,18,39,1:�129:�:�0
Z��9,0)"Keywords and Responses":�1:�128:�28,1,17,38,2,12,19,1,7;0;:�Y%=0�13:�31,18,Y%,228,229:�:�31,1,1:�"A: ":�31,20,1:�"B: ":�31,1,3:�"Keyword":�31,20,3:�"Keyword":�31,1,7:�"Response":�31,20,7:�"Response"
d8�28,1,17,38,2:�`%=0�0:�129:Q%=J:�31,9,3:�1;Q%!12;�1
nH�31,5,1:�Q$:�1:�128:�31,24,1:�`%=1�0:�129:Q%=K:�31,28,3:�1;Q%!12;�1
x0�31,24,1:�R$:�1:�128:�R(Q%!12):�28,1,17,38,2
�F�0,13)':G=�0:�(G<1�G>6)�G<>136�G<>137�7:�tBE��G=136G=7��G=137G=8
�:�B(4,15,33):�G�dpE,�ttE,�tVE,�t~E,�dHE,�dRE,�tjE,�t`E
� �N(Q%):�Q%!28��DdE��DPE
��Q(Q%):�DdE
��6(Q%):�DdE
�`%=1-`%:�DdE
� �Q%!16=1�tVE��D(Q%):�DdE
��O(Q%):�DdE
� �S(Q%):�Q%!28��DdE��DPE
��
�
��`:�G,Q%
���26,19,1,4;0;12:�1,20)"1 Keywords/Responses 3 Add a Starter"'" 2 Other character 4 Change Starter"'" ";�225;" Go back one 5 Delete Starter"'" ";�224;" See next one":�28,0,18,39,1:�129:�:�0
���16,0)"Starters":�1:�128:�28,1,17,38,2,12,19,1,7;0;:�Y%=0�13:�31,18,Y%,228,229:�:�31,1,1:�"A:":�31,20,1:�"B:":�31,1,3:�"Starter":�31,20,3:�"Starter"
2�28,1,17,38,2:�`%=0�0:�129:Q%=J:�31,9,3:�;Q%!4
B�31,5,1:�Q$:�1:�128:�31,24,1:�`%=1�0:�129:Q%=K:�31,28,3:�;Q%!4
/�31,24,1:�R$:�1:�128:�X(Q%!4):�28,1,17,38,2
"G�12,13)':G=�0:�(G<1�G>5)�G<>136�G<>137�7:�TbF��G=136G=6��G=137G=7
,5�B(4,15,33):�G�DPE,�DTF,�TvF,�D^F,�DhF,�DJF,�D@F
6 �T(Q%):�Q%!24��TDF��dpE
@�U(Q%):�TDF
J�V(Q%):�TDF
T`%=1-`%:�TDF
^ �Q%!8=1�TvF��E(Q%):�TDF
h�W(Q%):�TDF:�
r
��c:*FX15
|��:�0:�129:�14,1)" Dialogue ":�1:�128:�'''�11)"Characters in use"''�11)"A: "Q$''�11)"B: "R$:�'�4)"Do you want a dialogue between"''�4)"1)"Q$"and"R$'�4)"2)"Q$"and you"'�4)"3)"R$"and you":�CP
�rI=�0:�I<1�I>3�7,11,13:�tFF��(J!8=1�(I=1�I=2))�(K!8=1�(I=1�I=3))�(J!16=1�(I=1�I=2))�(K!16=1�(I=1�I=3))�L:�D|F
�v�I=1��tnF��:�0:�129:�14,1)" Dialogue ":�1:�128:�''''�3)"Who is to be the first speaker ?"'''�12)"1)";:�I=2�Q$��R$
��'�12)"2) you"''
� S=�0:�S<1�S>2�7,13,11:�tdF
���:�0:�129:�14,1)" Dialogue ":�1:�128:�V$<>""�'''�9)"Is your name";V$;"?"':�3��'''�9)"What is your name ?"'''" Type it then press RETURN: ";:V$=�@(9,�,�,3):V$=" "+V$+" "
�KO$="":Y$="":�:�0:�129:�14,1)" Dialogue ":�1:�128:�M:�I<>1�b��f:�c%=1�G
��
�B��M:�_$:G%=�:�'''�7)"Do you want a printout ?"''':笤3�G%=�:�
֔��b:�K%,I$:�26,20,19,1,0;0;12,31,0,16:�CP:�28,0,19,39,1:�129:�:�0:�16,0)"Dialogue":�1:�128:�28,1,18,38,2:�:�19,1,2;0;:�I=2K%=J:I$=Q$�K%=K:I$=R$
� �G%�2
��:�S�dtF,�d~F
�N=�:��3(K%,I$):�7:��:�
���7:�3(K%,I$):��:�
���f:�O:O=�:N=�:�26,20,19,1,2;0;12:�1,21)"1) Restart 2) Choice page 3) Join in"''" Speed:":�28,0,19,39,1:�129:�:�0:�16,0)"Dialogue"':�1:�128:s%=0:�G:s%=1:�3:�:�G%�2
8�:�-129�c%<>1��DbG�符-49��TpG��3:�:O=�:N=�:�c%=1�G
�G%�2
&��
0 e=�(9):�-18�7:O=�O:�c%=1�G
:-�:�-122�d%>0�G��-26�d%<600s%=-1:�G:s%=1
D�c%=1��:��-50:�
N *FX15,1
Xe=�(50):��(�-122��-26)
bb=�:�O�3(J,Q$)��3(K,R$)
l O=�O:e=�(d%-�+b):��-50:�
vu��G:d%=d%-s%*75:c%=c%+s%:V%=�:W%=�:�3,28,13,24,39,23:�:�"�����������"�c%,0);:�227,28,1,18,38,2,31,W%,V%:�G%�2:��
�@��CP:�'''''" Press ESCAPE for Choice page":�11,11,11,11:�
�r�3,26:�=17S$="":T$="":U$="":M$="":N$="":X$=""��=254�L��:�:�4:�<>214��K%=J Q$=W$:$(J+32)=W$�R$=W$:$(K+32)=W$
� �T|@
���you,me%,i,you%,me,you%,are,am%,am,are%,was,were%,were,was%,your,my%,my,your%,i've,you've%,you've,I've%,i'm,you're%,you're,I'm%,i'll,you'll%,you'll,I'll%,i'd,you'd%,you'd,I'd%,yourself,myself%,myself,yourself%
��i ,I ,i',I',i*,I*
� 00000000 0d 00 14 0b ee 85 e5 8d 54 68 40 0d 00 1e 32 f1 |........Th@...2.|
00000010 22 20 20 20 50 72 65 73 73 22 27 22 20 53 50 41 |" Press"'" SPA|
00000020 43 45 20 42 41 52 22 27 22 74 6f 20 63 6f 6e 74 |CE BAR"'"to cont|
00000030 69 6e 75 65 22 3b 3a f5 fd a5 3d 33 32 0d 00 28 |inue";:...=32..(|
00000040 21 eb 36 3a ef 31 39 2c 30 2c 34 3b 30 3b 3a f2 |!.6:.19,0,4;0;:.|
00000050 64 28 2d 31 29 3a f2 48 3a f2 64 28 30 29 0d 00 |d(-1):.H:.d(0)..|
00000060 32 0f 57 3d 30 3a ee 85 e5 8d 74 4a 47 0d 00 3c |2.W=0:....tJG..<|
00000070 14 f5 f2 4a 3a fd 57 3a eb 36 3a 2a 46 58 34 2c |...J:.W:.6:*FX4,|
00000080 30 0d 00 46 0b 2a 46 58 31 32 2c 30 0d 00 50 05 |0..F.*FX12,0..P.|
00000090 e0 0d 00 5a 1f dd a4 40 28 58 2c 48 2c 55 2c 4c |...Z...@(X,H,U,L|
000000a0 29 3a ea 48 24 2c 47 24 3a f1 8a 48 2c 55 29 3b |):.H$,G$:..H,U);|
000000b0 0d 00 64 1b e7 4c 3d 34 80 44 25 47 24 3d 22 54 |..d..L=4.D%G$="T|
000000c0 2e 22 3a f1 47 24 3b 3a 58 3d 39 0d 00 6e 0c f5 |.":.G$;:X=9..n..|
000000d0 2a 46 58 31 35 2c 31 0d 00 78 a1 48 24 3d be 3a |*FX15,1..x.H$=.:|
000000e0 e7 a7 22 2a 41 42 43 44 45 46 47 48 49 4a 4b 4c |.."*ABCDEFGHIJKL|
000000f0 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 61 62 |MNOPQRSTUVWXYZab|
00000100 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 |cdefghijklmnopqr|
00000110 73 74 75 76 77 78 79 7a 31 32 33 34 35 36 37 38 |stuvwxyz12345678|
00000120 39 30 2c 2e 21 3f 20 3a 2d 26 27 22 2c 48 24 29 |90,.!? :-&'",H$)|
00000130 3d 30 80 48 24 3c 3e bd 31 33 80 48 24 3c 3e bd |=0.H$<>.13.H$<>.|
00000140 31 32 37 ef 37 3a e5 8d 44 78 40 8b e7 a9 47 24 |127.7:..Dx@...G$|
00000150 3d 30 80 48 24 3d bd 31 32 37 8c 8d 74 6a 40 8b |=0.H$=.127..tj@.|
00000160 e7 28 a9 47 24 3d 30 84 4c 3d 31 29 80 48 24 3d |.(.G$=0.L=1).H$=|
00000170 bd 33 32 8c 8d 74 6a 40 0d 00 82 24 e7 58 3d 37 |.32..tj@...$.X=7|
00000180 80 28 47 24 3d 22 54 22 84 47 24 3d 22 74 22 29 |.(G$="T".G$="t")|
00000190 80 48 24 3d 22 2e 22 8c 8d 74 6a 40 0d 00 8c 2c |.H$="."..tj@...,|
000001a0 e7 a9 47 24 3e 30 80 48 24 3d bd 31 32 37 47 24 |..G$>0.H$=.127G$|
000001b0 3d c0 47 24 2c a9 47 24 2d 31 29 3a e7 4c 3d 32 |=.G$,.G$-1):.L=2|
000001c0 80 b1 3c 31 32 ef 31 33 0d 00 96 27 e7 48 24 3d |..<12.13...'.H$=|
000001d0 bd 31 33 8c 8d 74 74 40 8b f1 48 24 3b 3a e7 48 |.13..tt@..H$;:.H|
000001e0 24 3c 3e bd 31 32 37 47 24 3d 47 24 2b 48 24 0d |$<>.127G$=G$+H$.|
000001f0 00 a0 17 e7 4c 3d 32 80 b1 3c 31 31 f1 c4 31 31 |....L=2..<11..11|
00000200 2c 22 20 22 29 3b 0d 00 aa 21 fd a9 47 24 3e 58 |," ");...!..G$>X|
00000210 3a ef 37 2c 31 32 37 3a 47 24 3d c0 47 24 2c 58 |:.7,127:G$=.G$,X|
00000220 29 3a f5 48 24 3d be 0d 00 b4 34 fd 48 24 3d bd |):.H$=....4.H$=.|
00000230 31 33 84 48 24 3d bd 31 32 37 3a e7 48 24 3d bd |13.H$=.127:.H$=.|
00000240 31 32 37 47 24 3d c0 47 24 2c a9 47 24 2d 31 29 |127G$=.G$,.G$-1)|
00000250 3a f1 48 24 3b 3a e5 8d 44 6e 40 0d 00 be 18 e7 |:.H$;:..Dn@.....|
00000260 47 24 3d 22 2a 22 47 24 3d 22 22 3a ef 38 2c 33 |G$="*"G$="":.8,3|
00000270 32 2c 38 0d 00 c8 16 e7 a9 47 24 3d 30 ef 37 3a |2,8......G$=0.7:|
00000280 e5 8d 44 6e 40 8b 3d 47 24 0d 00 d2 32 dd f2 38 |..Dn@.=G$...2..8|
00000290 28 4c 24 29 3a ea 58 25 2c 59 25 3a de 58 25 2d |(L$):.X%,Y%:.X%-|
000002a0 31 3a 59 25 3d 58 25 81 32 35 36 3a 24 58 25 3d |1:Y%=X%.256:$X%=|
000002b0 4c 24 3a d6 26 46 46 46 37 3a e1 0d 00 dc 9c dd |L$:.&FFF7:......|
000002c0 f2 4b 28 4b 25 29 3a ea 49 24 3a db 3a fb 30 3a |.K(K%):.I$:.:.0:|
000002d0 fb 31 32 39 3a f1 8a 31 36 2c 31 29 22 20 4c 6f |.129:..16,1)" Lo|
000002e0 61 64 20 22 3a fb 31 3a fb 31 32 38 3a f1 27 27 |ad ":.1:.128:.''|
000002f0 27 8a 33 29 22 57 68 61 74 20 69 73 20 74 68 65 |'.3)"What is the|
00000300 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 63 68 61 | name of the cha|
00000310 72 61 63 74 65 72 22 27 8a 38 29 22 74 68 61 74 |racter"'.8)"that|
00000320 20 79 6f 75 20 77 69 73 68 20 74 6f 20 6c 6f 61 | you wish to loa|
00000330 64 20 3f 22 27 27 27 8a 33 29 22 54 79 70 65 20 |d ?"'''.3)"Type |
00000340 69 74 20 74 68 65 6e 20 70 72 65 73 73 20 52 45 |it then press RE|
00000350 54 55 52 4e 20 22 3b 0d 00 e6 69 49 24 3d a4 40 |TURN ";...iI$=.@|
00000360 28 37 2c b1 2c bc 2c 34 29 3a 49 24 3d 22 20 22 |(7,.,.,4):I$=" "|
00000370 2b 49 24 2b 22 20 22 3a f2 39 3a f2 32 28 4b 25 |+I$+" ":.9:.2(K%|
00000380 2c 49 24 29 3a f2 38 28 22 4c 4f 2e 22 2b 49 24 |,I$):.8("LO."+I$|
00000390 2b c3 7e 4b 25 29 3a e7 c1 49 24 2c 32 2c 32 29 |+.~K%):..I$,2,2)|
000003a0 3d 22 54 2e 22 84 c1 49 24 2c 32 2c 32 29 3d 22 |="T."..I$,2,2)="|
000003b0 74 2e 22 49 24 3d 22 20 22 2b c1 49 24 2c 34 29 |t."I$=" "+.I$,4)|
000003c0 0d 00 f0 31 f2 53 50 3a e7 4b 25 21 32 30 3e 4b |...1.SP:.K%!20>K|
000003d0 25 21 31 36 e7 4b 25 21 32 38 3d b9 4b 25 21 32 |%!16.K%!28=.K%!2|
000003e0 38 3d a3 3a 4b 25 21 31 36 3d 4b 25 21 31 36 2b |8=.:K%!16=K%!16+|
000003f0 31 0d 00 fa 17 e7 4b 25 3d 4a 20 60 25 3d 30 3a |1.....K%=J `%=0:|
00000400 e1 8b 60 25 3d 31 3a e1 0d 01 04 45 dd f2 39 3a |..`%=1:....E..9:|
00000410 db 3a f1 8a 34 2c 37 29 22 50 72 65 73 73 20 52 |.:..4,7)"Press R|
00000420 45 54 55 52 4e 20 74 6f 20 22 3b 4b 24 3b 49 24 |ETURN to ";K$;I$|
00000430 3b 3a f5 fd a5 3d 31 33 3a f1 27 3a ef 32 38 2c |;:...=13:.':.28,|
00000440 31 31 2c 31 34 2c 33 39 2c 31 30 3a e1 0d 01 0e |11,14,39,10:....|
00000450 31 dd f2 41 28 4b 25 29 3a ea 49 24 3a 49 24 3d |1..A(K%):.I$:I$=|
00000460 24 28 4b 25 2b 33 32 29 3a e7 44 25 49 24 3d 22 |$(K%+32):.D%I$="|
00000470 20 54 2e 22 2b c1 49 24 2c 32 2c 2d 31 29 0d 01 | T."+.I$,2,-1)..|
00000480 18 2f f2 39 3a f2 38 28 22 53 41 2e 22 2b 49 24 |./.9:.8("SA."+I$|
00000490 2b c3 7e 4b 25 2b 22 20 2b 22 2b c3 7e 28 66 25 |+.~K%+" +"+.~(f%|
000004a0 2b 31 29 2b 22 20 30 20 30 22 29 3a e1 0d 01 22 |+1)+" 0 0"):..."|
000004b0 23 dd f2 64 28 4c 29 3a e7 a6 2d 32 35 36 3d 30 |#..d(L):..-256=0|
000004c0 e5 8d 44 40 41 8b e7 4c 8c 2a 46 58 31 34 2c 36 |..D@A..L.*FX14,6|
000004d0 0d 01 2c 0f e7 ac 4c 8c 2a 46 58 31 33 2c 36 0d |..,...L.*FX13,6.|
000004e0 01 36 05 e1 0d 01 40 47 e7 4c 20 21 26 32 31 30 |.6....@G.L !&210|
000004f0 3d 28 21 26 32 31 30 80 26 46 46 46 46 30 30 30 |=(!&210.&FFFF000|
00000500 30 29 2b 26 37 30 8b 21 26 32 31 30 3d 28 21 26 |0)+&70.!&210=(!&|
00000510 32 31 30 80 26 46 46 46 46 30 30 30 30 29 2b 28 |210.&FFFF0000)+(|
00000520 21 26 37 31 80 26 46 46 46 46 29 0d 01 4a 05 e1 |!&71.&FFFF)..J..|
00000530 0d 01 54 bb dd f2 48 3a 48 24 3d 22 20 22 3a 5f |..T...H:H$=" ":_|
00000540 24 3d 48 24 3a 4f 24 3d c4 31 32 30 2c 48 24 29 |$=H$:O$=.120,H$)|
00000550 3a 53 24 3d 4f 24 3a 4d 24 3d 4f 24 3a 60 24 3d |:S$=O$:M$=O$:`$=|
00000560 4f 24 3a 4e 24 3d 4f 24 3a 59 24 3d 4f 24 3a 47 |O$:N$=O$:Y$=O$:G|
00000570 24 3d 4f 24 3a 54 24 3d 4f 24 3a 4c 24 3d 4f 24 |$=O$:T$=O$:L$=O$|
00000580 3a 4a 24 3d c4 36 35 2c 48 24 29 3a 55 24 3d 4a |:J$=.65,H$):U$=J|
00000590 24 3a 4b 24 3d c4 31 31 2c 48 24 29 3a 5a 24 3d |$:K$=.11,H$):Z$=|
000005a0 4b 24 3a 57 24 3d 22 20 6e 6f 74 20 69 6e 20 75 |K$:W$=" not in u|
000005b0 73 65 20 22 3a 51 24 3d 57 24 3a 52 24 3d 57 24 |se ":Q$=W$:R$=W$|
000005c0 3a 49 24 3d 57 24 3a 58 24 3d c4 32 30 2c 48 24 |:I$=W$:X$=.20,H$|
000005d0 29 3a 56 24 3d 4b 24 3a 62 24 3d 22 50 72 65 73 |):V$=K$:b$="Pres|
000005e0 73 20 6e 75 6d 62 65 72 3a 20 22 0d 01 5e 8c 41 |s number: "..^.A|
000005f0 24 3d c4 39 2c 48 24 29 3a 42 24 3d 41 24 3a 4c |$=.9,H$):B$=A$:L|
00000600 24 3d 22 22 3a 56 24 3d 22 22 3a 60 24 3d 22 22 |$="":V$="":`$=""|
00000610 3a 41 24 3d 22 22 3a 42 24 3d 22 22 3a 4f 24 3d |:A$="":B$="":O$=|
00000620 22 22 3a 4e 24 3d 22 22 3a 4d 24 3d 22 22 3a 59 |"":N$="":M$="":Y|
00000630 24 3d 22 22 3a 47 24 3d 22 22 3a 58 24 3d 22 22 |$="":G$="":X$=""|
00000640 3a 4a 24 3d 22 22 3a 55 24 3d 22 22 3a 4b 24 3d |:J$="":U$="":K$=|
00000650 22 22 3a 5a 24 3d 22 22 3a 49 24 3d 22 22 3a 54 |"":Z$="":I$="":T|
00000660 24 3d 22 22 3a 48 24 3d 22 22 3a 53 24 3d 22 22 |$="":H$="":S$=""|
00000670 3a 2a 46 58 34 2c 31 0d 01 68 54 51 3d 30 3a 52 |:*FX4,1..hTQ=0:R|
00000680 3d 30 3a 56 3d 30 3a 4d 3d 30 3a 4e 3d 30 3a 60 |=0:V=0:M=0:N=0:`|
00000690 25 3d 30 3a 49 3d 31 3a 53 3d 31 3a 47 25 3d 30 |%=0:I=1:S=1:G%=0|
000006a0 3a 57 3d 30 3a 63 25 3d 35 3a 64 25 3d 33 30 30 |:W=0:c%=5:d%=300|
000006b0 3a 73 25 3d 30 3a e7 90 3d 26 38 30 30 54 3d 26 |:s%=0:..=&800T=&|
000006c0 43 30 30 30 8b 54 3d 26 43 34 30 0d 01 72 46 e3 |C000.T=&C40..rF.|
000006d0 58 25 3d 30 b8 31 32 31 88 34 3a 54 21 58 25 3d |X%=0.121.4:T!X%=|
000006e0 30 3a ed 3a 66 25 3d 28 a4 38 2d 31 32 38 39 29 |0:.:f%=(.8-1289)|
000006f0 81 32 3a de 4a 20 66 25 2c 4b 20 66 25 3a f2 32 |.2:.J f%,K f%:.2|
00000700 28 4a 2c 57 24 29 3a f2 32 28 4b 2c 57 24 29 3a |(J,W$):.2(K,W$):|
00000710 e1 0d 01 7c 3b dd f2 4c 3a db 3a f1 8a 39 2c 39 |...|;..L:.:..9,9|
00000720 29 22 54 68 61 74 20 63 61 6e 27 74 20 62 65 20 |)"That can't be |
00000730 75 73 65 64 22 8a 31 30 29 22 70 6c 65 61 73 65 |used".10)"please|
00000740 20 74 72 79 20 61 67 61 69 6e 22 27 0d 01 86 08 | try again"'....|
00000750 f2 34 3a e1 0d 01 90 37 dd f2 34 3a f1 27 8a 35 |.4:....7..4:.'.5|
00000760 29 22 50 72 65 73 73 20 53 50 41 43 45 20 42 41 |)"Press SPACE BA|
00000770 52 20 74 6f 20 63 6f 6e 74 69 6e 75 65 22 3b bd |R to continue";.|
00000780 37 3b 3a f5 fd a5 3d 33 32 3a e1 0d 01 9a 13 dd |7;:...=32:......|
00000790 a4 38 3a de 50 25 2d 31 3a 3d 93 2d 50 25 0d 01 |.8:.P%-1:=.-P%..|
000007a0 a4 40 dd f2 32 28 4b 25 2c 49 24 29 3a ea 49 25 |.@..2(K%,I$):.I%|
000007b0 3a e3 49 25 3d 30 b8 28 66 25 2d 34 29 88 34 3a |:.I%=0.(f%-4).4:|
000007c0 4b 25 21 49 25 3d 30 3a ed 3a f2 53 50 3a 4b 25 |K%!I%=0:.:.SP:K%|
000007d0 21 38 3d 31 3a 4b 25 21 31 36 3d 31 3a e1 0d 01 |!8=1:K%!16=1:...|
000007e0 ae 56 dd f2 53 50 3a 4b 25 21 32 30 3d 28 66 25 |.V..SP:K%!20=(f%|
000007f0 2d 33 33 30 29 81 36 36 3a 21 4b 25 3d 32 36 34 |-330).66:!K%=264|
00000800 2b 4b 25 3a 4b 25 21 34 3d 31 3a 4b 25 21 31 32 |+K%:K%!4=1:K%!12|
00000810 3d 31 3a 24 28 4b 25 2b 33 32 29 3d 49 24 3a e7 |=1:$(K%+32)=I$:.|
00000820 4b 25 3d 4a 20 51 24 3d 49 24 3a e1 8b 52 24 3d |K%=J Q$=I$:..R$=|
00000830 49 24 3a e1 0d 01 b8 22 dd f2 42 28 48 2c 55 2c |I$:...."..B(H,U,|
00000840 59 29 3a ef 33 31 2c 48 2c 55 3a f1 c4 59 2c 22 |Y):.31,H,U:..Y,"|
00000850 20 22 29 3b 3a e1 0d 01 c2 56 dd a4 35 28 53 24 | ");:....V..5(S$|
00000860 29 3a ea 4a 25 2c 4d 24 3a e3 4a 25 3d 31 b8 a9 |):.J%,M$:.J%=1..|
00000870 53 24 3a e7 97 28 c1 53 24 2c 4a 25 2c 31 29 29 |S$:..(.S$,J%,1))|
00000880 3e 36 34 4d 24 3d 4d 24 2b bd 28 97 28 c1 53 24 |>64M$=M$+.(.(.S$|
00000890 2c 4a 25 2c 31 29 29 80 26 44 46 29 8b 4d 24 3d |,J%,1)).&DF).M$=|
000008a0 4d 24 2b c1 53 24 2c 4a 25 2c 31 29 0d 01 cc 09 |M$+.S$,J%,1)....|
000008b0 ed 3a 3d 4d 24 0d 01 d6 50 dd a4 34 28 53 24 29 |.:=M$...P..4(S$)|
000008c0 3a ea 4a 25 2c 4d 24 2c 48 24 3a e7 a9 53 24 3d |:.J%,M$,H$:..S$=|
000008d0 30 8c 3d 4d 24 8b e3 4a 25 3d 31 b8 a9 53 24 3a |0.=M$..J%=1..S$:|
000008e0 48 24 3d c1 53 24 2c 4a 25 2c 31 29 3a 4d 24 3d |H$=.S$,J%,1):M$=|
000008f0 4d 24 2b bd 28 97 28 48 24 29 84 26 32 30 29 3a |M$+.(.(H$).&20):|
00000900 ed 3a 3d 4d 24 0d 01 e0 26 dd a4 30 3a f1 8a 31 |.:=M$...&..0:..1|
00000910 31 29 62 24 3b 3a f5 4c 3d a5 3a fd 4c 3e 33 31 |1)b$;:.L=.:.L>31|
00000920 3a 3d 28 4c 84 34 38 29 2d 34 38 0d 01 ea 5d dd |:=(L.48)-48...].|
00000930 f2 43 28 47 24 29 3a ea 4a 25 2c 53 25 2c 4d 25 |.C(G$):.J%,S%,M%|
00000940 2c 55 24 3a 47 24 3d a4 32 28 47 24 29 3a e7 47 |,U$:G$=.2(G$):.G|
00000950 24 3d 22 20 22 e1 8b 53 25 3d 31 3a 4d 25 3d 30 |$=" "..S%=1:M%=0|
00000960 3a 4a 25 3d 31 3a f5 f5 4a 25 3d a7 47 24 2c 22 |:J%=1:..J%=.G$,"|
00000970 20 22 2c 4a 25 2b 31 29 3a e7 4a 25 3c 3d 53 25 | ",J%+1):.J%<=S%|
00000980 2b 31 36 4d 25 3d 4a 25 0d 01 f4 5a fd 4a 25 3e |+16M%=J%...Z.J%>|
00000990 3d 53 25 2b 31 36 84 4a 25 3d a9 47 24 3a 55 24 |=S%+16.J%=.G$:U$|
000009a0 3d c1 47 24 2c 53 25 2c 4d 25 2d 53 25 29 3a e7 |=.G$,S%,M%-S%):.|
000009b0 a9 55 24 3e 31 36 f1 c0 55 24 2c 31 35 29 22 2d |.U$>16..U$,15)"-|
000009c0 22 3a 4a 25 3d 53 25 2b 31 35 3a 53 25 3d 4a 25 |":J%=S%+15:S%=J%|
000009d0 8b f1 55 24 3a 4a 25 3d 4d 25 2b 31 3a 53 25 3d |..U$:J%=M%+1:S%=|
000009e0 4a 25 0d 01 fe 0e fd 53 25 3e 3d a9 47 24 3a e1 |J%.....S%>=.G$:.|
000009f0 0d 02 08 38 dd f2 35 3a db 3a f1 8a 32 2c 35 29 |...8..5:.:..2,5)|
00000a00 22 59 6f 75 20 68 61 76 65 20 6e 6f 20 72 6f 6f |"You have no roo|
00000a10 6d 20 66 6f 72 20 6d 6f 72 65 20 65 6e 74 72 69 |m for more entri|
00000a20 65 73 22 3a f2 34 3a e1 0d 02 12 48 dd a4 36 28 |es":.4:....H..6(|
00000a30 53 24 29 3a ea 4a 25 2c 4d 24 2c 48 24 3a e7 a9 |S$):.J%,M$,H$:..|
00000a40 53 24 3d 30 8c 3d 4d 24 8b e3 4a 25 3d 31 b8 a9 |S$=0.=M$..J%=1..|
00000a50 53 24 3a 48 24 3d c1 53 24 2c 4a 25 2c 31 29 3a |S$:H$=.S$,J%,1):|
00000a60 e7 48 24 3c 3e 22 25 22 4d 24 3d 4d 24 2b 48 24 |.H$<>"%"M$=M$+H$|
00000a70 0d 02 1c 09 ed 3a 3d 4d 24 0d 02 26 82 dd a4 32 |.....:=M$..&...2|
00000a80 28 47 24 29 3a ea 4a 25 2c 4c 25 2c 41 24 2c 42 |(G$):.J%,L%,A$,B|
00000a90 24 3a 47 24 3d 22 20 22 2b 47 24 2b 22 20 22 3a |$:G$=" "+G$+" ":|
00000aa0 e7 47 24 3d 22 20 20 22 3a 3d c1 47 24 2c 32 29 |.G$=" ":=.G$,2)|
00000ab0 8b f7 8d 74 68 47 3a e3 4c 25 3d 31 b8 33 3a f3 |...thG:.L%=1.3:.|
00000ac0 41 24 2c 42 24 3a f5 3a 4a 25 3d a7 47 24 2c 22 |A$,B$:.:J%=.G$,"|
00000ad0 20 22 2b 41 24 29 3a e7 4a 25 3e 30 47 24 3d c1 | "+A$):.J%>0G$=.|
00000ae0 47 24 2c 31 2c 4a 25 2d 31 29 2b 22 20 22 2b 42 |G$,1,J%-1)+" "+B|
00000af0 24 2b c1 47 24 2c 4a 25 2b 33 29 0d 02 30 13 fd |$+.G$,J%+3)..0..|
00000b00 4a 25 3d 30 3a ed 3a 3d c1 47 24 2c 32 29 0d 02 |J%=0:.:=.G$,2)..|
00000b10 3a 49 dd a4 33 3a f1 8a 31 33 29 22 50 72 65 73 |:I..3:..13)"Pres|
00000b20 73 20 59 20 6f 72 20 4e 3a 20 22 3b 3a f5 5f 24 |s Y or N: ";:._$|
00000b30 3d be 3a fd a7 22 59 79 4e 6e 22 2c 5f 24 29 3c |=.:.."YyNn",_$)<|
00000b40 3e 30 3a e7 5f 24 3d 22 59 22 84 5f 24 3d 22 79 |>0:._$="Y"._$="y|
00000b50 22 3d 2d 31 8b 3d 30 0d 02 44 a6 dd f2 44 28 4b |"=-1.=0..D...D(K|
00000b60 25 29 3a ea 48 2c 61 25 3a f2 48 49 3a f1 89 31 |%):.H,a%:.HI:..1|
00000b70 3b 4b 25 21 31 32 3b 89 31 3a fb 31 3a fb 31 32 |;K%!12;.1:.1:.12|
00000b80 38 3a 61 25 3d 21 4b 25 2b 4b 25 21 31 32 2a 36 |8:a%=!K%+K%!12*6|
00000b90 36 3a ef 32 38 2c 48 2c 31 36 2c 48 2b 31 36 2c |6:.28,H,16,H+16,|
00000ba0 31 31 3a db 3a ef 32 38 2c 48 2c 38 2c 48 2b 31 |11:.:.28,H,8,H+1|
00000bb0 35 2c 37 3a db 3a 24 61 25 3d a4 40 28 31 36 2c |5,7:.:$a%=.@(16,|
00000bc0 30 2c 30 2c 33 29 3a 24 61 25 3d a4 34 28 24 61 |0,0,3):$a%=.4($a|
00000bd0 25 29 3a ef 32 38 2c 48 2c 31 36 2c 48 2b 31 36 |%):.28,H,16,H+16|
00000be0 2c 31 31 3a db 3a 24 28 61 25 2b 31 37 29 3d a4 |,11:.:$(a%+17)=.|
00000bf0 40 28 34 38 2c 30 2c 30 2c 33 29 3a e1 0d 02 4e |@(48,0,0,3):...N|
00000c00 33 dd f2 48 49 3a fb 31 32 39 3a fb 30 3a e7 60 |3..HI:.129:.0:.`|
00000c10 25 3d 30 48 3d 32 3a ef 33 31 2c 39 2c 33 3a e1 |%=0H=2:.31,9,3:.|
00000c20 8b 48 3d 32 31 3a ef 33 31 2c 32 38 2c 33 3a e1 |.H=21:.31,28,3:.|
00000c30 0d 02 58 38 dd f2 4e 28 4b 25 29 3a e7 4b 25 21 |..X8..N(K%):.K%!|
00000c40 32 38 f2 35 3a e1 8b f2 64 28 2d 31 29 3a 4b 25 |28.5:...d(-1):K%|
00000c50 21 31 32 3d 4b 25 21 31 36 3a f2 31 28 4b 25 29 |!12=K%!16:.1(K%)|
00000c60 3a f2 64 28 30 29 3a e1 0d 02 62 40 dd f2 31 28 |:.d(0):...b@..1(|
00000c70 4b 25 29 3a f2 44 28 4b 25 29 3a 4b 25 21 31 36 |K%):.D(K%):K%!16|
00000c80 3d 4b 25 21 31 36 2b 31 3a e7 4b 25 21 31 36 3e |=K%!16+1:.K%!16>|
00000c90 4b 25 21 32 30 4b 25 21 32 38 3d b9 3a 4b 25 21 |K%!20K%!28=.:K%!|
00000ca0 31 36 3d 4b 25 21 32 30 0d 02 6c 05 e1 0d 02 76 |16=K%!20..l....v|
00000cb0 6d dd f2 4f 28 4b 25 29 3a ea 5f 25 2c 62 25 2c |m..O(K%):._%,b%,|
00000cc0 65 25 2c 4a 25 3a 62 25 3d 4b 25 21 31 32 2a 36 |e%,J%:b%=K%!12*6|
00000cd0 36 2b 32 36 34 3a 5f 25 3d 4b 25 21 31 36 2a 36 |6+264:_%=K%!16*6|
00000ce0 36 2b 32 36 34 3a 65 25 3d 4b 25 21 32 30 2a 36 |6+264:e%=K%!20*6|
00000cf0 36 2b 32 36 34 3a e7 5f 25 3e 62 25 e3 4a 25 3d |6+264:._%>b%.J%=|
00000d00 62 25 b8 5f 25 2d 31 3a 4b 25 3f 4a 25 3d 4b 25 |b%._%-1:K%?J%=K%|
00000d10 3f 28 4a 25 2b 36 36 29 3a ed 0d 02 80 26 e7 5f |?(J%+66):....&._|
00000d20 25 3d 65 25 84 5f 25 3d 62 25 e3 4a 25 3d 5f 25 |%=e%._%=b%.J%=_%|
00000d30 b8 5f 25 2b 36 36 3a 4b 25 3f 4a 25 3d 30 3a ed |._%+66:K%?J%=0:.|
00000d40 0d 02 8a 45 e7 ac 28 28 62 25 3d 5f 25 29 84 28 |...E..((b%=_%).(|
00000d50 5f 25 3d 65 25 80 4b 25 21 32 38 29 29 8b 4b 25 |_%=e%.K%!28)).K%|
00000d60 21 32 38 3d a3 3a e7 62 25 3d 5f 25 80 4b 25 21 |!28=.:.b%=_%.K%!|
00000d70 31 32 3e 31 4b 25 21 31 32 3d 4b 25 21 31 32 2d |12>1K%!12=K%!12-|
00000d80 31 3a e1 8b e1 0d 02 94 33 4b 25 21 31 36 3d 4b |1:......3K%!16=K|
00000d90 25 21 31 36 2d 31 3a e7 4b 25 21 31 36 3d 4b 25 |%!16-1:.K%!16=K%|
00000da0 21 31 32 80 4b 25 21 31 32 3e 31 4b 25 21 31 32 |!12.K%!12>1K%!12|
00000db0 3d 4b 25 21 31 32 2d 31 0d 02 9e 05 e1 0d 02 a8 |=K%!12-1........|
00000dc0 3f dd f2 51 28 4b 25 29 3a e7 4b 25 21 31 32 2b |?..Q(K%):.K%!12+|
00000dd0 31 3c 4b 25 21 31 36 84 4b 25 21 31 32 2b 31 3d |1<K%!16.K%!12+1=|
00000de0 4b 25 21 31 36 80 4b 25 21 32 38 4b 25 21 31 32 |K%!16.K%!28K%!12|
00000df0 3d 4b 25 21 31 32 2b 31 3a e1 8b e1 0d 02 b2 27 |=K%!12+1:......'|
00000e00 dd f2 36 28 4b 25 29 3a e7 4b 25 21 31 32 2d 31 |..6(K%):.K%!12-1|
00000e10 3c 31 e1 8b 4b 25 21 31 32 3d 4b 25 21 31 32 2d |<1..K%!12=K%!12-|
00000e20 31 3a e1 0d 02 bc 6e dd f2 52 28 61 25 29 3a ea |1:....n..R(a%):.|
00000e30 48 2c 4b 25 3a f2 53 48 3a 4a 24 3d 24 28 61 25 |H,K%:.SH:J$=$(a%|
00000e40 2a 36 36 2b 21 4b 25 29 3a ef 32 38 2c 48 2c 38 |*66+!K%):.28,H,8|
00000e50 2c 48 2b 31 35 2c 37 3a db 3a 4a 24 3d a4 32 28 |,H+15,7:.:J$=.2(|
00000e60 4a 24 29 3a f1 4a 24 3b 3a ef 32 38 2c 48 2c 31 |J$):.J$;:.28,H,1|
00000e70 36 2c 48 2b 31 36 2c 31 31 3a db 3a f2 43 28 24 |6,H+16,11:.:.C($|
00000e80 28 61 25 2a 36 36 2b 31 37 2b 21 4b 25 29 29 3a |(a%*66+17+!K%)):|
00000e90 e1 0d 02 c6 24 dd f2 53 48 3a e7 60 25 3d 30 4b |....$..SH:.`%=0K|
00000ea0 25 3d 4a 3a 48 3d 32 3a e1 8b 4b 25 3d 4b 3a 48 |%=J:H=2:..K%=K:H|
00000eb0 3d 32 31 3a e1 0d 02 d0 82 dd f2 53 28 4b 25 29 |=21:.......S(K%)|
00000ec0 3a ea 58 25 3a e7 4b 25 21 32 38 f2 35 3a e1 8b |:.X%:.K%!28.5:..|
00000ed0 f2 64 28 2d 31 29 3a e7 4b 25 21 31 36 3e 31 e3 |.d(-1):.K%!16>1.|
00000ee0 58 25 3d 4b 25 21 31 36 b8 4b 25 21 31 32 2b 31 |X%=K%!16.K%!12+1|
00000ef0 88 2d 31 3a 24 28 58 25 2a 36 36 2b 21 4b 25 29 |.-1:$(X%*66+!K%)|
00000f00 3d 24 28 28 58 25 2d 31 29 2a 36 36 2b 21 4b 25 |=$((X%-1)*66+!K%|
00000f10 29 3a 24 28 58 25 2a 36 36 2b 21 4b 25 2b 31 37 |):$(X%*66+!K%+17|
00000f20 29 3d 24 28 28 58 25 2d 31 29 2a 36 36 2b 21 4b |)=$((X%-1)*66+!K|
00000f30 25 2b 31 37 29 3a ed 0d 02 da 12 f2 31 28 4b 25 |%+17):......1(K%|
00000f40 29 3a f2 64 28 30 29 3a e1 0d 02 e4 52 dd f2 54 |):.d(0):....R..T|
00000f50 28 4b 25 29 3a e7 4b 25 21 32 34 f2 35 3a e1 8b |(K%):.K%!24.5:..|
00000f60 f2 64 28 2d 31 29 3a 4b 25 21 34 3d 4b 25 21 38 |.d(-1):K%!4=K%!8|
00000f70 3a f2 45 28 4b 25 29 3a 4b 25 21 38 3d 28 4b 25 |:.E(K%):K%!8=(K%|
00000f80 21 38 29 2b 31 3a e7 4b 25 21 38 3e 34 4b 25 21 |!8)+1:.K%!8>4K%!|
00000f90 32 34 3d b9 3a 4b 25 21 38 3d 34 0d 02 ee 0b f2 |24=.:K%!8=4.....|
00000fa0 64 28 30 29 3a e1 0d 02 f8 57 dd f2 45 28 4b 25 |d(0):....W..E(K%|
00000fb0 29 3a ea 48 2c 61 25 3a f2 48 49 3a f1 3b 4b 25 |):.H,a%:.HI:.;K%|
00000fc0 21 34 3a fb 31 3a fb 31 32 38 3a 61 25 3d 4b 25 |!4:.1:.128:a%=K%|
00000fd0 2b 4b 25 21 34 2a 36 35 3a ef 32 38 2c 48 2c 31 |+K%!4*65:.28,H,1|
00000fe0 32 2c 48 2b 31 36 2c 37 3a db 3a 24 61 25 3d a4 |2,H+16,7:.:$a%=.|
00000ff0 40 28 36 34 2c 30 2c 30 2c 33 29 3a e1 0d 03 02 |@(64,0,0,3):....|
00001000 39 dd f2 55 28 4b 25 29 3a e7 4b 25 21 34 2b 31 |9..U(K%):.K%!4+1|
00001010 3c 4b 25 21 38 84 4b 25 21 34 2b 31 3d 4b 25 21 |<K%!8.K%!4+1=K%!|
00001020 38 80 4b 25 21 32 34 4b 25 21 34 3d 4b 25 21 34 |8.K%!24K%!4=K%!4|
00001030 2b 31 3a e1 8b e1 0d 03 0c 24 dd f2 56 28 4b 25 |+1:......$..V(K%|
00001040 29 3a e7 4b 25 21 34 2d 31 3c 31 e1 8b 4b 25 21 |):.K%!4-1<1..K%!|
00001050 34 3d 4b 25 21 34 2d 31 3a e1 0d 03 16 5a dd f2 |4=K%!4-1:....Z..|
00001060 57 28 4b 25 29 3a ea 5f 25 2c 62 25 2c 65 25 2c |W(K%):._%,b%,e%,|
00001070 4a 25 3a 62 25 3d 4b 25 21 34 2a 36 35 3a 5f 25 |J%:b%=K%!4*65:_%|
00001080 3d 4b 25 21 38 2a 36 35 3a 65 25 3d 32 36 30 3a |=K%!8*65:e%=260:|
00001090 e7 5f 25 3e 62 25 e3 4a 25 3d 62 25 b8 5f 25 2d |._%>b%.J%=b%._%-|
000010a0 31 3a 4b 25 3f 4a 25 3d 4b 25 3f 28 4a 25 2b 36 |1:K%?J%=K%?(J%+6|
000010b0 35 29 3a ed 0d 03 20 26 e7 5f 25 3d 65 25 84 5f |5):... &._%=e%._|
000010c0 25 3d 62 25 e3 4a 25 3d 5f 25 b8 5f 25 2b 36 35 |%=b%.J%=_%._%+65|
000010d0 3a 4b 25 3f 4a 25 3d 30 3a ed 0d 03 2a 40 e7 ac |:K%?J%=0:...*@..|
000010e0 28 62 25 3d 5f 25 84 28 5f 25 3d 65 25 80 4b 25 |(b%=_%.(_%=e%.K%|
000010f0 21 32 34 29 29 8b 4b 25 21 32 34 3d a3 3a e7 62 |!24)).K%!24=.:.b|
00001100 25 3d 5f 25 80 4b 25 21 34 3e 31 4b 25 21 34 3d |%=_%.K%!4>1K%!4=|
00001110 4b 25 21 34 2d 31 3a e1 8b e1 0d 03 34 2c 4b 25 |K%!4-1:.....4,K%|
00001120 21 38 3d 4b 25 21 38 2d 31 3a e7 4b 25 21 38 3d |!8=K%!8-1:.K%!8=|
00001130 4b 25 21 34 80 4b 25 21 34 3e 31 4b 25 21 34 3d |K%!4.K%!4>1K%!4=|
00001140 4b 25 21 34 2d 31 0d 03 3e 05 e1 0d 03 48 40 dd |K%!4-1..>....H@.|
00001150 f2 58 28 61 25 29 3a ea 48 2c 4b 25 2c 67 25 3a |.X(a%):.H,K%,g%:|
00001160 f2 53 48 3a 67 25 3d 61 25 2a 36 35 2b 4b 25 3a |.SH:g%=a%*65+K%:|
00001170 ef 32 38 2c 48 2c 31 33 2c 48 2b 31 36 2c 37 3a |.28,H,13,H+16,7:|
00001180 db 3a f2 43 28 24 67 25 29 3a e1 0d 03 52 1a dd |.:.C($g%):...R..|
00001190 f2 33 28 4b 25 2c 49 24 29 3a ea 53 25 3a 51 3d |.3(K%,I$):.S%:Q=|
000011a0 a3 3a 56 3d a3 0d 03 5c 48 e7 4e f5 53 25 3d b3 |.:V=...\H.N.S%=.|
000011b0 28 34 29 3a fd 28 53 25 3c 4b 25 21 38 29 84 28 |(4):.(S%<K%!8).(|
000011c0 53 25 3d 4b 25 21 38 80 4b 25 21 32 34 29 3a 4c |S%=K%!8.K%!24):L|
000011d0 24 3d 24 28 53 25 2a 36 35 2b 4b 25 29 3a f2 67 |$=$(S%*65+K%):.g|
000011e0 28 49 24 2c 4c 24 29 3a 4e 3d a3 3a e1 0d 03 66 |(I$,L$):N=.:...f|
000011f0 1f f2 59 28 4b 25 29 3a e7 4d 80 4c 24 3c 3e 4f |..Y(K%):.M.L$<>O|
00001200 24 f2 67 28 49 24 2c 4c 24 29 3a e1 0d 03 70 39 |$.g(I$,L$):...p9|
00001210 e7 4d 80 ac 51 20 51 3d b9 3a e5 8d 44 66 43 8b |.M..Q Q=.:..DfC.|
00001220 e7 60 24 3e 22 22 59 24 3d 60 24 3a 60 24 3d 22 |.`$>""Y$=`$:`$="|
00001230 22 3a 56 3d b9 3a e5 8d 44 66 43 8b 4e 3d b9 3a |":V=.:..DfC.N=.:|
00001240 e5 8d 44 5c 43 0d 03 7a 67 dd f2 59 28 4b 25 29 |..D\C..zg..Y(K%)|
00001250 3a ea 54 24 2c 43 25 2c 4c 25 2c 4d 25 2c 4a 25 |:.T$,C%,L%,M%,J%|
00001260 2c 4a 24 3a 54 24 3d 22 20 22 2b a4 34 28 59 24 |,J$:T$=" "+.4(Y$|
00001270 29 2b 22 20 22 3a 4c 25 3d 30 3a 4a 25 3d 4b 25 |)+" ":L%=0:J%=K%|
00001280 21 31 36 2b ac 4b 25 21 32 38 3a 52 3d a3 3a 4d |!16+.K%!28:R=.:M|
00001290 3d a3 3a e7 a9 54 24 3c 36 35 54 24 3d 54 24 2b |=.:..T$<65T$=T$+|
000012a0 c4 36 35 2d a9 54 24 2c 22 7c 22 29 0d 03 84 1a |.65-.T$,"|")....|
000012b0 e7 a9 54 24 3e 36 36 4d 3d b9 3a 51 3d b9 3a 4c |..T$>66M=.:Q=.:L|
000012c0 24 3d 4f 24 3a e1 0d 03 8e 3d f5 4c 25 3d 4c 25 |$=O$:....=.L%=L%|
000012d0 2b 31 3a 4a 24 3d 22 20 22 2b 24 28 4c 25 2a 36 |+1:J$=" "+$(L%*6|
000012e0 36 2b 21 4b 25 29 3a e7 c2 4a 24 2c 31 29 3d 22 |6+!K%):..J$,1)="|
000012f0 2a 22 52 3d b9 3a 4a 24 3d c0 4a 24 2c a9 4a 24 |*"R=.:J$=.J$,.J$|
00001300 2d 31 29 0d 03 98 21 e7 a9 4a 24 3e a9 54 24 52 |-1)...!..J$>.T$R|
00001310 3d a3 8b e7 a7 54 24 2c 4a 24 29 3e 30 4d 3d b9 |=....T$,J$)>0M=.|
00001320 8b 52 3d a3 0d 03 a2 4a fd 4d 84 4c 25 3d 4a 25 |.R=....J.M.L%=J%|
00001330 3a e7 ac 4d e1 8b 43 25 3d 31 3a e3 4d 25 3d 4c |:..M..C%=1:.M%=L|
00001340 25 b8 4a 25 3a e7 24 28 4d 25 2a 36 36 2b 21 4b |%.J%:.$(M%*66+!K|
00001350 25 29 3d 24 28 4c 25 2a 36 36 2b 21 4b 25 29 54 |%)=$(L%*66+!K%)T|
00001360 3f 43 25 3d 4d 25 3a 43 25 3d 43 25 2b 31 0d 03 |?C%=M%:C%=C%+1..|
00001370 ac 3e ed 3a e7 43 25 3d 32 4c 24 3d 24 28 54 3f |.>.:.C%=2L$=$(T?|
00001380 31 2a 36 36 2b 21 4b 25 2b 31 37 29 8b 43 25 3d |1*66+!K%+17).C%=|
00001390 b3 28 43 25 2d 31 29 3a 4c 24 3d 24 28 54 3f 43 |.(C%-1):L$=$(T?C|
000013a0 25 2a 36 36 2b 21 4b 25 2b 31 37 29 0d 03 b6 0f |%*66+!K%+17)....|
000013b0 e7 52 20 4c 24 3d 4c 24 2b a4 37 0d 03 c0 05 e1 |.R L$=L$+.7.....|
000013c0 0d 03 ca 9b dd f2 67 28 58 24 2c 47 24 29 3a ea |......g(X$,G$):.|
000013d0 4d 25 2c 4a 25 2c 53 25 2c 55 24 3a 58 24 3d 58 |M%,J%,S%,U$:X$=X|
000013e0 24 2b c4 38 2c 22 20 22 29 3a 58 24 3d c0 58 24 |$+.8," "):X$=.X$|
000013f0 2c 31 31 29 3a f1 27 8a 30 29 58 24 3b 3a 47 24 |,11):.'.0)X$;:G$|
00001400 3d a4 32 28 a4 35 28 c0 47 24 2c 31 29 29 2b c1 |=.2(.5(.G$,1))+.|
00001410 47 24 2c 32 29 29 3a e7 a7 47 24 2c 22 20 22 29 |G$,2)):..G$," ")|
00001420 3d a9 47 24 8c 8d 64 68 43 8b 53 25 3d 31 3a 4d |=.G$..dhC.S%=1:M|
00001430 25 3d 30 3a 4a 25 3d 31 3a f5 f5 4a 25 3d a7 47 |%=0:J%=1:..J%=.G|
00001440 24 2c 22 20 22 2c 4a 25 2b 31 29 3a e7 4a 25 3c |$," ",J%+1):.J%<|
00001450 3d 53 25 2b 32 36 4d 25 3d 4a 25 0d 03 d4 5c fd |=S%+26M%=J%...\.|
00001460 4a 25 3e 3d 53 25 2b 32 36 84 4a 25 3d a9 47 24 |J%>=S%+26.J%=.G$|
00001470 3a 55 24 3d c1 47 24 2c 53 25 2c 4d 25 2d 53 25 |:U$=.G$,S%,M%-S%|
00001480 29 2b c4 32 30 2c 22 20 22 29 3a 55 24 3d c0 55 |)+.20," "):U$=.U|
00001490 24 2c 32 36 29 3a f1 8a 31 31 29 55 24 3a e7 4a |$,26):..11)U$:.J|
000014a0 25 3e 53 25 2b 32 36 80 4d 25 3d 53 25 2d 31 4d |%>S%+26.M%=S%-1M|
000014b0 25 3d 53 25 2b 32 35 0d 03 de 20 4a 25 3d 4d 25 |%=S%+25... J%=M%|
000014c0 2b 31 3a 53 25 3d 4a 25 3a fd 53 25 3e 3d a9 47 |+1:S%=J%:.S%>=.G|
000014d0 24 3a e5 8d 64 72 43 0d 03 e8 2b 4a 25 3d 31 3a |$:..drC...+J%=1:|
000014e0 f5 f1 8a 31 31 29 c1 47 24 2c 4a 25 2c 32 36 29 |...11).G$,J%,26)|
000014f0 3a 4a 25 3d 4a 25 2b 32 36 3a fd 4a 25 3e 3d a9 |:J%=J%+26:.J%>=.|
00001500 47 24 0d 03 f2 22 60 24 3d 4f 24 3a 4f 24 3d 59 |G$..."`$=O$:O$=Y|
00001510 24 3a 59 24 3d 4c 24 3a e7 56 20 4f 24 3d 22 22 |$:Y$=L$:.V O$=""|
00001520 3a e1 8b e1 0d 03 fc 43 dd f2 37 3a ef 33 3a f1 |:......C..7:.3:.|
00001530 27 56 24 3b 3a 4c 24 3d a4 40 28 36 33 2c 31 31 |'V$;:L$=.@(63,11|
00001540 2c bc 2c 32 29 3a f1 bd 31 33 c4 a9 4c 24 2b a9 |,.,2):..13..L$+.|
00001550 4c 24 81 32 37 2a 31 31 2b 31 2c bd 31 32 37 29 |L$.27*11+1,.127)|
00001560 3b 3a e7 47 25 ef 32 0d 04 06 0f f2 67 28 56 24 |;:.G%.2.....g(V$|
00001570 2c 4c 24 29 3a e1 0d 04 10 43 dd a4 37 3a ea 4b |,L$):....C..7:.K|
00001580 24 2c 5a 24 2c 4e 24 2c 49 25 2c 4a 25 3a 4e 24 |$,Z$,N$,I%,J%:N$|
00001590 3d c1 54 24 2c 28 a9 4a 24 2b a7 54 24 2c 4a 24 |=.T$,(.J$+.T$,J$|
000015a0 29 29 29 3a e7 a9 4e 24 3c 31 30 4e 24 3d 4e 24 |))):..N$<10N$=N$|
000015b0 2b c4 31 30 2c 22 7c 22 29 0d 04 1a 66 f7 8d 74 |+.10,"|")...f..t|
000015c0 5e 47 3a e3 4a 25 3d 31 b8 31 39 3a f3 4b 24 2c |^G:.J%=1.19:.K$,|
000015d0 5a 24 3a 4b 24 3d 22 20 22 2b 4b 24 2b 22 20 22 |Z$:K$=" "+K$+" "|
000015e0 3a 5a 24 3d 22 20 22 2b 5a 24 2b 22 20 22 3a f5 |:Z$=" "+Z$+" ":.|
000015f0 49 25 3d a7 4e 24 2c 4b 24 2c 31 29 3a e7 49 25 |I%=.N$,K$,1):.I%|
00001600 3e 30 4e 24 3d c1 4e 24 2c 31 2c 49 25 2d 31 29 |>0N$=.N$,1,I%-1)|
00001610 2b 5a 24 2b c1 4e 24 2c 49 25 2b a9 4b 24 29 0d |+Z$+.N$,I%+.K$).|
00001620 04 24 34 fd 49 25 3d 30 3a ed 3a 49 25 3d a7 4e |.$4.I%=0:.:I%=.N|
00001630 24 2c 22 7c 22 29 3a e7 49 25 3e 30 4e 24 3d c0 |$,"|"):.I%>0N$=.|
00001640 4e 24 2c 49 25 2d 32 29 3a e7 49 25 3d 31 4e 24 |N$,I%-2):.I%=1N$|
00001650 3d 22 22 0d 04 2e 18 e7 c0 4e 24 2c 31 29 3e 22 |=""......N$,1)>"|
00001660 20 22 4e 24 3d 22 20 22 2b 4e 24 0d 04 38 0b 3d | "N$=" "+N$..8.=|
00001670 a4 36 28 4e 24 29 0d 04 42 5d dd f2 4a 3a ea 47 |.6(N$)..B]..J:.G|
00001680 3a ef 31 35 2c 33 2c 32 30 2c 32 36 2c 31 32 2c |:.15,3,20,26,12,|
00001690 32 38 2c 31 2c 32 34 2c 33 38 2c 31 2c 31 39 2c |28,1,24,38,1,19,|
000016a0 30 2c 34 3b 30 3b 3a fb 30 3a fb 31 32 39 3a f1 |0,4;0;:.0:.129:.|
000016b0 8a 31 32 2c 31 29 22 20 43 68 6f 69 63 65 20 70 |.12,1)" Choice p|
000016c0 61 67 65 20 22 3a fb 31 3a fb 31 32 38 3a 2a 46 |age ":.1:.128:*F|
000016d0 58 31 35 0d 04 4c db f1 27 27 8a 39 29 22 31 29 |X15..L..''.9)"1)|
000016e0 20 43 72 65 61 74 65 20 6f 72 20 61 6c 74 65 72 | Create or alter|
000016f0 22 27 8a 31 32 29 22 61 20 63 68 61 72 61 63 74 |"'.12)"a charact|
00001700 65 72 22 27 27 8a 39 29 22 32 29 20 4c 6f 61 64 |er"''.9)"2) Load|
00001710 20 61 20 63 68 61 72 61 63 74 65 72 22 27 27 8a | a character"''.|
00001720 39 29 22 33 29 20 44 72 6f 70 20 61 20 63 68 61 |9)"3) Drop a cha|
00001730 72 61 63 74 65 72 22 27 27 8a 39 29 22 34 29 20 |racter"''.9)"4) |
00001740 53 61 76 65 20 61 20 63 68 61 72 61 63 74 65 72 |Save a character|
00001750 22 27 27 8a 39 29 22 35 29 20 53 74 61 72 74 20 |"''.9)"5) Start |
00001760 64 69 61 6c 6f 67 75 65 22 27 27 8a 39 29 22 36 |dialogue"''.9)"6|
00001770 29 20 45 6e 64 20 74 68 65 20 70 72 6f 67 72 61 |) End the progra|
00001780 6d 22 27 27 27 27 27 22 20 20 45 53 43 41 50 45 |m"'''''" ESCAPE|
00001790 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 79 6f 75 | will return you|
000017a0 20 74 6f 20 74 68 69 73 20 70 61 67 65 22 0d 04 | to this page"..|
000017b0 56 22 f1 8a 30 2c 31 35 29 27 3a 47 3d a4 30 3a |V"..0,15)':G=.0:|
000017c0 e7 47 3c 31 84 47 3e 36 ef 37 3a e5 8d 44 56 44 |.G<1.G>6.7:..DVD|
000017d0 0d 04 60 24 ee 47 e5 8d 44 6a 44 2c 8d 44 74 44 |..`$.G..DjD,.DtD|
000017e0 2c 8d 44 7e 44 2c 8d 74 48 44 2c 8d 74 52 44 2c |,.D~D,.tHD,.tRD,|
000017f0 8d 74 5c 44 0d 04 6a 08 f2 5a 3a e1 0d 04 74 10 |.t\D..j..Z:...t.|
00001800 f2 40 28 22 4c 6f 61 64 22 29 3a e1 0d 04 7e 10 |.@("Load"):...~.|
00001810 f2 40 28 22 44 72 6f 70 22 29 3a e1 0d 04 88 10 |.@("Drop"):.....|
00001820 f2 40 28 22 53 61 76 65 22 29 3a e1 0d 04 92 08 |.@("Save"):.....|
00001830 f2 63 3a e1 0d 04 9c 51 ef 31 39 2c 30 2c 37 3b |.c:....Q.19,0,7;|
00001840 30 3b 31 39 2c 31 2c 30 3b 30 3b 31 32 2c 37 3a |0;19,1,0;0;12,7:|
00001850 f1 8a 31 33 2c 36 29 22 41 72 65 20 79 6f 75 20 |..13,6)"Are you |
00001860 73 75 72 65 22 27 8a 31 31 29 22 79 6f 75 20 77 |sure"'.11)"you w|
00001870 61 6e 74 20 74 6f 20 65 6e 64 22 27 27 27 3a 57 |ant to end"''':W|
00001880 3d a4 33 3a e1 0d 04 a6 97 dd f2 46 28 68 25 29 |=.3:.......F(h%)|
00001890 3a ea 49 24 2c 4b 25 3a db 3a fb 30 3a fb 31 32 |:.I$,K%:.:.0:.12|
000018a0 39 3a f1 8a 31 32 2c 31 29 22 20 43 72 65 61 74 |9:..12,1)" Creat|
000018b0 65 2f 61 6c 74 65 72 20 22 3a fb 31 3a fb 31 32 |e/alter ":.1:.12|
000018c0 38 3a f1 27 27 27 8a 37 29 22 57 68 61 74 20 64 |8:.'''.7)"What d|
000018d0 6f 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 63 61 |o you want to ca|
000018e0 6c 6c 22 27 8a 31 31 29 22 74 68 65 20 63 68 61 |ll"'.11)"the cha|
000018f0 72 61 63 74 65 72 20 3f 22 27 27 8a 33 29 22 54 |racter ?"''.3)"T|
00001900 79 70 65 20 69 74 20 74 68 65 6e 20 70 72 65 73 |ype it then pres|
00001910 73 20 52 45 54 55 52 4e 3a 20 22 3b 0d 04 b0 4d |s RETURN: ";...M|
00001920 49 24 3d a4 40 28 37 2c b1 2c bc 2c 31 29 3a 49 |I$=.@(7,.,.,1):I|
00001930 24 3d 22 20 22 2b 49 24 2b 22 20 22 3a 60 25 3d |$=" "+I$+" ":`%=|
00001940 68 25 3a e7 60 25 3d 30 51 24 3d 49 24 3a 24 28 |h%:.`%=0Q$=I$:$(|
00001950 4a 2b 33 32 29 3d 49 24 8b 52 24 3d 49 24 3a 24 |J+32)=I$.R$=I$:$|
00001960 28 4b 2b 33 32 29 3d 49 24 0d 04 ba 0a dd f2 5a |(K+32)=I$......Z|
00001970 3a ea 47 0d 04 c4 44 db 3a fb 30 3a fb 31 32 39 |:.G...D.:.0:.129|
00001980 3a f1 8a 31 32 2c 31 29 22 20 43 72 65 61 74 65 |:..12,1)" Create|
00001990 2f 61 6c 74 65 72 20 22 3a e7 60 25 3d 30 ef 33 |/alter ":.`%=0.3|
000019a0 31 2c 32 33 2c 35 3a f1 51 24 8b ef 33 31 2c 32 |1,23,5:.Q$..31,2|
000019b0 33 2c 37 3a f1 52 24 0d 04 ce 24 fb 31 3a fb 31 |3,7:.R$...$.1:.1|
000019c0 32 38 3a e7 60 25 3d 30 f1 8a 32 33 2c 37 29 52 |28:.`%=0..23,7)R|
000019d0 24 8b f1 8a 32 33 2c 35 29 51 24 0d 04 d8 69 f1 |$...23,5)Q$...i.|
000019e0 8a 37 2c 35 29 22 31 29 20 43 68 61 72 61 63 74 |.7,5)"1) Charact|
000019f0 65 72 20 41 3a 20 22 27 27 8a 37 29 22 32 29 20 |er A: "''.7)"2) |
00001a00 43 68 61 72 61 63 74 65 72 20 42 3a 20 22 27 27 |Character B: "''|
00001a10 8a 37 29 22 33 29 20 4b 65 79 77 6f 72 64 73 20 |.7)"3) Keywords |
00001a20 61 6e 64 20 52 65 73 70 6f 6e 73 65 73 22 27 27 |and Responses"''|
00001a30 8a 37 29 22 34 29 20 53 74 61 72 74 65 72 73 22 |.7)"4) Starters"|
00001a40 3a f2 43 50 0d 04 e2 1f 47 3d a4 30 3a e7 47 3c |:.CP....G=.0:.G<|
00001a50 31 84 47 3e 34 ef 37 2c 31 31 2c 31 33 3a e5 8d |1.G>4.7,11,13:..|
00001a60 64 62 44 0d 04 ec 1a ee 47 e5 8d 64 76 44 2c 8d |dbD.....G..dvD,.|
00001a70 64 76 44 2c 8d 54 40 45 2c 8d 54 4a 45 0d 04 f6 |dvD,.T@E,.TJE...|
00001a80 13 60 25 3d 47 2d 31 3a f2 46 28 60 25 29 3a e1 |.`%=G-1:.F(`%):.|
00001a90 0d 05 00 08 f2 5f 3a e1 0d 05 0a 08 f2 60 3a e1 |....._:......`:.|
00001aa0 0d 05 14 b4 dd f2 40 28 4b 24 29 3a ea 47 2c 4b |......@(K$):.G,K|
00001ab0 25 3a db 3a fb 30 3a fb 31 32 39 3a f1 8a 31 37 |%:.:.0:.129:..17|
00001ac0 2c 31 29 22 20 22 4b 24 22 20 22 3a fb 31 3a fb |,1)" "K$" ":.1:.|
00001ad0 31 32 38 3a 4b 24 3d a4 34 28 4b 24 29 3a f1 27 |128:K$=.4(K$):.'|
00001ae0 27 27 8a 31 31 29 22 43 68 61 72 61 63 74 65 72 |''.11)"Character|
00001af0 73 20 69 6e 20 75 73 65 22 27 27 8a 31 31 29 22 |s in use"''.11)"|
00001b00 41 3a 20 22 51 24 27 27 8a 31 31 29 22 42 3a 20 |A: "Q$''.11)"B: |
00001b10 22 52 24 27 27 27 27 8a 34 29 22 44 6f 20 79 6f |"R$''''.4)"Do yo|
00001b20 75 20 77 61 6e 74 20 74 6f 20 22 4b 24 22 20 63 |u want to "K$" c|
00001b30 68 61 72 61 63 74 65 72 20 41 22 27 8a 31 31 29 |haracter A"'.11)|
00001b40 22 6f 72 20 63 68 61 72 61 63 74 65 72 20 42 20 |"or character B |
00001b50 3f 22 27 27 0d 05 1e 63 f1 22 20 20 20 20 54 79 |?"''...c." Ty|
00001b60 70 65 20 41 20 6f 72 20 42 20 74 68 65 6e 20 70 |pe A or B then p|
00001b70 72 65 73 73 20 52 45 54 55 52 4e 3a 20 22 3b 3a |ress RETURN: ";:|
00001b80 5f 24 3d a4 40 28 31 2c b1 2c bc 2c 33 29 3a 47 |_$=.@(1,.,.,3):G|
00001b90 3d 28 a7 22 41 42 61 62 22 2c 5f 24 29 2d 31 29 |=(."ABab",_$)-1)|
00001ba0 83 32 3a e7 47 3d 2d 31 ef 37 2c 31 32 37 2c 31 |.2:.G=-1.7,127,1|
00001bb0 33 3a e5 8d 54 5e 45 0d 05 28 11 e7 47 3d 30 4b |3:..T^E..(..G=0K|
00001bc0 25 3d 4a 8b 4b 25 3d 4b 0d 05 32 39 e7 4b 24 3d |%=J.K%=K..29.K$=|
00001bd0 22 6c 6f 61 64 22 f2 4b 28 4b 25 29 8b e7 4b 24 |"load".K(K%)..K$|
00001be0 3d 22 73 61 76 65 22 f2 41 28 4b 25 29 8b e7 4b |="save".A(K%)..K|
00001bf0 24 3d 22 64 72 6f 70 22 f2 32 28 4b 25 2c 57 24 |$="drop".2(K%,W$|
00001c00 29 0d 05 3c 09 ef 32 36 3a e1 0d 05 46 0d dd f2 |)..<..26:...F...|
00001c10 5f 3a ea 47 2c 51 25 0d 05 50 e0 ef 32 36 2c 31 |_:.G,Q%..P..26,1|
00001c20 39 2c 31 2c 34 3b 30 3b 31 32 3a f1 8a 31 2c 32 |9,1,4;0;12:..1,2|
00001c30 30 29 22 31 20 53 74 61 72 74 65 72 73 20 20 20 |0)"1 Starters |
00001c40 20 20 20 20 20 20 20 20 33 20 41 64 64 20 61 20 | 3 Add a |
00001c50 6e 65 77 20 70 61 69 72 22 27 22 20 32 20 4f 74 |new pair"'" 2 Ot|
00001c60 68 65 72 20 63 68 61 72 61 63 74 65 72 20 20 20 |her character |
00001c70 20 34 20 43 68 61 6e 67 65 20 61 20 70 61 69 72 | 4 Change a pair|
00001c80 22 27 22 20 22 3b bd 32 32 35 3b 22 20 47 6f 20 |"'" ";.225;" Go |
00001c90 62 61 63 6b 20 6f 6e 65 20 20 20 20 20 20 20 20 |back one |
00001ca0 35 20 44 65 6c 65 74 65 20 61 20 70 61 69 72 22 |5 Delete a pair"|
00001cb0 27 22 20 22 3b bd 32 32 34 3b 22 20 53 65 65 20 |'" ";.224;" See |
00001cc0 6e 65 78 74 20 6f 6e 65 20 20 20 20 20 20 20 36 |next one 6|
00001cd0 20 49 6e 73 65 72 74 20 61 20 70 61 69 72 22 3a | Insert a pair":|
00001ce0 ef 32 38 2c 30 2c 31 38 2c 33 39 2c 31 3a fb 31 |.28,0,18,39,1:.1|
00001cf0 32 39 3a db 3a fb 30 0d 05 5a d1 f1 8a 39 2c 30 |29:.:.0..Z...9,0|
00001d00 29 22 4b 65 79 77 6f 72 64 73 20 61 6e 64 20 52 |)"Keywords and R|
00001d10 65 73 70 6f 6e 73 65 73 22 3a fb 31 3a fb 31 32 |esponses":.1:.12|
00001d20 38 3a ef 32 38 2c 31 2c 31 37 2c 33 38 2c 32 2c |8:.28,1,17,38,2,|
00001d30 31 32 2c 31 39 2c 31 2c 37 3b 30 3b 3a e3 59 25 |12,19,1,7;0;:.Y%|
00001d40 3d 30 b8 31 33 3a ef 33 31 2c 31 38 2c 59 25 2c |=0.13:.31,18,Y%,|
00001d50 32 32 38 2c 32 32 39 3a ed 3a ef 33 31 2c 31 2c |228,229:.:.31,1,|
00001d60 31 3a f1 22 41 3a 20 22 3a ef 33 31 2c 32 30 2c |1:."A: ":.31,20,|
00001d70 31 3a f1 22 42 3a 20 22 3a ef 33 31 2c 31 2c 33 |1:."B: ":.31,1,3|
00001d80 3a f1 22 4b 65 79 77 6f 72 64 22 3a ef 33 31 2c |:."Keyword":.31,|
00001d90 32 30 2c 33 3a f1 22 4b 65 79 77 6f 72 64 22 3a |20,3:."Keyword":|
00001da0 ef 33 31 2c 31 2c 37 3a f1 22 52 65 73 70 6f 6e |.31,1,7:."Respon|
00001db0 73 65 22 3a ef 33 31 2c 32 30 2c 37 3a f1 22 52 |se":.31,20,7:."R|
00001dc0 65 73 70 6f 6e 73 65 22 0d 05 64 38 ef 32 38 2c |esponse"..d8.28,|
00001dd0 31 2c 31 37 2c 33 38 2c 32 3a e7 60 25 3d 30 fb |1,17,38,2:.`%=0.|
00001de0 30 3a fb 31 32 39 3a 51 25 3d 4a 3a ef 33 31 2c |0:.129:Q%=J:.31,|
00001df0 39 2c 33 3a f1 89 31 3b 51 25 21 31 32 3b 89 31 |9,3:..1;Q%!12;.1|
00001e00 0d 05 6e 48 ef 33 31 2c 35 2c 31 3a f1 51 24 3a |..nH.31,5,1:.Q$:|
00001e10 fb 31 3a fb 31 32 38 3a ef 33 31 2c 32 34 2c 31 |.1:.128:.31,24,1|
00001e20 3a e7 60 25 3d 31 fb 30 3a fb 31 32 39 3a 51 25 |:.`%=1.0:.129:Q%|
00001e30 3d 4b 3a ef 33 31 2c 32 38 2c 33 3a f1 89 31 3b |=K:.31,28,3:..1;|
00001e40 51 25 21 31 32 3b 89 31 0d 05 78 30 ef 33 31 2c |Q%!12;.1..x0.31,|
00001e50 32 34 2c 31 3a f1 52 24 3a fb 31 3a fb 31 32 38 |24,1:.R$:.1:.128|
00001e60 3a f2 52 28 51 25 21 31 32 29 3a ef 32 38 2c 31 |:.R(Q%!12):.28,1|
00001e70 2c 31 37 2c 33 38 2c 32 0d 05 82 46 f1 8a 30 2c |,17,38,2...F..0,|
00001e80 31 33 29 27 3a 47 3d a4 30 3a e7 28 47 3c 31 84 |13)':G=.0:.(G<1.|
00001e90 47 3e 36 29 80 47 3c 3e 31 33 36 80 47 3c 3e 31 |G>6).G<>136.G<>1|
00001ea0 33 37 ef 37 3a e5 8d 74 42 45 8b e7 47 3d 31 33 |37.7:..tBE..G=13|
00001eb0 36 47 3d 37 8b e7 47 3d 31 33 37 47 3d 38 0d 05 |6G=7..G=137G=8..|
00001ec0 8c 3a f2 42 28 34 2c 31 35 2c 33 33 29 3a ee 47 |.:.B(4,15,33):.G|
00001ed0 e5 8d 64 70 45 2c 8d 74 74 45 2c 8d 74 56 45 2c |..dpE,.ttE,.tVE,|
00001ee0 8d 74 7e 45 2c 8d 64 48 45 2c 8d 64 52 45 2c 8d |.t~E,.dHE,.dRE,.|
00001ef0 74 6a 45 2c 8d 74 60 45 0d 05 96 1c f2 4e 28 51 |tjE,.t`E.....N(Q|
00001f00 25 29 3a e7 ac 51 25 21 32 38 8c 8d 44 64 45 8b |%):..Q%!28..DdE.|
00001f10 8d 44 50 45 0d 05 a0 10 f2 51 28 51 25 29 3a e5 |.DPE.....Q(Q%):.|
00001f20 8d 44 64 45 0d 05 aa 10 f2 36 28 51 25 29 3a e5 |.DdE.....6(Q%):.|
00001f30 8d 44 64 45 0d 05 b4 11 60 25 3d 31 2d 60 25 3a |.DdE....`%=1-`%:|
00001f40 e5 8d 44 64 45 0d 05 be 1e e7 51 25 21 31 36 3d |..DdE.....Q%!16=|
00001f50 31 e5 8d 74 56 45 8b f2 44 28 51 25 29 3a e5 8d |1..tVE..D(Q%):..|
00001f60 44 64 45 0d 05 c8 10 f2 4f 28 51 25 29 3a e5 8d |DdE.....O(Q%):..|
00001f70 44 64 45 0d 05 d2 1c f2 53 28 51 25 29 3a e7 ac |DdE.....S(Q%):..|
00001f80 51 25 21 32 38 8c 8d 44 64 45 8b 8d 44 50 45 0d |Q%!28..DdE..DPE.|
00001f90 05 dc 05 e1 0d 05 e6 0d dd f2 60 3a ea 47 2c 51 |..........`:.G,Q|
00001fa0 25 0d 05 f0 ce ef 32 36 2c 31 39 2c 31 2c 34 3b |%.....26,19,1,4;|
00001fb0 30 3b 31 32 3a f1 8a 31 2c 32 30 29 22 31 20 4b |0;12:..1,20)"1 K|
00001fc0 65 79 77 6f 72 64 73 2f 52 65 73 70 6f 6e 73 65 |eywords/Response|
00001fd0 73 20 20 33 20 41 64 64 20 61 20 53 74 61 72 74 |s 3 Add a Start|
00001fe0 65 72 22 27 22 20 32 20 4f 74 68 65 72 20 63 68 |er"'" 2 Other ch|
00001ff0 61 72 61 63 74 65 72 20 20 20 20 20 34 20 43 68 |aracter 4 Ch|
00002000 61 6e 67 65 20 53 74 61 72 74 65 72 22 27 22 20 |ange Starter"'" |
00002010 22 3b bd 32 32 35 3b 22 20 47 6f 20 62 61 63 6b |";.225;" Go back|
00002020 20 6f 6e 65 20 20 20 20 20 20 20 20 20 35 20 44 | one 5 D|
00002030 65 6c 65 74 65 20 53 74 61 72 74 65 72 22 27 22 |elete Starter"'"|
00002040 20 22 3b bd 32 32 34 3b 22 20 53 65 65 20 6e 65 | ";.224;" See ne|
00002050 78 74 20 6f 6e 65 22 3a ef 32 38 2c 30 2c 31 38 |xt one":.28,0,18|
00002060 2c 33 39 2c 31 3a fb 31 32 39 3a db 3a fb 30 0d |,39,1:.129:.:.0.|
00002070 05 fa 99 f1 8a 31 36 2c 30 29 22 53 74 61 72 74 |.....16,0)"Start|
00002080 65 72 73 22 3a fb 31 3a fb 31 32 38 3a ef 32 38 |ers":.1:.128:.28|
00002090 2c 31 2c 31 37 2c 33 38 2c 32 2c 31 32 2c 31 39 |,1,17,38,2,12,19|
000020a0 2c 31 2c 37 3b 30 3b 3a e3 59 25 3d 30 b8 31 33 |,1,7;0;:.Y%=0.13|
000020b0 3a ef 33 31 2c 31 38 2c 59 25 2c 32 32 38 2c 32 |:.31,18,Y%,228,2|
000020c0 32 39 3a ed 3a ef 33 31 2c 31 2c 31 3a f1 22 41 |29:.:.31,1,1:."A|
000020d0 3a 22 3a ef 33 31 2c 32 30 2c 31 3a f1 22 42 3a |:":.31,20,1:."B:|
000020e0 22 3a ef 33 31 2c 31 2c 33 3a f1 22 53 74 61 72 |":.31,1,3:."Star|
000020f0 74 65 72 22 3a ef 33 31 2c 32 30 2c 33 3a f1 22 |ter":.31,20,3:."|
00002100 53 74 61 72 74 65 72 22 0d 06 04 32 ef 32 38 2c |Starter"...2.28,|
00002110 31 2c 31 37 2c 33 38 2c 32 3a e7 60 25 3d 30 fb |1,17,38,2:.`%=0.|
00002120 30 3a fb 31 32 39 3a 51 25 3d 4a 3a ef 33 31 2c |0:.129:Q%=J:.31,|
00002130 39 2c 33 3a f1 3b 51 25 21 34 0d 06 0e 42 ef 33 |9,3:.;Q%!4...B.3|
00002140 31 2c 35 2c 31 3a f1 51 24 3a fb 31 3a fb 31 32 |1,5,1:.Q$:.1:.12|
00002150 38 3a ef 33 31 2c 32 34 2c 31 3a e7 60 25 3d 31 |8:.31,24,1:.`%=1|
00002160 fb 30 3a fb 31 32 39 3a 51 25 3d 4b 3a ef 33 31 |.0:.129:Q%=K:.31|
00002170 2c 32 38 2c 33 3a f1 3b 51 25 21 34 0d 06 18 2f |,28,3:.;Q%!4.../|
00002180 ef 33 31 2c 32 34 2c 31 3a f1 52 24 3a fb 31 3a |.31,24,1:.R$:.1:|
00002190 fb 31 32 38 3a f2 58 28 51 25 21 34 29 3a ef 32 |.128:.X(Q%!4):.2|
000021a0 38 2c 31 2c 31 37 2c 33 38 2c 32 0d 06 22 47 f1 |8,1,17,38,2.."G.|
000021b0 8a 31 32 2c 31 33 29 27 3a 47 3d a4 30 3a e7 28 |.12,13)':G=.0:.(|
000021c0 47 3c 31 84 47 3e 35 29 80 47 3c 3e 31 33 36 80 |G<1.G>5).G<>136.|
000021d0 47 3c 3e 31 33 37 ef 37 3a e5 8d 54 62 46 8b e7 |G<>137.7:..TbF..|
000021e0 47 3d 31 33 36 47 3d 36 8b e7 47 3d 31 33 37 47 |G=136G=6..G=137G|
000021f0 3d 37 0d 06 2c 35 f2 42 28 34 2c 31 35 2c 33 33 |=7..,5.B(4,15,33|
00002200 29 3a ee 47 e5 8d 44 50 45 2c 8d 44 54 46 2c 8d |):.G..DPE,.DTF,.|
00002210 54 76 46 2c 8d 44 5e 46 2c 8d 44 68 46 2c 8d 44 |TvF,.D^F,.DhF,.D|
00002220 4a 46 2c 8d 44 40 46 0d 06 36 1c f2 54 28 51 25 |JF,.D@F..6..T(Q%|
00002230 29 3a e7 ac 51 25 21 32 34 8c 8d 54 44 46 8b 8d |):..Q%!24..TDF..|
00002240 64 70 45 0d 06 40 10 f2 55 28 51 25 29 3a e5 8d |dpE..@..U(Q%):..|
00002250 54 44 46 0d 06 4a 10 f2 56 28 51 25 29 3a e5 8d |TDF..J..V(Q%):..|
00002260 54 44 46 0d 06 54 11 60 25 3d 31 2d 60 25 3a e5 |TDF..T.`%=1-`%:.|
00002270 8d 54 44 46 0d 06 5e 1d e7 51 25 21 38 3d 31 e5 |.TDF..^..Q%!8=1.|
00002280 8d 54 76 46 8b f2 45 28 51 25 29 3a e5 8d 54 44 |.TvF..E(Q%):..TD|
00002290 46 0d 06 68 12 f2 57 28 51 25 29 3a e5 8d 54 44 |F..h..W(Q%):..TD|
000022a0 46 3a e1 0d 06 72 0d dd f2 63 3a 2a 46 58 31 35 |F:...r...c:*FX15|
000022b0 0d 06 7c c1 db 3a fb 30 3a fb 31 32 39 3a f1 8a |..|..:.0:.129:..|
000022c0 31 34 2c 31 29 22 20 44 69 61 6c 6f 67 75 65 20 |14,1)" Dialogue |
000022d0 22 3a fb 31 3a fb 31 32 38 3a f1 27 27 27 8a 31 |":.1:.128:.'''.1|
000022e0 31 29 22 43 68 61 72 61 63 74 65 72 73 20 69 6e |1)"Characters in|
000022f0 20 75 73 65 22 27 27 8a 31 31 29 22 41 3a 20 22 | use"''.11)"A: "|
00002300 51 24 27 27 8a 31 31 29 22 42 3a 20 22 52 24 3a |Q$''.11)"B: "R$:|
00002310 f1 27 8a 34 29 22 44 6f 20 79 6f 75 20 77 61 6e |.'.4)"Do you wan|
00002320 74 20 61 20 64 69 61 6c 6f 67 75 65 20 62 65 74 |t a dialogue bet|
00002330 77 65 65 6e 22 27 27 8a 34 29 22 31 29 22 51 24 |ween"''.4)"1)"Q$|
00002340 22 61 6e 64 22 52 24 27 8a 34 29 22 32 29 22 51 |"and"R$'.4)"2)"Q|
00002350 24 22 61 6e 64 20 79 6f 75 22 27 8a 34 29 22 33 |$"and you"'.4)"3|
00002360 29 22 52 24 22 61 6e 64 20 79 6f 75 22 3a f2 43 |)"R$"and you":.C|
00002370 50 0d 06 86 72 49 3d a4 30 3a e7 49 3c 31 84 49 |P...rI=.0:.I<1.I|
00002380 3e 33 ef 37 2c 31 31 2c 31 33 3a e5 8d 74 46 46 |>3.7,11,13:..tFF|
00002390 8b e7 28 4a 21 38 3d 31 80 28 49 3d 31 84 49 3d |..(J!8=1.(I=1.I=|
000023a0 32 29 29 84 28 4b 21 38 3d 31 80 28 49 3d 31 84 |2)).(K!8=1.(I=1.|
000023b0 49 3d 33 29 29 84 28 4a 21 31 36 3d 31 80 28 49 |I=3)).(J!16=1.(I|
000023c0 3d 31 84 49 3d 32 29 29 84 28 4b 21 31 36 3d 31 |=1.I=2)).(K!16=1|
000023d0 80 28 49 3d 31 84 49 3d 33 29 29 f2 4c 3a e5 8d |.(I=1.I=3)).L:..|
000023e0 44 7c 46 0d 06 90 76 e7 49 3d 31 8c 8d 74 6e 46 |D|F...v.I=1..tnF|
000023f0 8b db 3a fb 30 3a fb 31 32 39 3a f1 8a 31 34 2c |..:.0:.129:..14,|
00002400 31 29 22 20 44 69 61 6c 6f 67 75 65 20 22 3a fb |1)" Dialogue ":.|
00002410 31 3a fb 31 32 38 3a f1 27 27 27 27 8a 33 29 22 |1:.128:.''''.3)"|
00002420 57 68 6f 20 69 73 20 74 6f 20 62 65 20 74 68 65 |Who is to be the|
00002430 20 66 69 72 73 74 20 73 70 65 61 6b 65 72 20 3f | first speaker ?|
00002440 22 27 27 27 8a 31 32 29 22 31 29 22 3b 3a e7 49 |"'''.12)"1)";:.I|
00002450 3d 32 f1 51 24 8b f1 52 24 0d 06 9a 14 f1 27 8a |=2.Q$..R$.....'.|
00002460 31 32 29 22 32 29 20 79 6f 75 22 27 27 0d 06 a4 |12)"2) you"''...|
00002470 1f 53 3d a4 30 3a e7 53 3c 31 84 53 3e 32 ef 37 |.S=.0:.S<1.S>2.7|
00002480 2c 31 33 2c 31 31 3a e5 8d 74 64 46 0d 06 ae ae |,13,11:..tdF....|
00002490 db 3a fb 30 3a fb 31 32 39 3a f1 8a 31 34 2c 31 |.:.0:.129:..14,1|
000024a0 29 22 20 44 69 61 6c 6f 67 75 65 20 22 3a fb 31 |)" Dialogue ":.1|
000024b0 3a fb 31 32 38 3a e7 56 24 3c 3e 22 22 f1 27 27 |:.128:.V$<>"".''|
000024c0 27 8a 39 29 22 49 73 20 79 6f 75 72 20 6e 61 6d |'.9)"Is your nam|
000024d0 65 22 3b 56 24 3b 22 3f 22 27 3a e7 a4 33 8b f1 |e";V$;"?"':..3..|
000024e0 27 27 27 8a 39 29 22 57 68 61 74 20 69 73 20 79 |'''.9)"What is y|
000024f0 6f 75 72 20 6e 61 6d 65 20 3f 22 27 27 27 22 20 |our name ?"'''" |
00002500 54 79 70 65 20 69 74 20 74 68 65 6e 20 70 72 65 |Type it then pre|
00002510 73 73 20 52 45 54 55 52 4e 3a 20 22 3b 3a 56 24 |ss RETURN: ";:V$|
00002520 3d a4 40 28 39 2c b1 2c bc 2c 33 29 3a 56 24 3d |=.@(9,.,.,3):V$=|
00002530 22 20 22 2b 56 24 2b 22 20 22 0d 06 b8 4b 4f 24 |" "+V$+" "...KO$|
00002540 3d 22 22 3a 59 24 3d 22 22 3a db 3a fb 30 3a fb |="":Y$="":.:.0:.|
00002550 31 32 39 3a f1 8a 31 34 2c 31 29 22 20 44 69 61 |129:..14,1)" Dia|
00002560 6c 6f 67 75 65 20 22 3a fb 31 3a fb 31 32 38 3a |logue ":.1:.128:|
00002570 f2 4d 3a e7 49 3c 3e 31 f2 62 8b f2 66 3a e7 63 |.M:.I<>1.b..f:.c|
00002580 25 3d 31 f2 47 0d 06 c2 05 e1 0d 06 cc 42 dd f2 |%=1.G........B..|
00002590 4d 3a ea 5f 24 3a 47 25 3d a3 3a f1 27 27 27 8a |M:._$:G%=.:.'''.|
000025a0 37 29 22 44 6f 20 79 6f 75 20 77 61 6e 74 20 61 |7)"Do you want a|
000025b0 20 70 72 69 6e 74 6f 75 74 20 3f 22 27 27 27 3a | printout ?"''':|
000025c0 e7 ac a4 33 e1 8b 47 25 3d b9 3a e1 0d 06 d6 94 |...3..G%=.:.....|
000025d0 dd f2 62 3a ea 4b 25 2c 49 24 3a ef 32 36 2c 32 |..b:.K%,I$:.26,2|
000025e0 30 2c 31 39 2c 31 2c 30 3b 30 3b 31 32 2c 33 31 |0,19,1,0;0;12,31|
000025f0 2c 30 2c 31 36 3a f2 43 50 3a ef 32 38 2c 30 2c |,0,16:.CP:.28,0,|
00002600 31 39 2c 33 39 2c 31 3a fb 31 32 39 3a db 3a fb |19,39,1:.129:.:.|
00002610 30 3a f1 8a 31 36 2c 30 29 22 44 69 61 6c 6f 67 |0:..16,0)"Dialog|
00002620 75 65 22 3a fb 31 3a fb 31 32 38 3a ef 32 38 2c |ue":.1:.128:.28,|
00002630 31 2c 31 38 2c 33 38 2c 32 3a db 3a ef 31 39 2c |1,18,38,2:.:.19,|
00002640 31 2c 32 3b 30 3b 3a e7 49 3d 32 4b 25 3d 4a 3a |1,2;0;:.I=2K%=J:|
00002650 49 24 3d 51 24 8b 4b 25 3d 4b 3a 49 24 3d 52 24 |I$=Q$.K%=K:I$=R$|
00002660 0d 06 e0 09 e7 47 25 ef 32 0d 06 ea 12 f1 3a ee |.....G%.2.....:.|
00002670 53 e5 8d 64 74 46 2c 8d 64 7e 46 0d 06 f4 1a 4e |S..dtF,.d~F....N|
00002680 3d b9 3a f5 f2 33 28 4b 25 2c 49 24 29 3a f2 37 |=.:..3(K%,I$):.7|
00002690 3a fd a3 3a e1 0d 06 fe 16 f5 f2 37 3a f2 33 28 |:..:.......7:.3(|
000026a0 4b 25 2c 49 24 29 3a fd a3 3a e1 0d 07 08 ae dd |K%,I$):..:......|
000026b0 f2 66 3a ea 4f 3a 4f 3d b9 3a 4e 3d b9 3a ef 32 |.f:.O:O=.:N=.:.2|
000026c0 36 2c 32 30 2c 31 39 2c 31 2c 32 3b 30 3b 31 32 |6,20,19,1,2;0;12|
000026d0 3a f1 8a 31 2c 32 31 29 22 31 29 20 52 65 73 74 |:..1,21)"1) Rest|
000026e0 61 72 74 20 20 32 29 20 43 68 6f 69 63 65 20 70 |art 2) Choice p|
000026f0 61 67 65 20 20 33 29 20 4a 6f 69 6e 20 69 6e 22 |age 3) Join in"|
00002700 27 27 22 20 20 20 20 53 70 65 65 64 3a 22 3a ef |''" Speed:":.|
00002710 32 38 2c 30 2c 31 39 2c 33 39 2c 31 3a fb 31 32 |28,0,19,39,1:.12|
00002720 39 3a db 3a fb 30 3a f1 8a 31 36 2c 30 29 22 44 |9:.:.0:..16,0)"D|
00002730 69 61 6c 6f 67 75 65 22 27 3a fb 31 3a fb 31 32 |ialogue"':.1:.12|
00002740 38 3a 73 25 3d 30 3a f2 47 3a 73 25 3d 31 3a ef |8:s%=0:.G:s%=1:.|
00002750 33 3a db 3a e7 47 25 ef 32 0d 07 12 38 f5 3a e7 |3:.:.G%.2...8.:.|
00002760 a6 2d 31 32 39 80 63 25 3c 3e 31 8c 8d 44 62 47 |.-129.c%<>1..DbG|
00002770 8b e7 ac a6 2d 34 39 8c 8d 54 70 47 8b ef 33 3a |....-49..TpG..3:|
00002780 db 3a 4f 3d b9 3a 4e 3d b9 3a e7 63 25 3d 31 f2 |.:O=.:N=.:.c%=1.|
00002790 47 0d 07 1c 09 e7 47 25 ef 32 0d 07 26 06 fd a3 |G.....G%.2..&...|
000027a0 0d 07 30 1f 65 3d a6 28 39 29 3a e7 a6 2d 31 38 |..0.e=.(9):..-18|
000027b0 f2 37 3a 4f 3d ac 4f 3a e7 63 25 3d 31 f2 47 0d |.7:O=.O:.c%=1.G.|
000027c0 07 3a 2d f5 3a e7 a6 2d 31 32 32 80 64 25 3e 30 |.:-.:..-122.d%>0|
000027d0 f2 47 8b e7 a6 2d 32 36 80 64 25 3c 36 30 30 73 |.G...-26.d%<600s|
000027e0 25 3d 2d 31 3a f2 47 3a 73 25 3d 31 0d 07 44 13 |%=-1:.G:s%=1..D.|
000027f0 e7 63 25 3d 31 fd b9 3a fd a6 2d 35 30 3a e1 0d |.c%=1..:..-50:..|
00002800 07 4e 0b 2a 46 58 31 35 2c 31 0d 07 58 1a 65 3d |.N.*FX15,1..X.e=|
00002810 a6 28 35 30 29 3a fd ac 28 a6 2d 31 32 32 84 a6 |.(50):..(.-122..|
00002820 2d 32 36 29 0d 07 62 1b 62 3d 91 3a e7 4f f2 33 |-26)..b.b=.:.O.3|
00002830 28 4a 2c 51 24 29 8b f2 33 28 4b 2c 52 24 29 0d |(J,Q$)..3(K,R$).|
00002840 07 6c 1c 4f 3d ac 4f 3a 65 3d a6 28 64 25 2d 91 |.l.O=.O:e=.(d%-.|
00002850 2b 62 29 3a fd a6 2d 35 30 3a e1 0d 07 76 75 dd |+b):..-50:...vu.|
00002860 f2 47 3a 64 25 3d 64 25 2d 73 25 2a 37 35 3a 63 |.G:d%=d%-s%*75:c|
00002870 25 3d 63 25 2b 73 25 3a 56 25 3d bc 3a 57 25 3d |%=c%+s%:V%=.:W%=|
00002880 b1 3a ef 33 2c 32 38 2c 31 33 2c 32 34 2c 33 39 |.:.3,28,13,24,39|
00002890 2c 32 33 3a db 3a f1 22 e1 e2 e2 e2 e2 e2 e2 e2 |,23:.:."........|
000028a0 e2 e2 e0 22 8a 63 25 2c 30 29 3b 3a ef 32 32 37 |...".c%,0);:.227|
000028b0 2c 32 38 2c 31 2c 31 38 2c 33 38 2c 32 2c 33 31 |,28,1,18,38,2,31|
000028c0 2c 57 25 2c 56 25 3a e7 47 25 ef 32 3a e1 8b e1 |,W%,V%:.G%.2:...|
000028d0 0d 07 80 40 dd f2 43 50 3a f1 27 27 27 27 27 22 |...@..CP:.'''''"|
000028e0 20 20 20 20 50 72 65 73 73 20 45 53 43 41 50 45 | Press ESCAPE|
000028f0 20 66 6f 72 20 43 68 6f 69 63 65 20 70 61 67 65 | for Choice page|
00002900 22 3a ef 31 31 2c 31 31 2c 31 31 2c 31 31 3a e1 |":.11,11,11,11:.|
00002910 0d 07 8a 72 ef 33 2c 32 36 3a e7 9f 3d 31 37 53 |...r.3,26:..=17S|
00002920 24 3d 22 22 3a 54 24 3d 22 22 3a 55 24 3d 22 22 |$="":T$="":U$=""|
00002930 3a 4d 24 3d 22 22 3a 4e 24 3d 22 22 3a 58 24 3d |:M$="":N$="":X$=|
00002940 22 22 8b e7 9f 3d 32 35 34 f2 4c 8b db 3a f6 3a |""...=254.L..:.:|
00002950 f2 34 3a e7 9f 3c 3e 32 31 34 8b e7 4b 25 3d 4a |.4:..<>214..K%=J|
00002960 20 51 24 3d 57 24 3a 24 28 4a 2b 33 32 29 3d 57 | Q$=W$:$(J+32)=W|
00002970 24 8b 52 24 3d 57 24 3a 24 28 4b 2b 33 32 29 3d |$.R$=W$:$(K+32)=|
00002980 57 24 0d 07 94 09 e5 8d 54 7c 40 0d 07 9e d5 dc |W$......T|@.....|
00002990 79 6f 75 2c 6d 65 25 2c 69 2c 79 6f 75 25 2c 6d |you,me%,i,you%,m|
000029a0 65 2c 79 6f 75 25 2c 61 72 65 2c 61 6d 25 2c 61 |e,you%,are,am%,a|
000029b0 6d 2c 61 72 65 25 2c 77 61 73 2c 77 65 72 65 25 |m,are%,was,were%|
000029c0 2c 77 65 72 65 2c 77 61 73 25 2c 79 6f 75 72 2c |,were,was%,your,|
000029d0 6d 79 25 2c 6d 79 2c 79 6f 75 72 25 2c 69 27 76 |my%,my,your%,i'v|
000029e0 65 2c 79 6f 75 27 76 65 25 2c 79 6f 75 27 76 65 |e,you've%,you've|
000029f0 2c 49 27 76 65 25 2c 69 27 6d 2c 79 6f 75 27 72 |,I've%,i'm,you'r|
00002a00 65 25 2c 79 6f 75 27 72 65 2c 49 27 6d 25 2c 69 |e%,you're,I'm%,i|
00002a10 27 6c 6c 2c 79 6f 75 27 6c 6c 25 2c 79 6f 75 27 |'ll,you'll%,you'|
00002a20 6c 6c 2c 49 27 6c 6c 25 2c 69 27 64 2c 79 6f 75 |ll,I'll%,i'd,you|
00002a30 27 64 25 2c 79 6f 75 27 64 2c 49 27 64 25 2c 79 |'d%,you'd,I'd%,y|
00002a40 6f 75 72 73 65 6c 66 2c 6d 79 73 65 6c 66 25 2c |ourself,myself%,|
00002a50 6d 79 73 65 6c 66 2c 79 6f 75 72 73 65 6c 66 25 |myself,yourself%|
00002a60 0d 07 a8 16 dc 69 20 2c 49 20 2c 69 27 2c 49 27 |.....i ,I ,i',I'|
00002a70 2c 69 2a 2c 49 2a 0d ff |,i*,I*..|
00002a78 
TALK3.m0
TALK3.m1
TALK3.m2
TALK3.m4
TALK3.m5
.