home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 33 / 033.d81 / ps.image.viewer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  138 lines
  1. 15 poke53280,14:poke53281,7
  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 [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 1987, (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  12. 90 forx=1toi:ifx=11thenprint"
  13. 91 [139]x[178][177]11[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 [134]a$(21),b$(21)
  29. 205 [135]a$(i),b$(i)
  30. 210 [139]a$(i)[178]"end"[167][142]
  31. 215 [139]b$(i)[178]"*"[167]b$(i)[178]b$(i[171]1)
  32. 220 i[178]i[170]1:[137]205
  33. 230 :
  34. 240 [131] black hawks,mark gutis,bruins,*,canadiens,*
  35. 241 [131] canucks,*,capitals,*,devils,*,flames,*,flyers,*,islanders,*,jets,*
  36. 242 [131] kings,*,nordiques,*,north stars,*,oilers,*,penguins,*,rangers,*
  37. 243 [131] red wings,*,sabres,*,whalers,*
  38. 300 [131]end,end
  39. 305 :
  40. 310 :
  41. 315 [141]20000:lp[178]nu
  42. 320 sp[178]0:tf[178]0
  43. 322 [139]k$[178]"input"[167][141]2000:[137]385
  44. 324 [139]k$[178]"dim"[167][141]3000:[137]385
  45. 325 [139]k$[178]"read"[167]400
  46. 330 k[178]nu
  47. 340 [139]k[179]1[176]k[177]i[167]315
  48. 350 :
  49. 380 n$[178]"ps."[170]a$(k):[158]828,22528,n$:s[178]k
  50. 385 [142]
  51. 390 :
  52. 400 :
  53. 410 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  54. 420 [151]928,7:[139]er[179][177]63[167][153]"load":[128]
  55. 425 [151]56,160
  56. 430 [147]"hello connect",8
  57. 2000 :
  58. 2002 [129]x[178]nu[164]i:tf[178]1
  59. 2010 n$[178]"ps."[170]a$(x):[158]828,22528,n$
  60. 2012 s[178]x:[141]4000: [143] plot ps
  61. 2020 [151]249,224:[151]250,204:[158]50765:[161]a$:[139]a$[178]"q"[167]x[178]i[170]1
  62. 2030 fl[178]1:[130]x
  63. 2040 [139]nu[178]1[167][142]
  64. 2050 [129]x[178]1[164]nu[171]1:tf[178]1
  65. 2060 n$[178]"ps."[170]a$(x):[158]828,22528,n$
  66. 2070 s[178]x:[141]4000: [143] plot ps
  67. 2080 [151]249,224:[151]250,204:[158]50765:[161]a$:[139]a$[178]"q"[167]x[178]i[170]1
  68. 2090 fl[178]1:[130]x
  69. 2095 [142]
  70. 2100 :
  71. 2200 :
  72. 3000 :
  73. 3001 px[178]0:py[178]0:tf[178]1:[151]249,224:[151]250,204:[158]51459:[158]50765:[151]53270,200
  74. 3002 te[178]50759:[158]te,"print shop",244,40:[158]te,"is a",268,48
  75. 3003 [158]te,"trademark",244,56
  76. 3004 [158]te,"of",276,64:[158]te,"broderbund",244,72
  77. 3005 [158]te,"software",252,80:[158]te,"q to quit",244,110
  78. 3006 [129]x[178]1[164]i:n$[178]"ps."[170]a$(x):[158]828,22528,n$
  79. 3007 [151]53270,200:[151]33057,py:[151]33058,px:[158]32776
  80. 3010 px[178]px[170]45:[139]px[177]224[167]px[178]0:py[178]py[170]46
  81. 3020 [139][194](198)[179][177]0[167][161]a$:[139]a$[178]"q"[167]fl[178]1:[142]
  82. 3022 fl[178]0:[139]x[173]20[178][181](x[173]20)[167][141]5000:[139]fl[178]1[167][142]
  83. 3030 [130]:fl[178]1:[158]te,"<press a key>",118,188
  84. 3040 [151]198,0:[146]198,1:[142]
  85. 3100 :
  86. 3200 :
  87. 4000 :
  88. 4005 [139]fl[178]0[167][151]249,224:[151]250,204:[158]51459:[158]50765
  89. 4007 n$[178]a$(s):[151]53270,200:[158]50759,n$,(240[171][195](n$)[172]8[173]2),72
  90. 4008 n$[178]"created by":[158]50759,n$,200,88
  91. 4009 n$[178]b$(s):[158]50759,n$,(240[171][195](n$)[172]8[173]2),104
  92. 4010 :
  93. 4015 [151]53270,200
  94. 4020 [151]33057,8:[151]33058,212:[158]32776
  95. 4025 [151]33057,8:[151]33058,1:[158]32768
  96. 4030 :
  97. 4060 [158]50759,"press a key",112,172:[139]tf[178]1[167][158]50759,"[q to quit]",112,180
  98. 4062 ti$[178]"000000":[139]tf[179][177]1[167]4065
  99. 4063 [139][194](198)[178]0[175]ti[179]1200[167]4063
  100. 4064 [137]4070
  101. 4065 [151]198,0:[146]198,1
  102. 4070 [139]tf[178]0[167][158]51459
  103. 4080 [142]
  104. 5000 :
  105. 5010 [158]te,"<press a key>",118,188:
  106. 5020 [151]198,0:[146]198,1:[161]a$:[151]198,0
  107. 5030 [139]a$[178]"q"[167]fl[178]1:[137]5090
  108. 5035 [151]249,224:[151]250,204:[158]50765
  109. 5040 [158]te,"print (NULL)hop",244,40:[158]te,"is a",268,48
  110. 5042 [158]te,"trademark",244,56
  111. 5044 [158]te,"of",276,64:[158]te,"broderbund",244,72
  112. 5046 [158]te,"software",252,80:[158]te,"q to quit",244,110
  113. 5048 px[178]0:py[178]0
  114. 5050 :
  115. 5090 [142]
  116. 5095 :
  117. 10000 :
  118. 10010 a$[178]"":[129]x[178]1[164]40:a$[178]a$[170]"*":[130]:a$[178][200](a$,40)
  119. 10020 [153]"stop"a$;:[129]x[178]1[164]23:[153]"*"[166]38)"*";:[130]
  120. 10022 [153][200](a$,39)"stop";:[151]2023,42:[151]56295,0:[142]
  121. 10025 :
  122. 20000 :
  123. 20005 fl[178]0
  124. 20010 [153][200](vt$,nu[170]6[171]10[172][182](nu[177]10))[166]2[170]20[172][182](nu[177]10))"stop==>";
  125. 20015 [153]" "a$(nu)"wait"
  126. 20020 [151]198,0:[146]198,1:[161]k$
  127. 20025 [153][200](vt$,nu[170]6[171]10[172][182](nu[177]10))[166]2[170]20[172][182](nu[177]10))"   ";
  128. 20027 [153]" wait"a$(nu)
  129. 20030 [139]k$[178]""[167]nu[178]nu[170]1:[139]nu[177]i[167]nu[178]1
  130. 20035 [139]k$[178]""[167]nu[178]nu[170]10:[139]nu[177]i[167]nu[178]1
  131. 20040 [139]k$[178]"on"[167]nu[178]nu[171]1:[139]nu[179]1[167]nu[178]i
  132. 20045 [139]k$[178]"cmd"[167]nu[178]nu[171]10:[139]nu[179]1[167]nu[178]i
  133. 20050 [139]k$[178][199](13)[167][142]
  134. 20060 [139]k$[178]"input"[167][142]
  135. 20070 [139]k$[178]"dim"[167][142]
  136. 20080 [139]k$[178]"read"[167][142]
  137. 20090 [137]20010
  138.