home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 55 / 64er_Magazin_Sonderheft_55_19xx_Markt__Technik_de_Side_A.d64 / allwand_f (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  48 lines
  1. 100 rem oliver stiller
  2. 110 rem
  3. 120 if l=0 then poke 56,16:clr:l=1:load "allwand.c000",8,1
  4. 130 dim na$(144):c3$=chr$(34)
  5. 140 print"amica wandler v1.0/f"
  6. 150 print"dieses programm wandelt alle standard   ";
  7. 160 print"bilder auf einer disk in das amica paint";
  8. 170 print"format um."
  9. 171 print"die diskette darf nur bilder enthalten"
  10. 180 print"bitte disk einlegen und taste druecken":wait 198,1:get a$
  11. 181 print"bitte warten..."
  12. 190 :
  13. 200 fort=4096+8000to4096+8999:poke t,152:next
  14. 210 fort=4096+9000to4096+9999:poke t,10:next
  15. 220 poke4096+10000,0
  16. 230 :
  17. 240 gosub 430
  18. 250 :
  19. 260 if po=0 then goto 180
  20. 270 :
  21. 280 for t=0 to po-1
  22. 290 print"lade bild:";c3$;na$(t);c3$
  23. 300 sys 49152,8,na$(t)
  24. 310 forx=4096+8000to4096+8192:poke x,152:next
  25. 320 print"packe bild ..."
  26. 330 sys 49152+6
  27. 340 print"loesche altes bild ..."
  28. 350 close1:open1,8,15,"s:"+na$(t):close 1
  29. 360 print"speichere neues bild ..."
  30. 370 sys 49152+3,8,"[b]"+left$(na$(t)+"                ",13)
  31. 380 next t
  32. 390 end
  33. 400 rem
  34. 410 rem directory zeigen
  35. 420 rem
  36. 430 close1:open 1,8,0,"$":get#1,a$,a$:po=0
  37. 440 print"bilder der diskette:"
  38. 450 for t=0to7:get#1,a$,a$,a$,a$:next
  39. 460 :
  40. 470 get#1,a$,a$,a$,a$:if st then 500
  41. 480 get#1,x$:if x$=c3$ then an$="":goto 510
  42. 490 if st=0 then 480
  43. 500 close1:return
  44. 510 get#1,z$:if z$<>c3$ then an$=an$+z$:goto 510
  45. 520 printc3$;an$;c3$:na$(po)=an$:po=po+1
  46. 530 get#1,x$:if x$<>"" and st=0 then 530
  47. 540 goto 470
  48.