home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 205 / 205.d81 / b.graphics (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  143 lines
  1. 1 ifx>.then10
  2. 2 poke53280,.:poke53281,.
  3. 3 print"[147]"
  4. 4 print"      [212]he [199]raphics [195]ontest [215]inners"
  5. 5 :
  6. 6 gosub20000
  7. 8 poke55,120:poke56,55:clr
  8. 9 dv=peek(186):ifdv<8thendv=8
  9. 10 ifx=0thenx=1:load"unpackerold",dv,1
  10. 20 ifx=1thenx=2:load"bload.o",dv,1
  11. 25 ifx=2thenx=3:load"copymem.o",dv,1
  12. 26 poke872,dv
  13. 30 :
  14. 40 bl=828:unpack=51456:hgr=51459
  15. 45 cm=14200
  16. 50 :
  17. 55 np=16:dim  r$(np),c(np),c$(7)
  18. 56 forx=1tonp:readr$(x),c(x)
  19. 59 next:c$(1)="":c$(2)="[153]":c$(3)="":c$(4)="[159]":c$(5)="[154]"
  20. 60 gosub 50060: rem title screen
  21. 70 forx=1tonp:gosub60000:ifa$="q"ora$="[209]"then gosub10000
  22. 90 sysbl,16384,r$(x)
  23. 92 :
  24. 95 ifright$(r$(x),3)="pic"thengosub61011:goto1000
  25. 96 poke249,224:poke250,204
  26. 97 poke251,0:poke252,64
  27. 98 poke253,0:poke254,0:gosub61011:ifa$="q"ora$="[209]"thengosub10000
  28. 99 print"[147]";:sysunpack:sys hgr:poke53280,c(x)
  29. 100 ag=3.34:kk=0
  30. 105 poke198,0
  31. 110 kk=kk+1:geta$:ifa$=""andkk<2000then110
  32. 112 ifa$="q"ora$="[209]"thengosub 10000
  33. 115 ifa$<>"[133]"then120
  34. 117 zz=zz+1:ifzz>15thenzz=0
  35. 118 poke53280,zz:goto100
  36. 120 syshgr:print"[147]":poke198,0:next x
  37. 130 goto70
  38. 140 :
  39. 1000 ag=3.34:poke249,224:poke250,204
  40. 1010 poke251,.:poke252,64
  41. 1020 poke253,.:poke254,.:print"[147]"
  42. 1030 sys cm,24576-8192,57344,8000
  43. 1040 sys cm,32576-8192,52224,1000
  44. 1050 sys cm,33576-8192,55296,1000
  45. 1055 poke53281,peek(34576-8192)
  46. 1060 sys hgr:poke53280,c(x):goto100
  47. 10000 o=peek(52084):poke52084,1:sys51459
  48. 10005 poke53281,1:poke53280,5
  49. 10010 print"[147][144]  [193]re you sure you want to quit [[217]/[206]]?"
  50. 10020 poke198,0:wait198,1:getag$
  51. 10030 ifag$="y"orag$="[217]"then30000
  52. 10040 poke53208,o:  return
  53. 20000 forx=0to63:poke704+x,0:next
  54. 20002 forx=0to53:poke704+x,85:next
  55. 20010 forx=0to7:poke2040+x,11:poke53287+x,x+2
  56. 20020 poke53248+x*2,(50+x*48)and255:poke53249+x*2,136:next
  57. 20021 poke53271,255:poke53277,255:poke53264,224:poke53275,255
  58. 20022 poke53258,15
  59. 20023 poke53276,255:poke53285,0
  60. 20030 return
  61. 30000 goto40000
  62. 30010 open15,dv,15,"r0:hello connect=hello connect":input#15,er:close15
  63. 30020 ifer<>63thenprint"[147]":end
  64. 30030 load"hello connect",dv
  65. 40000 poke53269,0:fori=0to21:poke828+i,8+i:next
  66. 40010 ifdv<8ordv>29ordv=8then40030
  67. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  68. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  69. 40040 close2:open2,i,2:close2:ifstthen40060
  70. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  71. 40060 next:print"[147]":poke53272,23:poke186,8:end
  72. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  73. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  74. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  75. 50000 rem data <real>, <border color>
  76. 50010 data two.birds.shp,8
  77. 50012 data cat.shp,6
  78. 50014 data hand.shp,0
  79. 50016 data sunset.shp,7
  80. 50020 data damsel.shp,15
  81. 50022 data beauty.shp,6
  82. 50026 data sensation.shp,14
  83. 50030 data fruit.shp,6
  84. 50034 data hallway.shp,0
  85. 50040 data fzzzt!.shp,7
  86. 50048 data art.gallery.shp,2
  87. 50050 data eagle.shp,12
  88. 50052 data thanatos.shp,11
  89. 50054 data artblock.shp,14
  90. 50056 data cruisin.shp,6
  91. 50058 data space.pic,14
  92. 50060 rem title screen
  93. 50061 poke53265,11
  94. 50065 print"[147]":poke53281,1:poke53280,0
  95. 50072 print"         [176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  96. 50082 print"         [221][204]oadstar [208]resents[221][152] "
  97. 50092 print"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  98. 50102 print"                             "
  99. 50112 print
  100. 50122 print"  [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  101. 50132 print"  [221]      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159]        [221][152] "
  102. 50142 print"  [159][221]      [221] [199]raphics [195]ontest [221][154] [159]       [221][152] "
  103. 50152 print"  [159][221]      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159]       [221][152] "
  104. 50162 print"  [159][221]        [154]                   [159]       [221][152] "
  105. 50172 print"  [159][221]                                  [221][152][160]"
  106. 50182 print"  [159][221]   [211]lide [211]how [208]resenter written   [221][152][160]"
  107. 50192 print"  [159][221]   [194]y [193]lan [199]ardner, [205]ike [205]aynard  [221][152][160]"
  108. 50202 print"  [159][221]       & [202]im[160][210]ow -- ([195]) 1988      [221][152][160]"
  109. 50204 print"  [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]"
  110. 50212 print"                                       "
  111. 50222 print
  112. 50232 print"     [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  113. 50242 print"     [221]    [215]inners of [195]ommodore    [221][152] "
  114. 50252 print"     [221] [205]agazine's [199]raphics [195]ontest[221][152] "
  115. 50272 print"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  116. 50282 print"                                    "
  117. 50292 :
  118. 50302 print"   [ Press any key to start the show[160]]";
  119. 50312 print"";:poke53265,27:poke53280,1
  120. 50313 poke53269,63:poke198,0
  121. 50315 wait198,1:poke198,0
  122. 50316 poke53269,0:poke53281,5:return
  123. 59990 :
  124. 60000 poke52084,1:sys51459
  125. 60001 poke53281,6:poke53280,6
  126. 60300 print"[147][152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";:
  127. 60301 forqx=1to20:
  128. 60305 print"[221][221]";:next
  129. 60310 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  130. 60430 forlx=217to217+26:pokelx,(peek(lx)or128):next
  131. 61001 nm$="p."+left$(r$(x),len(r$(x))-4)
  132. 61004 open2,dv,2,nm$:print"";:
  133. 61009 fori=0to1:get#2,a$:i=st:printa$;:ifa$=chr$(13)thenprint"";
  134. 61010 next:close2 :return
  135. 61011 kk=0
  136. 61012 poke214,22:print:printc$(c)
  137. 61013 print"[208]ress [209] to quit - [193]ny other to continue[145]":ford=0to5
  138. 61014 kk=kk+1:geta$:ifa$<>""orkk>1000thenreturn
  139. 61015 next:c=c+s:ifc>5thens=-1
  140. 61016 ifc<1thens=+1:c=1
  141. 61017 goto61012
  142. 63999 d=peek(186):n$="b.graphics":open15,d,15,"s0:"+n$:close15:saven$,d:end
  143.