home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 55 / 64er_Magazin_Sonderheft_55_19xx_Markt__Technik_de_Side_A.d64 / show (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  849b  |  36 lines
  1. 100 rem oliver stiller
  2. 110 rem
  3. 120 if l=0 then l=1 :load "show pic.52480",8,1
  4. 130 dim na$(144):c3$=chr$(34)
  5. 140 print"amica paint diashow"
  6. 150 print"dieses programm zeigt alle amica paint  bilder einer disk an."
  7. 160 print"bitte disk einlegen und taste druecken":wait 198,1:get a$
  8. 170 fl=0:if a$=" " then fl=1
  9. 180 gosub 340
  10. 190 :
  11. 200 if po=0 then goto 160
  12. 210 :
  13. 220 for t=0 to po-1
  14. 230 if fl=0 then print"lade bild:";c3$;na$(t);c3$
  15. 240 sys 52480,8,na$(t),1
  16. 250 for g=1to 1400:get a$:if a$="" then next
  17. 260 if fl then next t
  18. 270 sys 52480,8,"",0
  19. 280 if fl=0 then next t
  20. 290 goto 160
  21. 310 rem
  22. 320 rem directory zeigen
  23. 330 rem
  24. 340 close1:open 1,8,0,"$:[b]*":get#1,a$,a$:po=0
  25. 350 print"bilder der diskette:"
  26. 360 for t=0to7:get#1,a$,a$,a$,a$:next
  27. 370 :
  28. 380 get#1,a$,a$,a$,a$:if st then 410
  29. 390 get#1,x$:if x$=c3$ then an$="":goto 420
  30. 400 if st=0 then 390
  31. 410 close1:return
  32. 420 get#1,z$:if z$<>c3$ then an$=an$+z$:goto 420
  33. 430 printc3$;an$;c3$:na$(po)=an$:po=po+1
  34. 440 get#1,x$:if x$<>"" and st=0 then 440
  35. 450 goto 380
  36.