1 REM "WORD345X" 2002.03.01
2 POKE56,56:POKE55,0:CLR
10 DV=PEEK(186):Q$=CHR$(34)
12 PRINT"[147]L[207]"Q$"WORD345.BAS"Q$","DV
14 PRINT"R[213]:";
16 POKE631,19:POKE632,13:POKE633,13:POKE198,3
50 L=0:H=56:F$="F.WORD345":GOSUB100
52 L=0:H=64:F$="MOUSE2.1 7K 4000":GOSUB100
54 L=0:H=92:F$="MOUSE MATE 5C00":GOSUB100
56 L=0:H=94:F$="RANDOM 2-254":GOSUB100
58 L=0:H=148:F$="WORD345.ZML":GOSUB100
60 L=0:H=112:F$="F.WORD345 HLP":GOSUB100
62 L=0:H=120:F$="T.WORD345 HLP":GOSUB100
99 END
100 SYS57812F$,DV:POKE780,0:POKE781,L:POKE782,H:SYS65493:RETURN
10000 A$="0:WORD345X":DV=PEEK(186):IFDV<8ORDV>29THENDV=8
10002 OPEN15,DV,15,"S"+A$:CLOSE15:SAVEA$,DV:END