Advertisement
I
Gemini User's Manual
10 lPRIHT CHR$(27';I@'jCHR$(27)j'A"jCHR$(61
20 FOR ll=l TO 2
30 lPRINT CHR$(271j'K" jCHR$(114IjCHR$(01j
40
FOR SPACE=1 TO 100
50 LPRINT CHR$(O);:NEXT SPACE
60 FOR COl"=! TO
14
70
READ C:LPRIHT CHRS{C)::NEXT COLK
80 LPRINT :NEXT LI
90 DATA 14,16,34,64,140,140,128,128,140,140,64,34,16,14
100 DATA 224,16,232,68,34,18,18,18,18,34,68,232,16,224
110 LPRINT CHR$(27);"@":
120 LPRINT :LPRINT :LPRINT
130
END
Figure E-4 is the dot graphics program presented in Chapter 6 (the one
that puts
a
smile on your paper) amended for the Osborne computer.
10
lPRINT CHRS(163)jCHR$(1bllj
20 LPRINT CHR$(27)j"A";CHR$(3)
30
lPRINT CHRS(lb2),CHRS(lbO);
40
lPRINT CHRS(27);"2"
50
END
Figure E-5 is the circle program presented in Chapter 7, amended for the
Osborne computer.
10
lPRINT TAB(2);CHR$(163)jCHR$(27l;'A"jCHR$(o)
20
lPRINT CHRS(160)
30 END
Figure E-6 is the tilde program presented in Chapter 7 amended for the
Osborne computer.
10
LPRINT TAB(20)j'N',CHR$(13)
20 LPRINT TAB(20);CHR$(164);CHR$(13)
30 LPRINT TAB(181;'W';CHR$(166);CHR$(32);CHRS(1671;"E";CHRS(13)
40 LPRINT TAB(20);CHR$(16S);CHR$(13)
SO LPRINT TAB(20Ij'S'
6(l
END
Figure E-7 is the map program presented in Chapter 7 amended for the
Osborne computer.
200
•
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
Advertisement
