JSP ???????

1
????????????????????
GW-Basic Language
????????????????? http//www.nation.ac.th
?.???????? ??????????? . ???????? 9 ???????? 2556
2
??????????? GW-BASIC
GW ????? GW ???????? "Gee Whiz"
???????????????? ? ???????????????????????????????
??????????????? ?????????? PC ?????????????????
?????????????? Interpreter ???????????????????????
?????? ???????????????????? ??????????????????????
?? ??????????? ??.????????? ?????????????
?????????????????????????????? ? ??????
????????????????????? 20 ????? ???????????????????
??? ??????????????????????????????
??????????????????????.?. 1963 (?.?.2506)
????????? http//www.thaiall.com/gwbasic/
3
Compiler Download
?????????????????????? GWBASIC.EXE ??????????????
?????????? http//www.oocities.org/KindlyRat/GW
BASIC.html http//www.oocities.org/rhinorc/gwbas
ic.html
4
???????????????? (1/3)
10 cls 20 print 5 run ?????????? 2
?????????????????? - ??????????????
???????????? - ???????????????????????????????????
?????????????? - ??????????? ???????? F2
??????????? run ??? - ????? 5 ???????? ok
??????????????????????
5
???????????????? (2/3)
????????????????????????? ?????? Source Code ????
ASCII save "c\x.bas",a ????????????? system DOS
gttype x.bas DOSgtgwbasic x.bas
6
???????????????? (3/3)
DOSgtgwbasic load "x.bas" list 10 cls 20 print
5 save "c\x.bas",a
7
????????????????????? Interpreter
10 cls 20 print 5 30 a 40 print 10 run -
???????????????????????? 10 ??? 20 -
????????????????????????? 30 ????? - ???????
Compiler ????????????????????????????????????????
8
????????? ?????????
10 cls 20 dim a 30 input a 40 print a 50 dim b 60
input b 70 print b
9
????????? ??????????????
10 cls 20 a0b0c0d0 30 input a 40 if a gt 0
then input b 50 if b gt 0 then input c 60 if c gt 0
then dabc 70 print d
10
?????? Go to ??????????????????????????
10 dim a 20 a a 1 30 print a 40 if a lt 5 then
go to 20
?????????? http//www.oocities.org/KindlyRat/GWBAS
IC.html ????????? http//www.thaiall.com/gwbasic/
11
?????? for ??????????? 1 ??? 5
10 FOR I 1 TO 5 20 PRINT I 30 NEXT
12
??? 2 ??? ?????????????????????
10 a 0 20 b 0 30 m 0 40 input a 50 input
b 60 if a gt b then ma else mb 70 print m
13
??? 5 ???????????????????????????????
10 DIM AR(5) 20 FOR I 1 TO 5 30 INPUT AR(I) 40
NEXT 50 FOR I 1 TO 5 60 PRINT AR(I) 70 NEXT
14
??? 5 ???????????????????????? Max
10 DIM AR(5) 20 MAX 0 30 I 0 40 FOR I 1 TO
5 50 INPUT AR(I) 60 NEXT 70 FOR I 1 TO 5 80 IF
AR(I) gt MAX THEN MAX AR(I) 90 NEXT 100 PRINT MAX
15
???????????????
cls Clear Screen i0 ???????????????????
? print 5,555,5 , ?????? 1 tab ????
???????? goto 10 ???????????????? 10
input i ??????????????????????? (a ???
String) locate 5,40print "x" ???? Cursor
??????????????????? if i 1 then cls else
print "a" ????? ???????????? for j 1 to
5 .. ????????? for next save "a.bas",a
?????????? Ascii ??????????? Notepad ???
16
Game Sample
?????????????? ???????????????
http//www.thaiall.com/gwbasic/5starZ.bas
http//www.thaiall.com/gwbasic/flipper.bas
http//www.thaiall.com/gwbasic/roborat.bas
http//www.thaiall.com/gwbasic/search.bas
.
????????? http//scottserver.net/basically/geewhiz
.html (expired)