|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 512 (0x200)
Types: TextFile
Names: »CHRSTR.BAS«
└─⟦016ef1d53⟧ Bits:30005210 BASIC Demo
└─ ⟦this⟧ »CHRSTR.BAS«
10 PRINT CHR$(27);"E" 20 PRINT STRING$(12,CHR$(30));;"CHRSTR >>> "; 30 PRINT" SORTS AND COUNTS CHARACTERS" 40 INPUT"INPUT CHARACTERS";A$ 50 FOR I=0 TO 127 60 TT=0 70 J=INSTR (A$,CHR$(I)): «nul» IF J>0 THEN TT=TT+1: «nul» A$=LEFT$(A$,J-1) + MID$(A$,J+1): «nul» GOTO 70 80 IF TT>0 THEN PRINT CHR$(I);TT, 90 NEXT 100 PRINT:PRINT 110 INPUT"MENU";A$ 120 RUN "MENU" «nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»