10 :
20 REM        --- SETUP ---
30 :
40 POKE53280,2:POKE53281,.:POKE650,128
50 PRINT"[147][153]    [215]ELCOME TO THE [208]RINT [211]HOP [214]IEWER":GOSUB60000
60 POKE56,120:CLR:A$="":POKE2,1
70 :
80 REM CHANGE NB AND NB$ IN LINE 100           TO 2 FOR TWO-BLOCK IMAGES
90 :
100 NB=3:NB$="3"
110 SYS57812"DIRTOVAR.O",8,0:POKE780,0:POKE781,0:POKE782,141:SYS65493
120 DIMTY$(144),NA$(144),LE$(144),IM$(140),D$(8,29),E%(29)
130 SYS36096
140 NI=0:FORI=1TO144:IFRIGHT$(NA$(I),2)="-"+NB$THENNI=NI+1:IM$(NI)=NA$(I)
150 IFNA$(I)=""THENI=144
160 NEXT:DIMME$(NI+2)
170 SYS57812"TEXT.O",8,0:POKE780,0:POKE781,71:POKE782,198:SYS65493
180 SYS57812"UNPACKER",8,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
190 SYS57812"IMLOADSC6.O",8,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
200 :
210 REM TAKE OUT THE REM IN LINE 230 TO         SKIP DINOGRAPHICS INFO
220 :
230 REM  GOTO310
240 SYS57812"INPUT ANY.O",8,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
250 I=1:J=1:OPEN3,8,3,"DINO DATA"
260 GET#3,A$,A$
270 SYS828,3,40:IFA$="*"THENE%(J)=I-1:J=J+1:I=1:GOTO290
280 D$(I,J)=A$:I=I+1
290 IFST=0THEN270
300 CLOSE3
310 TP$="[213][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][192][192][201]"
320 SI$="[221]                                      [221]"
330 DI$="[171][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][192][192][179]"
340 BO$="[202][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][192][192][203]"
350 BT$="[202][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][192][203][157][148][192]"
360 SP$="                "
370 SB$="                                      "
380 CS=1:JO=56320:CP=1:TE=50759:ZZ=52637:ZY=53078:ZX=52224:ZW=53198
390 POKE51374,48:REM HI-RES COLOR
400 CO=0:NP=1
410 EX=.:IFNI/2<>INT(NI/2)THENEX=1:NI=NI+1
415 IF(EX)THENME$(NI)="-NOT SELECTABLE-":IM$(NI)=ME$(NI)
420 FORI=1TONI
430 ME$(I)=IM$(I):NI(NP)=NI(NP)+1:IF(I/28)=INT(I/28)AND(I<>NI)THENNP=NP+1
435 IFEXANDI=NITHEN450
440 B=LEN(IM$(I))-2:IFB<>16THENME$(I)=LEFT$(IM$(I),B)+LEFT$(SP$,16-B)
450 NEXT
470 GOSUB620:REM MAIN SCREEN
480 GOSUB850:REM MOVE HIGHLIGHT AND SELECT IMAGES
490 RI=CS+(CP-1)*28:TF=0:FL=0
500 IX=13:IY=8:NL=20
510 IFA$="[133]"THENGOSUB1100:SYS51459:GOTO480
520 IFA$="[134]"THENGOSUB1440:SYS51459:GOTO480
530 IFA$<>"[135]"THEN570
540 CP=CP+1:IFCP>NPTHENCP=1
550 GOSUB650:IFNP>1THENCS=1
560 GOTO480
570 IFA$="[136]"THENGOSUB1690:GOSUB750:GOTO480
580 DI=RI:GOSUB1250:GOTO480
590 :
600 REM     --- MAIN SCREEN ---
610 :
620 PRINT"[147][153][146]"CHR$(142)TP$SI$SI$DI$;
630 FORA=1TO14:PRINTSI$;:NEXT
640 PRINTDI$SI$SI$SI$SI$SI$BT$;
650 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
660 PRINT"[146]     LOADSTAR'S PRINT SHOP VIEWER"
670 PRINT"[150]    BY THE FRIENDLY LOADSTAR DUDES    "
680 PRINT"";
690 MI=INT(NI(CP)/2):REM MIDDLE IMAGE
700 IF(NP>1)AND(CP<>NP)THENMI=14
710 SI=(CP-1)*28:REM STARTING IMAGE FOR CURRENT PAGE
720 FORA=SI+1TOSI+MI:PRINTTAB(1)"][154]"ME$(A)"[  ][154]"ME$(A+MI)"[":NEXT
730 IFSI+14=SI+MITHEN750
740 FORA=SI+13TOSI+MISTEP-1:PRINTSB$:NEXT
750 POKE214,18:PRINT:PRINT"[154]NUMBER OF PAGES:"NP;
760 PRINTTAB(23)"[154]CURRENT PAGE:"CP
770 PRINT"F1 [154]- AUTO MODE"
780 PRINT"F3 [154]- QUICK LOOK        CRSR [159]KEYS MOVE "
790 IFNP>1THENPRINT"F5 [154]- NEXT PAGE          [158]HIGHLIGHT"
800 PRINT"F7 [154]- QUIT              RETURN [159]SELECTS"
810 RETURN
820 :
830 REM     --- SELECT IMAGE ---
840 :
850 B=CS:IFB>MITHENB=B-MI
860 PRINT"";:FORA=1TOB:PRINT:NEXT
870 PRINTTAB(2);:IFCS>MITHENPRINTTAB(19)"->";
880 PRINT""ME$(SI+CS);:POKE198,.
890 IFCS<MI+1THENPRINT"[146]<-";
900 GETA$:GOSUB1030:IFA$=""THEN900
910 IF(A$=CHR$(13))AND(IM$(SI+CS)="-NOT SELECTABLE-")THEN900
920 IF(A$=CHR$(13))OR(A$="[133]")OR(A$="[134]")OR(A$="[135]")OR(A$="[136]")THENRETURN
930 B=CS:IFB>MITHENB=B-MI
940 PRINT"";:FORA=1TOB:PRINT:NEXT
950 PRINTTAB(2);:IFCS>MITHENPRINTTAB(19)"  ";
960 PRINT"[154]"ME$(SI+CS);
970 IFCS<MI+1THENPRINT"  ";
980 IFA$=""THENCS=CS+1:IFCS>NI(CP)THENCS=NI(CP)
990 IFA$="[145]"THENCS=CS-1:IFCS<1THENCS=1
1000 IFA$=""THENCS=CS+MI:IFCS>NI(CP)THENCS=CS-MI*2
1010 IFA$="[157]"THENCS=CS-MI:IFCS<1THENCS=CS+MI*2
1020 GOTO850
1030 IF(PEEK(JO)AND16)=.THENA$=CHR$(13):RETURN
1040 A=(PEEK(JO)AND15):IFA=15THENRETURN
1050 IFA=14THENA$="[145]"
1060 IFA=07THENA$=""
1070 IFA=13THENA$=""
1080 IFA=11THENA$="[157]"
1090 RETURN
1100 FORDI=RITONI:TF=1
1110 IFIM$(DI)="-NOT SELECTABLE-"THEN1150
1120 GOSUB1250:REM PLOT PS IMAGE
1130 POKE249,224:POKE250,204:SYS50765:IFA$="Q"ORA$="[209]"THENRETURN
1140 FL=1
1150 NEXT:IFRI=1THENRETURN
1160 FORDI=1TORI-1:TF=1
1170 IFIM$(DI)="-NOT SELECTABLE-"THEN1210
1180 GOSUB1250:REM PLOT PS IMAGE
1190 POKE249,224:POKE250,204:SYS50765:IFA$="Q"ORA$="[209]"THENRETURN
1200 FL=1
1210 NEXT:RETURN
1220 :
1230 REM    --- PLOT PS IMAGE ---
1240 :
1250 IFFL=.THENPOKE249,224:POKE250,204:SYS51459:SYS50765
1255 POKE53270,PEEK(53270)AND239
1260 :
1270 REM TAKE OUT THE REM IN LINE 1290           TO SKIP DINOGRAPHICS INFO
1280 :
1290 REM  GOTO1340
1300 FORI=0TO39:POKEZX+40+I,16:NEXT
1305 FORI=0TO10:FORJ=0TO5:POKEZZ+I+J*40,240:NEXT:NEXT
1310 FORI=0TO10:FORJ=0TO1:POKEZY+I+J*40,64:NEXT:NEXT
1320 W=DI
1330 FORI=1TOE%(W):SYSTE,D$(I,W),(160-LEN(D$(I,W))*8/2),8*I:NEXT
1340 POKE53270,200
1350 SYS32768,IM$(DI),NB,57344,60648
1360 SYSTE,"PRESS A KEY",112,168:IFTF=1THENSYSTE,"Q TO QUIT",120,176
1370 POKE198,.
1380 GETA$:GOSUB1030:IFA$=""THEN1380
1390 IFTF=.THENSYS51459
1400 RETURN
1410 :
1420 REM     --- AUTO MODE ---
1430 :
1440 PX=0:PY=2:TF=1:POKE249,224:POKE250,204:SYS51459:SYS50765:POKE53270,200
1450 GOSUB1620:IY=IY-1
1460 FORX=1TONI-EX
1470 POKE53270,200:SYS32768,IM$(X),NB,57344,57344+PX*8+PY*320
1475 IFNB=3THENFORI=0TO88STEP8:POKE57344+PX*8+PY*320+1916+I,0:NEXT
1480 PX=PX+IX:IFPX>33THENPX=.:PY=PY+IY
1490 GETA$:IFA$="Q"ORA$="[209]"THENRETURN
1500 FL=.:IFPX=.ANDPY=23THENGOSUB1540:IFFL=1THENRETURN
1510 NEXT:FL=1:SYSTE,"PRESS ANY KEY",118,188
1520 POKE198,.:WAIT198,1:RETURN
1530 :
1540 FORI=0TO13:POKEZW+I,64:NEXT
1550 SYSTE,"PRESS ANY KEY",118,192
1560 POKE198,.:WAIT198,1:GETA$:POKE198,.:IFA$="Q"ORA$="[209]"THENFL=1:RETURN
1570 POKE249,224:POKE250,204:SYS50765
1580 GOSUB1620:PX=.:PY=2:RETURN
1590 :
1600 REM     --- QUICK LOOK ---
1610 :
1620 FORI=0TO79:POKEZX+I,240:NEXT
1630 SYSTE,"PRINT SHOP IS A TRADEMARK OF BRODERBUND",0,0
1640 SYSTE,"SOFTWARE  -----------  PRESS Q TO QUIT.",0,8
1650 RETURN
1660 :
1670 REM  --- RETURN TO LOADSTAR ---
1680 :
1690 POKE214,18:PRINT:PRINT"[146]";
1700 FORA=1TO2:PRINTSB$:NEXT
1710 PRINT"[154] ARE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])":POKE198,.
1720 FORA=1TO2:PRINTSB$:NEXT
1730 A=PEEK(203):IFA<>25ANDA<>39THEN1730
1740 IFA=39THENRETURN
1750 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
1760 IFER<>63THENPRINT"";:POKE198,.:END
1770 POKE646,PEEK(53281)
1780 PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
1790 PRINT"RUN"
1800 POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:DINOGRAPHICS":CLOSE15:SAVE"0:DINOGRAPHICS",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)="[196]INOGRAPHICS"
60040 B9$(1)="BY [202]ACK [208]ENN"
60050 B9$(2)="([195]) 1990 BY [211]OFTDISK, [201]NC."
60060 B9$(3)="[208]UBLISHED ON [204][207][193][196][211][212][193][210] #68"
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