Advertisement
270
IF 6$="C' THEN 60SUB 320:60TO 230
280 IF 6$="R" THEN
sosue
300:6010 30
290 GOTO 250
300 PRINT ClR$:FOR 1=1 TO X:FOR J=t TO 50
302 PRINT FNLSII,J);:
304 IF AS(I,J)=CHRSI13) THEN 308
306 PRINT ASII,J);:
308 NEXT J:NEXT I
309 RETURN
310 FOR I=1 TO I:FOR
J
s
l
TO 50:lPRINT ASII,J);
312 NEXT J:lPRINT :NEXT I:RETURN
320 PRINT FNlSI23,t);SPC(471j
340 PRINT FNl$(23,2);"
El
Esc":
350 PRINT FNlSI23,10);" Cl CHRS "
j
355 PRINT FNLS(23,201j"
QI
END CO""AND ";:ST$=··
360 6S=INKEY$:IF 6$='8 THEN 360
370
IF 6$="E" THEN 60SUB 420:60TO 400
380 IF 6S="C" THEN G05UB 530:60TO 400
390
IF 6$:80' THEN 60TO
410
400 60TO 360
410
RETURN
420
l=O:PRINT FNlSI20,41;:PRINT "Esc
"j
430 6S=INkEYS:IF 6S=" THEN
430
440 IF G$=CHRS(13) THEN 480
450 PRINT
6$;
460 PRINT" "
j
470 5$ll)=6$:1=1+1:60TO
430
~so
IF 1}2 THEN 60sue BOO
490 IF 1=2 THEN
sosue
950
500
IF
1=1 THEN STS=CHRSI271+SSIO)
510 LPRINT ST$:ST$:·':FOR J=l TO I:S$(Jl="·
512 NEXT J:I=O
520 PRINT FNL$(20,4);:PRINT STRIN6f(2Q,·
"j
521 RETURN
530
PRINT FNLS(20,4)j' CHRS "j:STS:"
540 6$=INKEY$:IF 6$='· THEN 540
550 IF 6$=CHRS(13) THEN 570
560
PRINT 6$;:ST$=ST$+6$:60TO 540
570 PRINT FMLS(20,4);:PRINT
STRI~G$(10,·
")
580 lPRINT CHR$(VALISTS))j:ST$=,u:RETURN
700 REI!
198
Gemini User's Manual
• •
• •
• •
• •
• •
• •
• •
• •
• •
•
• •
• •
Advertisement
