home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9104a.d64 / mini-dir (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  908b  |  20 lines
  1. 10 RESTORE:FORZ=0TO6:READP$:PRINTTAB(1)P$:NEXTZ:POKE198,0
  2. 20 GETE$:IFE$=""THEN20
  3. 30 Q$="":IFE$="R"THENINPUT"NAME ALT";A$:INPUT"NAME NEU";N$:Q$="R:"+N$+"="+A$
  4. 40 IFE$="T"THENINPUT"STARTFILE";S$:Q$="R:"+S$+CHR$(0)+CHR$(0)+CHR$(0)+"="+S$
  5. 50 IFE$="E"THENINPUT"EINTRAG";I$:INPUT"FILE";K$:Q$="R:"+K$+CHR$(160)+I$+"="+K$
  6. 60 IFE$="F"THENINPUT"NAME";F$:INPUT"ID";ID$:Q$="N:"+F$+","+ID$
  7. 70 IFE$="D"THENOPEN1,8,0,"$":POKE781,1:SYS65478:GETD$,D$:GOTO210:
  8. 90 IFE$="H"THENOPEN2,8,5,"#":OPEN1,8,15:PRINT#1,"U1 5 0 18 0":GOTO245
  9. 170 OPEN1,8,15,Q$:CLOSE1
  10. 180 OPEN1,8,15:INPUT#1,F1,F2$,F3,F4:PRINTF1;F2$;F3;F4:CLOSE1:WAIT198,1:GOTO10
  11. 190 DATA"[147]MINI-[158]DIR","D[146]IRECTORY","T[146]EILWEISES VERSTECKEN DER DIR."
  12. 210 GETD$,D$:IFST=64THENSYS65484:CLOSE1:WAIT198,1:GOTO10
  13. 220 GETD$,DR$:PRINT""ASC(D$+CHR$(0))+256*ASC(DR$+CHR$(0));
  14. 230 GETD$:PRINTD$;:IFD$<>""THEN230
  15. 240 PRINT:GOTO210:DATA"E[146]INTRAG NACH FILE","R[146]ENAME","H[146]EADER AENDERN"
  16. 245 INPUT"NEUER HEADER NAME";NH$
  17. 250 IFLEN(NH$)<16THENNH$=NH$+" ":GOTO250:DATA"F[146]ORMATIEREN"
  18. 260 FORY=144TO159:PRINT#1,"B-P";5;Y:X$=MID$(NH$,Y-(144-1),1):C=ASC(X$)
  19. 270 PRINT#2,CHR$(C);:NEXT:PRINT#1,"U2 5 0 18 0":CLOSE2:CLOSE1:GOTO180
  20.