home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8907a.d64 / micro-sorter (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  994b  |  21 lines
  1. 1 X=1200:DIMN$(X):DIMD$(X):DIMB$(X):R$=CHR$(13):X$=CHR$(0):T$="BLOCKS"
  2. 2 PRINT" 1-LOAD  2-SAVE  3-DIR  4-INPUT  5-LOOK  6-SEARCH  7-PRINT"R$"DATA:"A
  3. 3 Z=40:SYS65511:INPUTH:PRINT"[147]":ONHGOTO4,7,9,13,14,16:OPEN1,4:CMD1:Z=70:GOTO14
  4. 4 A=0:INPUT"LOAD NAME";A$:OPEN8,8,8,A$+",S,R":IFST<>0GOTO20
  5. 5 A=A+1:PRINT""A:INPUT#8,N$(A),D$(A),B$(A):IFN$(A)<>"*"ANDST=0THEN5
  6. 6 CLOSE8:A=A-1:IFST<>0THEN20
  7. 7 INPUT"SAVE NAME";A$:OPEN8,8,8,"@:"+A$+",S,W":FORI=1TOA
  8. 8 PRINT#8,N$(I)R$D$(I)R$B$(I)R$:NEXT:PRINT#8,"*","*","*":CLOSE8:GOTO20
  9. 9 PRINT"[147] 0 ";:OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$,A$,A$:
  10. 10 FORI=1TO7:GETA$,B$,C$,D$:PRINTA$B$C$D$;:NEXT:PRINT
  11. 11 GETA$,A$,A$,B$:IFST<>0THENSYS65484:CLOSE1:GOTO20
  12. 12 PRINTASC(A$+X$)+256*ASC(B$+X$);:GOTO10
  13. 13 A=A+1:INPUT"PRG-NAME";N$(A):INPUT"DISK";D$(A):INPUT"BLOCKS";B$(A):GOTO2
  14. 14 PRINT"NAME"TAB(17)"DISK"TAB(33)T$:FORI=1TOZ:PRINT"-";:NEXT:PRINT:FORI=1TOA
  15. 15 PRINTN$(I)TAB(17)D$(I)TAB(34)B$(I):POKE198,0:WAIT198,1:NEXT:SYS65511:GOTO2
  16. 16 INPUT"PATTERN";A$:FORI=1TOA:IFLEFT$(N$(I),LEN(A$))<>A$THENNEXT
  17. 17 PRINTI" : "N$(I)","D$(I)","B$(I):IFI=A+1THENPRINT"END OF LIST":GOTO2
  18. 18 INPUT"CHANGE (Y/N)";A$
  19. 19 IFA$="Y"THENINPUT"PRG-NAME";N$(I):INPUT"DISK";D$(I):INPUT"BLOCKS";B$(I):GOTO2
  20. 20 PRINT:OPEN15,8,15:INPUT#15,X,A$,X,X:CLOSE15:PRINTA$:PRINT:GOTO2
  21.