10 WIDTH"COM0:",120 20 OPEN"O",#1,"COM0:" 30 PRINT#1,CHR$(27)+"N"+CHR$(6) 40 PRINT#1,CHR$(27)+"2" 50 PRINT#1,CHR$(15) 60 PRINT#1,CHR$(10)+CHR$(11)+CHR$(12)+CHR$(13); 70 FORI=&H50 TO &H7FFF 80 IFI MOD256=0THENPRINT#1,CHR$(10)+CHR$(10)+CHR$(13)+"$"+HEX$(I)+":"+CHR$(10)+C HR$(10)+CHR$(13); 90 A=PEEK(I) 100 PRINT#1,A; 110 NEXTI 120 CLOSE#1 130 END