:&$AV ,-67@ ,.>:,f =6.00006.=:,,6-B:,&@ =67@ &,.n M @ '( @ z}>:,/6. >67A ` ,.M67@ ,.o m
A "@ G( @ >:@ ,>:@ ,>:@ ,O6. {} ^67A ` ,.m67@ ,.p #
6.6- #
@ s
@t
B (3@"@ |}3N "@ 3>:@$ ,
B 0u
B r;A' ,;A) ,;A ` ,;@ ,;A0 ,;@ }} ,;@i ,;@ ,;@ ,~" B" :un 6. 67A) ,. +67@ ,.16.C A ~}b @ @ Pn6- NuOO6.Ehhhhh͠ $`%ɀɠݥ`i@8 Suz }z67@ <@ ,._hhhhhР hh ˅̱ͅ
&ˢ
&̩͠ͅ H̠ I
H*hhȘHޠ Tug36 }7@ ,. ЈhiХi ѤȄЗ`S67@ <@ ,.>:AU ,g" B" Uu`,($PRESS TO CONTI }NUE WITH 9(OR XIT=E4EK(}] A AH `Vu^ (}(
PRINTER TYPE:0( EPSON, GEMINIF( NE }C, PROWRITER^( OKIDATA, IDS 480Wu!!6-@ $+43,%42Xu
@ }T @ @ (6-@ = }F:A , A6 T(ERROR #F:A ,}-F:A ,"A6 -(LISTING COMPLETE
}@F:A ,"A8 @(#TURN ON DE }VICE OR CHECK CONNECTIONS}%-@ A %
B }; A (} (!(;( }( }((( (c)1983 Allen Macroware}3( (3(%DO NOT USE SYSTEM RESET OR BREAK KEYS}55(,USE KEY TO STOP PRINTING OR }AT XIT PROMPT}F$( FOR RETURN TO NORMAL USE OF1(KEYBOARD4(7(C6-@ F$ f ;^NNNN12N25NN153IQC @ @ AV A( AV @ A6 0}
B D A (}-D($This program will permanently change**("this disk to 1} / L
e%( }TURN OFF PRINTER AND SET TOPF( OF PRINT HEAD TO PERFOR}ATIONe(TURN ON PRINTER,HIT RETURN F:Ad ,"AU @ @ Ad AU ' @ @ *SET RIGHT MARG}IN TO 0( A AU $6-F:A ,L6-@ &@$ &@$ $+! ,l6-+$@ ,'@ '@ *SET HE}IGHT & CALC LINEFEED FROM TOP OF PAGE2 -@ 3 < ( AR @ ( *TURN OFF CURSOR= /)(!} }ĠԠ,(/(A ''( CMD USER USERF //('COMMAND KEY* ADDRESS VALUE DEFLTP //('________}_______________________________Z //('
d //('CENTER 8199($2007) 0,255 OFF}n //('INVERSE 8200($2008) 0,255 OFFx //('WIDTH /// 8201($2009) 0,1,2,3 S //('HEIGHT 8202($2}00A) 0,255 OFF //('RESET&LF 8203($200B) 0,255 ON //('SHORTDUMP 8204($200C) 0-23 OFF ( ABORT } ( PRINT *(*( RESETS DEFAULTS 0(0(%PRINT FROM BASIC PROGRAM: X=USR(8418) ))(!PR}INT FROM M/L PROGRAM: JSR $20E3 (*USE WITH + //('_______________________________________ 00('
}
> A AU ' A > *CENTER,SINGLE WIDTH 6-?:A , *PRINT ]}6-F:A ,,-@ &+" ,/33 ] *IF RESET&LF ON(8203=0) SUBTRACT ONE LF U @ @ ' AR } U *TURN CURSOR BACK ON AND RESET RIGHT MARGIN D:CMDSHT }TURN OFF PRINTER AND SET TOPF( OF PRINT HEAD TO PERFOR B
5 (}(INVERSE $F:A ,+(5
@ ( .(CENTER F:A ,$(.
@0 } ( 6(PRINTER RESET %(F:A ,,(6
@@ # (( 5(DOUBLE HEIGHT $F:A ,+(5
@P } - (2 D(WIDTH D F:A ,%@ @U @V @W @X 7 (
@` 8 (
@}` 9 (
@` : (
@` < F:Ad ,"AU @` F Ad AU
@ }D:CONFIG
5 (}(INVERSE $F:A ,+(5
@ ( .(CENTER F:A ,$(.
@0 #$O\DAYBOTTOPMIDVIDDMDYD $ ( = $ ( e $ ( $ ( # ( $ ( @ @ }
@1 @ @
@# @1
m];@! ,;@@ ,;@@ ,;@@ ,;@@ ,;@@ ,;@@ },;@$ ,g A m(} d
@ (4( INPUT DATE:MONTH,YEAR (XX,XXXX):F6-@ d!@ ) @ @ } + @ 6-%@ +6-&@ 2 YY6-@ $%P:?` $+%@ ,,%%P:'@ ,&P:'A ,%P:'A } ,%@ < 936-P:+'@ &P:'@ ,,$@ %? ,96-F !! ? DAY$(Q*3+1,Q*3+3):GOTO 15P
AP ..6.$ }..6.$--6.# sun mon tue wed thu fri sat }..6.$..6.$| | | | | | | | 6.SATSUNMONTUEWEDTHUFRI }..6.$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC""6.312831303130313130313031$[ AR @ (} (#(7- }@ @ K-@ @ O(S W([ #-@ @ ( #(+!@ 6-&@ +6-%@ } =-@ @" =(7$@ &@ <$@ , )6-A:7$@ &@ <$@ ,,5"@ ~+'@ } "P:'@ ,*'A P:'A ,,)'A "P:'A ,6-%@ " 6-@ A#6-@ %+& }@ ,$@ )6-56-@ A6-@ -
("AQ E6-%@ 6-%@ +!@3 76-@ } E6-%@
AP` =
AQ =F:Ad ,"AU )F:Ad ,!A AQ % Ad AU (}%
@ }
D:CALBOTTOPMIDVIDDMDYD $ ( = $ ( e $ ( $ ( # ( $ ( @ @ H0?BLDDLISSCRNLOFILE B(" B0! B1 BA 3;@( ,36. hRhUhThY}hX V`d S+@ %@ 76-F:A` ,%F:Aa ,$AV S %@ @d %@ i G-%@ %@ ' }@ + G %@ @d %@ j +-%A %A ' @ + n %%6-F:@ ,%F:@ ,$AV x };@ , # " @ @ @ $6-?:C:,<<Av ,$ @
A
A} EED:HAT.DAT:REM-CHANGE 'HAT.DAT'TO NEW FILENAME & HIT ; Λ D:GRLOD;@( ,36. hRhUhThY Y /I A ;@ , ($(}SET UP PRINTER, HIT ( @ (}
(} (************************ (* Allen *( (* Macroware *2 (***********************}*< (* p.o. box 2205 *F (* redondo bch CA 90278 *P (************************Z (_ R A AU }R OFF RESET&LF FOR 9 LINES EVEN--ON FOR 12.5 LINES TO GET .5d n A @ $6-?:A ,AF:Ad , A9 A }n THIS LINE USES C-S, TO STOP--SEE LINE 503e ' @ @ ' RESET MARGINgg 9 LINES FOR 15/16 LABLES--TURN RESE}T&LF OFF TO GET PROPER FEED OF 9 LINE (POKE 8203,255) OR C-S,Ǜtt NEVER HIT OR C-S, WHILE PRINT CMD HAS ALREADY BEEN} SENT-PRINTING OR WHEN PRINTER IS IN ONLINE WAIT MODEFF RUN D:LODFNT FIRST IF YOU WANT FANCIER CHAR SET--THEN RUN LABLER}pp FOR N=1 TO 100:POKE 8204,9:X=USR(8418):IF PEEK(764)<>239 THEN NEXT N--KNOWN QUANTITY EXAMPLE-SWITCH WITH 1SS DON'T FOR}GET PEEK(764)<>239 OR YYU WON'T BE ABLE TO STOP (SAFELY) WITH C-S,ћ D:LABLER( @ (}
( U O$BLDADDFILELODFL d;@( ,;@ ,>6.} hRhUhThYhX V`U6-F:A ,&@ Y"d @ a @ @ >6-?:C:,<AV $<A$} ,I @ U AV aD:MOD.FNT D:LODFNT d;@( ,;@ ,>6. 8 HEUBLDDLISSCRNLOFILE Bi` B 3;@( ,36. hRhUhThY }hX V`d +@ %@ n %%6-F:@ ,%F:@ ,$AV x ;@ , # " @ @ } @ $6-?:C:,<<A8@ ,$ @
A
A
D:C6 D:LODGR7. hRhUhThY i } } } > } 8 p88 ?` } x À ?80c f0p`1 } 1 ? c c i3` 00a# } ?Ȇ c? ?&a ! V`? 1 } d p0a Fff 1 ip> #2g } jf 0""D I ADD&~ 0>1"I }i3 B1"Do ` FD$ # Km :T } a$~ g 83"$I)- =LHRR 6v}7 ` }1?$/ ;_ B&"I)J l2H I/LR- wWgV'W }$* 2 &IHU+ UU %_ȒU dO "
$B } UT @dJ_ p*_ګL6* 2T "I)UJ } A[J&c R @dRIdUkW ?j16J } A@V)$F Um d*'UhRIa 2j
I¤1ͿU } PTI$F <3_JN 8A
-jH` U ?$
B'$cWګs }PiI"" V xH@!?D0p ] %%
H$$?1? ?
I }I"! Jv T@f?DB % H@!$ 8 ? 8t!HH } e_T 8((&b ! 8 `@c8 8ͯi 8 HP $?`2 }W ?0Ñ@ "1ݫ ~s11a$
@I DB 8bk2T c
(a }+. 33 H n2 3H@$!`;8)? 2"1 !@! $ } ?v͙f I DD! <1U? ~ɲdb *B B`` I*C I
@ & } mLo@"H C 1Ac I2# Tğ" I*@ ɘ3 @ `8 $! Z[& }F>Đ ? !@N 1 C? p * Zlz~B<<<< D"` T#< }C<<<< `B"PM zZI ! ?<< 0 !
p Vf|xD<#ē?<<@@ 8 ' RI 0 }< <{UU}
! @ ! DAZ R @ HU @P }@H$ "Ej[{ U@ $ `Tx @H "" @@ p A _ګm }@ } ! @ Vo UU DD @ U!?n ꪀP! B 0@I NZپ * @ } ` " */w zU@BBI $#n A ҡB @ } @A@Q}
$ " x 0
o P! $ @@ p D@ $g (HI D@! @ }$Iݻ B H @ ! 2w @B B |$ ` } $@ @@%Rg @I @ " B B0 } ?$H < ! DD@! @@ `!U0 $ @ (O } >I @ BA D $ "HU&{ H `B [ } ?""!@ !$ DD ~ Ko D@ < DB } (+_ U B }`)UW * Ro } J @@ 4 K 8 8 } d | M |Dɳ ` `"&o } ? ? pg ?3 } ? 0 8? } ? ? ? } } } } ( F ; fff ffff >`<| fl0fF 6 8of; p88p f< 8 0 0 ~ ~ `0 0` <$}f &~ <&|$f $ f xlffl < ` ~ < ` >" .b $$4,f <x f fLxXL f "6>*b "2:.f$} v Bf< 8pp8 ? % } ww <~~~< x`x`~ <~ ~<%} 0~0 ~ <~~< <>f ``|ff <``b >ff ff~< ` >"b 8x > ` ,8l 8< b%}6*j |&"b dd< |& ` >` ~8 f$$f fff c*~ f<< f&&~ >L2 <~~< %} ~x|nf 8x8 ffff >`<| fl0fF 6 8of; p88p f<`<| fl0fF 6 8of; 888> x | f<000 |ll <<< <<< <<< <<0 0 ~ ~ `0 0` c)} || ~ff |00888| n~ ``` )} ~~ 888888 |8 | 888 0n @`0 xx 6)}c 6> 8pp8 ? ) } ww <~~~< x`x`~ <~ ~<)
} 0~0 ~ <~~< >~v~ ```~fn~ >20:> ~fv~ ~f~p~ <0|088 ~fv~~```~fvv 0 0088 ~ 006|vw 00088< ) } |fvvv ~fvv~ ~fv~`` ~fn~ >0888 >`~~ ~ ffnn~ fnn> ck>6 f>>n fff~~ ~ 6~ <~~< ) } ~x|nf 8x8 llll >`<| fl0fF 6 8of; 888> x | f<`<| fl0fF 6 8of; p88p f< <\ | || @ ||| |~ 0 0 ~ ~ `0 0` <-}f .N 88888 -} 888888 N<8x d8888 @`0 | | 6-}c 6> 8pp8 ? -} ww <~~~< x`x`~ <~ ~<-} 0~0 ~ <~~< 8~888 ~ 8 x88< x8888| -} 8888> |8 |$ |8| ~| 8p <~~< -} ~x|nf 8x8 dddd >`<| fl0fF 6 8of; p88p f<:@ ,e6-?:C:,<<Av , }~ @ #F:A , A6 -+ ? A t(ERROR #F:A ,F:5)}A ,%F:A ,$AV ~
B" } F:B2y ,"@ B }J A (} (!(?( 5*}įJ @ }(((( (c)1983 Allen Macroware}2( (2($INSERT KOALA FORMAT FILE IN DRIVE #1}$$( IT MUST H5+}AVE '.PIC' EXTENDER}E'( IF SAVED IT WILL SAVE TO '.DAT'E(EXTENDER (SAME BEGINNING)}`*("MAKE SURE TO HAVE AT LEAST 625,} FREE@(SECTORS IF SAVINGC(`(PRESS WHEN READY,~H* @ @ D:*.*66-@ B6-@ 5-}H(}6~n
B# @ -$(R6-%@ $+"@ ,&@ $+"@ ,d6-%+"@ ,n
B# @~a
B5.} @ "(NAME&a7@ <@ ,4D:)7@ <@ ,4D1:B#0 E~2 6.#67@ <@ ,.D:25/}67@ ,.J~ @ @ T~a (SAVE TO (Y/N) (4Y46-@ E-@ B:,S7,4.50}PICa67,..DATY~ ^~
B jG;@( ,;@ ,;A7 ,;A ,;@ ,;@ ,j6. hR51}hUhThYhX V`VV6.LhX˥YhhP ՆYUXԎT`Ϣ( W (ɀ@ W WPP67@w ,.52}= W I W W W Ԡ qq6.ge˅˩ e̅6`Ϧ, 8'˥ -5l} n LISTER BAS
CMDSHT BAS CONFIG BAS CALNDR BAS GRLOAD BAS LABLER BAS LODFNT BAS LODGR7 BAS> HAT DAT SCRIPT FNT COMP FNT
MOD FNT MPP1100 BAS #KOALA BAS 8˥ ʆ` V0`hh`1-@ A - A# %@:7<,,1
B
B" 5m}(F:B2y ,
B'g D:KOALA.RIJSR B(" B0! B1 @ * @ 0 4 * S
m mLr'''TORUN.SYSp&@RȌ ` 9 ˩RJ,L S`hh 0 }''
v
Ld'
Ld'L&9 L@ @ `L` 9 ˩R&,L S`hh 0 }''3
Í
Ld'5
N
Ld'L&9 L@ @ `L` 9 ˩R /,L S`hh 0 } @x n
% ʍw X`HHX m I
I
I M hhLh5H
YML"w , B , 2 , $ 0֭1נ )AsȱHȱօh֠ )@
ȱօȱօτ刈 ݹ
J o)
Щ$ -" P# L@! "0 P# ح ( , B , 8 , $ h6ʍw hhh@` 0 H ˅̱ͅΦ)?
&
&
&̭͠ͅͅ H̠ I
HjЦȑhheХi hН "`e΅Ω eυ` 8*
Ieꩀ8j HΦJJJJ
˥) % %eЅЩ eхѦff
fhК "`h
ۭ
FۥFۭ
H h
Щ$Ѡ Ц
JJJJۆܦJ8fFХM )
H h в
Щ$Ѡ Lo#`L\#`
Lr#`L#`03200640096012800230NNQPhc ` QlRm`cRT cR GS8RdL
@x n
% ʍw X`HHX m I
I
I M hhLh5H
YML" w @ ߅ީ A 0֭1נ )AsȱHȱօh֠ )@
ȱօȱօτ刈 ݹ
J o)Щ$ !" D# LM! "0 D# ح @ h6ʍw hhh@` 0 H ˅̱ͅΦ)?
&
&
&̭͠ͅͅ H̠ I
H*ЦȑhheХi hН "`e΅Ω eυ` 8jJIeꩀ8j HΦJJJJ
˥) % %eЅЩ eхѦff
fhК "`hڅ
ۭ
Fۭ
H h K z Щ$Ѡ Ц
ۆܦ
8&ХM ɛ
H hЯɺ $ѩР 𝩛
L\#`
Lr#`L#`03200640096012800230NNQPhc ` QlRm`cRT cR GS8RdL @x n
% ʍw X`HHX m I
I
I M hhLh5H
YML-" w i<$L$ > T 1 6 P$ 0֭1נ )AsȱHȱօh֠ )@
ȱօȱօτ刈 ݹ
J o)TЩ$ K" n# Lc! "0 n# ح # < N A h6ʍw hhh@` 0 H ˅̱ͅΦ)?
&
&
&̭͠ͅͅ H̠ I
HjЦȑhheХi hН "`e΅Ω eυ` 8*
Ieꩀ8j HΦJJJJ
˥) % %eЅЩ eхѦff
fhК "`hڅ
ۭ
Fۭ
H h S HL$ hTЩ$Ѡ Ц
ۆܦJ8fFХM ɛ
H hЯ $ѩР 𝩛
L#`03200640096012800230NNQPhc ` QlRm`cRT cR GS8RdL @x n
% ʍw X`HHX m I
I
I M hhLh5H
YML!w % 9 0֭1נ )AsȱHȱօh֠ )@
ȱօȱօτ刈 ݹ
J o)Щ$ " 7# L6! "0 7# ح % 9 h6ʍw hhh@` 0 H ˅̱ͅΦ)?
&
&
&̭͠ͅͅ H̠ I
HjЦȑhheХi hН "`e΅Ω eυ` 8*
Ieꩀ8j HΦJJJJ
˥) % %eЅЩ eхѦff
fhК "`h
ۭ
FۥFۭ
H h Щ$Ѭ Ц
JJJJۆܦJ8fFХM )
H h Ȯ
У
Щ$Ѡ LV#` P @x n
% ʍw X`HHX m I
I
I M hhLh5H
YML" w @ ߅ޭ
eޅީ e߅ߩ A 0֭1נ )AsȱHȱօh֠ )@
ȱօȱօτ刈 ݹ
J o).Щ$ 7" Z# Lc! "0 Z# ح @ h6ʍw hhh@` 0 H ˅̱ͅΦ)?
&
&
&̭͠ͅͅ H̠ I
H*ЦȑhheХi hН "`e΅Ω eυ` 8jJIeꩀ8j HΦJJJJ
˥) % %eЅЩ eхѦff
fhК "`hڅ
ۭ
F۩ K z
ة .Щ$Ѡ Ц
ۆܦ
8&ХM ɛ
H hЯ $ѩ΅Р 𝩛
Lr#`L#`03200640096012800230NNQPhc ` QlRm`cRT cR GS8RdL @x n
% ʍw X`HHX m I
I
I M hhLh5H
YML-" w i<$L$ [ T 1 6 P$ 0֭1נ )AsȱHȱօh֠ )@
ȱօȱօτ刈 ݹ
J o)TЩ$ K" n# Lc! "0 n# ح # ] N A h6ʍw hhh@` 0 H ˅̱ͅΦ)?
&
&
&̭͠ͅͅ H̠ I
HjЦȑhheХi hН "`e΅Ω eυ` 8*
Ieꩀ8j HΦJJJJ
˥) % %eЅЩ eхѦff
fhК "`hڅ
ۭ
Fۭ
H h S HL$ hTЩ$Ѡ Ц
ۆܦJ8fFХM ɛ
H hЯ $ѩР 𝩛
L#`03200640096012800230NNQPhc ` QlRm`cRT cR GS8RdL
@x n
% ʍw X`HHX m I
I
I M hhLh5H
YML!w 0֭1נ )AsȱHȱօh֠ )@
ȱօȱօτ刈 ݹ
J o)Щ$ " ## L"! "0 ## ح % 9 h6ʍw hhh@` 0 H ˅̱ͅΦ)?
&
&
&̭͠ͅͅ H̠ I
HjЦȑhheХi hН {"`e΅Ω eυ` 8*
Ieꩀ8j HΦJJJJ
˥) % %eЅЩ eхѦff
fhК {"`h
ۭ
FۥFۭ
H h Щ$Ѭ (Ц
JJJJۆܦJ8fFХM )
H h Ȯ
xУ
Щ$Ѡ % 9 LB#` c !llen -acroware +%9 %03/. '%-).) 8 '%-).) 02/72)4%2 .%# /+)$!4! /+)$!4! ! %03/. &8 )$3
@x n
% ʍw X`HHX m I
I
I M hhLh5H
YML" w @ ߅ީ A 0֭1נ )AsȱHȱօh֠ )@
ȱօȱօτ刈 ݹ
J o)Щ$ !" D# LM! "0 D# ح @ h6ʍw hhh@` 0 H ˅̱ͅΦ)?
&
&
&̭͠ͅͅ H̠ I
H*ЦȑhheХi hН "`e΅Ω eυ` 8jJIeꩀ8j HΦJJJJ
˥) % %eЅЩ eхѦff
fhК "`hڅ
ۭ
Fۭ
H h * $ Щ$Ѡ Ц
ۆܦ
8&ХM ɛ
H hЯɺ $ѩР 𝩛
L\#`T USkL9 kcRT kcR USTkhc ` QlRm`cRT cR GS8RdL