1 POKE55,0:POKE56,32:CLR
2 POKE53280,0:POKE53281,0:A$="":V=53248
3 PRINT"[147]":GOSUB60000:DIMM$(9):FORI=1TO9:READM$(I):NEXT
4 DATA " [208]RINT [211]HOP TO [207][195][208]       "
5 DATA " [208]RINT [211]HOP TO [196]OODLE    "
6 DATA " [208]RINT [211]HOP TO [210][213][206] [208]AINT "
7 DATA " [207][195][208] TO [208]RINT [211]HOP       "
8 DATA " [196]OODLE TO [208]RINT [211]HOP    "
9 DATA " [210][213][206] [208]AINT TO [208]RINT [211]HOP "
10 DATA " [196]ISK [198]UNCTIONS          "
12 DATA " [201]NSTRUCTIONS            "
13 DATA " [210]ETURN TO [204][207][193][196][211][212][193][210]      [146]"
14 GOSUB8500
15 SYS57812"HI-RES.O",D1,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
16 SYS57812"HI-RES.SP",D1,0:POKE780,0:POKE781,64:POKE782,3:SYS65493
17 SYS57812"READER 8000",D1,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
19 SYS57812"I-MENU $CC00",D1,0:POKE780,0:POKE781,0:POKE782,204:SYS65493
20 POKE32821,D1
54 SP$="              "
100 POKE2040,13:POKE2041,14:POKEV+39,4:POKEV+40,4
102 POKEV,24:POKEV+1,128:POKEV+2,32:POKEV+3,128:POKEV+16,2
104 POKEV+29,3:POKEV+23,3:POKEV+21,3
160 PRINTCHR$(14)"[147] [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
161 PRINT" [221][153]    [200]I-[210]ES/[208]RINT[160][211]HOP [195]ONVERTER    [159][221]"
162 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":POKE198,0
163 POKE214,20:PRINT:PRINT" [129][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
164 PRINT" [221][150]  [213]SE [195][213][210][211][207][210] KEYS/[210][197][212][213][210][206] TO SELECT  [129][221]"
165 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
166 M$=" "
170 PRINT"[159][211]OURCE[158]:   [157][157][157]"D1,"[159][196]ESTINATION[158]:   [157][157][157]"DN:POKE53275,3
175 SYS52224,73,7,8,7,1,3,M$(1),M$(2),M$(3),M$(4),M$(5),M$(6),M$(7),M$(8),M$(9)
180 GETK$:K=VAL(K$)
181 SYS52227,0:POKEV+21,0
185 ONKGOSUB1000,1000,1000,3000,3000,3000,4000,9000,6000
190 SYS52230,0:POKEV+21,3
200 GOTO170
210 :
1000 GOSUB7000:IFFLTHENRETURN
1005 IFK=1THENSYS49158:L1=0:L2=40:H1=32:H2=67:S1=8192:S2=22528
1007 IFK=2ORK=3THENSYS49161:L1=0:L2=0:H1=92:H2=128:S1=24576:S2=22528
1010 SYS57812S$,D1,0:POKE780,0:POKE781,0:POKE782,88:SYS65493
1011 DQ=D1:GOSUB9050:IFER>1THENRETURN
1012 IFD1=DNTHENGOSUB5000:GOTO1015
1013 OPEN15,DN,15,"I0":INPUT#15,ER,ER$,AA,AA:CLOSE15
1014 IFER>1THENDQ=DN:GOSUB9060:RETURN
1015 GOSUB8000:POKE214,19:PRINT:PRINT"[195]ONVERTING...[154]"
1016 POKE214,21:PRINT:PRINT"   '"S$"' TO [154]'"D$"'"
1020 FORI=0TO5:POKE214,19:PRINT:PRINTTAB(13+I)".";:FORJ=0TO7:FORK=0TO10
1025 B=S1+K*8+J+I*320
1030 POKEB,PEEK(S2):S2=S2+1
1035 NEXT:NEXT:NEXT:PRINT
1040 FORJ=0TO3:FORK=0TO10
1045 B=S1+K*8+J+1920
1050 POKEB,PEEK(S2):S2=S2+1
1055 NEXT:NEXT
1065 OPEN15,DN,15,"S0:"+D$:CLOSE15
1075 SYS57812D$,DN:POKE193,L1:POKE194,H1:POKE174,L2:POKE175,H2:SYS62954
1080 RETURN
1085 :
3000 GOSUB7000:IFFLTHENRETURN
3002 S1=8192:S2=22528:XX=32:IFK=5ORK=6THENS1=24576:S2=22528:XX=92
3003 SYS57812S$,D1,0:POKE780,0:POKE781,0:POKE782,XX:SYS65493
3004 DQ=D1:GOSUB9050:IFER>1THENRETURN
3005 IFD1=DNTHENGOSUB5000:GOTO3008
3006 OPEN15,DN,15,"I0":INPUT#15,ER,ER$,AA,AA:CLOSE15
3007 IFER>1THENDQ=DN:GOSUB9060:RETURN
3008 GOSUB8000:POKE214,19:PRINT:PRINT"[195]ONVERTING...[154]"
3009 POKE214,21:PRINT:PRINT"   '"S$"' TO [154]'"D$"'"
3010 FORI=0TO6:POKE214,19:PRINT:PRINTTAB(13+I)".";:FORJ=0TO7:FORK=0TO10
3015 B=S1+K*8+J+I*320
3020 POKES2,PEEK(B):S2=S2+1
3025 NEXT:NEXT:NEXT:PRINT
3030 FORI=23100TO23107:POKEI,0:NEXT
3033 OPEN15,DN,15,"S0:"+D$:CLOSE15
3035 SYS57812D$,DN:POKE193,0:POKE194,88:POKE174,67:POKE175,90:SYS62954
3040 RETURN
3045 :
4000 SYS52224+3,5
4002 POKE214,2:PRINT:PRINTTAB(11)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
4005 PRINTTAB(11)"[221][159]                          [221]"
4010 PRINTTAB(11)"[221][159] [198]1/[198]2   [211]OURCE DRIVE: 00 [221]"
4015 PRINTTAB(11)"[221][159] [198]3/[198]4   [196]EST.  DRIVE: 00 [221]"
4020 PRINTTAB(11)"[221][159] [211]/[196]     [196]IRECTORY        [221]"
4022 PRINTTAB(11)"[221][159] [210][197][212][213][210][206]  [205]ENU             [221]"
4025 PRINTTAB(11)"[221][159]                          [221]"
4030 PRINTTAB(11)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][159]"
4035 POKE214,4:PRINT:PRINTTAB(35)""DR$(D1)
4040 PRINTTAB(35)""DR$(DN)
4050 GETK$:IFK$=""THEN4050
4055 IFK$=CHR$(13)THEN4110
4060 IFK$="S"THENPOKEV+21,0:SYS52224+3,6:PRINT"[147]":SYS49155,D1:GOTO4100
4065 IFK$="D"THENPOKEV+21,0:SYS52224+3,6:PRINT"[147]":SYS49155,DN:GOTO4100
4070 IFK$=CHR$(133)THEND1=D1+1:IFD1>15THEND1=8
4075 IFK$=CHR$(137)THEND1=D1-1:IFD1<8THEND1=15
4080 IFK$=CHR$(134)THENDN=DN+1:IFDN>15THENDN=8
4085 IFK$=CHR$(138)THENDN=DN-1:IFDN<8THENDN=15
4090 GOTO4035
4100 POKE198,0
4102 PRINTTAB(14)"[154][208]RESS A KEY"
4105 GETK$:IFK$=""THEN4105
4107 SYS52224+6,6:GOTO4002
4110 SYS52224+6,5:RETURN
4115 :
5000 POKE214,22:PRINT:PRINT"[158][201]NSERT DESTINATION DISK AND PRESS A KEY":POKE198,0
5010 GETA$:IFA$=""THEN5010
5020 POKE781,23:SYS59903
5030 RETURN
6000 GOSUB8000:POKE214,20:PRINT:PRINTTAB(11)"[150][193]RE [217]OU [211]URE? [Y[150]/N[150]]":POKE198,0
6005 GETK$:IFK$=""THEN6005
6010 IFK$<>"Y"THENRETURN
6015 POKEV+21,0:POKE56,160:CLR
6020 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
6025 IFER%<>63THENEND
6030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
6035 PRINT"RUN"
6040 POKE631,13:POKE632,13:POKE198,2:END
6045 :
7000 SYS52227,1:GOSUB8000
7002 FL=0:POKE214,20:PRINT:PRINT" [154][211]OURCE [198]ILENAME: ";
7005 SYS49152,16,2:IFLEN(A$)=0THENFL=1:RETURN
7009 S$=A$
7010 IFK=1THEND$=LEFT$(S$+SP$,13)+"PIC"
7011 IFK=2THEND$="DD"+LEFT$(S$,14)
7012 IFK=3THEND$="RPH."+LEFT$(S$,12)
7013 IFK=4THEND$=LEFT$(S$,14)+"-3":S$=LEFT$(S$+SP$,13)+"PIC"
7014 IFK=5THEND$=LEFT$(S$,14)+"-3":S$="DD"+S$
7015 IFK=6THEND$=LEFT$(S$,14)+"-3":S$="RPH."+S$
7016 RETURN
7020 :
8000 FORI=21TO23:POKE781,I:SYS59903:NEXT:RETURN
8005 :
8500 DIMDR$(15):FORI=0TO15:READDR$(I):NEXT
8505 DATA 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15
8510 D1=PEEK(186):IFD1<8THEND1=8
8515 DN=8:FORI=8TO15:OPEN15,I,15:CLOSE15
8520 IFST=0ANDI<>D1THENDN=I:I=15
8525 NEXT:RETURN
8530 :
9000 OPEN15,D1,15,"R0:HI-RES INSTR=HI-RES INSTR":INPUT#15,ER,ER$,AA,AA:CLOSE15
9005 IFER<>63THENRETURN
9010 SYS32768,"HI-RES INSTR","[200]I-[210]ES/[208][211] [195]ONVERTER [201]NSTRUCTIONS"
9020 RETURN
9025 :
9050 OPEN15,DQ,15:INPUT#15,ER,ER$,AA,AA:CLOSE15
9055 IFER=0THENRETURN
9060 POKE214,22:PRINT:PRINT"[150][196]RIVE"DQ" - "ER$" - [208]RESS A KEY"
9065 GETA$:IFA$=""THEN9065
9070 RETURN
10000 OPEN15,8,15,"S0:HI-RES/PS":CLOSE15:SAVE"0:HI-RES/PS",8:END
60000 B9$="                                      "
60010 POKE214,14: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][152]"
60020 FORI=0TO7:PRINTB9$:NEXT: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][152]"
60030 B9$(0)="[200][201]-[210][197][211] [212][207] [208][210][201][206][212] [211][200][207][208]
60040 B9$(1)[178]"BY PEEKARBARA (null)CHULAK
60050 B9$(2)="([195]) 1991 BY [211]OFTDISK, [201]NC."
60060 B9$(3)="[214]1.0 [208]UBLISHED ON [204][207][193][196][211][212][193][210] #88"
60070 B9$(4)="[211]UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)="[193]LL [210]IGHTS [210]ESERVED"
60090 POKE214,16:PRINT:FORI=0TO5:PRINTTAB(20-(LEN(B9$(I))/2))""B9$(I):NEXT
60099 RETURN