start tok64 d64-9q784U 0 REM 1 REM ------- bokstavsordning ------- 2 REM 5 INPUT"printer inkopplad (j/n)";v$ 7 INPUT"rubrik";ru$ 10 PRINT"{clear}detta program skriver ut de namn du{space*5}matar in i bokstavsordining." 90 n=0 100 DIMa$(1000) 110 PRINT"tryck endast return n[r du inte vill{space*4}skriva in fler namn." 120 n=n+1 125 a$(n)="" 130 INPUTa$(n) 135 IFa$(n) =""THENn=n-1:GOTO 145 140 GOTO120 145 REM 150 REM --------- sortering --------- 160 REM 170 FOR i = 1 TO n-1 180 FOR j = i + 1 TO n 190 IF a$(j)>a$(i)THEN220 200 b$=a$(i) 210 a$(i)=a$(j):a$(j)=b$ 220 NEXT:NEXT 230 REM 235 REM ---------- utskrift ---------- 240 REM 250 PRINT"{clear}"; 251 IFv$="j"THENOPEN4,4:CMD4 253 PRINTru$:PRINT 255 FORi=1TOn 260 PRINTa$(i) 270 NEXT 275 IFv$="j"THENPRINT#4:CLOSE4 280 GETa$:IFa$=""THEN280 stop tok64 (bastext 1.0)