· Text 3061 · w8 · inlagg
20 DIM W¤=120%
30 IF LEN(A¤)<>0% THEN 40 ELSE ; 'Glöm det!' : GOTO 90
40 ; A¤ : ; 'Kan man då köra binärfiler (.SYS,.ABS,.REL) avsedda för
'
50 ; 'ABC 80X ? (J/N/Nja)' : INPUT S¤
60 IF S¤<>'J' THEN ; 'Why not ?' : GOTO 70 ELSE ; 'Tack!' : GOTO 90
70 S%=S%+1% : ; 'Svar nr'+NUM¤(S%) : INPUT W¤
80 ; W¤ : IF S%=4% ; 'Nu räcker det. Tack!' : GOTO 90 ELSE 70
90 END
100 REM Svar önskas dock på bönders vis !