home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh5x
/
sh55a.d64
/
allwand
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
970b
|
41 lines
100 REM OLIVER STILLER
110 REM
120 IF L=0 THEN L=1:LOAD "ALLWAND.C000",8,1
130 DIM NA$(144):C3$=CHR$(34)
140 PRINT"AMICA WANDLER V1.0"
150 PRINT"DIESES PROGRAMM WANDELT ALLE KOALAPAINT-";
160 PRINT"BILDER AUF EINER DISK IN DAS AMICA PAINT";
170 PRINT"FORMAT UM."
180 PRINT"BITTE DISK EINLEGEN UND TASTE DRUECKEN":WAIT 198,1:GET A$
190 :
200 GOSUB 390
210 :
220 IF PO=0 THEN GOTO 180
230 :
240 FOR T=0 TO PO-1
250 PRINT"LADE BILD:";C3$;NA$(T);C3$
260 SYS 49152,8,NA$(T)
270 PRINT"PACKE BILD ..."
280 SYS 49152+6
290 PRINT"LOESCHE ALTES BILD ..."
300 CLOSE1:OPEN1,8,15,"S:"+NA$(T):CLOSE 1
310 PRINT"SPEICHERE NEUES BILD ..."
320 SYS 49152+3,8,"[B]"+MID$(NA$(T)+" ",6,16)
330 NEXT T
340 END
360 REM
370 REM DIRECTORY ZEIGEN
380 REM
390 CLOSE1:OPEN 1,8,0,"$:[129]PIC *":GET#1,A$,A$:PO=0
400 PRINT"BILDER DER DISKETTE:"
410 FOR T=0TO7:GET#1,A$,A$,A$,A$:NEXT
420 :
430 GET#1,A$,A$,A$,A$:IF ST THEN 460
440 GET#1,X$:IF X$=C3$ THEN AN$="":GOTO 470
450 IF ST=0 THEN 440
460 CLOSE1:RETURN
470 GET#1,Z$:IF Z$<>C3$ THEN AN$=AN$+Z$:GOTO 470
480 PRINTC3$;AN$;C3$:NA$(PO)=AN$:PO=PO+1
490 GET#1,X$:IF X$<>"" AND ST=0 THEN 490
500 GOTO 430