home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 53 / Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64 / koala-art-show (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  57 lines
  1. 15 ifx=0thenifpeek(34592)=76thenx=3
  2. 17 ifx=0thenpoke53280,6:poke53281,6:print"[147]commodore 64 art show"
  3. 19 ifx=0thenx=1:print"loading ..."
  4. 20 ifx=1thenx=2:load"logo",8,1
  5. 22 ifx=2thenx=3:load"dissolve",8,1
  6. 25 ifx=3thenpoke55,0:poke56,31:clr:x=4:
  7. 30 ifx=4thenx=5:poke53280,0:poke53281,0:goto50
  8. 40 ifx=5then130
  9. 50 print"[147]            disk einlegen und..."
  10. 51 print"          ...taste druecken !"
  11. 52 geta$:ifa$=""then52
  12. 53 print"[147]":fort=0to50:next:goto60
  13. 60 rem
  14. 61 goto1000
  15. 100 sys34592
  16. 104 pokevic+21,0
  17. 105 fort=0to100:next
  18. 110 sys34592+3
  19. 120 goto2000
  20. 130 sys34592+6
  21. 140 rem
  22. 150 ife=1then9000
  23. 160 goto100
  24. 1000 sys34592+9
  25. 1005 poke2040,254
  26. 1010 poke2041,255
  27. 1020 vic=53248
  28. 1030 pokevic+39,6
  29. 1040 pokevic+40,2
  30. 1050 pokevic+29,0
  31. 1060 pokevic+28,0
  32. 1070 pokevic+23,0
  33. 1080 pokevic+16,0
  34. 1090 pokevic+1,136
  35. 1100 pokevic+3,136
  36. 1110 pokevic+0,128
  37. 1120 pokevic+2,128
  38. 1130 pokevic+21,3
  39. 1150 print"[147] commodore 64"
  40. 1160 print"   art show"
  41. 1165 goto2000
  42. 1166 pokevic+21,0
  43. 2000 rem
  44. 2100 nn=n+65:f$=chr$(nn)+"*"
  45. 2200 fi$=chr$(129)+"pic "+f$
  46. 2201 n=n+1:ifn>16then8000
  47. 2205 open15,8,15:
  48. 2206 open2,8,2,fi$+",p,r"
  49. 2207 input#15,a:ifa<>0thenclose2:close15:goto2000
  50. 2208 close15:close2
  51. 2210 loadfi$,8,1
  52. 2211 if st<>0then2000
  53. 2220 end
  54. 8000 fort=0to9000:next
  55. 9000 sys34592+9
  56. 9100 clr:n=0:x=5:goto50
  57.