home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_B.d64 / film maker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  729 b   |  20 lines
  1. 4 ifa=2thengosub90:sys828:close2:goto70
  2. 5 a=a+1:ifa=1thenload"mpmloader",8,8
  3. 7 input"[147]diskette mit lores-bildern einlegen";a$
  4. 10 t=4000
  5. 20 reada$:ifa$="*"then60
  6. 30 poke252,int(t/256):poke251,t-peek(252)*256:sys828,a$
  7. 40 t=t+1000:goto20
  8. 60 input"programmdisk einlegen";a$
  9. 61 print""
  10. 62 poke251,160:poke252,15:poke254,int(t/256)
  11. 65 poke253,t-peek(254)*256:load"mpsaver",8,8
  12. 70 a=5:print"[147]film ist bereit
  13. 80 [153]"vergessen sie nicht das file 'mpviewer' mit load und save auf die
  14. 85 print"filmdisk zu speichern !!!":end
  15. 90 input"[147]bitte filmdisk einlegen";a$:print"bitte namen angeben"
  16. 95 return
  17. 100 data 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
  18. 110 data 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40
  19. 120 data41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,*
  20.