10 REM +-------------------------+
20 REM !   HILO                  !
30 REM !   Tillverkat av         !
40 REM !   Anders Franz`n 5258   !
50 REM !   p} Ingar| 1991-06-29  !
60 REM !   Ett sista hack innan  !
70 REM !   ABC80 g}r i graven... !
80 REM !                         !
90 REM +-------------------------+
100 ; INP(3)CHR$(12);
110 ; "-------------<  H I L O  ";
120 ; ">-------------"
130 RANDOMIZE 
140 Z=INT(RND*1000) : T=T+1 : F=0
150 ; : ; 
160 ; "Gissa det hemliga talet 0-999."
170 ; "F|rs|k p} s} f} gissningar som m|jligt!"
180 ONERRORGOTO 180
190 INPUT X : F=F+1
200 IF X<Z ; "F|r litet!" : GOTO 180
210 IF X>Z ; "F|r stort!" : GOTO 180
220 ; STRING$(1000,7)
230 ; "Grattis! Du klarade det p}"F" f|rs|k."
240 S=S+F
250 ; "Vill du f|rs|ka igen (J/N)?";
260 GET J$ : IF J$='' J$='j'
270 IF J$='j' OR J$='J' GOTO 140
280 ; : ; : ; "STATISTIK"
290 ; "Antal gissningar:       "T
300 ; "Medelv{rde gissningar:  "S/T