Re: how to make a loading module in qbasic/qb64 (fun thing i found on the net)

[TempodiBasic]

Fine!
IMHO it is not stupid, just ASCII mode!
IMHO this is machine dependent!

Code: QB64: [Select]

1.  FOR i = 1 TO 1233433
2.         FOR m = 1 TO 12
3.         NEXT m
4.     NEXT i

today QB64 gives us the presents of _LIMIT and _DELAY.
In old time it was more accurate using custom functions like this one

Code: QB64: [Select]

1. DO
2.     PRINT TIMER; "   "; back
3.     back = back + Wait(1)
4. LOOP UNTIL back = 10
5. END
6.  
7. FUNCTION Wait (Waiting!)
8.     start! = TIMER
9.     WHILE TIMER - start! < Waiting!
10.     WEND
11.     Wait = 1
12. END FUNCTION
13.  

[TempodiBasic]

Good one!
 good port to QB64!