home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 35 / 035.d81 / ps.image.viewer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  156 lines
  1. 15 poke53281,5:poke53280,4
  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. 65 sp$[178]"                  "
  10. 70 [151]53280,14:[151]53281,7:[153]"loadstop":[153][166]8)"(NULL)rint (NULL)hop right$mage (NULL)iewer
  11. 80 print"[149]  [215]ritten by [193]lan [199]ardner & [202]im [215]eiler
  12. 82 [153]"for       lenopyright 1987, (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  13. 83 print"[144]            [208]ress [198]7 to quit.
  14. 90 pg[178][168]pg:fs$[178]"ascirst":ex[178]25:lo[178]29:hi[178]i:tr[178]11
  15. 91 [139]pg[167]ex[178].:lo[178]1:hi[178]28:fs$[178]"(NULL)econd":tr[178]14
  16. 92 lp[178]lo:[129]x[178]lo[164]hi:[139]x[178]15[170]ex[167][153]"
  17. 93 ifx=>15+exthenprintspc(20);
  18. 94 print"      "a$(x):next:nu=1+ex
  19. 95 vt$="
  20. 96 :
  21. 100 [153]vt$"onon  asc1-atnuto (NULL)ode        len(NULL)(NULL)(NULL) keys move";
  22. 101 [153]vt$"on  asc3-(NULL)uick (NULL)ook         left$right$chr$left$(NULL)right$chr$left$(NULL).
  23. 102 printvt$"  [198]5-"fs$" [208]age"tab(20)"[210][197][212][213][210][206] selects it.";
  24. 103 :
  25. 104 gosub10000
  26. 105 nu=lp:gosub310:iffl=1thensys51459:goto70
  27. 110 gosub4000
  28. 120 goto70
  29. 170 sys51459:goto70
  30. 180 :
  31. 190 :
  32. 200 :
  33. 202 dima$(53),b$(53)
  34. 205 reada$(i),b$(i)
  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 nissan,hugh & sue mcgrath
  40. 241 data chevrolet,*,vw,*,chrysler,*,mercedes,*,ford,*,bmw,*,gm,*,volvo,*
  41. 242 data delco,*,ac,*,mg,*,corvette,*,bigfoot,*,valvoline,*,goodyear,*
  42. 243 data mr.gasket,*,hurst,*,marchal,*,cibie,*,hella,*,shell,*,champion,*
  43. 244 data crane cams,*,weiand,*,moon,*,aaa,*,isuzu,*,amc,*,general tire,*
  44. 246 data jensen,*,kc,*,mitsubishi,*,stp,*,gulf,*,amoco,*,exxon,*,alfa romeo,*
  45. 248 data imsa,*,camel gt,*,honda,*,michelin,*,ih,*,castrol,*,fram,*,koni,*
  46. 250 data phillips,*,firestone,*,union 76,*,iroc,*,seatbelt,*,t/bird,*
  47. 300 dataend,end
  48. 305 :
  49. 310 :
  50. 315 gosub20000:lp=nu
  51. 320 sp=0:tf=0
  52. 322 ifk$="[133]"thengosub2000:goto385
  53. 324 ifk$="[134]"thengosub3000:goto385
  54. 325 ifk$="[135]"then70
  55. 326 ifk$="[136]"then400
  56. 330 k=nu
  57. 340 ifk<1ork>ithen315
  58. 350 :
  59. 380 n$="ps."+a$(k):sys828,22528,n$:s=k
  60. 385 pg=notpg:return
  61. 390 :
  62. 400 :
  63. 410 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  64. 420 poke928,7:ifer<>63thenprint"[147]":end
  65. 425 poke56,160
  66. 430 load"hello connect",8
  67. 2000 :
  68. 2002 forx=nutoi:tf=1:ou=0
  69. 2010 n$="ps."+a$(x):sys828,22528,n$
  70. 2012 s=x:gosub4000: rem plot ps
  71. 2020 poke249,224:poke250,204:sys50765:ifk$="q"ork$="[209]"thenx=i+1:ou=1
  72. 2030 fl=1:nextx
  73. 2040 ifnu=1orou=1thenreturn
  74. 2050 forx=1tonu-1:tf=1:ou=0
  75. 2060 n$="ps."+a$(x):sys828,22528,n$
  76. 2070 s=x:gosub4000: rem plot ps
  77. 2080 poke249,224:poke250,204:sys50765:ifk$="q"ork$="[209]"thenx=i+1:ou=1
  78. 2090 fl=1:nextx
  79. 2095 return
  80. 2100 :
  81. 2200 :
  82. 3000 :
  83. 3001 px=0:py=0:tf=1:poke249,224:poke250,204:sys51459:sys50765:poke53270,200
  84. 3002 te=50759:syste,"print shop",244,40:syste,"is a",268,48
  85. 3003 syste,"trademark",244,56:syste,"of",276,64:syste,"broderbund",244,72
  86. 3004 syste,"software",252,80:syste,"q to quit",244,110
  87. 3005 syste,"q to quit",244,110
  88. 3006 forx=1toi:n$="ps."+a$(x):sys828,22528,n$
  89. 3008 :
  90. 3009 poke53270,200:poke33057,py:poke33058,px:sys32776
  91. 3010 px=px+45:ifpx>224thenpx=0:py=py+46
  92. 3020 ifpeek(198)<>0thengeta$:ifa$="q"thenfl=1:return
  93. 3022 fl=0:ifx/20=int(x/20)thengosub5000:iffl=1thenreturn
  94. 3030 next:fl=1:syste,"<press a key>",118,188:poke198,0:wait198,1:return
  95. 3100 :
  96. 3200 :
  97. 4000 :
  98. 4005 iffl=0thenpoke249,224:poke250,204:sys51459:sys50765
  99. 4007 n$=a$(s):poke53270,200:sys50759,n$,(240-len(n$)*8/2),72
  100. 4008 n$="created by":sys50759,n$,200,88
  101. 4009 n$=b$(s):sys50759,n$,(250-len(n$)*8/2),104
  102. 4010 :
  103. 4015 poke53270,200
  104. 4020 poke33057,8:poke33058,212:sys32776
  105. 4025 poke33057,8:poke33058,1:sys32768
  106. 4030 :
  107. 4060 sys50759,"press a key",112,172:iftf=1thensys50759,"[q to quit]",112,180
  108. 4062 poke198,.
  109. 4065 getk$:gosub21000:ifk$=""then4065
  110. 4070 iftf=0thensys51459
  111. 4080 return
  112. 5000 :
  113. 5010 syste,"<press a key>",118,188:
  114. 5020 poke198,0:wait198,1:geta$:poke198,0
  115. 5030 ifa$="q"thenfl=1:goto5090
  116. 5035 poke249,224:poke250,204:sys50765
  117. 5040 syste,"print shop",244,40:syste,"is a",268,48
  118. 5042 syste,"trademark",244,56
  119. 5044 syste,"of",276,64:syste,"broderbund",244,72
  120. 5046 syste,"software",252,80:syste,"q to quit",244,110
  121. 5048 px=0:py=0
  122. 5050 :
  123. 5090 return
  124. 5095 :
  125. 10000 :
  126. 10010 a$="":forx=1to40:a$=a$+"*":next:a$=left$(a$,40)
  127. 10020 print"[144]"a$;:forx=1to23:print"*"spc(38)"*";:next
  128. 10022 printleft$(a$,39)"[144]";:poke2023,42:poke56295,0:return
  129. 10025 :
  130. 20000 :
  131. 20005 fl=0
  132. 20010 s=2+20*abs(nu-ex>14):ad=.:ifs=2andpg=.thenad=-3
  133. 20013 printleft$(vt$,nu-ex+ad+6-14*abs(nu-ex>14))spc(s)"[144]==>";
  134. 20015 print" "a$(nu)"[146]":poke198,.
  135. 20020 getk$:gosub21000:ifk$=""then20020
  136. 20022 s=2+20*abs(nu-ex>14):ad=.:ifs=2andpg=.thenad=-3
  137. 20025 printleft$(vt$,nu-ex+ad+6-14*abs(nu-ex>14))spc(s)"   ";
  138. 20027 print" [146]"a$(nu)
  139. 20030 ifk$=""thennu=nu+1:ifnu>hithennu=lo
  140. 20035 ifk$=""thennu=nu+tr:ifnu>hithennu=lo
  141. 20040 ifk$="[145]"thennu=nu-1:ifnu<lothennu=hi
  142. 20045 ifk$="[157]"thennu=nu-tr:ifnu<lothennu=hi
  143. 20050 ifk$=chr$(13)thenreturn
  144. 20060 ifk$="[133]"thenreturn
  145. 20070 ifk$="[134]"thenreturn
  146. 20080 ifk$="[135]"thenreturn
  147. 20085 ifk$="[136]"thenreturn
  148. 20090 goto20010
  149. 21000 j2=peek(56320)and15
  150. 21020 ifj2=14thenk$="[145]"
  151. 21030 ifj2=13thenk$=""
  152. 21040 ifj2=7thenk$=""
  153. 21050 ifj2=11thenk$="[157]"
  154. 21060 if(peek(56320)and16)=.thenk$=chr$(13)
  155. 21070 return
  156.