View Single Post
  #1   Spotlight this post!  
Unread 05-11-2005, 01:51
EGG0900 EGG0900 is offline
Registered User
no team
 
Join Date: Nov 2005
Location: HOUSTON
Posts: 2
EGG0900 is an unknown quantity at this point
Exclamation SERAL INSTEAD OF DEBUG...

What would be a easy way of doing this debug example with serout?

DEBUG CR, "D ownload", CR
FOR DataSlot = 1 TO 15

STORE DataSlot
DEBUG CR, ? DataSlot
FOR RomLoc = 0 TO 2047

SERIN 16, 16468, Cont_Download, 1, Cont_Download, [Result]
Cont_Download:
IF Result = 27 THEN GOTO Start

READ RomLoc, RomVar
IF RomVar = "?" THEN DEBUG CR, "?"
IF RomVar = "a" THEN DEBUG "a"
IF RomVar = "b" THEN DEBUG "b"
IF RomVar = "c" THEN DEBUG "c"
IF RomVar = "d" THEN DEBUG "d"
IF RomVar = "e" THEN DEBUG "e"
IF RomVar = "f" THEN DEBUG "f"
IF RomVar = "g" THEN DEBUG "g"
IF RomVar = "h" THEN DEBUG "h"
IF RomVar = "i" THEN DEBUG "i"
IF RomVar = "j" THEN DEBUG "j"
IF RomVar = "k" THEN DEBUG "k"
IF RomVar = "l" THEN DEBUG "l"
IF RomVar = "m" THEN DEBUG "m"
IF RomVar = "n" THEN DEBUG "n"


NEXT

'STORE DataSlot
PAUSE 5000
NEXT
GOTO Main