-8 H —! Œ!!L(>F >*ÿ ÿÿL'¼ZšÉ ¡ Í¥  É ! ¡ *** CASETNDX version 1.2 *** 9 ¡ *** Title character set begins at 30464 (as per pcg) 6 ¡ *** cassette blank begins at 19584 (320x34 bytes) * ¡ *** info c/set at 18432 (96x12 bytes)  ¡ *** 26 december 1988  ¡  ¡ i¥:Ÿ160,76:Ÿ161,41:¥:®(1200) n Ã119:áM"blank.cst"18432:130 wN7$="" x=ƒß(7);"BLANK";N7$;".CST not present; CASETNDX cannot run":‘ ‚$N7$="1":Ã120:áM"blank1.cst"10572 †Ã0 ‡6ƒ"** CASETNDX Version 1.2 26 December 1988 **":Û0,8 Œ¥:¡re-initializestrings  L#1 Ž'ŒL0(25):A0$="":ŠJ=1™38:A0$=A0$+" ":‹J ŠJ=0™25:L0$(J)=A0$:‹J "ŒF(7):I=1:ŠJ=0™7:F(J)=I:I=I*2:‹J ‘· ’>ƒ"Do you have any previous labels to load (.CXT extension?)" “/V=0:–"If so, enter name here (else )";F0$ ” „F0$=""‰159 •!Ã150:å"i",6,F0$+".cx1":V=1:æ6 –"Ã0:áMF0$+".cxt"19584:„V<>1‰152 —áMF0$+".cx1"10572 ˜(Ÿ257,2:ƒ"(M)odify or (P)rint as is :"; ™Z7$=Þ:„Z7$=""‰153ˆŸ257,0 š!ƒZ7$:„Z7$="P"‰660ˆ„Z7$<>"M"‰152 Ÿ)ƒ"BOLD"\"DATA70"\"NLQ"\"OPTIC"\"SCRIPT"  +ƒ"Enter style for heading on label";:–F0$ ªÃ160:áMF0$+".fon"30464 ´Ã0 µ[Ÿ257,2:M=0:ƒ"For heading style enter one or more of"\"(B)old,(I)talic,(U)nderline ";:–Z7$ ¶ „Z7$=""‰196 ·ŠI=1™À(Z7$):Z6$=Z7$(;I,I) ¸„Z6$="I":M=(M´2) ¹„Z6$="B":M=(M´1) º„Z6$="U":M=(M´4) » ‹I:Ÿ257,0 Ä· È!±12,1:ƒ[A39 95]:±5,1:ƒ"Title: " Ò:ŠI=3™15:±5,I:ƒ"-";:±25,I:ƒ"-":±37,I:ƒ"-";:±57,I:ƒ"-";:‹I Ü1X=1:Y=0:S=0:W=0:±13,2:ƒ"Side A":±43,2:ƒ"Side B" ݱ11,1:–""T0$:„T0$=""‰221 á0U=-13*((W=1)³(V=1)):¡ ensure u is set properly âCŠI=0™12:Z7$=L0$(I+U):±6,I+3:ƒZ7$(;1,19);:±38,I+3:ƒZ7$(;20,38);:‹I ã!±1,3:ƒ"flap":±2,4:ƒß(65-(W=1)); õŸ220,0 ±5+X+S,3+Y:ƒß(14)ß(8); K0$=Þ:„K0$=""‰270  I=¿(2310):„I=-1³¾(258)=47‰1080 „K0$<>ß(13)‰280 X=1:Y=Y+1:„Y>12:Y=12 260 „K0$<>ß(8)‰290 X=X-1:„X<1:X=1 260 "„K0$=ß(1):S=0:260 #„K0$=ß(2):S=32:260 $„K0$=ß(11):V=1:W=1+(W=1):225 -„K0$<>ß(5)‰304 .Y=Y-1:„Y<0:Y=0 /260 0„K0$<>ß(24)‰310 1Y=Y+1:„Y>12:Y=12 2260 6„K0$<>ß(4)‰313 7X=X+1:„X>19:X=19 8260 9„K0$=ß(27)‰400 ?„K0$<" "‰270 @„K0$>"~" ‰270 AZ7$=L0$(Y+U) B„X+S=1:Z7$=K0$+Z7$(;2):330 C*„X+S=33:Z7$=Z7$(;1,19)+K0$+Z7$(;21):330 D!„X+S=51:Z7$=Z7$(;1,37)+K0$:330 E0Z=-19*(S=32):Z7$=Z7$(;1,X+Z-1)+K0$+Z7$(;X+Z+1) J$L0$(Y+U)=Z7$:ƒK0$;:X=X+1:„X<20‰260 TX=1:Y=Y+1:„Y<16‰260 ^Y=0:S=32:260 ±1,16:ƒ"Are you SURE?"; ‘K0$=Þ:„K0$=""‰401 ’„K0$<>"Y"³K0$<>"y"‰260 “ ƒK0$;"es"; ”±18,16:ƒ"Title"; š-¡ *** poke title into appropriate place *** ¤.A=¼(8*Í(À(T0$))/2):¡ properly center justify ®ŠC=0™15:¡ line counter ³±24,16:ƒ"line "C+1; ¸%ŠD=1™À(T0$):¡ counter of characters ½±11+D,1:ƒß(14)ß(8);  G=¾(30464+(Å(T0$(;D,D))*16)+C) Ç „G=0‰510 ÌŠE=0™7:¡ bit counter ÖI=(G³F(E)):„I=0‰500 à!’[160-A+(D-1)*8+7-E,247-C]64010 ê ’[160-A+(D-1)*8+7-E,52-C]64010 ëJ=(M³1):„J=0‰500 ì ’[160-A+(D-1)*8+6-E,52-C]64010 í!’[160-A+(D-1)*8+6-E,247-C]64010 ô‹E þ‹D ÿI=(M³2):„I=0‰520 $F0=Ð(Í(C)/4):„ F0<>0 ³ F0<>0.5‰520 A=A+1 +‹C:¡ ok, title done, now do contents info  I=(M³4):„I=0‰528  ŠD=1™À(T0$)  ŠE=0™7  "’[160-A+(D-1)*8+7-E,247-16]64010  !’[160-A+(D-1)*8+7-E,52-16]64010 ‹E ‹D .±18,16:ƒ"Contents side line character"; AŠI=0™12:Z7$=L0$(I):±6,I+3:ƒZ7$(;1,19);:±38,I+3:ƒZ7$(;20,38);:‹I ŠC=0™12:¡ line counter ±38,16:ƒC+1;  Z7$=L0$(C) ŠD=1™38:¡ position in line „Z7$(;D,D)=" "‰630 !±32,16:ƒß(65-1*(D>19)); "±51,16:ƒD+19*(D>19)" "; # ±5-13*(D>19)+D,C+3:ƒß(14)ß(8); &S=-10*(D>19) 03G=18432+(Å(Z7$(;D,D))-32)*12:¡ point to character :ŠE=0™11:¡ plot this character > J=¾(G+E) ? „J=0‰620 DŠH=0™7:¡ plot bit by bit NK=(J³F(H)):„K=0‰610 X$’[3+S+7-H+(D-1)*8,223-C*12-E]64000 b‹H l‹E v‹D €/‹C:¡ finally finished plotting character info  „V=1‰’900 …+±1,16:ƒ[A63 32][A63 8]"Save this (y/n)?"; †*K0$=Þ:„K0$=""‰646ˆ„K0$="Y"´K0$="y"‰’1000 Š¡ *** Now print this out *** ”6±1,16:ƒ[A63 32][A63 8]"Enter number of copies ";:C=0 žK0$=Þ:„K0$=""‰680 ¨„K0$=ß(13)‰720 ²„K0$<"0"´K0$>"9"‰670ˆƒK0$; ¼C=C*10+Å(K0$)-48:670 ЄC=0‰C=1:ƒ"1"; Ú!±32,16:ƒ"Printing copy of"C; ß‚ß(27)"A"ß(8); äŠI=1™C î ±45,16:ƒI; ó „V=1‰’1020 øŠJ=0™33:¡ line counter ‚ß(27)"K"ß(64)ß(1);  ŠK=0™319 P=¾(19584+J*320+K)  ‚[A1 P]; *‹K 4‚ >‹J:¡ copy complete H8±1,16:ƒ[A31 32][A31 8];"Change paper, press "; R„Þ<>ß(13)‰850 \T‹I:‚ß(27)"A"ß(12)\\\\\\:±1,16:ƒ[A63 32][A63 8]"Print complete. New index {y/n} ?"; fK0$=Þ:„K0$=""‰870 p„K0$<>"N"³K0$<>"n"‰110 z‘ „CŠI=13™25:Z7$=L0$(I):±6,I-10:ƒZ7$(;1,19):±38,I-10:ƒZ7$(;20,38);:‹I … ŠC=13™25 †±38,16:ƒC+1; ‡ Z7$=L0$(C) ˆ ŠD=1™38 ‰„Z7$(;D,D)=" "‰919 Š±32,16:ƒß(66+(D<20)); ‹±51,16:ƒD+19*(D>19)" "; Œ!±5-13*(D>19)+D,C-10:ƒß(14)ß(8); S=-10*(D>19) ŽG=18432+(Å(Z7$(;D,D))-32)*12  ŠE=0™11  J=¾(G+E) ‘ „J=0‰918 ’ŠH=0™7 “K=(J³F(H)):„K=0‰917 ”(’[3+S+7-H+(D-1)*8,17+(C-13)*12+E]64110 •‹H –‹E —‹D ˜‹C:• è1ƒ" "K0$"es Save as (def. 8 of title) ";:Z7$="" éK0$=Þ:„K0$=""‰1001 ê„K0$=ß(13)‰1004ˆ„K0$<" "‰1001 ëƒK0$;:Z7$=Z7$+K0$:1001 ì)„Z7$="":Z7$=T0$:„À(Z7$)>8:Z7$=Z7$(;1,8) í ƒ" Saving"; îå"o",2,Z7$+".cxt" ï #2:ŠI=19584™19584+320*34-1 ð&P=¾(I):ƒ[A1 P];:¡ to print chr(128)! ñ#‹I:æ2: #0:ƒ[A6 8]"Done ";:„V=0‰• ò&å"o",2,Z7$+".cx1": #2:ŠI=10572™18431 óƒ[A1 ¾(I)];:‹I: #0:æ2:• ü ŠJ=0™23 ‚ß(27)"K"ß(64)ß(1);  ŠK=0™319 ‚[A1 ¾(10572+J*320+K)]; $‹K )‚ .‹J:• 8ŠI=0™12:±6,I+3:ƒ[A19 160]:‹I B°:±7,3:ƒ"* Control keys: *" L±7,4:ƒ"^A-sideA ^B-sideB" V±7,5:ƒ"^K- toggle" `±7,6:ƒ" face & fold" j±7,7:ƒ"^X-cursor down" t±7,8:ƒ"^E-cursor up" ~±7,9:ƒ"^D-cursor fwd." ˆ±7,10:ƒ"-new line" ’±7,11:ƒ"-backspace" œ±7,12:ƒ"-print out" ¦±7,13:ƒ"^?- this help" °±7,14:ƒ" to resume" ºI=¿(2310,0):„I<>-1‰1210 ¿ª Ä225 ùÿ‘ ú¡ ú1¡ **** this subroutine sets pixel at (x,y) **** ú¡ ú ž(X,Y) ú!„X>319‰•:¡ scrap illegal values ú„Y>255´Y<-16‰• ú(Y=255-Y:¡ adjust pointer ú2#I=Y/8:¡ point to appropriate byte ú<Y=Y-I*8:¡ bit in byte (0-7) úF"Z=19584+I*320+X:¡ byte to adjust úP6P=¾(Z):P=(P´F(7-Y)):ŸZ,P:¡ adjust byte & put it back úZ•:¡ ** ALL DONE **! úd¡ úe*¡ *** special plot extended routine! *** úf¡ únž(X,Y) úx„X>319´X<0´Y>191´Y<0‰• ú‚I=Y/8:¡ byte pointer úŒY=Y-I*8:¡ bit in byte ú–*Z=18251-I*320-X:P=¾(Z):P=(P´F(Y)):ŸZ,P:• ÿÿm:caset2b2€Ñ&'¨&'&'V&'-&'&&Û&&²&&