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