Twitter for PC-G850 MAIN PROGRAM

N.F

324E5B4A42
687C284
384000083
1054542
482A5A48
245E341264
087C082A14
1C483C083
20507C2848
084848483
0
324E3B0A72
3C4000023C
0845452518
4425354D44
327F0A4833
44340F443B
224B4E5A48
081422214
3F40047F04
2051414142
2445465C44
3F4040403
025A3F0202
023F424F42
082D5B4908
720F224A48
424A4E4B32
014141413E
0119254341
314A444241
0A27523922
3F40214142
334C344876
247F0C6478
3C423E027C
7F00627F22
324F403E04
1841453A08
080404081
7F00657F25
2A5A3F2A4A
30493F083C
1A3F424036
334C340876
0A3F4A4A2
047F04150A
1E443F0418
20503F2242
404C494A3
074840211E
086D6B493
247F18047C
084D4B493
247F184438
702C43402
02040204
070507

TW.BAS

10DIM O$(0)*255,F$(57)*10:OPEN "COM1:":OPEN "E:N.F" FOR INPUT AS #2:INPUT #2,F$(*):CLOSE #2:CLS :PRINT "WAITING":PRINT "[W] to set network":PRINT #1,"-":WHILE IV$<>"-":IF INKEY$ ="W" GOSUB *N ELSE IF EOF 1 PRINT #1,"-" ELSE INPUT #1,IV$
20WEND :CLS
30WHILE NOT EOF 1:INPUT #1,IV$:PRINT #1,"-":WEND
40LOCATE 0,5:PRINT "<> Src Usr New Rpl     ?";:GOSUB *K:LOCATE 0,5:PRINT "                      ";:LOCATE 0,5
50IF IV=14 PRINT #1,">" ELSE IF IV=15 PRINT #1,"<" ELSE IF IV=85 INPUT "@";O$(0):PRINT #1,"U";O$(0) ELSE IF IV=83 PRINT #1,"/":GOSUB *I ELSE IF IV=78 PRINT #1,"N":GOSUB *I ELSE IF IV=82 PRINT #1,"R":GOSUB *I ELSE 40
60GOSUB *T:GOTO 30
70*N:INPUT "SSID:";O$(0):PRINT #1,"W";O$(0):INPUT "PASS:";O$(0):PRINT #1,O$(0):CLS :RETURN
80*C:GCURSOR (RX MOD 144,(RX\144)*8+7):RETURN
90*K:IV= ASC INKEY$ :IF IV=MK THEN *K ELSE MK=IV:IF IV RETURN ELSE *K
100*L:WAIT 20:CO=1:WHILE EOF 1:LOCATE 23,5:PRINT MID$ ("｡ﾟ",CO,1):CO=3-CO:WEND :WAIT 0:PRINT " ":RETURN
110*T:RX=0:KS=1:GOSUB *L:CLS
120IF EOF 1 PRINT #1,"-
130LNINPUT #1,O$(0):IV= ASC O$(0):IF IV=225 LET KS=2 ELSE IF IV=226 LET KS=1:RX=((5+RX)\6)*6 ELSE IF IV=227 LET KS=0 ELSE IF IV=238 RETURN ELSE IF IV=240 IF RX MOD 144<133 LET RX=(RX\144+1)*144:GOTO 170 ELSE 170 ELSE 150
140GOTO 120
150IF KS=1 LOCATE RX\6 MOD 24,RX\144:PRINT O$(0);:RX=RX+ LEN O$(0)*6:GOTO 170 ELSE GOSUB *C:IF KS=0 GPRINT O$(0):RX=RX+ LEN O$(0)/2:GOTO 170
160IF O$(0) GOSUB *C:GPRINT LEFT$ (F$( ASC (O$(0))-166)+"00000000000",12):RX=RX+6:O$(0)= MID$ (O$(0),2,254)
170IF RX MOD 144>136 LET RX=(RX\144+1)*144
180IF RX>863 LOCATE 0,5:PRINT :PRINT :RX=720
190IF LEN O$(0) AND KS=2 GOTO 160 ELSE 120
200*I:CLS :PRINT "ﾆﾎﾝｺﾞ ﾆｭｳﾘｮｸ [ENT]:ﾍﾝｶﾝ
210PRINT ">";:INPUT "[ENT]:ｶｸﾃｲ",O$(0):PRINT #1,O$(0):IF O$(0) GOSUB *L:INPUT #1,I$ ELSE RETURN
220GOSUB *T:GOSUB *K:PRINT #1, CHR$ IV:PRINT :PRINT "ﾂﾂﾞｹﾃ ﾆｭｳﾘｮｸ":INPUT #1,I$:O$(0)="":IF I$="-" GOTO 220 ELSE 210
230CLS:INPUT "ｲﾏﾅﾆｼﾃﾙ?",O$(0):PRINT #1,O$(0):RETURN