Loadstar 32/032.d81/ps.image.viewer

Commodore BASIC | 1987-01-01 | 3.9 KB | 153 lines

15 poke53280,12:poke53281,15
20 ifx=0thenprint"[147][144]    [215]elcome to the [208]rint [211]hop [214]iewer
22 [139]x[178]0[167]x[178]1:[147]"bload.o",8,1
24 [151]56,120:[156]:[151]2,1
30 [158]828,50759,"text/dot/wipe.o"
40 [158]828,51456,"unpacker"
50 [158]828,32768,"ps.combo2.o"
60 i[178]1:lp[178]1:[141]200:i[178]i[171]1:pg[178].
70 [151]53280,14:[151]53281,7:[153]"loadstop":[153][166]8)"(NULL)rint (NULL)hop right$mage (NULL)iewer
80 print"[149]  [215]ritten by [193]lan [199]ardner & [202]im [215]eiler
82 [153]"for       lenopyright 1986, (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
83 print"[144]            [208]ress [198]7 to quit.
90 pg[178][168]pg:fs$[178]"ascirst":ex[178]25:lo[178]29:hi[178]i:tr[178]11
91 [139]pg[167]ex[178].:lo[178]1:hi[178]28:fs$[178]"(NULL)econd":tr[178]14
92 lp[178]lo:[129]x[178]lo[164]hi:[139]x[178]15[170]ex[167][153]"
93 ifx=>15+exthenprintspc(20);
94 print"      "a$(x):next:nu=1+ex
95 vt$="
96 :
100 [153]vt$"onon  asc1-atnuto (NULL)ode        len(NULL)(NULL)(NULL) keys move";
101 [153]vt$"on  asc3-(NULL)uick (NULL)ook         left$right$chr$left$(NULL)right$chr$left$(NULL).
102 printvt$"  [198]5-"fs$" [208]age"tab(20)"[210][197][212][213][210][206] selects it.";
103 :
104 gosub10000
105 nu=lp:gosub310:iffl=1thensys51459:goto70
110 gosub4000
120 goto70
170 sys51459:goto70
180 :
190 :
200 :
202 dima$(52),b$(52)
205 reada$(i),b$(i)
206 :
210 ifb$(i)="end"thenreturn
215 ifb$(i)="*"thenb$(i)=b$(i-1)
220 i=i+1:goto205
230 :
240 data al,fae easton
241 data ak,*,az,*,ar,*,ca,*,co,*,ct,*,de,*,fl,*,ga,*,ha,*,id,*,il,*,in,*,ia,*
242 data ks,*,ky,*,la,*,me,*,md,*,ma,*,mi,*,mn,*,ms,*,mo,*,mt,*,ne,*,nv,*,nh,*
243 data nj,*,nm,*,ny,*,nc,*,nd,*,oh,*,ok,*,or,*,pa,*,ri,*,sc,*,sd,*,tn,*,tx,*
244 data ut,*,vt,*,va,*,wa,*,wv,*,wi,*,wy,*
300 dataend,end
305 :
310 :
315 gosub20000:lp=nu
320 sp=0:tf=0
322 ifk$="[133]"thengosub2000:goto385
324 ifk$="[134]"thengosub3000:goto385
325 ifk$="[135]"then70
326 ifk$="[136]"then400
330 k=nu
340 ifk<1ork>ithen315
350 :
380 n$="ps."+a$(k):sys828,22528,n$:s=k
385 pg=notpg:return
390 :
400 :
410 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
420 poke928,7:ifer<>63thenprint"[147]":end
425 poke56,160
430 load"hello connect",8
2000 :
2002 forx=nutoi:tf=1
2010 n$="ps."+a$(x):sys828,22528,n$
2012 s=x:gosub4000: rem plot ps
2020 poke249,224:poke250,204:sys50765:geta$:ifa$="q"thenx=i+1
2030 fl=1:nextx
2040 ifnu=1thenreturn
2050 forx=1tonu-1:tf=1
2060 n$="ps."+a$(x):sys828,22528,n$
2070 s=x:gosub4000: rem plot ps
2080 poke249,224:poke250,204:sys50765:geta$:ifa$="q"thenx=i+1
2090 fl=1:nextx
2095 return
2100 :
2200 :
3000 :
3001 px=0:py=0:tf=1:poke249,224:poke250,204:sys51459:sys50765:poke53270,200
3002 te=50759:syste,"print shop",244,40:syste,"is a",268,48
3003 syste,"trademark",244,56:syste,"of",276,64:syste,"broderbund",244,72
3004 syste,"software",252,80:syste,"q to quit",244,110
3005 syste,"q to quit",244,110
3006 forx=1toi:n$="ps."+a$(x):sys828,22528,n$
3008 syste,a$(x),268,94
3009 poke53270,200:poke33057,py:poke33058,px:sys32776
3010 px=px+45:ifpx>224thenpx=0:py=py+46
3020 ifpeek(198)<>0thengeta$:ifa$="q"thenfl=1:return
3022 fl=0:ifx/20=int(x/20)thengosub5000:iffl=1thenreturn
3030 next:fl=1:syste,"<press a key>",118,188:poke198,0:wait198,1:return
3100 :
3200 :
4000 :
4005 iffl=0thenpoke249,224:poke250,204:sys51459:sys50765
4007 n$=a$(s):poke53270,200:sys50759,n$,(240-len(n$)*8/2),72
4008 n$="created by":sys50759,n$,200,88
4009 n$=b$(s):sys50759,n$,(240-len(n$)*8/2),104
4010 :
4015 poke53270,200
4020 poke33057,8:poke33058,212:sys32776
4025 poke33057,8:poke33058,1:sys32768
4030 :
4060 sys50759,"press a key",112,172:iftf=1thensys50759,"[q to quit]",112,180
4062 poke198,.
4065 getk$:gosub21000:ifk$=""then4065
4070 iftf=0thensys51459
4080 return
5000 :
5010 syste,"<press a key>",118,188:
5020 poke198,0:wait198,1:geta$:poke198,0
5030 ifa$="q"thenfl=1:goto5090
5035 poke249,224:poke250,204:sys50765
5040 syste,"print shop",244,40:syste,"is a",268,48
5042 syste,"trademark",244,56
5044 syste,"of",276,64:syste,"broderbund",244,72
5046 syste,"software",252,80:syste,"q to quit",244,110
5048 px=0:py=0
5050 :
5090 return
5095 :
10000 :
10010 a$="":forx=1to40:a$=a$+"*":next:a$=left$(a$,40)
10020 print"[144]"a$;:forx=1to23:print"*"spc(38)"*";:next
10022 printleft$(a$,39)"[144]";:poke2023,42:poke56295,0:return
10025 :
20000 :
20005 fl=0
20010 s=2+20*abs(nu-ex>14):ad=.:ifs=2andpg=.thenad=-3
20013 printleft$(vt$,nu-ex+ad+6-14*abs(nu-ex>14))spc(s)"[144]==>";
20015 print" "a$(nu)"[146]":poke198,.
20020 getk$:gosub21000:ifk$=""then20020
20022 s=2+20*abs(nu-ex>14):ad=.:ifs=2andpg=.thenad=-3
20025 printleft$(vt$,nu-ex+ad+6-14*abs(nu-ex>14))spc(s)"   ";
20027 print" [146]"a$(nu)
20030 ifk$=""thennu=nu+1:ifnu>hithennu=lo
20035 ifk$=""thennu=nu+tr:ifnu>hithennu=lo
20040 ifk$="[145]"thennu=nu-1:ifnu<lothennu=hi
20045 ifk$="[157]"thennu=nu-tr:ifnu<lothennu=hi
20050 ifk$=chr$(13)thenreturn
20060 ifk$="[133]"thenreturn
20070 ifk$="[134]"thenreturn
20080 ifk$="[135]"thenreturn
20085 ifk$="[136]"thenreturn
20090 goto20010
21000 j2=peek(56320)and15
21020 ifj2=14thenk$="[145]"
21030 ifj2=13thenk$=""
21040 ifj2=7thenk$=""
21050 ifj2=11thenk$="[157]"
21060 if(peek(56320)and16)=.thenk$=chr$(13)
21070 return