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