..
b
I
Putting Gemini to Work
420 1:O:LOCATE 23,4:PRINT “Esc “;
430 6%=fNKEYS:IF 61:“” THEN 430
440 IF WCHR$(l3) THEN 480
450 PRINT 6s;
460 PRINT ” “;
47b s~(I)*6~lI~I+lr6Ot0 430
480 | IF | 112 | THEN | FOR | Jli | TO | IID~~DI+S$(J~:NEXT | JrSTWHRI(27)+SRiO) | |
| +CHRI(VAL(Dt)1rDW” |
|
|
|
|
| |||
490 | IF | THEN | STWHRS(27J+SS(OI+CHR$WALWfl1 |
| t 1 | ||||
SO0 | IF | I*1 | THEN | StWHR1127)+S1(0) |
|
| |||
510 | LPRINT | ST$iSTS*“‘:FOR | J=l TO I:SS(J)~““:NEX? |
| J:I*O | ||||
520 | LOCATE | 23,4:PRINT | ” |
|
|
| “; :RETURN | ||
530 | LOCATE | 23,2:PRINT | “CHRI | “;:STl=“” |
|
| |||
540 | G$~INKEYhIF | SW” | THEN | 540 |
|
| |||
550 | IF | SS=CHRS(13) |
| THEN | 570 |
|
|
| |
560 | 6Q:STWTI+GS:60TO |
| 540 |
|
| ||||
570 | LOCATE | 23,2:PRINT | ” |
| ‘:LPRINT | CHRSWAL(STO)::STC=““:RETURN |
Figure 54. A simple program, written in BAStC, that serves as a rudimentary word processing program.
In Figure
The display on your CRT monitor may not be anything to write home about, but at least it gives you the capability of writing home! You may also find the use of the control codes is somewhat awkward, but this program has its own menus which will make it easier for you to remember the commands. The program provides three different menus which display your options and prompt you to select specific commands to guide you in your word process- ing. After you have typed in the program and entered RUN follow- ed by a carriage return, the first menu will appear at the bottom of the screen and the cursor should be at the top left corner.
Now you can type in your text and correct any errors you may make. Because of the simplicity of this program, it does have some limitations, which will vary for the different computers. If your com- puter is an
77