Advertisement
~
_________________________________ G_e_m_in_i_U_Se_'_·S_M_a_n_u_a/
10 CLS:KEY OFF:OIM A$(24.90)
20 CLS:X=l:Y=l
30 60SUB 150:LOCATE X,V:PRINT "@":
40 B$=INKEY':IF B':"' THEN 40
~O
IF
B$.CHR'(~)
THEN CLSIENO
60 IF SS=CHRS(19l THEN CLS:60SUB 200:60TO 20
70 IF BS=CHR$(16) THEN GOTO 220
90 IF e'=CHR'(13) THEN A$(X. Y)=B' : LOCATE X,Y:PRINT • ":X=X+l:Y=l:LOCATE X.Y:PRINT
"@0::60TO
40
90 IF S$=CHR$(4) THEN GOSUS 130:GOTO
40
100 LOCATE X.Y:PRINT S'j:AS(X.Y):BS:Y=Y+l
110 IF Y=90 THEN AS(X.Vl=CHR'(13l:BEEP:X=X+l:Y=I:GOTO 40
120
LOCATE X.Y:PRINT "@"::GOTO 40
130 LOCATE X.Y:PRINT " '::V=Y-l:IF Y=O THEN Y=I:BEEP:
135 AS(X.Yl:""
140 LOCATE X.Y:PRINT "@A;:RETURN
1S0 LOCATE 2S,2:COLOR O,':PRINT "
~P)
printer "I:
160 LOCATE 25,17:COLOR O.7:PRINT "
AD)
delete
"::COLOR
7,0
110 LOCATE 25,34:COLOR O,1:PRINT °
~R)
restart
a::COLOR 7,0
IBO LOCATE 25!SI:COLOR O,7:PRINT • -E) exit
"!:COLOR
7,0
!qo
RETURN
:00
LOCATE 10,30:PRINT "olease stand by"::FOR 1=1
TO
X:FOR J=1
TO
80:A$(I.Jl:'":
NEXT:NEXT:RETURN
220 LPRINT CHR$(271:'@"
230 CLS:LOCATE :S,2:COLOR 0.7:PRINT
n
Clommand o;:LOCATE 25,16
240
PRINT" P)rint ' : :LOCATE 25.27:PRINT ' Rleturn ': :COLOR
7.0
250 GS:INKEY5:IF 65=" THEN 250
260 IF 55:"P" THEN 60SUB 310
270 IF 5$:"C" THEN 60SUB 320:GOTO 230
280
IF 6$:"R" THEN 60SUB 300:60TO
30
290 GOTO 250
300 CLS:FOR 1=1 TO X:FOR
J=1
TO BO:LOCATE I.J:PRINT A$(I.J);:NEXT J:NEXT I:RETURN
310
FOR 1=1 TO X:FOR J=1 TO SO:LPR!NT A$(I.J);:NEXT J:NEXT I:RETURN
120 LOCATE 2S.2:PRINT STR!NG$(SO,!21:
330 LOCATE 2S,2:PRINT STRINGS(SO.321;
340 LOCATE 25,2:COLOR 0,7:PRINT
n
E) Esc ";:LOCATE 25,11
350 PRINT" Cl CHR$ ';:LOCATE 2S,21:PRINT "
Q)
end command ";:COLOR 7,O:STS:·o
360
G$=INKEY$:IF G$:" THEN 360
370 IF GS="E" THEN 60SUB 420:GOTO
400
390
IF
GS:"C' THEN 60SUB 530:60TO
400
390 IF G,="Qo THEN GOTO 410
400 GOTO 360
410
RETURN
76
• •
• •
• •
• •
• •
• •
•
•
• •
• •
• •
• •
Advertisement
