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