2K、3K、4K衰弱・メインプログラム t-gmmctm1.bas

include t-gmmctsub1.bas
include t-gmmctsub2.bas

console.title "2K・3K・4K衰弱"

socket.myip ip$
if ip$="" then
   popup "wi-fi未接続 終了します",0,0,1
   exit
else
   popup "wi-fi接続済",0,0,1
   pause 4000
endif

gmn1$="gmindex.html"
ansgm1$=gmbox1$(gmn1$)

print "2K衰弱の回数：",ansgm1$

tpn1$="tpindex1.html"
anstp1$=tpbox1$(tpn1$,"","","")


gmn2$="gmindex2.html"
ansgm2$=gmbox1$(gmn2$)

print "3K衰弱の回数：",ansgm2$

tpn2$="tpindex2.html"
anstp2$=tpbox1$(tpn2$,"","","")


gmn3$="gmindex3.html"
ansgm3$=gmbox1$(gmn3$)

print "4K衰弱の回数：",ansgm3$

tpn3$="tpindex3.html"
anstp3$=tpbox1$(tpn3$,ansgm1$,ansgm2$,ansgm3$)

console.title "2K・3K・4K衰弱"

exit