Gemini Industries Printer

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