[proc_end entry_point;
  if(entry_point==1) jump line99160;
!! 99000	REM XXX SLUT XXXX
.line99000; !===  XXX SLUT XXXX
!! 99002	IF M2%=1% THEN PRINT #2,W$ \ CLOSE 2 \ M2%=0%'&&&&& LOGGA
!WARNING: removed float-integer conversion in line: 99002	IF M2%=1% THEN PRINT #2,W$ \ CLOSE 2 \ M2%=0%'&&&&& LOGGA
!WARNING: Skipping IO print# in line: 99002	IF M2%=1% THEN PRINT #2,W$ \ CLOSE 2 \ M2%=0%'&&&&& LOGGA
!WARNING: Skipping IO CLOSE in line: 99002	IF M2%=1% THEN PRINT #2,W$ \ CLOSE 2 \ M2%=0%'&&&&& LOGGA
!WARNING: removed float-integer conversion in line: 99002	IF M2%=1% THEN PRINT #2,W$ \ CLOSE 2 \ M2%=0%'&&&&& LOGGA
if(i_M2_==1) { i_M2_=0;}
!! 99003	IF M3%=1% THEN CLOSE 3 \ M3%=0%'&&&&&
!WARNING: removed float-integer conversion in line: 99003	IF M3%=1% THEN CLOSE 3 \ M3%=0%'&&&&&
!WARNING: Skipping IO CLOSE in line: 99003	IF M3%=1% THEN CLOSE 3 \ M3%=0%'&&&&&
!WARNING: removed float-integer conversion in line: 99003	IF M3%=1% THEN CLOSE 3 \ M3%=0%'&&&&&
if(i_M3_==1) { i_M3_=0;}


!! 99090	PRINT "Du fick";S(2);"poäng!"
print "^Du fick ",(i_S_1D-->2)," poäng!^";
!! 99100	IF S(2)<50 THEN I=50 \PRINT "Du kan klassas som en klantig nybörjare."\GOTO 99200
if((i_S_1D-->2)<50) { i_I=50;print "Du kan klassas som en klantig nybörjare.^";jump line99200;}
!! 99104	IF S(2)<55 THEN I=55 \PRINT "Du är en ren amatör inom stugforskningen."\GOTO 99200
if((i_S_1D-->2)<55) { i_I=55;print "Du är en ren amatör inom stugforskningen.^";jump line99200;}
!! 99110	IF S(2)<65 THEN I=65\PRINT "Du är en duktig nybörjare inom stugforskningen."\GOTO 99200
if((i_S_1D-->2)<65) { i_I=65;print "Du är en duktig nybörjare inom stugforskningen.^";jump line99200;}
!! 99112	IF S(2)<90 THEN I=90\PRINT "Du är en erfaren stugforskare."\GOTO 99200
if((i_S_1D-->2)<90) { i_I=90;print "Du är en erfaren stugforskare.^";jump line99200;}
!! 99114	IF S(2)<120 THEN I=120\PRINT "Du kan kalla dej en stugfogde."\GOTO 99200
if((i_S_1D-->2)<120) { i_I=120;print "Du kan kalla dej en stugfogde.^";jump line99200;}
!! 99120	IF S(2)<150 THEN I=150\PRINT "Du är en erfaren stugfogde."\ GOTO 99200
if((i_S_1D-->2)<150) { i_I=150;print "Du är en erfaren stugfogde.^";jump line99200;}
!! 99130	IF S(2)<200 THEN I=200 \ PRINT "Du är en väldigt erfaren stugfogde."\GOTO 99200
if((i_S_1D-->2)<200) { i_I=200;print "Du är en väldigt erfaren stugfogde.^";jump line99200;}
!! 99140	IF S(2)<250 THEN I=250 \ PRINT "Du är biträdande expert på hus i Småland." \ GOTO 99200
if((i_S_1D-->2)<250) { i_I=250;print "Du är biträdande expert på hus i Småland.^";jump line99200;}
!! 99145	IF S(2)<300 THEN I=300\PRINT "Du är expert på hus i Småland."\GOTO 99300
if((i_S_1D-->2)<300) { i_I=300;print "Du är expert på hus i Småland.^";jump line99300;}
!! 99150	IF S(2)<335 THEN I=335 \PRINT "Du är föreslagen som medlem i stugrådet."\GOTO 99200
if((i_S_1D-->2)<335) { i_I=335;print "Du är föreslagen som medlem i stugrådet.^";jump line99200;}
!! 99160	PRINT "	GRATTIS !!"
.line99160; print "	GRATTIS !!^";
!! 99170	PRINT "Du är nu invald i stugrådet."
print "Du är nu invald i stugrådet.^";
!! 99174	GOTO 99300
jump line99300;
!! 99200	PRINT "För att komma upp i nästa klass behöver Du";
.line99200; print "För att komma upp i nästa klass behöver Du ";
!! 99210	PRINT I-S(2);"poäng till."
print i_I-(i_S_1D-->2);print " poäng till.^";
!! 99300	REM Eventuell loggning av resultat, 99302 - 99500 kan tas bort
.line99300; !===  Eventuell loggning av resultat, 99302 - 99500 kan tas bort




!! 99990	PRINT \ PRINT "Thorvald hälsar:   - Välkommen tillbaka!"
print "^Thorvald hälsar:   - Välkommen tillbaka!^";
!! 99996	PRINT
new_line;
!! 99998	REM            NU ÄR PROGRAMMET NÄSTAN SLUT            KKKKKOLOLOLOLLKHH
.line99998; !===             NU ÄR PROGRAMMET NÄSTAN SLUT            KKKKKOLOLOLOLLKHH
!! 99999	END

fnc_FNI(decWriteString(fnc_FNI_str-->1,"Tryck Enter för att avsluta spelet:"));

quit;

];