1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-26 10:55:52 +00:00
QB64-PE/internal/source/ret102.txt
SMcNeill 6e01fc8dce Altered string compare routines (<,<=,>,>=) so they don't give false results with CHR$(0).
Added new _STRCMP and _STRICMP commands for quick string comparisons.
Cleaned up QB64 to finish removing the QUI (quick user insert) code and folders.
Altered UCASE and LCASE routines to be faster in some situations for us.
2014-09-22 08:19:03 -04:00

58 lines
676 B
Plaintext

if (next_return_point){
next_return_point--;
switch(return_point[next_return_point]){
case 0:
error(3);
break;
case 1:
goto RETURN_1;
break;
case 2:
goto RETURN_2;
break;
case 3:
goto RETURN_3;
break;
case 4:
goto RETURN_4;
break;
case 5:
goto RETURN_5;
break;
case 6:
goto RETURN_6;
break;
case 7:
goto RETURN_7;
break;
case 8:
goto RETURN_8;
break;
case 9:
goto RETURN_9;
break;
case 10:
goto RETURN_10;
break;
case 11:
goto RETURN_11;
break;
case 12:
goto RETURN_12;
break;
case 13:
goto RETURN_13;
break;
case 14:
goto RETURN_14;
break;
case 15:
goto RETURN_15;
break;
case 16:
goto RETURN_16;
break;
}
}
error(3);