100 REM RAMSA 102 DIM A$=255,Q0$=255 105 ; CHR$(12)"RAMS TILLVERKNING" : ; "**********************************" 110 ; CUR(5,0)"Med detta program kan du f} en text som o{ndlig ramsa." 120 ; CUR(10,0)"VILKEN SEKTOR "; : INPUT C% 130 IF C%<1% OR C%>549% 105 140 OPEN "DR1:DD1.DAT" ASFILE 1% 150 Z%=CALL(28666%,1%)+CALL(28668%,C%) : A$=Q0$ 160 A$=LEFT$(A$,250%)+"S " 170 Z%=CALL(28666%,1%) : Q0$=A$ : Z%=CALL(28670%,C%) 180 CLOSE 1% 190 ; CHR$(12)"KLART !! FLER RAMSOR J/N"; : GET C$ 200 IF C$="J" THEN 105 ELSE CHAIN "START"