home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / ps.image.viewer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  158 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
  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. 90 forx=1toi:ifx=15thenprint"
  13. 91 [139]x[178][177]15[167][153][166]20);
  14. 92 [153]"      "a$(x):[130]:nu[178]1
  15. 93 vt$[178]"
  16. 95 :
  17. 100 printvt$"[145][145]  [198]1-[193]uto [205]ode        [195][210][211][210] keys move";
  18. 101 printvt$"[145]  [198]3-[209]uick [204]ook         [200][201][199][200][204][201][199][200][212].
  19. 102 [153]vt$"  asc5-(NULL)uit           (NULL)val(NULL)(NULL)(NULL)(NULL) selects it.";
  20. 103 :
  21. 104 [141]10000
  22. 105 nu[178]lp:[141]310:[139]fl[178]1[167][158]51459:[137]70
  23. 110 [141]4000
  24. 120 [137]70
  25. 170 [158]51459:[137]70
  26. 180 :
  27. 190 :
  28. 200 :
  29. 202 [134]a$(30),b$(30)
  30. 205 [135]a$(i),b$(i)
  31. 210 [139]a$(i)[178]"end"[167][142]
  32. 220 i[178]i[170]1:[137]205
  33. 230 :
  34. 240 [131]49ers,mark gutis
  35. 241 [131]bears,mark gutis
  36. 242 [131]bengals,mark gutis
  37. 243 [131]bills,mark gutis
  38. 244 [131]broncos,mark gutis
  39. 245 [131]browns,mark gutis
  40. 246 [131]buccaneers,mark gutis
  41. 247 [131]cardinals,mark gutis
  42. 248 [131]chargers,mark gutis
  43. 249 [131]chiefs,mark gutis
  44. 250 [131]colts,mark gutis
  45. 251 [131]cowboys,mark gutis
  46. 252 [131]dolphins,mark gutis
  47. 253 [131]eagles,mark gutis
  48. 254 [131]falcons,mark gutis
  49. 255 [131]giants,mark gutis
  50. 256 [131]jets,mark gutis
  51. 257 [131]lions,mark gutis
  52. 258 [131]oilers,mark gutis
  53. 259 [131]packers,mark gutis
  54. 260 [131]patriots,mark gutis
  55. 261 [131]raiders,mark gutis
  56. 262 [131]rams,mark gutis
  57. 263 [131]redskins,mark gutis
  58. 264 [131]saints,mark gutis
  59. 265 [131]seahawks,mark gutis
  60. 266 [131]steelers,mark gutis
  61. 267 [131]vikings,mark gutis
  62. 300 [131]end,end
  63. 305 :
  64. 310 :
  65. 315 [141]20000:lp[178]nu
  66. 320 sp[178]0:tf[178]0
  67. 322 [139]k$[178]"input"[167][141]2000:[137]385
  68. 324 [139]k$[178]"dim"[167][141]3000:[137]385
  69. 325 [139]k$[178]"read"[167]400
  70. 330 k[178]nu
  71. 340 [139]k[179]1[176]k[177]i[167]315
  72. 350 :
  73. 380 n$[178]"ps."[170]a$(k):[158]828,22528,n$:s[178]k
  74. 385 [142]
  75. 390 :
  76. 400 :
  77. 410 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  78. 420 [151]928,7:[139]er[179][177]63[167][153]"load":[128]
  79. 425 [151]56,160
  80. 430 [147]"hello connect",8
  81. 2000 :
  82. 2002 [129]x[178]nu[164]i:tf[178]1
  83. 2010 n$[178]"ps."[170]a$(x):[158]828,22528,n$
  84. 2012 s[178]x:[141]4000: [143] plot ps
  85. 2020 [151]249,224:[151]250,204:[158]50765:[161]a$:[139]a$[178]"q"[167]x[178]i[170]1
  86. 2030 fl[178]1:[130]x
  87. 2040 [139]nu[178]1[167][142]
  88. 2050 [129]x[178]1[164]nu[171]1:tf[178]1
  89. 2060 n$[178]"ps."[170]a$(x):[158]828,22528,n$
  90. 2070 s[178]x:[141]4000: [143] plot ps
  91. 2080 [151]249,224:[151]250,204:[158]50765:[161]a$:[139]a$[178]"q"[167]x[178]i[170]1
  92. 2090 fl[178]1:[130]x
  93. 2095 [142]
  94. 2100 :
  95. 2200 :
  96. 3000 :
  97. 3001 px[178]0:py[178]0:tf[178]1:[151]249,224:[151]250,204:[158]51459:[158]50765:[151]53270,200
  98. 3002 te[178]50759:[158]te,"print shop",244,40:[158]te,"is a",268,48
  99. 3003 [158]te,"trademark",244,56
  100. 3004 [158]te,"of",276,64:[158]te,"broderbund",244,72
  101. 3005 [158]te,"software",252,80:[158]te,"q to quit",244,110
  102. 3006 [129]x[178]1[164]i:n$[178]"ps."[170]a$(x):[158]828,22528,n$
  103. 3007 [151]53270,200:[151]33057,py:[151]33058,px:[158]32776
  104. 3010 px[178]px[170]45:[139]px[177]224[167]px[178]0:py[178]py[170]46
  105. 3020 [139][194](198)[179][177]0[167][161]a$:[139]a$[178]"q"[167]fl[178]1:[142]
  106. 3022 fl[178]0:[139]x[173]20[178][181](x[173]20)[167][141]5000:[139]fl[178]1[167][142]
  107. 3030 [130]:fl[178]1:[158]te,"<press a key>",118,188:[151]198,0:[146]198,1:[142]
  108. 3100 :
  109. 3200 :
  110. 4000 :
  111. 4005 [139]fl[178]0[167][151]249,224:[151]250,204:[158]51459:[158]50765
  112. 4007 n$[178]a$(s):[151]53270,200:[158]50759,n$,(240[171][195](n$)[172]8[173]2),72
  113. 4008 n$[178]"created by":[158]50759,n$,200,88
  114. 4009 n$[178]b$(s):[158]50759,n$,(240[171][195](n$)[172]8[173]2),104
  115. 4010 :
  116. 4015 [151]53270,200
  117. 4020 [151]33057,8:[151]33058,212:[158]32776
  118. 4025 [151]33057,8:[151]33058,1:[158]32768
  119. 4030 :
  120. 4060 [158]50759,"press a key",112,172:[139]tf[178]1[167][158]50759,"[q to quit]",112,180
  121. 4065 [151]198,0:[146]198,1
  122. 4070 [139]tf[178]0[167][158]51459
  123. 4080 [142]
  124. 5000 :
  125. 5010 [158]te,"<press a key>",118,188:
  126. 5020 [151]198,0:[146]198,1:[161]a$:[151]198,0
  127. 5030 [139]a$[178]"q"[167]fl[178]1:[137]5090
  128. 5035 [151]249,224:[151]250,204:[158]50765
  129. 5040 [158]te,"print (NULL)hop",244,40:[158]te,"is a",268,48
  130. 5042 [158]te,"trademark",244,56
  131. 5044 [158]te,"of",276,64:[158]te,"broderbund",244,72
  132. 5046 [158]te,"software",252,80:[158]te,"q to quit",244,110
  133. 5048 px[178]0:py[178]0
  134. 5050 :
  135. 5090 [142]
  136. 5095 :
  137. 10000 :
  138. 10010 a$[178]"":[129]x[178]1[164]40:a$[178]a$[170]"*":[130]:a$[178][200](a$,40)
  139. 10020 [153]"stop"a$;:[129]x[178]1[164]23:[153]"*"[166]38)"*";:[130]
  140. 10022 [153][200](a$,39)"stop";:[151]2023,42:[151]56295,0:[142]
  141. 10025 :
  142. 20000 :
  143. 20005 fl[178]0
  144. 20010 [153][200](vt$,nu[170]6[171]14[172][182](nu[177]14))[166]2[170]20[172][182](nu[177]14))"stop==>";
  145. 20015 [153]" "a$(nu)"wait"
  146. 20020 [151]198,0:[146]198,1:[161]k$
  147. 20025 [153][200](vt$,nu[170]6[171]14[172][182](nu[177]14))[166]2[170]20[172][182](nu[177]14))"   ";
  148. 20027 [153]" wait"a$(nu)
  149. 20030 [139]k$[178]""[167]nu[178]nu[170]1:[139]nu[177]i[167]nu[178]1
  150. 20035 [139]k$[178]""[167]nu[178]nu[170]14:[139]nu[177]i[167]nu[178]1
  151. 20040 [139]k$[178]"on"[167]nu[178]nu[171]1:[139]nu[179]1[167]nu[178]i
  152. 20045 [139]k$[178]"cmd"[167]nu[178]nu[171]14:[139]nu[179]1[167]nu[178]i
  153. 20050 [139]k$[178][199](13)[167][142]
  154. 20060 [139]k$[178]"input"[167][142]
  155. 20070 [139]k$[178]"dim"[167][142]
  156. 20080 [139]k$[178]"read"[167][142]
  157. 20090 [137]20010
  158.