11 POKE53280,2:POKE53281,.:POKE650,128:IFX=.THENPRINTCHR$(142)"[147][153]    WELCOME TO THE PRINT SHOP VIEWER
15 [139]X[178].[167]X[178]1:[147]"BLOAD.O",8,1
20 [151]56,120:[156]:[151]2,1:[158]828,50759,"TEXT/DOT/WIPE.O":[158]828,51456,"UNPACKER":[158]828,32768,"PS.COMBO2.O":[141]1500:[141]1000:[141]2000
60 [141]2500:RI[178]CS[170](CP[171]1)[172]28:TF[178].:FL[178].:[139]A$[178]"INPUT"[167][141]3000:[158]51459:[137]60
75 [139]A$[178]"DIM"[167][141]5000:[158]51459:[137]60
80 [139]A$[178]"READ"[167]CP[178]CP[170]1:[139]CP[177]NP[167]CP[178]1
81 [139]A$[178]"READ"[167][141]2040:[139]NP[177]1[167]CS[178]1
82 [139]A$[178]"READ"[167]60
85 [139]A$[178]"LET"[167][141]60000:[141]2100:[137]60
90 [158]828,22528,IM$(RI):DI[178]RI:[141]4000:[137]60
990 [144]
1000 [159]3,8,3,"PS.IMAGE.NAMES":CO[178].:NP[178]1:[132]3,NI::[134]IM$(NI),BY$(NI),ME$(NI):[129]A[178]1[164]NI:[139]BY$(A)[178]"*"[167]BY$(A)[178]BY$(A[171]1)
1030 [132]3,IM$(A),BY$(A):ME$(A)[178]IM$(A):CO[178]CO[170]1:[139]BY$(A)[178]"*"[167]BY$(A)[178]BY$(A[171]1)
1050 NI(NP)[178]NI(NP)[170]1:[139]CO[178]28[167]CO[178].:NP[178]NP[170]1
1060 B[178][195](ME$(A)):[139]B[179][177]16[167]ME$(A)[178]ME$(A)[170][200](SP$,16[171]B)
1070 [130]:[160]3:[142]
1500 TP$[178]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$":SI$[178]"(null)                                      (null)":DI$[178]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<":BO$[178]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)":BT$[178]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)CMDSAVETAN
1550 SP$="                ":CS=1:JO=56320:CP=1:RETURN
2000 PRINT"[147][153][146]"TP$SI$SI$DI$;:FORA=1TO14:PRINTSI$;:NEXT:PRINTDI$SI$SI$SI$SI$SI$BT$;:FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
2040 PRINT"[146]        [158]PRINT SHOP VIEWER V2":PRINT"[150]BY A. GARDNER, J. WEILER, & M. MAYNARD":PRINT"";:MI=INT(NI(CP)/2):IF(NP>1)AND(CP<>NP)THENMI=14
2085 SI=(CP-1)*28:FORA=SI+1TOSI+MI:PRINTTAB(1)"][154]"ME$(A)"[  ][154]"ME$(A+MI)"[":NEXT:IFSI+14=SI+MITHEN2100
2096 FORA=SI+13TOSI+MISTEP-1:PRINT"                                      ":NEXT
2100 PRINT"[154]NUMBER OF PAGES:"NP;:PRINTTAB(23)"[154]CURRENT PAGE:"CP:PRINT"F1 [154]- AUTO MODE":PRINT"F3 [154]- QUICK LOOK       [158]CRSR KEYS MOVE ":PRINT"F5 [154]- NEXT PAGE          [158]HIGHLIGHT":PRINT"F7 [154]- QUIT           [158]RETURN SELECTS IT.":RETURN
2500 B=CS:IFB>MITHENB=B-MI
2510 PRINT"";:FORA=1TOB:PRINT:NEXT:PRINTTAB(2);:IFCS>MITHENPRINTTAB(19)"->";
2530 PRINT""ME$(SI+CS);:POKE198,.:IFCS<MI+1THENPRINT"[146]<-";
2540 GETA$:GOSUB2700:IFA$=""THEN2540
2545 IF(A$=CHR$(13))OR(A$="[133]")OR(A$="[134]")OR(A$="[135]")OR(A$="[136]")THENRETURN
2550 B=CS:IFB>MITHENB=B-MI
2560 PRINT"";:FORA=1TOB:PRINT:NEXT:PRINTTAB(2);:IFCS>MITHENPRINTTAB(19)"  ";
2580 PRINT"[154]"ME$(SI+CS);:IFCS<MI+1THENPRINT"  ";
2590 IFA$=""THENCS=CS+1:IFCS>NI(CP)THENCS=NI(CP)
2600 IFA$="[145]"THENCS=CS-1:IFCS<1THENCS=1
2610 IFA$=""THENCS=CS+MI:IFCS>NI(CP)THENCS=CS-MI*2
2620 IFA$="[157]"THENCS=CS-MI:IFCS<1THENCS=CS+MI*2
2640 GOTO2500
2700 IF(PEEK(JO)AND16)=.THENA$=CHR$(13):RETURN
2710 A=(PEEK(JO)AND15):IFA=15THENRETURN
2720 IFA=14THENA$="[145]
2730 [139]A[178]07[167]A$[178]"
2740 IFA=13THENA$="
2750 [139]A[178]11[167]A$[178]"CMD
2760 RETURN
3000 FORDI=RITONI:TF=1:SYS828,22528,IM$(DI):GOSUB4000:POKE249,224:POKE250,204:SYS50765:IFA$="Q"ORA$="[209]"THENRETURN
3030 FL=1:NEXT:IFRI=1THENRETURN
3040 FORDI=1TORI-1:TF=1:SYS828,22528,IM$(DI):GOSUB4000:POKE249,224:POKE250,204:SYS50765:IFA$="Q"ORA$="[209]"THENRETURN
3080 FL=1:NEXT:RETURN
4000 IFFL=.THENPOKE249,224:POKE250,204:SYS51459:SYS50765
4007 N$=IM$(DI):POKE53270,200:SYS50759,N$,(240-LEN(N$)*8/2),72:N$="CREATED BY":SYS50759,N$,200,88:N$="EDWARD NICHOLS":SYS50759,N$,(250-LEN(N$)*8/2),104:POKE53270,200:POKE33057,8:POKE33058,212:SYS32776:POKE33057,8:POKE33058,1:SYS32768
4060 SYS50759,"PRESS A KEY",112,172:IFTF=1THENSYS50759,"[Q TO QUIT]",112,180
4062 POKE198,.
4065 GETA$:GOSUB2700:IFA$=""THEN4065
4070 IFTF=.THENSYS51459
4080 RETURN
5000 PX=.:PY=.:TF=1:POKE249,224:POKE250,204:SYS51459:SYS50765:POKE53270,200:GOSUB7000:FORX=1TONI:SYS828,22528,IM$(X):POKE53270,200:POKE33057,PY:POKE33058,PX:SYS32776:PX=PX+45:IFPX>224THENPX=.:PY=PY+46
5080 GETA$:IFA$="Q"ORA$="[209]"THENRETURN
5090 FL=.:IFX/20=INT(X/20)THENGOSUB6000:IFFL=1THENRETURN
5100 NEXT:FL=1:SYSTE,"[PRESS A KEY]",118,188:POKE198,.:WAIT198,1:RETURN
6000 SYSTE,"[PRESS A KEY]",118,188:POKE198,.:WAIT198,1:GETA$:POKE198,.:IFA$="Q"ORA$="[209]"THENFL=1:RETURN
6020 POKE249,224:POKE250,204:SYS50765:GOSUB7000:PX=.:PY=.:RETURN
7000 TE=50759:SYSTE,"PRINT SHOP",244,40:SYSTE,"IS A",268,48:SYSTE,"TRADEMARK",244,56:SYSTE,"OF",276,64:SYSTE,"BRODERBUND",244,72:SYSTE,"SOFTWARE",252,80:SYSTE,"Q TO QUIT",244,110:RETURN
60000 PRINT"[146]";:FORA=1TO2:PRINT"                                      ":NEXT:PRINT"[154] ARE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])":POKE198,.:FORA=1TO2:PRINT"                                      ":NEXT
60040 A=PEEK(203):IFA<>25ANDA<>39THEN60040
60050 IFA=39THENRETURN
60060 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15:IFER<>63THENPRINT"";:POKE198,.:END
60080 LOAD"HELLO CONNECT",8