Xz77gt

1
120 Ill
130 PRINT IDOON2lGIVE SDP;
WTITLE :
140 T$111
01 IF LEN1T$1111)42 THEN PR
:1NPUT INT 'CDOON1100 LONE'
T $ 160TO 130
340 PRINT11,"D",469,-505
:REM 16010 BOTTOM
350 PRINT11,4
1 :REM $ BOTTOM LINE
,0 360 PRINT81,4",76,-505
1 1REM t 6010 SPINE 1
-505 370 PRINT81
1 :REM I SPINE 1
4",76,0 380 PRINT81,W
1 :REM I GOTO SPINE 2
139 390 PRINT81
1 :REM I SPINE 2
01",139
400 PRINT01
1 1410
PRINT$3,3:REM 1 10 CHARS
-505 4420
PRINT114:REM t LINE FEED
1430
PRINT12
:REM 1440
NMOSTRCTN):IF
$
TN21 OR
LEN111(2)1)21 THEN TOO
240 PRINT "CDOWN6,RI5HT101
PRESSISPC,RVSON,SPC1SPACE
(SPC,RVSOFF,SPC1TO PRINT°
250 GET AtlIF AtOCHR$1131 I
HEN 255
251 IF NE1200 THEN 1.2
tJuNE(2):6OTO 200
252 1.2:6OTO 150
255 IF A$0' THEN 250
260 PRINT 1
11)00 C C U "
3,RI5 270 PRINT "CRI6H114
HT14, 1 PRINTINSESPC2,S-1"
CAl S-,5PC2l 280 PRINT 'ERIGHT14,C21
E C X 3
,
530 PRINT11,9"
540 PRINT113,11:REM $ 40/80
CHARS
550 IF 11:1 THEN PRINT84,"
ESPCI3r01
560 1IF
TOO THEN PRINT84,'
- I9PC271"11:
570 PRINTO3,01REM "r1$1 6
1 90 -
11 - 6
580 1111I/ IF NE(t)0 THEN 625
590 PRINTI2,0:REM 1 BLACK
600 FOR J.I TO NEM
610 PRINT84,
1620
NEXT J
1SPC28PIE
625 PRINT84:PRINT841PRINTI4
11(1,J) 630 NEXT 1
640 M8.1101(NE11)4E(2)11+(2
011TO111.0160
650 SPO
1 :PS$
TAPP 660 0PRINTI3,2:REM
8 20 CHARS
670 +STR PR1NT$2,3:REM 4TN 1 RED
$1TN/ 680 $ PRINT844
1 ) 1:HOLEFTCGA$,C2122)
+
900
LC
IF T1111/rat THEN 990
E910 F2PRINT82,2sREN
I GREEN
920 FOR 121 TO 122E21
T 1
$ I2
B 2A
1
-
L
E
N
How
(
it Works
T
10-60 set up and title
70-85 $
input tape number
90-120 (
input tape name
130-235 2
input side titles and index entries
240 ready for output
)
, 290 set up printer
280 , 320-390 )
draw card outline
310 400-450 )
print tape number
460-500
1
print tape title
510-560 print side and title
570-630 print index
640-730 print tape number on spine
740-800 print tape title on spine
810-890 print tape title on back flap
900-1040 print side titles on back flap
1050-1060 close file
1070-1110 request repeat or end
290 OPEN 1 4
690 1 PRINT$1,
1 :OPEN 2,6,210PEN 3,6,3
610PE :OPEN 44,6,4
1
11 700 FOR 1.1 TO LEN(SP8)
N 300 PRINT82,0:REM BLACK 1710
PRINT81,1":PRINT81,4
1 310 , PRINT$44,01REN 6
$ UPRIGHT 1PRINT111,
1 0
1320
PRINT11,
1 1330
PRINT81,"D',469
11";REM 1 1REM TOP LINE
1 0
H O M E
41 , 720 1PRINT84,'ESPC41
1 1
730
, 8
NEXT 1 I
1
1
4
(
30
990 PRINT83,1:REM 8 40 CHARS
1000 PRINT$2,1:REM t BLUE
1010 FOR 1.1 TO 26
1020 PRINT84,
1 MIDI(F8,1,1)
1SPC43 1030 PRINTI1,'M
1 11040
NEXT I
1060 PRINT114:PRINT841PRINT84
tPRINT$4:PRINT14:PRINT14
:PRINTO4
1070 PRINT 'IDOWN3,RIGHT123
PRINTING COMPLETE'
1080 PRINT "IDOWN3ANOTHER
INLAY CARD MN/ ?"
1090 GET At:1F Ater THEN C
LR:SOTO 30
1100 IF A$04" THEN 1090
1110 END