home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 80 / Tiger_Disk_080_20xx_Tiger-Crew-Disk_de_Side_B.d64 / koala-slide-show (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  45 lines
  1. 1 print"[147]"
  2. 2 print"        koalapainter  slide show"
  3. 3 print"  bilder-disk einlegen + taste druecken"
  4. 4 print"  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]        [164][164][164][164][164][164][164][164][164]"
  5. 5 print"  achtung: nur files [146]'[193][146]pic a ...' usw!"
  6. 9 geta$:ifa$=""then9
  7. 10 if a=1 goto 150
  8. 20 open 15,8,15,"i"
  9. 30 for a=49154 to 49320
  10. 40 read i:t=t+i:poke a,i:next
  11. 50 if t=22747 goto 70
  12. 60 print "fehler in data-zeilen !!!":stop
  13. 70 l=asc("a"):rem start mit  pic a
  14. 80 f$=chr$(129)+"pic "+chr$(l)+"*"
  15. 90 open 2,8,2,"0:"+f$+",p,r"
  16. 100 input#15,e,m$,t,b:close 2
  17. 110 if e=0 goto 140
  18. 120 if l=asc("a") then print "kein bild auf der disk !":poke198,0:wait198,1:run
  19. 130 goto 70
  20. 140 a=fre(0):a=1:load f$,8,1
  21. 150 if f then sys 49187:goto 170
  22. 160 f=1:sys 49154
  23. 170 l=l+1:goto 80
  24. 49154 data 173,17,208,41,239,9,32,141
  25. 49162 data 17,208,173,22,208,41,223,9
  26. 49170 data 16,141,22,208,173,24,208,41
  27. 49178 data 240,9,8,141,24,208,76,43
  28. 49186 data 192,173,17,208,41,239,141,17
  29. 49194 data 208,162,127,160,64,134,252,132
  30. 49202 data 251,162,4,160,0,134,254,132
  31. 49210 data 253,162,131,160,39,32,127,192
  32. 49218 data 162,131,160,40,134,252,132,251
  33. 49226 data 162,216,160,0,134,254,132,253
  34. 49234 data 162,135,160,15,32,127,192,173
  35. 49242 data 16,135,141,33,208,162,96,160
  36. 49250 data 0,134,252,132,251,162,32,160
  37. 49258 data 0,134,254,132,253,162,127,160
  38. 49266 data 63,32,127,192,173,17,208,9
  39. 49274 data 16,141,17,208,96,142,1,192
  40. 49282 data 140,0,192,160,0,177,251,145
  41. 49290 data 253,165,252,205,1,192,208,8
  42. 49298 data 165,251,205,0,192,208,1,96
  43. 49306 data 230,251,208,2,230,252,230,253
  44. 49314 data 208,227,230,254,76,135,192
  45.