home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45b.d64 / allwand_f (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.