Skip to content

Instantly share code, notes, and snippets.

@plainspooky

plainspooky/large.bas Secret

Last active January 26, 2016 14:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save plainspooky/7978f409bc4f5afd3169 to your computer and use it in GitHub Desktop.
Save plainspooky/7978f409bc4f5afd3169 to your computer and use it in GitHub Desktop.
Download ZIP
Routine to display large numbers in Z80 created by Miguel Angel Rodriguez Jodar and adapted by me to run on MSX computers -- the BASIC part
Raw
large.bas
100 DEF FN SC(K$)=(60*VAL(LEFT$(K$,2))+VAL(MID$(K$,4,2)))*60+VAL(RIGHT$(K$,2))
110 BLOAD "LARGE.BIN":DEFUSR0=&HC000
120 GET TIME T$:T1#=FN SC(T$)
130 I%=USR0(0)
140 GET TIME T$:T2#=FN SC(T$)
150 PRINT:PRINT"Conversion took";(T2#-T1#);"seconds."
160 END
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment