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