spectrum/snaps/games/unsorted/r/rs232.zip

Rs232

10 DEF FN h(a$)=16*(CODE a$(1)
-(7 AND a$(1)>"9"))+CODE a$(2)-(
7 AND a$(2)>"9")-816
20 LET a$="": LET p=1: FOR a=1
TO 108: IF p>LEN a$ THEN READ a
$: LET p=1
30 POKE 23295+a,FN h(a$(p TO p
+1)): LET p=p+2: NEXT a
40 SAVE "RS232"CODE 23296,108
50 STOP
100 DATA "F3CD52003B3BFBE1545D0
13000090E52EB09EB73237223230E08E
B"
110 DATA "ED42EB7323720E05090E0
9EBED42EB7323723E03CD0116ED73565
B"
120 DATA "214E5B011E00CD455B210
0400100C07ED7230B78B120F8C900000
0"
130 DATA "000000520000003F00000
00000000000582700003A5C0000FFFF0
1"
K

..
RS232.Z80

Free Web Hosting