案例gvbasic使用指南

作者：金遠見公頁主:1.BASIC語言的發(fā)展與文曲星ooo作者：金遠見公頁主:1.BASIC語言的發(fā)展與文曲星ooooBASIC語言的歷史及發(fā)展什么是GVBASIC語言和其BASIC言的異同GVBASIC與其它BASIC語言同名函數(shù)在使用中的§§§2.GVBASIC語言知識要2.1文曲星屏幕顯示特點oGVBASIC中的一些其它規(guī)定變量及數(shù)組定義方機產(chǎn)10個二位數(shù)，并放入數(shù)組，后打印出最大，小流程控§o§24小時制轉(zhuǎn)12小時循環(huán)結(jié)構(gòu)語o§例：打印九九乘法表過程及函簡單輸入o§例:產(chǎn)生一個動態(tài)的字圖文o§例:打開一個數(shù)據(jù)文3.GVBASIC編輯環(huán)境介§例:打開一個數(shù)據(jù)文3.GVBASIC編輯環(huán)境介oooGVBASIC編輯環(huán)境按鍵一覽什么是GVBASICGVBASIC錯代碼表4.GVBASIC指令用法一覽及例o4.1GVBASIC法一覽§§§§§§§§§§字符串處理函程序編輯及調(diào)試函5.GVBASIC例程四則運翻牌成對游一.序隨著文曲星新品CC800上市，其主GVBASIC自主編程功能受到了廣大的戶參考.由于時間有限，所加入范例程序不是太多，我們會在今后陸續(xù)添加到本手冊中請您隨時關(guān)注文曲BASICBeginner'sAll-purposeSymbolicInstructionCode意為初學者通用符號指令代碼）語言是在1964年由美國的兩位教授Thomas和John17條語句，12個函數(shù)3個命令，現(xiàn)在一般稱其為基本BASIC。SOFTBASIC,LASER-310上用的MSBASIC以及IBM-PC及其兼容機上用的BASICA和GWBASIC等.另外還是MicroSoft司的MSBASICQBASIC計人員，特別是電腦初學者的青睞，歷計人員，特別是電腦初學者的青睞，歷經(jīng)數(shù)十年，顯示了其頑強的生命力。如令VisualBasic言也借薦了許多BASIC言的特點而倍受注目.1.3.什么是文曲星文曲星GVBASIC在APPLESOFTBASICGWBASIC礎上，繼承了BASICGVBASIC和其它BASIC語言的共通性，因此通過使用它可以為更好地了解及使用其它BASIC語言和其它程序語言打下了一個良好的基礎1.4GVBASICBASIC語言的異1.4.1.文曲星與其BASIC語言名稱及用法均相同的命令及語命令及函數(shù)DEFFN字符串處用用與數(shù)組有關(guān)與數(shù)組有關(guān)相相定義函分支到當前程序模塊中的子程相相返回數(shù)的絕對返回e定次0-1之間的隨機數(shù)返回數(shù)的符號相相圖聲返回弧度的正返回字符串每一個字符的ASCII返回指定的ASCII碼對應的字符反顯字把一個數(shù)字字符轉(zhuǎn)換為相應的數(shù)相相清除屏把數(shù)據(jù)輸出到屏幕或文相相畫相不演奏指定的音使揚聲器發(fā)出一個短促的聲相相文打開文關(guān)閉文相相當文件指針位于文件結(jié)尾時返回-相其交換兩下變量的退出BASIC相相相當文件指針位于文件結(jié)尾時返回-相其交換兩下變量的退出BASIC相相相在其它版語言上存在而在文曲中沒有的句命令語可否用其它代用原多條件多分支選語可以有IF...THEN...或未開直到條件為真時束循未開可以有WHILE...WEND調(diào)用機器語考慮系統(tǒng)安-----------返未開可以用ON..GOSUB未開可用DEF較少使數(shù)組相可不-可不-OPTION可不-字符格字符組成的字未開可自主編程代較少使可字符格字符組成的字未開可自主編程代較少使可自主編程代未開可自主編程代較少使可自主編程代輸入/輸指它格式輸備的行列數(shù)或?qū)捨撮_可用不同名函數(shù)POS()代PRINT不需-不需-不需-設定邏輯坐標系單色不需未開---未開-未開-聲使揚聲器產(chǎn)生指頻率的不需-文件操較少使-未開-不需-1.4.3GVBASIC和其它版本BASIC1.4.3GVBASIC和其它版本BASIC同名函數(shù)或語句使用的差異1.PRINT途：向屏幕光標位置顯示數(shù)值，字符串數(shù)在PC輸出12在文曲星上輸出為23PRINT在PC輸出為在文曲星上輸出為2.DRAW途:畫連續(xù)直線在GVBASIC中DRAW語句相對簡化，單獨使用該語句時只能畫出一個點而在其它BASIC中DRAW語句相對復雜一些，可以畫出各個方向上的的連續(xù)的直線.在其它版本BASICDRAW"BM100,100;F60;L120;E60"表示畫一個三角而在GVBASIC中上述語句是錯誤的當然GVBASIC中也可畫出三角形但要語句配合FOR循環(huán)語句才可以或者用LINE語句也可，應用起來相對復雜一目2.1文曲星的屏幕每行顯示漢字或10每行顯示英文或半20液晶點陣:160*802.2GVBASICBASIC型變$符+-*/^除法運算乘+-*/^除法運算乘方運算2.關(guān)系運算=><小大于或AND邏輯與OR邏輯或NOT輯4.特殊符;,:?]控制PRINT句以換行格式輸出INPUT語句提示GVBASIC命令提示符(表示GVBASIC處于編輯狀態(tài)并等待用戶輸入命解答:GVBASIC定義了兩種數(shù)據(jù)類型(1)常規(guī)整型數(shù):范圍從-32768到+32767,通常正號可以省略,類型聲明符為例如變量名最長:16最大行2.5變量，數(shù)組定義LET將值賦給變量DIM定義數(shù)組DATA指定要讀入數(shù)組的一組數(shù)據(jù)RESTORE指定為讀入數(shù)據(jù)所用的下一個DATA隨機產(chǎn)生10個二位整數(shù),放入數(shù)組a,從中選出一個最大的和最小來.(數(shù)組的應來.(數(shù)組的應n=-FORI=1TO10PRINTA(I);NEXTI=1TOTHENTHENNEXTPRINT最大N=";n,"最流程控ON...GOTO范例：1.編制程序24時計12時計時REM轉(zhuǎn)換計時法IFHOUR24<0ORHOUR24>23THENIFHOUR24<=12THENHOUR12=HOUR24PRINT在時是]50IFHOUR24>12THENHOUR12=INT(HOUR24/2):PRINT]602.7循環(huán)結(jié)構(gòu)語FOR...NEXT根據(jù)指定的次數(shù)執(zhí)行循環(huán)體打印九九乘法表A=1TOB=ATONEXTBNEXTA返回數(shù)的絕對返回e定次返回數(shù)返回弧度的正一,字符串在計算機內(nèi)部(文曲星內(nèi)部),所有字符都是以ＡＳＣＩＩ碼表示的，比較兩下小，就是比較它們的ＡＳＣＩＩ碼值的大同規(guī)格的字母比較，按字母的順序排，后面的大大小寫字母的比較，小寫字母大于大數(shù)字字符比較，按數(shù)值的大小排，數(shù)值大的字母與數(shù)字比較，數(shù)字(0-9)的代碼均小于字母(A-Z空格比數(shù)字，標點，字母等常見符號都小四字符串處理的函數(shù)及語CHR$()返回指定的ＡＳＣＩＩ碼對應的字符LEFT$()返回從字符串左邊開始的指定數(shù)目的字符LEN()返回字符串的長度MID$()返回從字符串指定位置開始的指定數(shù)目字STR$()返回把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符型后的字符VAL()把一個數(shù)字字符串轉(zhuǎn)換為相應的數(shù)輸入一串字符，將它的內(nèi)容按下列的密VAL()把一個數(shù)字字符串轉(zhuǎn)換為相應的數(shù)輸入一串字符，將它的內(nèi)容按下列的密碼規(guī)則轉(zhuǎn)換為明碼輸密碼ABCDEFGHIJKLMNPBQWRASJTDUMVIWGXYUPEYVRXH明碼FLQCOSN其余字符都不變例如VBVZIKILJ輸出ILIKEITVERY程序如理INPUTZ$FORI=1TO'將該密碼從左到右逐個'取出第I]60符放入A$]70FORJ=1TO碼字符在X$]80IF]90NEXT'尋找THEN]100IFA$=MID$(X$,J,1)THENPRINT到,轉(zhuǎn)明輸出,則否顯示原字]110NEXT]120如果輸VBVZIVOKILJUXDN輸出結(jié)果:ILIKEITVERY'若CLS清除屏幕INPUT從鍵盤讀取輸入LOCATE把光標定位到指定的行在PRINT語句中跳過指定個數(shù)的空格FORI=1TO10LOCATE3,NPRINTFORJ=1TO100*空循環(huán)起延時作用*/NEXTJNEXTINEXTI/*顯示從左到右運動2.12DRAW在屏幕指定位置畫點LINE畫直線或矩形BOX畫矩形ELLIPSE橢圓聲使揚聲器發(fā)出一個短促的聲演奏指文INPUT#從順序文件中讀取數(shù)據(jù)OPEN開文CLOSE關(guān)閉數(shù)據(jù)文件LSET向緩沖區(qū)分配的變量賦值,并做左對齊從指定文件讀取指定記錄放入緩沖向指定文件的指定記錄寫入緩FIELD指定緩沖區(qū)大小分配緩沖區(qū)變建立一個數(shù)據(jù)文件,并用WRITE#語句將5個人的姓名和年齡輸出給該文件,然后程序該文件關(guān)閉,再次將它打開用于輸入，并把這5個記錄讀回到程序中，并顯示到屏幕上OPEN"TEST.TXT"FOROUTPUTASFORI=1TO5INPUTNAME$,AGE%NEXTICLOSEOPEN"TEST.TXT"FORINPUTASFORI=1TO5INPUTNEXTICLOSE#1環(huán)境下編輯和幫助按鍵覽NEXTICLOSE#1環(huán)境下編輯和幫助按鍵覽編輯狀←→AC(運行狀GVBASICGVBASIC因此強烈推薦各位在編寫GVBASIC程序時一定要用GVBASICGVBASICGVBASIC因此強烈推薦各位在編寫GVBASIC程序時一定要用GVBASICGVBASIC環(huán)境中如果要修改一條語句則必須用EDIT而有了GVBASIC助手編輯環(huán)境下各鍵使用方按<F2出錯代碼表01.NEXTWITHOUT語句沒有對應的03.OUTOF超過數(shù)據(jù)區(qū)的范圍,READ語句已讀完DATA03.OUTOF超過數(shù)據(jù)區(qū)的范圍,READ語句已讀完DATA可代供READ04.ILLEGAL溢出，數(shù)值太大，超過了BASIC06.OUTOF記憶體溢出，程序太大，有過多的FOR循環(huán)或GOSUB,07.UNDEF'D08.BAD09.READIM'D10.DIVISIONBY11.ILLEGAL09.READIM'D10.DIVISIONBY11.ILLEGAL12.TYPE13.STRINGTOO14.FORMULATOO15.CAN'T16.UNDEF'D17.WENDWITHOUT有WENDWHILE16.UNDEF'D17.WENDWITHOUT有WENDWHILE18.RETURNWITHOUT有RETUR語句無19.OUTOIF20.FILE21.FILE22.FILE23.FILE24.FILE25.FILE26.NO24.FILE25.FILE26.NO27.ASK28.FILENOT29.FILE30.RECORD31.FILE32.FILE33.SAMEFILE31.FILE32.FILE33.SAMEFILE34.FILELENGTH35.ILLEGALFILE36.FILETOO37.FILE目錄指令及函數(shù)一覽變量及數(shù)組定定目錄指令及函數(shù)一覽變量及數(shù)組定定義函數(shù)說明用法數(shù)組定定義數(shù)組維數(shù)并分配空間，沒有經(jīng)過DIM說明的數(shù)組下缺省最大值是DIMIF...THEN/(GOTO)...ELSE條件判語法IF...THENn,條件成立時跳到nIF...GOTOn等價于IF...THENnIF...THENnELSE...,IF行處執(zhí)行；條件不成立時接著下一行執(zhí)IF...GOTOnELSE...IFN<4THENGOTO2012342]說明語法給變量賦LETPRINT"AAL";AALLETPRINT"AAL";AAL 語法SWAP]PRINTA,BSWAPA,BPRINTA,B選擇結(jié)構(gòu)流程語 無條件跳說明:*程序跳轉(zhuǎn)到指定行號處運語法:GOTOLETPRINT顯示結(jié)果條件判IF...GOTOn等價于IF...THENnIF...THENnELSE...,IFIF...GOTOnELSE...IFIFIFN<4THENGOTO20顯示結(jié)果112342] 控制轉(zhuǎn)語法ON...GOTO請參考本教程后面的例程<四則運時對應循環(huán)控制語FOR...TO...STEP...NEXT循環(huán)控語法FORTO如FORI=5TO1STEP-1PRINTINEXTI4321] 循環(huán)控語法:WHILE表達式]GOSUBS0PRINTS0GOTO990READAWHILEA<>-1READA自定義函數(shù)及轉(zhuǎn)子過程語句DEF 自定義函用法DEFFN表達DEFFNA(W)=2*W+W;PRINTFNA(23)DEFFNB(X)=4+3G=FNB(23)PRINTDEFFNA(Y)=FNB(Z)+YPRINTFNA(G)7] 跳轉(zhuǎn)子程的下一條語句接著運語法GOSUB的下一條語句接著運語法GOSUBGOSUBIFX>0THENPRINTXELSEPRINT"ERR"INPUTX*子程序開始*/RETURN/*子程序結(jié)束*//*運行程序45*輸出結(jié)果此程序執(zhí)行順序為:10->100->110->20- 子程序返語法 語法:RESUME數(shù)學運算函數(shù) 邏輯用法]20IFA>0ANDA<1THENA 邏輯語法]20IFA>ORB>1THENPRINT 邏輯語法]20IFNOT(A>2)THENPRINT 語法ABS]20PRINT]30]說明語法反正切返回弧度的正切]30]說明語法反正切返回弧度的正切余弦說明:返回弧度的余弦語法說明語法取說明值為x整數(shù)部語法]說明語法取對以e底的對說明產(chǎn)生隨機產(chǎn)生一個(0,1)間的隨機小數(shù),如果x>0,每次產(chǎn)生不同的隨機數(shù)；如果x<0一定系列的隨機數(shù)，如果x=0,輸出上次產(chǎn)生的隨機用法語法正弦說明:返回弧度的正弦語法語法說明語法正切語法語法說明語法正切返回弧度的正切字符串處理說明語法求ASCII求取字符串s$中的第一個字符的ASCII]10]20PRINTCHR$說明ASCII為n字語法CHR$1-255對應的字FORI=1TOPRINTCHR$(I)NEXTI 取字說明符串s$左端的n字語法LEFT$PRINTA$顯示結(jié)說明語法求字串求字符串s$的長LEN]10]20PRINT顯示 取字說明字符n置起取m字顯示 取字說明字符n置起取m字語法MID$顯示結(jié)果取字說明符串S$右端的n字語法PRINTA$顯示結(jié) 語法:MKS$(numexpr)]40LSET 數(shù)字轉(zhuǎn)為字說明數(shù)字n化為字語法LETX=123**/PRINTA$顯示123/*符說明語法字串轉(zhuǎn)為數(shù)將字符串S$轉(zhuǎn)化為LETX$="12345"/**/PRINTA顯LETX$="12345"/**/PRINTA顯示12345/*說明語法取字符位得到光標的水平位說明語法打印空]PRINT45 二進制串(2byte)轉(zhuǎn)為語法]40 二進制串(5byte)轉(zhuǎn)為語法]30LSET]40MKI$整數(shù)轉(zhuǎn)為二進制串(2byte表示語法]40RSETMKS$實數(shù)轉(zhuǎn)為二進制串(5byte表示語法]40LSET輸入／輸出 READ READREMAVERAGE*該程序讀取多個數(shù)，然后計算它們的平均值GOSUB100PRINTS0GOTO990READAWHILEA<>-1A34,45,50,65,23,88,-顯示結(jié)果 置數(shù)據(jù)區(qū)數(shù)說明:程序范例請參考語法DATA 恢復指說明:恢復數(shù)據(jù)區(qū)指針到數(shù)據(jù)區(qū)語法 語法INPUTINPUTPRINTAA$PRINT?ILOVEILOVE/*屏幕輸出ILOVE 屏幕顯PRINTexp1,exp2,exp3...顯示完每個表達式以后換PRINTexp1;exp2;exp3...顯示完每個表達式以后不換行，接著顯示下一個表達PRINTA$,B$,C$/*換行顯示方式PRINTA$;B$;C$*不換行顯示方式*/ 置顯示位語法:LOCATEn,mFORI=1TO10LOCATE3,NPRINTFORJ=1TO100*空循環(huán)起延時作用*/NEXTJNEXTI/*顯示從左到右運動 語法:INVERSE]30 讀鍵語法WHILEINKEY$<>""PRINT"A";圖形及聲音 放音說明CDEFGAB7圖形及聲音 放音說明CDEFGAB7文字符分別代表音階:1語法:PLAY"CDEFGAB"234567]PLAY"L8AGL2AP2L8GFEDL2CL1D 語法:BEEP說明:讓喇叭發(fā)出短促的提示 圖形模語法BOX 語法DRAWX,Y,TYPE其中TYPE確定畫點方式，其它圖形指令亦有此下列參012345print畫點convert或語法畫直線/矩LINE/*該程序在屏幕上打印出一條直線LINELINELINE/*該程序在屏幕上畫出下個漂亮的長方形LINE/*該程序在屏幕上畫出下個漂亮的長方形 畫橢語法ELLIPSE畫橢清橢/*屏幕上畫出一個橢圓 畫圓命語法CIRCLER圓心的橫坐清CIRCLE/*該程序在屏幕正中央畫出一個黑色的圓 畫矩語法BOX畫矩清矩]10BOX]40文件操作函數(shù)OPEN打開數(shù)據(jù)文語法OPEN文件操作函數(shù)OPEN打開數(shù)據(jù)文語法OPENfile$FORmodeAS#filenum%[LEN=reclen%]mode開方式INPUT只讀只隨LEN:緩沖區(qū)長度，默認為32(只在RANDOM方式下有效]10OPEN"DAT"FOROUTPUTAS]20OPEN"DAT1"FORRANDOMAS#2 關(guān)閉數(shù)據(jù)文]10OPEN"DAT"FOROUTPUTAS]20CLOSE 順序文件是否結(jié)束,未結(jié)束返回1(特別注意語法在其它BASIC]50IFEOF(1)THENPRINT"FILE 向指定文件的指定記錄寫入緩沖區(qū)內(nèi)語法PUT]40PUT 語法:GET#filenum%,recordnum%#filenum%文件號#recordnum%記錄]40GET 向數(shù)據(jù)文件中輸入數(shù)INPUT]10INPUT'向文件號為#1的文件中寫入兩個變量的 語法:RSETVAR$=strexpr$]40RSET 語法:RSETVAR$=strexpr$]40RSET 復制文]COPY"M"程序編輯及調(diào)試函數(shù) 語法:SAVE文件名LETPRINTA]SAVE] 語法:LOAD文件名]LOADLETPRINTA語法缺省顯示內(nèi)存當前程LIST[]/[-n]/[n-顯示所有行LETPRINTA]10LET]20PRINT]30]LIST]10LET]20PRINT]30]LIST]10LET]20PRINT 語法:NEW]10LET]20]10LET]20] 語法RUN]/[n]]LETPRINTA 列出文件目語法語法刪除指KILL件語法編輯指定的一行程EDIT]EDIT*20PRINT]20PRINT] 繼續(xù)運行由STOP令中斷的程序語] 繼續(xù)運行由STOP令中斷的程序語法:CONTPRINTABREAKIN] 暫停執(zhí)*暫停程序的執(zhí)行等待CONT語法:STOP 將堆棧中的返回地址彈說明:和RETURN的功能差不多，但程序不是返回到GOSUB的下條語句，而是接著運語法說明用法注REM是非執(zhí)行語句，用來對程序或程序中的某些語句作注釋，便于閱讀說 語法:CLEAR0] DEL[n]/[n1,n2]/[n1-n:刪掉第n行程n1,n2:刪掉n1n2間的程n1-n2:刪掉n1n2間的程n1,n2:刪掉n1n2間的程n1-n2:刪掉n1n2間的程]DEL20-]10]20] 單步跟說明:TRACE指令執(zhí)行后進入單步跟蹤狀態(tài),這時要執(zhí)行的每一條語句和行號都顯示屏幕上，直到執(zhí)行NOTRACE退出單步跟蹤狀態(tài).在GVBASIC手中不能運行.語法:TRACE 退出單步跟蹤狀在GVBASIC環(huán)境中運行，而不能在GVBASIC助手中運行語法 自動置行號用法AUTO目目以下兩個例程源程序均可在本站下載后直接運行，/*后字符為注****四則運算例程以下兩個例程源程序均可在本站下載后直接運行，/*后字符為注****四則運算例程DIMOPERAND(6),OPERATOR(6),EPS(12)FORI=0TO6FORJ=0TOI/*主菜單"1,開始測"2,選擇難"3,題目數(shù)"請選擇(1-/*定位光標ASC(CHOICE$)=27THENGOTONOTORCHOICE$="n"ORCHOICE$="m")THENGOTODIFFICULTY<6THENIFDIFFICULTY=5THENGOTO1000ELSEGOTO"12,減法PRINT34/*二級菜單LOCATECHOICE$<>"j"CHOICE$="j"CHOICE$<>"t"THENGOTORANGE=10ELSEIFCHOICE$="t"THENINPUT";A$IFAMOUNT<=0THENINPUT";A$IFAMOUNT<=0THENGOTOGOTOFORTIMES=1TOAMOUNT/*將字符轉(zhuǎn)化為數(shù)值/*使所取的隨機數(shù)小10,RANGE值決定DIFFICULTY=4ANDNUM2<=1THENGOTO740DIFFICULTYGOSUB3500,3600,3700,3800ANSWER<0THENGOTOANSWER<>INT(ANSWER)ANDDIFFICULTY=4THENGOTO/*CLS:PRINTONDIFFICULTYGOSUB2510,2520,2530,2540PRINTNUM2;"=";INPUTIFLEN(REPLY$)>0ANDVAL(REPLY$)=0ANDREPLY$<>"0"THENGOTO]820IFABS(VAL(REPLY$)-ANSWER)<.01THENPRINT"太棒了IFTIMES<>AMOUNTTHENPRINT任意鍵繼續(xù)...";:GOSUBNEXTTIMESPRINT"是否繼續(xù)(Y/N)";IFCON$<>"n"THENGOTO700GOTO200RIGHT=0FORTIMES=1TO生成表達I=0TONEXTFORI=0TONUM-1NEXTIIFINT(4*RND(1))=1ANDNUM<>2THENGOTOFORI=0TONUM-2NEXTIGOTOREM生成帶括號的表達式FORI=0TONUMNEXTIJ=0:I=0:EXPROI=0WHILEIFOPERATOR(J)=5THENJ=J+1:EPS(EXPROI)=-5:EXPROI=EXPPOI+1ONOPERATOR(J)GOSUBIFOPERATOR(J)=6THENJ=J+1:EPS(EXPPOI)=-6:EXPPOI=EXPPOI+1:GOTOREM計算運算式的值ST1=0:ST2=0:EXPPOI=0WHILENOT(CH-7ANDSTACK2(ST2-1)=-7)IFCH>0THENGOSUB1570ELSEGOSUB1580GOTO'注意語句的用REM判斷用戶答案是否正IFSTACK1(ST1-1)<0THENGOTO1020FORK=0TOEXPPOI-IFEPS(K)>=0THENPRINTEPS(K);ELSEON-EPS(K)NEXTPRINT"=";INPUTREPLY$]1675IFLEN(REPLY$)>0ANDVAL(REPLY$)>0AND]1675IFLEN(REPLY$)>0ANDVAL(REPLY$)>0ANDVAL(REPLY$=0ANDREPLY$<>"0"GOTOIFABS(VAL(REPLY$)-ANSWER)<.01THENGOSUB1910ELSEGOSUB1930IFTIMES<>AMOUNTTHENPRINT"按任意鍵繼續(xù)...";:GOSUB3900NEXTTIMESPRINT"是否繼續(xù)(Y/N)";IFCON$<>"n"THENGOTO1000GOTO200PRINTINT(ANSWER*1000+0.5)/1000PRINT"-ON-THETAGOSUB3500,3600,3700,3810IFTHETA=-4ANDANSWER=9999THENGOTO1020IFNUM2=0THENANSWER=9999ELSEANSWER=NUM1/NUM2WHILE1THENGOTOKEYVAL$<>INKEY$WEDATA***翻牌成對DIMNUM$(9),TEMP1$(18)FORI=1TONEXTIGOSUB900:GOSUB1000:GOSUB1600:GOSUBLETX%=1:LETY%=1:STARTFLAG%=0;TIMER=0IFTOTAL%=18THENGOSUB1900:GOTO200STAY%=1:GOSUB1600LOCATEX%,Y%:PRINT""IFPEEK(199)<128THEN173LOCATEX%,Y%:PRINTIFM1$=CHR$(27)THEN190STAY%=1:GOSUB1600LOCATEX%,Y%:PRINT"";GOTO100CLSLOCATE2,3:PRINT退出";REMSUBOPEN-LEFT*****************<<<<<<<<<<<<<<<<GOSUBIFY%=1ANDX%=1THENY%=11:X%=3:GOTO350IFY%=1THENX%=X%-1:Y%=11ELSEY%=Y%-2IFOPFLAG%(XYSRT1%)=1ORDELFLAG%(XYSRT1%)=1THENGOTO-RIGHTREMSUBOPENIFTOTAL%=18GOSUB700IFY%=11THENGOTOX%=3THENY%=1:X%=1:GOTOIFY%=11THENX%=X%+1:Y%=1ELSEY%=Y%+2IFDELFLAG%(XYSRT1%)=1OROPFLAG%(XYSRT1%)=1REMSUBOPEN-UP^^^^^^^^^^^^^^^^^^^^^^GOSUBIFX%=1THENX%=3ELSEX%=X%-IFOPFLAG%(XYSRT1%)=1ORDELFLAG%(XYSRT1%)=1REMSUBOPEN-DOWN^^^^^^^^^^^^^^^^^^^^^^^^^^GOSUBIFX%=3THENX%=1ELSEXL1%=X%-IFOPFLAG%(XYSRT1%)=1ORDELFLAG%(XYSRT1%)=1THENREMSUBSOPEN-RESTOREXL1%=X%-IFDELFLAG%(XYSRT1%)=1OROPFLAG%(XYSRT1%)=1THENLOCATEX%,Y%:PRINT"■";REM READREADCH$FORI=1TO9:READNUM$(I):NEXT"0","苣","菡","菰","蕷","蓐","葳","蕆","蕨","蕤"1","脧","眭","睦","瞵","睥","瞍","睢","瞧","睫"2","呔","嘻","喳","嗒","啖","叨","嗡"3","螄","蚊","蜩","螨","蟒","嚏","蜓","蜞","蠐"4","蹯","蹊","蹌","跟","跖","磽","蹂","躕","踔"5","疳","瘧","癃","癮","瘼","癘","瘛","疽","癰"6","宥","寡","褰","蹇","搴","謇","甯","竇","窳"7","崦","研","峴","嵴","峒","崛","嶁","峋","崾"8","堞","垅","埒","垤","塥","埡","堝"9","漭","澌","渫","瀠","灄","溽","滹","濾","淠IFTMP%=0THEN930LOCATE1,18:PRINTTMP%GOSUB800FORI=1TOIFK=10THENK=1NEXTIFO