|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| Gemini User’s Manual | |||
10 | CLS:KEY |
| 3FF:DM | AS(24,BO) |
|
|
|
|
|
|
|
|
|
|
|
| ||||||
20 | cLs:X~l:Y:l |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |||
30 | SOSUB | 1SO:LOCATE |
| X,Y:PRINT | “C” |
|
|
|
|
|
|
|
|
|
|
| ||||||
40 | B$=INKEYI:IF |
| B+“’ |
|
| THEN 40 |
|
|
|
|
|
|
|
|
|
|
| |||||
SO | IF | B$aCHR¶(S) | THEN | CL&END |
|
|
|
|
|
|
|
|
|
|
|
| ||||||
50 | IF | BI=CHRI!lB) | THEN | CLS:SOBUB | 200:60TO | 20 |
|
|
|
|
|
| ||||||||||
70 | IF | BJ=CHRl(lb) | THEN | 6010 | 220 |
|
|
|
|
|
|
|
|
|
|
| ||||||
SO | IF | B(=CHR%(13) | THEN | AJ(X,Y)=BhLOCATE |
|
| X,Y:PRINT | ’ | “:X=X+l:Y~l:LOCRTE |
| X,Y:PRINT | |||||||||||
| “C”: | : SOT0 | 40 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |||
90 | IF | BWHR((4) |
| THEN | SOSUB | 130:GOT0 |
| 40 |
|
|
|
|
|
|
| |||||||
100 | LOCATE |
| X,Y:PRINT |
| BJ;:RI(X,Y)+:Y=Y+l |
|
|
|
|
|
|
|
|
|
| |||||||
110 | IF YgBO THEN A$(X,Yl=CHR((l3):BEEP:X*X+l |
|
|
| Y.l:GOTO | 40 |
|
|
| |||||||||||||
120 | LOCATE |
| X,Y:PRINT |
| “@“;:GOTO | 40 |
|
|
|
|
|
|
|
|
|
| ||||||
130 | LOCATE | X,Y:PRINT |
| ” |
| Y=O | THEN | =l:BEEP: |
|
|
|
| ||||||||||
!35 | A5(X,Y)=“” |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |||
140 | LOCATE |
| X,Y:PRINT |
| “~*;:RETuRN |
|
|
|
|
|
|
|
|
|
|
| ||||||
!50 | LOCATE |
| 25,2:COLOR |
|
| O,?:PR!NT |
| ” | ^P) |
| printer | “:: |
|
|
|
|
| |||||
160 | LOCATE |
| 25,17:COLOR |
|
| 0,7:PRINT | ” | ‘D) |
| delete | “::COLOR | 7,0 |
|
|
| |||||||
170 | LOCATE |
| ?S,JQ:COLOR |
|
| O,?:PRINT | @ ^A) | restart |
| “::COLOR | !,O |
|
| |||||||||
180 | LOCATE |
| 25,5!:COLOR |
|
| O!?:PRINT | ” | “El | exit |
| “::COLOR | 7,o |
|
| ||||||||
:90 | RETURN |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
200 | LOCATE |
| !0,30:PRINT |
|
| “olease | stand | bv “;:FOR | I=1 | TO | X:FOR | Jzl TO | SO:M(I,J)=““: | |||||||||
| NEXT: |
| NEXT: | RETURN |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |||
220 | LPRIN? | CHRb(27) |
| : ‘@” |
|
|
|
|
|
|
|
|
|
|
|
|
| |||||
230 | CLS:LOCATE |
| 25,?:COLgR | 0,7:PRINT |
| ” | Clonnand | “: | :LOCfiTE | 25,16 |
|
| ||||||||||
c‘40 |
| ” | Pjrint |
| “::LOCATE | 25,27:PRINT |
| ” Rleturn |
| “::COLOR | 7,O |
|
| |||||||||
250 | G$=INKEY):IF | 65=“’ |
| THEN | 250 |
|
|
|
|
|
|
|
|
|
|
| ||||||
200 | IF | 6l=“P” |
| THEN |
| SOSUB | 310 |
|
|
|
|
|
|
|
|
|
|
|
| |||
270 | IF | G§=“C” |
| THEN |
| GOSUB | 320:GOT0 |
| 230 |
|
|
|
|
|
|
|
| |||||
280 | IF | S$=“R” |
| THEN |
| 6OSUB | 300:GOT0 |
| 30 |
|
|
|
|
|
|
|
|
| ||||
290 | GOT0 |
| 250 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
300 | CLS:FOR |
| 111 | TO |
| X:FOR | J=l | TO | BO:LOCATE | 1,J:pRINT |
| M(I,J);:NEXT | J:NEXT | IIRETURN | ||||||||
319 | FOR | I=1 | TO | X:FOR | J=l | TO | SO:LPRINT |
| AS(I,J);:NEX? |
| J:NEXT | I:RETURN |
|
| ||||||||
320 | LOCATE |
|
| STRINM(S0,32!: |
|
|
|
|
|
|
|
|
|
| ||||||||
330 | LOCATE | 25,2:PRINT |
|
| STRINGS(50,32): |
|
|
|
|
|
|
|
|
|
| |||||||
340 LOCATE | 252:COLOR |
|
| 0,‘I:PRINT | ” | El | Ese | “;:LOCATE |
| 25,ll |
|
|
| |||||||||
350 |
| ” | Cl | CHRt |
| “;:LOCATE | 25,21:PRINT |
| ” | 01 end | conmand | “t:COLOR | 7,0:STI=“” | |||||||||
360 | GI=INKEYI:IF |
| G$=“” | THEN | 3bO |
|
|
|
|
|
|
|
|
|
|
| ||||||
370 | IF | Gs=“E” |
| THEN |
| 60SUB | 420:SOTO |
| 400 |
|
|
|
|
|
|
|
| |||||
380 | IF | 65:“;” |
| THEN |
| SOSUB | 530:GOT0 |
| 400 |
|
|
|
|
|
|
|
| |||||
390 | IF | G+“Q” |
| THEN |
| GOT0 | 410 |
|
|
|
|
|
|
|
|
|
|
|
| |||
400 | GOT0 |
| 360 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
410 | RETURN |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| ||
-
-
-
76
