Advertisement
I
Gemini User's Manual
t~
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
250 6ET G$:iF 5,=o·THEN 250
260 IF 6$:"P' THEN 605U8 310
270 IF 6':'C· THEN GOSUB 320:60TO 230
28(l
IF 6$='R' THEN
60SUB 300:60TO
30
:90 GOTO 250
300 PRINT CHR'(147):605UB 900:RETURN
310 OPEN4,4,5:CKD4
:12 FOR I=O TO X:FOR 1:0 TO 40
314 PRINT A'(J,JI::NEXT
J
316
~EXT
I:PRINTt4:ClOSE4:RETURN
320
K' = O
':F:l~e4:50SUB
BOO
330 M$:'El ESC
Cl
CHR$ 0) END COK"AND":F=1984:60SUB BOO
340 SH="
360 6ET G$:IF 5$=0' T HEN 360
370 IF 6$='E" THEN GOSUB
420:60TO
400
380
IF 5S='C· THEN GOSUB 530:50TO 400
390 IF
6$='Q"
THEN 60TD 410
400 GOTO 360
410
RETURN
420
l=O:KS:'
ESC ":F=l
Q
l0:50SUB 800
425 F=191:
430
6ET 6$:IF 6$=R' T HEN
430
440 IF 6,=CHP.'(131 THEN 480
450
M$=6$."
':F=F+2:60SUB 800
470 SS(ll:6$:L=L+l:GOTO 430
480 IF L>2 THEN 50SUB bOO:
490
IF
L=2
THEN
sosue
650
500 IF
L~l
THEN ST$=CHR$(27)tS$(Ol
~\O
OPEN4.4.5IPRINT'4.ST':ClOSE4:ST$:'·
515 FOR
J=l TO L:STS(Jl="u:NEXT J:L:C
520 "$:"
':F=1910:S0SUB SOO:RETURN
530
M$=" CHR$
R:F=IQ10:60SUB 800:ST$:"
535 F=1916
540 6ET 6S:IF 6$:·eTHEN 540
550 IF 6$=CKR'(131
THEN 570
560 M$:6S:F=F+l:60SUB BOO:STS=ST$+6$:50TO 54(1
570
",='
':F=1910:60SUB 800:
58Q OPEN4,4,S:PRINTI4,CHR'(VAlISTS));:CLOSE4:ST$:'·:RETURN
bOO WI
btO FOR
J=!
TO l:D'=O'+S'(JI:NEXT
J
620 ST'=CKRS(27)+S$(O)+CHRSlVAlIDS)
1
182
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
•
Advertisement
