0 GRAPH
4 CLS OCATE 3,4 RINT "开始安装?(Y/N)":I=ASC (INKEY$ )
5 IF I=110 THEN END
49 CLS OCATE 2,7 RINT "安装中..."
50 OPEN "SCHDATA"FOR OUTPUT AS #1
51 ?1,0.5,50,5,0
52 ?1,0.7,100,10,0
53 ?1,0.8,150,15,0
54 ?1,1.0,200,20,0
55 ?1,1.2,250,25,0
56 ?1,1.4,300,30,0
57 ?1,1.6,400,35,0
58 ?1,1.8,500,40,0
59 ?1,2.0,550,45,0
60 ?1,2.2,600,50,0
61 ?1,2.3,700,55,0
62 ?1,2.5,800,60,0
63 ?1,2.7,900,65,0
64 ?1,2.9,1000,70,0
65 ?1,3.0,1100,75,0
程序中的问号是什么?WRITE? |