home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh5x
/
sh55a.d64
/
show
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
849b
|
36 lines
100 REM OLIVER STILLER
110 REM
120 IF L=0 THEN L=1 :LOAD "SHOW PIC.52480",8,1
130 DIM NA$(144):C3$=CHR$(34)
140 PRINT"AMICA PAINT DIASHOW"
150 PRINT"DIESES PROGRAMM ZEIGT ALLE AMICA PAINT BILDER EINER DISK AN."
160 PRINT"BITTE DISK EINLEGEN UND TASTE DRUECKEN":WAIT 198,1:GET A$
170 FL=0:IF A$=" " THEN FL=1
180 GOSUB 340
190 :
200 IF PO=0 THEN GOTO 160
210 :
220 FOR T=0 TO PO-1
230 IF FL=0 THEN PRINT"LADE BILD:";C3$;NA$(T);C3$
240 SYS 52480,8,NA$(T),1
250 FOR G=1TO 1400:GET A$:IF A$="" THEN NEXT
260 IF FL THEN NEXT T
270 SYS 52480,8,"",0
280 IF FL=0 THEN NEXT T
290 GOTO 160
310 REM
320 REM DIRECTORY ZEIGEN
330 REM
340 CLOSE1:OPEN 1,8,0,"$:[B]*":GET#1,A$,A$:PO=0
350 PRINT"BILDER DER DISKETTE:"
360 FOR T=0TO7:GET#1,A$,A$,A$,A$:NEXT
370 :
380 GET#1,A$,A$,A$,A$:IF ST THEN 410
390 GET#1,X$:IF X$=C3$ THEN AN$="":GOTO 420
400 IF ST=0 THEN 390
410 CLOSE1:RETURN
420 GET#1,Z$:IF Z$<>C3$ THEN AN$=AN$+Z$:GOTO 420
430 PRINTC3$;AN$;C3$:NA$(PO)=AN$:PO=PO+1
440 GET#1,X$:IF X$<>"" AND ST=0 THEN 440
450 GOTO 380