0 PRINT"VOYEUR T2.0.1 by James Main Kenney 1994":PRINT@45,"Distribute exact copies freely":DEFINTB-V:U=127:T=256:Z=T^2:E$=CHR$(27):F$="A":M=280:W=63858:GOTO90
1 IFA+6>ZTHENA=A-Z:GOTO1ELSEA=A+1:B=PEEK(A):C$=CHR$(B):IFB<32ORB=UTHENC$=CHR$(B+64):PRINTE$"p";
2 PRINT@P,C$;:IFDTHENT$=RIGHT$(T$+CHR$(B),D):IFINSTR(S$,T$)THENK=2:BEEP
3 IFINKEY$>""THENK=2:GOTO6ELSEIFKTHEN6
4 PRINT@P+1,E$"q ";:IFP+1<MTHENP=P+1:GOTO1ELSEIFETHENPRINTE$"W"E$"L":P=M-40ELSE6
5 PRINT@M,E$"L"USING"> #####";A+1;:GOTO1
6 R=(BANDU)MODU:IFR<32THENR=32
7 PRINT@M+12,E$"V"C$;E$"q ":PRINTCHR$(R);USING" ##### ### ";A;B:PRINT@M+14,;:IFB<32ORB=UTHENC$="^"+C$
8 IFHTHENX=B:FORR=0TO1:G$=H$:H$="":FORJ=1+2*RTO0STEP-1:S=X/16^J:H$=H$+CHR$(48+S+7*(S\10)):X=X-S*16^J:NEXT:PRINT"H"H$" ";:X=A:NEXT:IFFTHENPRINT#1,H$" "G$;
9 IFF=2ORF=3THENPRINT#1,CHR$(H*32);USING"##### ###";A;B;
10 IFN=0THEN21ELSEIFQTHENQ=Q-1:GOTO23ELSEIFB=0THENC$=STR$(PEEK(A+3)+T*PEEK(A+4)):C$=RIGHT$(C$,LEN(C$)-1):Q=4:V=0ELSEIFB=34THENV=VXOR1ELSEIFB=58THENIFPEEK(A+1)=145THEN23ELSEIFPEEK(A+1)=142ANDPEEK(A+2)=255THENQ=1:GOTO23
11 IFB>UANDV=0THENR=4*(B-U)+56+ASC(MID$("DCBBBCBBAA@>ABDCCDDDDEGFDEEFFGHHJLKKLLLMNOPQRRQPONNOPPRSRSSSRRRTSSQRTSRUVWY[Z[[ZZWTQNKJHGFEDA>;8765433210/.-,+**)(''''&%%$##%&((",B-U,1)):C$="":FORJ=RTOR+6:C$=C$+CHR$(PEEK(J)MOD128):IFPEEK(J+1)<UTHENNEXT
20 PRINTC$;
21 IFF=3ORF=5THENPRINT#1," ";
22 IFFAND1THENIFN=1ANDB=0THENPRINT#1,:PRINT#1,C$" ";ELSEIFB=0ORB=26ORB>31THENPRINT#1,C$;ELSEPRINT#1,CHR$(B);
23 PRINTE$"K":X=PEEK(A+1)+T*PEEK(A+2):PRINT@M+32,X:IFFTHENPRINT@M+39,"F":IFF>1THENPRINT#1,
30 IFK=1THEN4ELSEPRINT@P,;:E=0:K$=INPUT$(1):J=INSTR("aSfbLeHNcGdZ",CHR$(ASC(K$)+70)):IFJ=1THENMENUELSEIFJ=2ORJ>4THENQ=0:IFJ=2THENK=0:P=P+1:IFP<MTHEN5ELSEE=1:GOTO4
31 IFJTHENS=(P+VAL(MID$("001001011040120",3*((J-3)MOD5)+1,3))*(1-2*(J\8))+M)MODM:A=A+S-P:P=S:K=2:GOTO33ELSEK=INSTR("RASFPNLHBCDT=rasfpnlhbcdt",K$)MOD13:PRINT@M+14,;:IFK<2THENE=1:GOTO30
32 PRINTE$"K":PRINT@M+14,;:Q=0:S=1:ONK-1GOSUB50,60,70,80:IFK=6THENA=A+MELSEIFK=7THENA=A-MELSEIFK=8THENH=HXOR1ELSEIFK=9THENN=NXOR1ELSEIFK>9THENP=0:CLS:IFK=11THENA=W
33 IFK>10THENK=0:GOTO5ELSEA=A-1:IFA<0THENA=A+Z:GOTO1ELSE1
40 Y=VAL(A$):IFYTHENG=1ELSEG=LEN(A$):R=ASC(A$):IFG=1ANDR<>48THENY=RELSEIFR=72ORR=104THENFORJ=0TOG-2:R=INSTR("FEDCBA9876543210=fedcba",MID$(A$,G-J,1))MOD17:IFRTHENY=Y+(16-R)*16^J:NEXT:G=1
41 RETURN
50 A$=STR$(X-1):PRINT"Adrs"A$;:INPUTA$:GOSUB40:IFG>1THENBEEPELSEX=A:A=Y:X=P+A-X:IFX>=0ANDX<MTHENP=X
51 RETURN
60 PRINT@M,;:IFSTHENPRINT" Search":PRINT@M+13,;ELSEPRINTE$"L"D"byte search";
61 LINEINPUT"? ";A$:IFA$=""THENIFSTHENA$=CHR$(B):Y=B:G=1ELSERETURNELSEGOSUB40:IFG=1THENIFY<TTHENA$=CHR$(Y)ELSEIFY=999THENS$="":A$="
62 S$=S$+A$:T$=A$:D=LEN(A$):S=0:GOTO60
70 IFFTHENF=0:CLOSEELSEPRINT"File "F$;:INPUTF$:OPENF$FOROUTPUTAS1:PRINTE$"L0>chr/BAS 1>adrs/byt 2>both":F=1+VAL(INPUT$(1)):IFF>1THENPRINTE$"L0>dec 1>hex 2>both":H=2*VAL(INPUT$(1)):F=F+HMOD4:IFHTHENH=1
71 RETURN
80 PRINT"Poke"STR$(Y)"? ";:LINEINPUTA$:IFA$>""THENGOSUB40
81 IFG<2ANDY<TTHENPOKEA,Y:RETURNELSEBEEP:RETURN
90 PRINT:PRINT"Any key>stop scan; for cursor chr, read:7-bit ASC equiv; dec adrs/byt; chr; opt hex byt/adrs; opt BASIC txt; 16-bit val.Toggle: H>hex B>BASIC":IFPEEK(1)=171THENM=600:W=62049
91 X=W+2:GOSUB50:CLS:PRINT"Spacebar/BKSP/arrows>step cursor; R>run;SHIFT-arrows>jump cursor; N/L>jump adrs;C>clear screen; D>directory; ESC>MENU;
92 PRINT"ENTER>scan; with cursor at display end: ENTER>scroll T>page. Prompts (prefix hexnum by H): A>adrs F>file P>poke S>search(enter byts or =len strings; 999>clear)":GOSUB60:CLS:A=A-1:GOTO5