Gemini Printer User Manual page 82

Gemini User's Manual
10 CLS:KEY 3FF:DM AS(24,BO)
20 cLs:X~l:Y:l
30 SOSUB 1SO:LOCATE X,Y:PRINT "C"
40 B$=INKEYI:IF B+"' THEN 40
SO IF B$aCHR¶(S) THEN CL&END
50 IF BI=CHRI!lB) THEN CLS:SOBUB 200:60TO 20
70 IF BJ=CHRl(lb) THEN 6010 220
- SO IF B(=CHR%(13) THEN AJ(X,Y)=BhLOCATE X,Y:PRINT ' ":X=X+l:Y~l:LOCRTE X,Y:PRINT
"C": : SOT0 40
90 IF BWHR((4) THEN SOSUB 130:GOT0 40
100 LOCATE X,Y:PRINT BJ;:RI(X,Y)+:Y=Y+l
110 IF YgBO THEN A$(X,Yl=CHR((l3):BEEP:X*X+l
120 LOCATE X,Y:PRINT "@";:GOTO 40
130 LOCATE X,Y:PRINT " "i:Y:Y-1:IF Y=O THEN
!35 A5(X,Y)=""
140 LOCATE X,Y:PRINT "~*;:RETuRN
-
Y.l:GOTO 40
--
=l:BEEP:
-
!50 LOCATE 25,2:COLOR O,?:PR!NT " ^P) printer "::
160 LOCATE 25,17:COLOR 0,7:PRINT " 'D) delete "::COLOR 7,0
170 LOCATE ?S,JQ:COLOR O,?:PRINT @ ^A) restart "::COLOR !,O
180 LOCATE 25,5!:COLOR O!?:PRINT " "El exit "::COLOR 7,o
:90 RETURN
200 LOCATE !0,30:PRINT "olease stand bv ";:FOR I=1 TO X:FOR Jzl TO SO:M(I,J)="":
NEXT: NEXT: RETURN
220 LPRIN? CHRb(27) : '@"
230 CLS:LOCATE 25,?:COLgR 0,7:PRINT " Clonnand ": :LOCfiTE 25,16
'40 PRINT " Pjrint
c "::LOCATE 25,27:PRINT " Rleturn "::COLOR 7,O
250 G$=INKEY):IF 65="' THEN 250
200 IF 6l="P" THEN SOSUB 310
270 IF G§="C" THEN GOSUB 320:GOT0 230
280 IF S$="R" THEN 6OSUB 300:GOT0 30
290 GOT0 250
300 CLS:FOR 111 TO X:FOR J=l TO BO:LOCATE 1,J:pRINT M(I,J);:NEXT J:NEXT
319 FOR I=1 TO X:FOR J=l TO SO:LPRINT AS(I,J);:NEX? J:NEXT I:RETURN
320 LOCATE ?!,::PRINT STRINM(S0,32!:
330 LOCATE 25,2:PRINT STRINGS(50,32):
340 LOCATE 252:COLOR 0,'I:PRINT " El Ese ";:LOCATE 25,ll
-.
IIRETURN
350 PRINT " Cl CHRt ";:LOCATE
25,21:PRINT " 01 end conmand "t:COLOR 7,0:STI=""
360 GI=INKEYI:IF G$="" THEN 3bO
370 IF Gs="E" THEN 60SUB 420:SOTO 400
380 IF 65:";" THEN SOSUB 530:GOT0 400
390 IF G+"Q" THEN GOT0 410
400 GOT0 360
410 RETURN
76