1 "S"AREAD CL$:GOTO 20000
2 " "REM GOSUB TARGET
10 DATA "0000000079205600370000007920b9007920850079206e007920611025d5841b"
20 DATA "125f6001df371025d4225278204b7925157820c402f526106f01821a2c127820"
30 DATA "c402f52602ff7821170485dbda84db7821a22326371025d4225278204b233478"
40 DATA "21172a2204047820c40678221128125b7821171025d984531025da8553232c08"
50 DATA "5b42342d2502092c241025d9841a782163232c19860267db87026cdb37782310"
60 DATA "8402f8db850220db78213d2388db1025d5841a1025d4573288db6700380b67ff"
70 DATA "7e04d8b4db5b5bd037427265616b007922597922cc03056b0239036b087c20cd"
80 DATA "c3290b432910373402f084db022585db5b75013a0c3424da24841405055b2d0e"
90 DATA "24da24050583473803d037d1372467003814da84db3485db34da7822cc855bdb"
100 DATA "845bdb2d17377821171025d984531025da855324242467002904240300841424"
110 DATA "855934845934371025da87551025d9862c0a1025da85551025d9845514371302"
120 DATA "840a371302860a371304860a371306840a3734000723891ec33a0b0256900c02"
130 DATA "028f0c2d0c5bdac33a070201900c2d08880205dbc8238edb7430c92806673038"
140 DATA "03c8260002901d4929153723da237821932467303a27673a2a23753034130682"
150 DATA "0ad15ada5ada782193d15ada5adad15ada5ada861423da5b86142d2a1306820a"
160 DATA "37832467003807da0657c7390a37782211280623da0657c7376b087c20cd0222"
170 DATA "87db024c86db2310224d52ebbb10224d5767002807e4362a04d037d037007822"
180 DATA "773b047822772b04377822772b04f20a6b087c20cd3723da233a02da125cdb5d"
190 DATA "da103e00524c376b087c20cd2388db020789db00018059d17822676700282e89"
200 DATA "598844c980595adb67202916021588db00018059d07822676700281188700880"
210 DATA "595adb67402914782266d13767803806d15a482d087822668859d03778237478"
220 DATA "231e88db02043410788157da88594878232a2507262f0f107880577401526718"
230 DATA "280f235210788157740152670428024d3778e23c107880235210788102035237"
240 DATA "fe0cfdcf10788023521078815237107880575ada83595a44da37342383620238"
250 DATA "03021e62013803654086db5b3467783a07027803782c23675a3a070276035a2c"
260 DATA "19673c3a070274033c2c0f671e3a070272031e2c050270030087db5bda834523"
270 DATA "da861437030134027f85db02f084db23da15515b145114511451145114513734"
280 DATA "78231eda5b66ff38164334da88db10788157da88594878232a2407262f0f3724"
290 DATA "07263724072637376b087c20cd2d06788045e9e80217342467fe280224670038"
300 DATA "1278a3722f0e020d78a372020e78a372d1372378a3722f057823d6d037025f03"
310 DATA "027824290231030178242979240f1025db57670038052352d13702ff52d03712"
320 DATA "5f6001df37125f3a0561202c0361301025db5767003802df3710245252102454"
330 DATA "5210245b5210245d52da88db1025db5767002805da792105020434885980db12"
340 DATA "5f4e004e004e026110df4e004e006001df6b0239134129162f1e370000805978"
350 DATA "21172a04402d0980591025dc523702202c03023e3423107880521025de57da10"
360 DATA "25dd578345da107881525b782102371025de57da1025dd5783452a091025de57"
370 DATA "1025dd527823101025dc571025e152da1025dd577404da1025e15783452a0b10"
380 DATA "25dd5774041025e1521025dd57345b34da1025e15783452a2b23107880520203"
390 DATA "107880525b34782117242478213d0201107880522478238f1078815742525b42"
400 DATA "342d345b3778246b78249f78248278224e7a04251e693d25353e256c0e25a011"
410 DATA "25a725b5371025de574234da1025dc5783452a2478247e5b341025de52da1025"
420 DATA "dd5783450204453a0a1025dd57425278249f7824822c047823ed5b371025de57"
430 DATA "43343a2178247e5b341025de52da1025dd5783452a0a1025dd57435278249f78"
440 DATA "24822c047823ed5b371025de57435237782310237920dc1025de577821567824"
450 DATA "9f7824823737347823108602e2db870225db23da5b7821a28402e2db850225db"
460 DATA "78213d3700000000000000000000003e0000004142434445464748494a4b4c4d"
470 DATA "000042536f756e640005607c02613f7823100231030078218278213d7823fe3a"
480 DATA "06246700290478213d7823ed02ff78210537536f756e6420697320006f6e006f"
490 DATA "666600001953687574646f776e000522085d082278231002ff7820dc00275265"
500 DATA "6e65770005207e210106106f01841a04d4000424030084142467ff290a106f03"
510 DATA "841b37006544656c657465000522140814227823100253030078218278213d10"
520 DATA "25dc574334782117242478213d025c030078218278213d78224e670238126700"
530 DATA "290a5b782117230452045278246b375b37020e7820dc44656c65746520220022"
540 DATA "2028592f4e293f0000fb464449534b00051c3e363e1c78231002d90300782182"
550 DATA "78213d02f4030078217702ff7821170485dbda84db7821a2232602f403007821"
560 DATA "8278213d231078805202011078815202e7030078218278213d106f01821a1025"
570 DATA "e1821b020d1078805202f403007821827821981025e1821a7821a20220262326"
580 DATA "78213d78224e1025e2673d28065743522d2e673e28065742522d376711293b78"
590 DATA "231002c3030078218278213d78224e67023811670038032d161025e1821a106f"
600 DATA "01821b37204279746573004170706c792073657474696e67732028592f4e293f"
610 DATA "004e6578742050726f6720203a200042617369632053746172743a0058585858"
620 DATA "585800003750524f4d4f444500051c2277220010203057672a28050201523710"
630 DATA "783c5764df280864df6510522c0664ef65205202011020305237002f48656c6c"
640 DATA "6f57000514555555147823100222030078218278213d02ff7821053748656c6c"
650 DATA "6f20576f726c642100006343505520537065656400052a7f7e7f2a782310025b"
660 DATA "030078218278213d2384db2385db02e386db022587db6b0139036b0139030405"
670 DATA "040504cece4d4d6b01390c85dbda85db7821a2232602e384db022585db78213d"
680 DATA "78224e376b487a2a3130200000004665686c6572"
690 A=8240:B=2164:C=165234:RETURN
19999 END
20000 IF CL$="NOCHK" THEN 20100
20010 GOSUB 20060:REM INIT VARS
20040 GOSUB 24000:REM CHECK INTEGRITY
20050 GOTO 20110
20060 CLEAR:V$="0.30":W=3:DIM BA$(0)*64:J=0:GOSUB " ":S=A,E=A+B-1,CS=C
20070 GOSUB 21000:REM INTRO
20090 RETURN
20100 GOSUB 20060:REM INIT VARS
20110 GOSUB 25000:REM LOAD ML CODE
20120 GOSUB 26000:REM CALL FDISK AND EXEC NEW CMD
20130 END
20999 REM INTRO
21000 PAUSE "THIS PROGRAM"
21005 PAUSE "WILL INSTALL" 
21010 PAUSE "PSHELL ";V$;" ON" 
21015 PAUSE "YOUR POCKET"
21020 PAUSE "COMPUTER. CALL" 
21025 BEEP 1:WAIT:PRINT"ADDRESS IS ";STR$ (S+4)
21030 PAUSE "CAUTION: THIS" 
21035 PAUSE "PROCEDURE WILL" 
21040 PAUSE "CLEAR ALL MEMORY"
21045 PAUSE "OF YOUR POCKET"
21050 PAUSE "COMPUTER"
21060 INPUT "CONTINUE ? ";D$
21070 D$=LEFT$(D$,1):IF D$="Y" RETURN
21080 IF D$="N" END
21090 GOTO 21060
23999 REM CHECK INTEGRITY
24000 WAIT W:RESTORE " "
24010 A=0:PAUSE "CHECK INTEGRITY"
24020 P=0:GOSUB 30000:REM PROGRESS BAR 1
24030 FOR I=S TO E
24040 GOSUB 27000:A=A+B
24050 R=I-S,P=INT (15*R/(E-S))
24060 IF P=Q THEN 24090
24070 GOSUB 30000:REM PROGRESS BAR 1
24080 Q=P
24090 NEXT I:BEEP 1
24100 IF A=CS RETURN
24110 PAUSE "DATA ERROR: IF"
24115 PAUSE "YOU TYPED THE"
24120 PAUSE "PROGRAM, CHECK"
24125 PAUSE "FOR TYPO'S, IF"
24130 PAUSE "YOU LOADED IT,"
24135 PAUSE "TRY LOADING"
24140 WAIT:PRINT "AGAIN."
24150 END
24999 REM LOAD ML CODE
25000 WAIT W:RESTORE " "
25010 PAUSE "LOADING PSHELL"
25020 P=0:GOSUB 30100:REM PROGRESS BAR 2
25030 FOR I=S TO E
25040 GOSUB 27000:POKE I,B
25050 R=I-S,P=INT (15*R/(E-S))
25060 IF P=Q THEN 25090
25070 GOSUB 30100:REM PROGRESS BAR 2
25080 Q=P
25090 NEXT I:BEEP 1
25100 RETURN
25999 REM SWITCH TO PRO MODE AND EXECUTE NEW
26000 PAUSE "EXECUTE FDISK .."
26005 I=S:S$="FDISK":CALL I+16:CALL I+12
26010 S$="PROMODE":CALL I+16:POKE I,42:CALL I+12
26015 A=PEEK I:IF A THEN 26050
26020 PAUSE "ON BASIC PROMPT"
26025 PAUSE "CHANGE TO"
26030 PAUSE "PROGRAM MODE"
26035 WAIT:PRINT "AND TYPE NEW"
26040 END
26050 CALL I+12:NEW
26070 END
26998 REM THE READ ROUTINE
26999 REM USED VARS: BA$,J,K,L RETVAL: B
27000 IF J<=0 READ BA$(0):J=LEN BA$(0):K=1
27010 L=ASC MID$(BA$(0),K,1)
27020 IF L<58 LET L=L-48
27030 IF L>96 LET L=L-87
27040 B=16*L:L=ASC MID$(BA$(0),K+1,1)
27050 IF L<58 LET L=L-48
27060 IF L>96 LET L=L-87
27070 B=L+B:K=K+2:J=J-2:RETURN
29999 REM PROGRESS BAR 1
30000 Q=15-P:PRINT "":PRINT "":PRINT "CHECK INTEGRITY" 
30010 PRINT LEFT$("---------------",P);LEFT$("???????????????",Q)
30020 BEEP 1:RETURN
30099 REM PROGRESS BAR 2
30100 Q=15-P:PRINT "":PRINT "":PRINT "LOADING PSHELL"
30110 PRINT LEFT$("===============",P);LEFT$("---------------",Q)
30120 BEEP 1:RETURN