00100 INIT	LEAX	SIG,PCR		* Get address of signature
00110 	LDB	LSIG,PCR	* Get length of signature
00120 	BSR	SRCH		* Search memory
00130 	CMPX	#0		* Found?
00140 	BEQ	INIT1		* No, branch
00150 	LDD	#-1		* "Already present" error code
00160 	BRA	INIT2
00170 INIT1	LDX	$72		* Redirect reset vector
00180 	STX	RESET1,PCR
00190 	LEAX	RESET,PCR
00200 	STX	$72
00210 	LDD	#RESET-INIT	* Size of installation code
00220 INIT2	JMP	$B4F4		* Return this to BASIC and exit
00230 SRCH	PSHS	B,X
00240 	LEAU	MODEND,PCR	* Search begins at end of module
00250 SRCH1	LDB	,S		* Get signature length
00260 	LDX	1,S		* Get signature address
00270 SRCH2	CMPU	$74		* At end of memory?
00280 	BHI	SRCH4		* Yes, branch
00290 	LDA	,X+		* Get signature byte
00300 	CMPA	,U+		* Compare with memory byte
00310 	BNE	SRCH1		* Branch if different
00320 	DECB			* Match?
00330 	BNE	SRCH2		* No, branch
00340 	LDB	,S		* Get signature length
00350 	CLRA
00360 	PSHS	A,B
00370 	TFR	U,D             * Get current memory address
00380 	SUBD	,S++		* Compute address of found signature
00390 	TFR	D,X		* Return this value in X register
00400 SRCH3	PULS	B,U,PC
00410 SRCH4	LDX	#0		* "Not found" code
00420 	BRA	SRCH3
00430 RESET	NOP			* Reset routine always starts with NOP
00440 	STA	$FFDF		* Prevent ROM image from being erased
00450 	JMP	[RESET1,PCR]	* Allow original reset routine to execute
00460 RESET1	RMB	2		* Original reset routine address
00470 SIG	FCC	/RESET/		* Our signature
00480 LSIG	FCB	*-SIG		* Our signature length
00490 MODEND	EQU	*		* End of module
00500 	END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ЕHK│0зРSЖ
ВF$│F$л Л(HS)л П( И(HF),1):HR│HRл1:HF│HFл1:ЕHR│5зHF│1:ЕHK│1зHK│0:CC│0:Р:ДЕHK│2зHS│82:U│8:W│416:Бж516:ДHS│77:U│16:W│304:Бж516S╛
ДЕHR│9зHF│1:ЕHK│2зHK│0:CC│0:Р:ДHS│82:U│0:W│288:Бж516S╒
ЖЕHR│13зHK│0:CC│0:РSы
ИV│0:L│U:T│V:Бе250T
КЮ:ё10,10:З"ARE YOU SURE? (Y/N) ":Бе322TП
МБж322:ЕK$┤"1" ▒ K$▓"3"за60,8:Бе128:ДHF│1:HR│1:HS│76:ЕK$│"1"зHK│1:U│0:W│640:ДЕK$│"2"зHK│2:U│64:W│472:ДHK│3:U│32:W│320Tк
ОБж516:Бж392:HF│1:Бе128UB
РЮ:ё11,8:З"TOP MARGIN =";V:ё11,9:З"LEFT MARGIN =";U:ё11,10:З"RIGHT MARGIN =";W:ё11,11:З"BOTTOM MARGIN =";PлD:ё11,12:З"TAB1 =";T1:ё11,13:З"TAB2 =";T2UL
ТБе320U║
ФБж212:Ю:ё12,8:З"FILENAME: ";:╗ЙF$:Z$│ П(F$,2):Z1$│Z$:Е К(Z$)│58з╧ Й( П(Z$,1)):F$│ О(F$, З(F$)м2):ДZ$│":0"Uё
ЦЕHK│0 ▒ I1│1зР:ДHL│ З(F$)л2:ЕHL▓8зF$│ О(F$,6):HL│8V 
ШCC│1:АI│1еHL:ТPFм1лI, К( Р(F$лZ$,I,1)):Л:РV╟
Ъё15,4:°3,2,U:З"UltraLace";:°2,2:ё8,6:З"THE ULTIMATE SHOESTRING":ё11,8:З"DESKTOP PUBLISHER":°3,2:ё11,12:З"BY H. Allen Curtis":ё13,14:З"COPYRIGHT 1990":ё16,4:°3,2:РV■
ЬЮ:°0,4:Щ"I",#1,"STR":АI│1е6:╗Й#1,AC$:ё4,7лI:ЗAC$:ЛW7
ЮБж212:K$│ Т:ЕK$│""з414:ДЕK$▓"6" ▒ K$┤"1"за60,5:Бе414WJ
аSK│ Й(K$):KS│1Wg
вАI│1еSK:╗Й#1,AC$:Л:Ъ#1:РW╤
дТ&H23,A1:Т&H24,A2:ЕKS┤│ З(AC$)зK$│ Р(AC$,KS,1):KS│KSл1:Бж422:Бе62:ДSCI│0:ь(L,T)м(Lл1,TлD),1:U│UT:Бе50Wя
жЕ К(K$)│94зK$│ Л(13):Р:ДРX
иV│192м(Dл1)н Б(192о(Dл1)):T│V:РX>
кЕH│1зU│4н Б(.25нL):Р:ДU│8н Б(.125нL):РXб
мТ&HFFD8,0:Е М(1)│м1зЪ#1:Т&HFFD9,0:SCI│0:ь(L,T)м(Lл1,TлD),1:U│UT:Бе50:ДБж214:╗Й#1,SK$:Т&HFFD9,0X╝
оЕSK│0зSCI│0:U│UT:Бе450XЇ
░Т&H23,A1:Т&H24,A2:ЕKS┤│ З(SK$)зK$│ Р(SK$,KS,1):Д446Y
▓Е К(K$)│91зK$│ Л(13):RS│1YE
┤Е К(K$)│94зKS│KSл2:ЕKS▓ З(SK$)зKS│1:Бе428:Д432Yъ
╢ЕL│U ░ K$│" "зSZ│1:ДЕL│UлS ░ K$┤▓" " ░ SZ│1зь(L,T)м(Lл1,TлD),1:L│U:SZ│0:ДSZ│0:ЕL▓U ░ KS│1 ░ K$│" "зь(L,T)м(Lл1,TлD),1:L│U:ЕT┤P ░ T┤191м2нD зT│Tл1лD :ДSK│0:Бе430Y√
╕KS│KSл1:Бе62Z&
║ЕH│1зU│4н Б(.25нL):Р:ДU│8н Б(.125нL):РZB
╝ЕSCI┤▓2з124:ДSK│0:Бе430ZЩ
╛ЕSK$│""зь(L,T)м(Lл1,TлD),1:L│U :ДKS│1:ЕRS│1зRS│0:Бе428:ДЕLлSл8▓W з488:ДK$│" ":Бе62Z╚
└ЕT┤P ░ T┤191м2нD зT│Tл1лD:Бе62:ДSK│0:Бе430Z┌
┬T│V:ф0:Ю:°0,4[З
─ё4,8:З"Do you want to save on disk the         rest of the ASCII strings of":ё13,10::ЗFA$;":";ZA$:ё4,11:З"for later translation to their          font images? (Y/N)  ";[Ь
╞K$│ Т:ЕK$│""з454[╗
╚ЕK$│"N" ▒ K$│"n"зЪ#1:Бе168\
╩ЕK$│"Y" ▒ K$│"y"зё4,14:З"The rest of the strings will be         saved in REST:";ZA$;\;
╠ЕFA$│"REST"зRE$│"TEMP":ДRE$│"REST\]
╬Т&HFFD8,0:Щ"O",#2,RE$л":"лZA$\x
╨Бж476:ЕKS▓│ З(SK$)з468\У
╥З#2, П(SK$, З(SK$)мKS)\п
╘Е М(1)│м1зЪ#1:Ъ#2:Бе472\╨
╓Бж214:╗Й#1,SK$:З#2,SK$:Бе468]
╪ЕRE$│"TEMP"з╥"REST/DAT:"лZA$:╓"TEMP/DAT:"лZA$ е"REST/DAT:"лZA$]
┌Бе168]L
▄KS│KSм1:ЕKS│0зР:ДЕ Р(SK$,KS,1)┤▓" "з476:ДР]ї
▐Бж212:SK│6:KS│1:SCI│2:Ю:ё4,8:З"Type filename of ASCII file you         want translated:  ";:╗ЙFA$:Z$│ П(FA$,2):ZA$│"0":Е К(Z$)│58зZA$│ П(Z$,1):FA$│ О(FA$, З(FA$)м2)^
рТ&HFFD8,0:Щ"I",#1,FA$л":"лZA$:Р^Ы
тБж212:Ю:ё11,9:З"1: FULL SCREEN FILE":ё11,10:З"2: HALF SCREEN FILE":ё11,11:З"3: WORD PROCESSOR FILE":ё11,12:З"4: ASCII STRINGS_ 
фБж322:ЕK$│"1"зI1│1:Бж30:I1│0:Бе128:ДЕK$│"2"зI1│1:Бж34:I1│0:Бе128:ДЕK$│"3"з486:ДЕK$│"4"зSCI│1:UT│U:Бж426:Бж412:Бе168:Да60,5:Бе128_5
цUT│U:Бж478:Бе168_~
шь(L,T)м(Lл1,TлD),1:L│U:ЕT┤P ░ T┤191м2нD зT│TлDл1:Бе428:ДSK$│"":Бе448_Ш
ъЪ#1:АI│0е2000:Л:Бе128_и
ьЕ н│472з474_╢
юЕ н│40з48_╘
ЁЕ н│328за60,9:Бж328:Бе128`#
ЄЕ н│98зT1│T:АI│1еSF:ь(U,T)м(Wм1,Tл Б(DоSF)),4:T│Tл Б(DоSF):Л:T│T1:L│U:Бе50`F
ЇЕ н│470 ░  м│23 зЪ#1:Ъ#2:Бе472`k
ЎЕ н│30 ▒  н│34 ▒  н│480з504:Д506`№
°SCI│0:а60,5:ё5,11:З"THERE IS NO FILE BY THAT NAME":ё7,13:З"ON THE DISK IN DRIVE ";:ЕZ$│""зЗ"0":Бе490:ДЕ К(Z$)│58зЗ П(Z$,1):Бе490:ДЗ"0":Бе490aR
·Е н│26з╥F$л"/HR1":╥F$л"/HR2":╓"OUT1/BIN"еF$л"/HR1":╓"OUT2/BIN"еF$л"/HR2":╧0:Бе128aД
№Е н│28з╥F$л"/HR":╓"OUT/BIN"еF$л"/HR":╧0:Бе128aь
■Е н│12зт32:Ю:З"";:т40:Ю3:ё1,8:З"INSERT ULE DISK IN DRIVE 0 & HIT SPACE";:Бж322:Т&H13FF,9:Бж12:Бе128bЕ н│180зЪ#1:K$│"F":а60,9:в&HF8E:Бе138b Бе334b<ЕH│1зU│.5нU:W│.5нW:Р:ДРеF$л"/HR2":╧0:Бе128aД
№Е н│28з╥F$л"/HR":╓"OUT/BIN"еF$л"/HR":╧0:Бе128aь
■Е н│12зт32:Ю:З"";:т40:Ю3:ё1,8:З"INSERT ULE DISK IN DRIVE 0 & HIT SPACE";:Бж322:Т&H13FF,9:Бж12:Бе128bЕ н│180зЪ#1:K$                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                22:ЕK$│"N" ▒ K$│"n" ▒  К(K$)│13зL│U:T│V:Р:ДЕK$│"Y" ▒ K$│"y"з246:Да60,5:Бе244AЇЎё6,16:З"DO YOU WANT IT AT THE MOST":ё6,17:З"RECENT CURSOR POSITION?  (Y/N) ":ё6,18:З"IF NOT, IT WILL BE SET TO THE":ё6,19:З"LOWEST POSSIBLE CURSOR POSITION.":ё37,17BH°Бж322:ЕK$│"N" ▒ K$│"n"зБж424:Бе250:ДЕK$│"Y" ▒ K$│"y"зP│T:L│U:T│V:Р:Да65,0:Бе248Bo·P│Vл(Dл1)н(м1л Б((192мV)о(Dл1))):РBш№Бж212:Ю:ё5,8:З"FILENAME INCLUDING EXTENSION:":ё13,9:╗ЙF$:Z$│ П(F$,2):Е К(Z$)│58з╧ Й( П(Z$,1)):F$│ О(F$, З(F$)м2):Д╧0C■N│ Ю(F$,"/"):ЕN│0з252:ДG$│ О(F$,N)л"DAT"CR
J│0:Е П(F$,3)│"DAT"з╓F$е О(F$,N)л"TXT":F$│ О(F$,N)л"TXT"Cy
Щ"D",#1,F$:╨#1,128  з A$,128  з B$CМ
Ъ#2:Щ"O",#2,G$C│
ЕDN│1з288:ДБж210:J│Jл1:─#1,J:C$│A$D
B│ Ю(B$,"]"):Е Ю(A$,"]")▓0 ▒ B▓0зDN│1:ЕB▓0зB$│ О(B$,Bм1):ДC$│ О(C$, Ю(C$,"]")м1):B$│""DX

N│ Ю(C$, Л(13)):ЕN▓0зБж286:C$│ П(C$, З(C$)мN):ЕC$│""зC$│B$:Бе270:Д266Dk
Бж276:C$│C$лB$Dн
N│ Ю(C$, Л(13)):ЕN▓0зБж286:C$│ П(C$, З(C$)мN):ЕC$│""з262:Д270D▌
Бж276:ЕDN│1з288:ДБж210:J│Jл1:─#1,J:C$│C$лA$Dч
Бе264Dя
I│1E
Е З(C$)│I ▒ C$│ б( З(C$),32)зK│0:Бе284EG
K│ Ю( З(C$)л1мI,C$," "):ЕK│0зI│Iл1:Бе278EZ
З#2, О(C$,Kм1)Es
C$│ П(C$, З(C$)мK):РEе
Е О(C$,N)│ Л(13)зЗ#2," [":Р:ДЗ#2, О(C$,Nм1):РE╞
 Ъ#1:З#2,C$:Ъ#2:╧0:DN│0:Бе128E▌
"ЕH│1 ░ W▓320зW│320Eю
$ЕW▓640зW│640F
&ЕH│1зW│4н Б(.25нW):ДW│8н Б(.125нW)F
(РFЙ
*Бж212:Ю:ё6,8:З"ENTER 1ST TAB VALUE: ";:╗ЙT$:Бж304:T1│2н Б( Й(T$)н.5):ЕH│1 ░ T1▓320зT1│320:ДЕT1▓640зT1│640Fї
,Бж212:ё6,12:З"ENTER 2ND TAB VALUE: ";:╗ЙT$:Бж304:T2│2н Б( Й(T$)н.5):ЕH1 ░ T2▓320зT2│320:ДЕT2▓640зT2│640F√
.РG
0ЕT$│"c" ▒ T$│"C" зT$│ И(L):Р:ДРG8
2ЕU$│""зU$│ И(U):Р:ДРG∙
4Ю:ё2,2:З"F2:          CALL COMMAND MENU":ё2,3:З"RIGHT ARROW: MOVE CURSOR RIGHT":З"  LEFT ARROW:  BACKSPACE":З"  UP ARROW:    MOVE CURSOR UP 1 LINE":З"  DOWN ARROW:  MOVE CURSOR DOWN 1 LINEHЛ
6ё2,7:З"ENTER:       CARRIAGE RETURN &":ё15,8:З"MOVE CURSOR DOWN 1 LINE":З"  CLEAR:       TAB":ё7,11:°0,4,U:З"KEYS WITH SHIFT HELD DOWN";:°0,4IR
8ё2,13:З"RIGHT ARROW: DRAW CLIP ART":З"  LEFT ARROW:  CLEAR LINE":З"  UP ARROW:    MOVE CHAR-LINE TOWARD":ё15,16:З"CURSOR HALF OF SCREEN":З"  DOWN ARROW:  UNDERLINE":З"  CLEAR:       CLEAR SCREENIц
:З"  0:           UPPER/LOWER CASE":ё4,22:°0,4,U:З"PRESS SPACE FOR REST OF KEY LIST";:°0,4:ё4,22:E$│"        STOPPED BY ANY KEY OR MARGIN":Бж322Jz
<Ю:ё6,5:°0,4,U:З"KEYS PRESSED AFTER CTRL KEY";:°0,4:ё2,7:З"RIGHT ARROW: MOVE CURSOR RIGHT UNTIL"лE$:З"  LEFT ARROW:  MOVE CURSOR LEFT UNTIL "лE$J▄
>ё2,11:З"UP ARROW:    MOVE CURSOR UP UNTIL   "лE$:З"  DOWN ARROW:  MOVE CURSOR DOWN UNTIL "лE$K%
@ё5,22:З"PRESS ";:°0,4,U:З"SPACE";:°0,4:З" TO RETURN TO MENU";:ё12,22K=
BK$│ Т:ЕK$│""з322:ДРKЪ
DЮ:ё8,10:З"1: 1COLUMN/4SCREEN":ё8,11:З"2: 2COLUMN/8SCREEN":ё8,12:З"3: 3COLUMN/12SCREEN":РK╛
FБж212:Ю:ё12,8:З"DRIVE NUMBER: "L(
HБж322:K│ Й(K$):ЕK▓3за60,9:Бе328:Д╬K:З"  FREE GRANULES:"; г(K):З"     PRESS SPACE TO CONTINUE":Бж322:РL╓
JЮ:ё10,8:З"1: NORMAL":ё10,9:З"2: DOUBLE WIDTH":ё10,10:З"3: DOUBLE WIDTH-LENGTH":ё10,11:MI$│": MIRROR IMAGE OF ":З"4";MI$;"1":ё10,12:З"5";MI$;"2":ё10,13:З"6";MI$;"3":Бе354L·
LБж394:ЕK$│"Y" ▒ K$│"y"з334:Д128M
NЮ3:Т&HFFD8,0:╧0MD
PЕ м▓м1 ░  Ж(&H13FF)┤▓9зТ&HFFA1,121:Т&HFFA2,122:ДКMЕ
RЕ м┤25зAD│&HABAFл мн2:ДЕ м▓26зAD│&HC290л2н( мм27):ДAD│&H890DM┼
Tт40:ё8,10:З" ";:З Л( Ж(AD)) Л( Ж(ADл1));" ERROR IN LINE"; нN
Vё12,14:З"CONTINUE? (Y,N)":Бж322:ЕK$│"Y" ▒ K$│"y"зт40:Ю5:у0,63:у1,0:Бе128N
XКN?
ZБж404:ЕHK│3зБж28:Бе128:ДБж26:Бе128N
\Ю:ё8,10:З"1: SAVE FULL SCREEN":ё8,12:З"2: SAVE HALF SCREEN"N╔
^Бж322:ЕK$│"1"зБж404:Бж26:Бе128:ДЕK$│"2"зБж404:Бж28:Бе128:Да60,9:Бе128N┘
`Бж322:Бе128O$
bБж322:K│ Й(K$):ЕK┤1 ▒ K▓6за60,9:Бе354:ДЕK▓3зТ&H102A,1:K│Kм3:ДТ&H102A,0O]
dDK│K:Т&H1027,K:Ю:в&HF00:Т&HE6E4,&HE6:ф3:Т&HE6E4,&HE7O┤
fБж322:K│ К(K$):ЕK┤48 ▒ K▓51за60,9:Бе358:ДK│Kм48:DX│(Kл1)н16:Т&H1028,2нKл3:ЕK▓0з368O■
hБж322:K│ К(K$):ЕK▓96 ░ K┤123зK│Kм97:ДЕK▓64 ░ K┤77зK│Kм39:Да60,9:Бе360P!
jТ&H1029,K:в&H1033:ЕDX▓48зDX│48PE
lDY│DX:ЕDK▓1зDX│2нDX:ЕDK│3зDY│DXPо
nЕ Ж(&H102A)│0зы(544,96)м(543лDX,95лDY),5:ф0:в&HF00:Бе128:Ды(640мDX,96)м(639,95лDY),5:ф0:в&HF00:Бе128P╝
pЕ K▓1з372Pў
rБж322:K│ К(K$):ЕK▓96 ░ K┤116зK│Kм97:Бе362:Да60,9:Бе370Q2
tБж322:K│ К(K$):ЕK▓96 ░ K┤107зK│Kм97:Бе362:Да60,9:Бе372Qd
vБж322:K│ К(K$):ЕK│8з378:ДЕK│10з380:ДЕK│94з382Q╚
xK$│ Т:ЕLл4┤W ░ K$│""зь(L,T)м(Lл1,TлD),1:L│Lл4:ы(L,T)м(Lл1,TлD),1:ъ(L,T)м(Lл1,TлD),╜,BF:Бе376:ДРR,
zK$│ Т:ЕLм4▓U ░ K$│""зь(L,T)м(Lл1,TлD),1:L│Lм4:ы(L,T)м(Lл1,TлD),1:ъ(L,T)м(Lл1,TлD),╜,BF:Бе378:ДРRФ
|K$│ Т:ЕTлD┤191 ░ K$│""зь(L,T)м(Lл1,TлD),1:T│TлDл1:ы(L,T)м(Lл1,TлD),1:ъ(L,T)м(Lл1,TлD),╜,BF:Бе380:ДРR·
~K$│ Т:ЕTмD▓0 ░ K$│""зь(L,T)м(Lл1,TлD),1:T│TмDм1:ы(L,T)м(Lл1,TлD),1:ъ(L,T)м(Lл1,TлD),╜,BF:Бе382:ДРS
АДЕSCI│2 ░ KS│1з428:ДЕSCI│2з432/1<K$│ Т:ЕK$│""з60/r>K│ К(K$):ЕK▓64 ░ K┤91зN│Kм64:B│N:ъ(L,T)м(Lл1,TлD),╛,BF:Бе106/Ш@ЕK▓96 ░ K┤123зN│Kм96:B│Nл26:Бе106/╜BЕK▓47 ░ K┤58зN│Kм47:B│Nл52:Бе106/тDЕK▓32 ░ K┤48зN│Kм32:B│Nл62:Бе1060FЕK▓57 ░ K┤65зN│Kм57:B│Nл77:Бе1060ЖHЕK│32зZ│LлS:ЕLл8┤W зъ(L,T)м(Lл7,TлD),╛,BF:L│LлS:Бе50:Дъ(L,T)м(Lл1,TлD),╛,BF:L│U:ЕT┤P ░ T┤191м2нD зT│Tл1лD:Бе50:ДFL│0:Бе4440зJЕK│13зь(L,T)м(Lл1,TлD),1:L│U0╧LЕK│13 ░ T┤P зT│Tл1лD:Бе54:ДЕK│13з541NЕK│8зL│2н Б(.5нL):ъ(L,T)м(Lл1,TлD),╛,BF:ЕL▓1зL│Lм2:Бе50:ДL│0:Бе501ХPЕK│93зЕH│1за60,9:Бе50:ДZ│U:ъ(L,T)м(Lл1,TлD),╛,BF:ЕLлDXм1┤W зL│8н Б(.125нL):ь(L,T)м(LлDXм1,TлDYм1),5:L│LлDX:Бе50:Да60,9:Бе501┼RЕK│94зь(L,T)м(Lл1,TлD),1:ЕT▓D зT│Tм1мD:Бе501°TЕK│10зь(L,T)м(Lл1,TлD),1:ЕTлD┤191зT│TлDл1:Бе502]VЕK│91зZ│U:ь(L,T)м(Lл1,TлD),1:ї"BM"л И(L)л","л И(Tл1л Б(.75нD))л"R4":L│Lл4:Бе50:ЕL▓Wм5зL│Lм4:Бе502НXЕK│9 ░ Lл4┤W зь(L,T)м(Lл1,TлD),1:L│Lл4:Бе502мZЕK│92зв&H1000:T│V:L│U:Бе502╬\ЕK│4зь(L,T)м(Lл1,TлD),1:Бе1283^ЕK│12зь(L,T)м(Lл1,TлD),1:ЕT3│0зT3│1:L│T1:Бе50:ДЕT3│1зT3│0:L│T2:Бе503'`ЕK│189зБж3743hbЕK│21зь(U,T)м(Wм1,Tл.5нD),4:ь(U,Tл.5нD)м(Wм1,TлD),4:L│U:Бе504
dЕK│95зI│2нHл2:ь(L,T)м(Lл1,TлD),1:ЕL▓Wн.5зы(U,T)м(WмIм1,Tл.5нDл.5),6:ь(UлI,T)м(Wм1,Tл.5нDл.5),6:ы(U,Tл.5нDл1.5)м(WмIм1,TлD),6:ь(UлI,Tл.5нDл1.5)м(Wм1,TлD),6:Бе1044ЙfЕK│95зы(UлI,T)м(Wм1,Tл.5нDл.5),6:ь(U,T)м(Wм1мI,Tл.5нDл.5),6:ы(UлI,Tл.5нDл1.5)м(Wм1,TлD),6:ь(U,Tл.5нDл1.5)м(Wм1мI,TлD),64░hЕK┤▓95зь(L,T)м(Lл1,TлD),1:Бе50:Д505jъ(L,T)м(Lл1,TлD),╛,BF:ЕLлM(B)┤W зБж126:L│Lл2н Б(.5лM(B)н.5)л2:ЕL▓Wм1зL2│LмWл1:L│Wм1:Бе50:Д505BlЕZ│U зL│U:ЕT┤P ░ T┤191м2нD зT│TлDл1:Бе62:Д625KnFL│25dpЕH│3зZ1│8н Б(.125нZ)5|rЕH│1зZ1│4н Б(.25нZ)5ЕtZ│Z15┘vы(Z,T)м(L,TлD),6:ь(Z,T)м(L,TлD),4:L1│LмZ:L│U:Z│U:ЕT┤P ░ T┤191м2нD зT│TлDл1:Д4445єxЕLлL1┤0зL1│L1л2:Бе1206KzЕSCI┤▓2зь(L,T)м(LлL1,TлD),6:L│LлL1лL2:L│2н Б(.5нLл.5):L2│0:ДL│U:Бж476:KS│KSл1:Бе4326e|N│FLл1:И N Бе50,54,626З~ї"BM"л И(L)л","л И(T)лF$(B):Р7Аф0:Ю:°0,4:ё10,4:З"A: ART-DESIGNS":ё10,5:З"B: BACK TO SCREEN":ё10,6:З"C: CONVERT WPF":ё10,7:З"D: DIR":ё10,8:З"F: FONT SELECT7ЧВё10,9:З"H: HOUSEKEEPING":ё10,10:З"I: INPUT":ё10,11:З"K: KEYS LISTED":ё10,12:З"M: MARGIN SET":ё10,13:З"O: OUTPUT":ё10,14:З"P: PRESENT STATUS8'Дё10,15:З"R: RESOLUTION CHANGE":ё10,16:З"S: SCREEN DUMP":ё10,17:З"T: TAB SET":ё10,18:З"X: EXIT UltraLace":ё14,18:Т&H23,A1:Т&H24,A2:Т&HFFD8,08<ЖK$│ Т:ЕK$│""з1348]ИЕK$│"D" ▒ K$│"d"зБж326:Бе1288╕КЕK$│"F" ▒ K$│"f"зOD│D:L1│L:в&HF8E:Т&HE6E4,&HE6:ф3:Т&HE6E4,&HE7:Бж170:L│L1:в&HF8E:Бе1288╤МЕK$│"B" ▒ K$│"b"з1688ЄОЕK$│"H" ▒ K$│"h"зБж324:Бе3969РЕK$│"I" ▒ K$│"i"з4829,ТЕK$│"K" ▒ K$│"k"зБж308:Бе1289кФЕK$│"O" ▒ K$│"o"зЕCC│0 ░ HK│0з348:ДЕCC│0з346:ДF$│ О(F1$,HL):╧ Й( П(F$,1)):F$│ О(F$,HLм2):ЕHK│3зЮ:Бж28:Бе128:ДЮ:Бж26:Бе1289╦ЦЕK$│"M" ▒ K$│"m"зБж218:Бе1289ыШЕK$│"P" ▒ K$│"p"Бж400:Бе128:VЪЕK$│"R" ▒ K$│"r"зЕH│1зH│3:U│2нU:W│2нW:T1│2нT1:T2│2нT2:Бе128:ДH│1:U│.5нU:W│.5нW:T1│.5нT1:T2│.5нT2:Бе128:wЬЕK$│"T" ▒ K$│"t"зБж298:Бе128:РЮЕK$│"C" ▒ K$│"c"з252;
аЕK$│"S" ▒ K$│"s"зБж324:Бж322:ЕK$│"1"зБж7:Бе128:ДЕK$│"2"зБж8:Бе128:ДЕK$│"3"зТ&H13FF,0:Бж10:Бе128:Да60,9:Бе128;вЕK$│"A" ▒ K$│"a"з330;\дЕK$│"X" ▒K$│"x"зБж394:ЕK$│"Y" ▒ K$│"y"зЮ3:Т&HFFD8,0:╧0:К:Д128;rжа60,5:а60,5:Бе128;гиТ&HE6E4,&HE6:фH:Т&HE6E4,&HE7:Т&HFFD9,0:Бе202;нкБе204;╔мТ&H23,A1:Т&H24,A2:Бж322;єоЕK$┤"0" ▒ K$▓"9" за60,10:Р:ДK$│"1"лK$;¤░Бж212<▓Бж216<┤Щ"I",#1,"FONT"лK$<6╢АI│1е84:╗Й#1,F$(I):Л<M╕АI│1е84:Й#1,M(I):Л<Н║Й#1,D,S:Ъ#1:ЕD▓7 ░ D┤11зD│11:ДЕD▓11 ░ D┤15зD│15:ДЕD▓15зD│23<Х╝K│T<╔╛T│Tл Б(.5н(ODмD)):V│T:ЕT┤0зT│0:V│0:ДЕT▓P зT│Pм1<ъ└ЕV▓│0зV│VмDм1:Бе192:ДV│VлDл1< ┬ЕK│0зБж424:Бж250=─Р=╞ь(16,20)м(111,170),5=(╚Бж250=D╩ы(L,T)м(Lл1,TлD),1:Бе50=`╠Т&H23,A1:Т&H24,A2:Бж322=Л╬K│ К(K$):ЕK▓96 ░ K┤122зK│Kм32:K$│ Л(K)=н╨ЕK▓64 ░ K┤90з176:Да60,9:Бе204=┼╥Т&H23,A1:Т&H24,A2:Р=▀╘Т&H23,A1м1:Т&H24,A2:Р=∙╓Т&H23,A1м2:Т&H24,A2:Р>╪Т&H23,A1м4:Т&H24,A2:Р>v┌Бж212:Ю:ё6,8:З"ENTER TOP MARGIN (0 - 10): ";:╗ЙV$:ё6,10:З"ENTER LEFT MARGIN ";:ЕV$│""зV$│ И(V)>╗▄ё24,10:ЕH│1зЗ"(0 - 200):     ":ё35,10:ДЗ"(0 - 400):     ":ё35,10?▐Бж214:╗ЙU$:Бж306:V│ Й(V$):U│ Й(U$):ЕH│1зU│4н Б(.25нU):Z│U :ДU│8н Б(.125нU):Z│U?рЕV┤0зV│0?*тЕV▓10зV│10?ЩфЕ U▓Wм50за60,5:ё10,15:З"LEFT MARGIN TOO BIG":ё8,16:З"RELATIVE TO RIGHT MARGIN!":ё14,17:З"TRY AGAIN.":Бе220?жцЕU┤0зU│0?╜шЕH│1 ░ U▓200зU│200?╘ъЕH│3 ░ U▓400зU│400@*ьБж212:ё4,12:З"ENTER RIGHT MARGIN ( 0 -";320л(Hм1)н160;"): ";:╗ЙW$:ЕW$│""зW$│ И(W)@гюW│ Й(W$):ЕW┤Uл50за60,5:ё9,15:З"RIGHT MARGIN TOO SMALL":ё8,16:З"RELATIVE TO LEFT MARGIN. ":ё14,17:З"TRY AGAIN.":Бе236@нЁБж290@ўЄЮ:ё6,12:З"DO YOU WANT TO CHANGE THE":ё6,13:З"BOTTOM MARGIN?  (Y/N) ";AKЇБж3	BLS	L7
01280 	LDB	#2
01290 	STB	[NEWS]
01300 L7	LDB	[NEWX]
01310 	ADDB	DX
01320 	STB	[NEWX]
01330 	BSR	PSET
01340 LOOP2	LDD	SS
01350 	ADDD	#1
01360 	CMPD	NUMBER
01370 	LBLS	L6
01380 	JSR	$BF3B
01390 	TST	SAME	ARE THEY ALL STATUS 3?
01400 	LBNE	L5	IF NOT, BRANCH
01410 	RTS		IF SO, END OF PROGRAM
01420 
01430 CH1	LBSR	PPOINT	CHECK LOCATION DOWN 1
01440 	TSTB
01450 	BEQ	CH1L1
01460 	LDB	#3	CAN'T MOVE ANYMORE
01470 	STB	[NEWS]
01480 	LBRA	LOOP1
01490 CH1L1	BSR	PRESET	ERASE CURRENT LOCATION
01500 	INC	[NEWY]	MOVE DOWN 1
01510 	BSR	PSET	PSET NEW LOCATION
01520 	LBRA	LOOP1
01530 
01540 CH2	BSR	PPOINT
01550 	TSTB
01560 	BEQ	CH2L1
01570 	LDB	#3
01580 	STB	[NEWS]
01590 	BRA	LOOP2
01600 CH2L1	BSR	PRESET
01610 	INC	[NEWY]
01620 	BSR	PSET
01630 	BRA	LOOP2
01640 
01650 PSET	LDA	[NEWY]
01660 	LDB	#32
01670 	MUL
01680 	ADDA	$BA
01690 	TFR	D,X
01700 	LDB	[NEWX]
01710 	LSRB
01720 	LSRB
01730 	LSRB
01740 	ABX
01750 	LDA	[NEWX]
01760 	ANDA	#7
01770 	LDU	#$92DD
01780 	LDA	A,U
01790 	ORA	,X
01800 	STA	,X
01810 	RTS
01820 
01830 PRESET	LDA	[NEWY]
01840 	LDB	#32
01850 	MUL
01860 	ADDA	$BA
01870 	TFR	D,X
01880 	LDB	[NEWX]
01890 	LSRB
01900 	LSRB
01910 	LSRB
01920 	ABX
01930 	LDA	[NEWX]
01940 	ANDA	#7
01950 	LDU	#$92DD
01960 	LDA	A,U
01970 	COMA
01980 	ANDA	,X
01990 	STA	,X
02000 	RTS
02010 
02020 PPOINT	LDA	[NEWY]
02030 	INCA
02040 	LDB	#32
02050 	MUL
02060 	ADDA	$BA
02070 	TFR	D,X
02080 	LDB	[NEWX]
02090 	LSRB
02100 	LSRB
02110 	LSRB
02120 	ABX
02130 	LDA	[NEWX]
02140 	ANDA	#7
02150 	LDU	#$92DD
02160 	LDB	A,U
02170 	ANDB	,X
02180 	RTS
02190 STATUS	RMB	1536	MAXIMUM NUMBER OF BALLS
02200 XCORD	RMB	1536
02210 YCORD	RMB	1536
02220 	END	START
01082 	LEAY	D,Y
01085 	STY	$116
01088 	LDD	$BF76
01091 	LEAU	D,U
01094 	STU	$118
01097 	LDB	$117
01100 	ANDB	#1
01103 	INCB
01110 	LSLB
01120 	SUBB	#                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 <=&_
└1:Х6000:Ў:т40:Ю3:Бж410:W│640:H│3:F1$│"ABCDEFGH":PF│ Э(F1$):PF│256н Ж(PFл2)л Ж(PFл3):Бе15&СP$│ П( И(I),1)л"/HR1":Q$│ П( И(I),1)л"/HR2":Р&┐╓F$л"L"лP$е"L1/BIN":╓F$л"L"лQ$е"L2/BIN":Р&эТ&HFFA2,&H70:╙M"L1":Т&HFFA2,&H71:╙M"L2":Р'╓"L1/BIN"еF$л"L"лP$:╓"L2/BIN"еF$л"L"лQ$:Р'=АI│0е29:ТIл&H1321, Ж(KлI):Л:Р'┐K│&H135F:Бж6:Т&H127F,1:Т&H1283,&H50:Т&H12DE,0:Т&H1263,&H10:Т&H1280,&H21:Бж404:АI│1е4:Бж2:Бж3:Бж4:Т&HFFA2,&H7A:Бж5:в&H12CB:Л:Р(HK│&H1341:Бж6:Т&H127F,&H15:Т&H1283,&H3C:Т&H12DE,0:Т&H1263,0:Т&H1280,&H1E:Бж404:АI│1е4:Бж2:Бж3:╓F$л"R"лP$е"R1/BIN":╓F$л"R"лQ$е"R2/BIN"(╜	Бж4:Т&HFFA2,&H72:╙M"R1":Т&HFFA2,&H73:╙M"R2":Т&HFFA2,&H7A:Бж5:╓"R1/BIN"еF$л"R"лP$:╓"R2/BIN"еF$л"R"лQ$:в&H12CB:Л:Р)]
K│&H1341:Бж6:Т&H127F,&H29:Т&H1283,&H28:Т&H12DE,&H12:Т&H1280,&H1E:Бж404:АI│1е4:P$│ П( И(I),1)л"/HR":╓F$л"L"лP$е"L/BIN":╓F$л"M"лP$е"M/BIN":╓F$л"R"лP$е"R/BIN")ъТ&HFFA2,&H70:╙M"L":Т&HFFA2,&H71:╙M"M":Т&HFFA2,&H72:╙M"R":Т&HFFA2,&H7A:╓"L/BIN"еF$л"L"лP$:╓"M/BIN"еF$л"M"лP$:╓"R/BIN"еF$л"R"лP$:в&H12CB:Л*Т&HFFA2,&H72:╙M"DMENU/HR1:0":Т&HFFA2,&H7A:Р*!
:Г*(:Г*;ч3,0:И Ё Бе332*м╙M"MLR":Т&HFFA2,&H70:╙M"DMENU/HR1":Т&HFFA2,&H71:╙M"DMENU/HR2":Т&HFFA2,&H77:╙M"FMENU/HR1":Т&HFFA2,&H7A:в&HF00*▀Т150,18:Т55455,65:Т55456,66:Т55232,0:Т55318,20*ьИ я Бе22+BK$│K$л"C":A1│ Ж( Э(K$)л2):A2│ Ж( Э(K$)л3):ЕA2┤2зA2│254:A1│A1м1:Бе36:ДA2│A2м2:Бе36+YТ&HFFA2,&H7A:Бе492+`:Г+■Бж384:Т&HFFA2,&H70:╪M"OUT1",&H4000,&H5FFF,&HAC73:Т&HFFA2,&H71:╪M"OUT2",&H4000,&H5BFF,&HAC73:Т&HFFA2,&H7A:╓"OUT1/BIN"еF$л"/HR1":╓"OUT2/BIN"еF$л"/HR2":╧0:Р,_в&HF3C:Бж384:Т&HFFA2,&H70:╪M"OUT",&H4000,&H5DFF,&HAC73:Т&HFFA2,&H7A:╓"OUT/BIN"еF$л"/HR":╧0:Р,╩Бж404:╓F$л"/HR1"е"IN1/BIN":╓F$л"/HR2"е"IN2/BIN":Т&HFFA2,&H70:╙M"IN1":Т&HFFA2,&H71:╙M"IN2":Т&HFFA2,&H7A,¤ ╓"IN1/BIN"еF$л"/HR1":╓"IN2/BIN"еF$л"/HR2":╧0:Р-Z"Бж404:╓F$л"/HR"е"IN/BIN":Т&HFFA2,&H70:╙M"IN":Т&HFFA2,&H7A:╓"IN/BIN"еF$л"/HR":╧0:в&HF71:Р-Б$L2│1:P│176:МF$(84),M(84):Т&HFFD9,0-в&C1│63:у0,63:у1,63:у2,63:у3,0-ч(в&H1000:Т&HE6E4,&HE6:фH:Т&HE6E4,&HE7:э1,399:ы(8,152)м(9,152лD),1.*э4,3200:э5,2104:ы(0,0)м(639,19),4:э6,1520.F,в&HF00:ы(48,16)м(63,31),5:в&HF00:DX│16:DY│16.O.у1,0.h0T│V:L│U:K$│"F":Бе138.Н2ЕZ│U ░ Lл4▓Wм1зL│U:ЕT┤P зT│TлDл1.м4ЕZ┤▓U ░ Lл4▓Wм1зFL│1:Бе112.┘6ы(L,T)м(Lл1,TлD),1:ъ(L,T)м(Lл1,TлD),╜,BF.я8Т&H23,A1:Т&H24,A2/:ЕSCI│1з420:saving data"AтЗ#1,I$(B):З#1,L$(B):З#1,D(B):З#1,C(B):Л B:Ъ#1:Ю:З" DATA HAS BEEN SAVED TO DISK":З:Й" PRESS enter FOR MENU";R$:РAжьI│(TмD(B))нP:R│ Б((IнC(B))лC(B)):РAмЎКBТ182,0:Т183, Ж(188):Т184,0:Т185,16:Т186, Ж(188):Т187,0:Т188, Ж(188)м6:└1:Т183, Ж(183)л6:Т188, Ж(188)л6:Бе35$(B):З#1,D(B):З#1,C(B):Л B:Ъ#1:Ю:З" DATA HAS BEEN SAVED TO DISK":З:Й" PRESS enter FOR MENU";R$:РAжьI│(TмD(B))нP:R│ Б((IнC(B))лC(B)):РAмЎКBТ182,0:Т183, Ж(188):Т184,0:Т185,16:Т186, Ж(188):Т187,0:Т188, Ж(188)м6:└1:Т183,":CIRCLE(16,24),16,1,.8,.8,.17:DRAW"BD22BR4F2RDRM+2,+17L8U4LU7LU3L2UL2UL7D16NL8U16BU7U12R8DR2DRFRD2RD2LD2LGLGLDL8"
47 DRAW"BR25BD23M+12,-42R10M+10,+42L8M-2,-8NL11BU6BL2M-3,-14LM-3,+14NR7BD6BL2M-2,+8NL8BR28U42R10D42NL10BR8U42R16M+14,+32U32R10D42L16M-14,-32D32L10"
48 DRAW"BR48U42R20":CIRCLE(154,24),16,1,.8,.8,.17:CIRCLE(154,44),16,1,.8,.8,.17:DRAW"BD42NR4L20R9BU6U12R8DR2DRFRD2RD2LD2LGLGLDL8BU18U12R8DR2DRFRD2RD2LD2LGLGLDL8"
49 CIRCLE(190,34),21,1,1.2:CIRCLE(190,34),13,1,1.2
50 DRAW"BU18BR110NL8M-6,+42L12M-4,-26L2M-4,+26L12M-6,-42R9M+4,+26M+4,-26R12M+4,+26M+4,-26"
51 POKE178,129:PAINT(6,14),,1:POKE178,33:PAINT(48,14),,1:POKE178,62:PAINT(74,14),,1:POKE178,150:PAINT(94,14),,1:POKE178,62:PAINT(142,14),,1:POKE178,190:PAINT(181,18),,1:POKE178,34:PAINT(214,14),,1:PCOPY3TO1:PCOPY4TO2
52 CIRCLE(14,170),16,1,.9:CIRCLE(14,170),10,1,.9:PAINT(2,170),3,1:DRAW"BM34,182C1U24R6F12U12R6D24L6H12D12L6":PAINT(36,180),3,1
53 PCOPY3TO1:PCOPY4TO2
54 DRAW"BR54U18L10U6R26D6L10D18L6BR18M+9,-24R10M+9,+24L6M-4,-8L8M-4,+8NL6M+4,-8BU4BR2R4U4L2U2LD2L2D4BM140,182U24R20D2R2D12L2D2L14D8NL4BU14U4R10D4L10BR24BD14U24R20D6L14D4R14D4L14D4R14D6L20"
55 PAINT(92,180),1,1:PAINT(110,180),1,1:PAINT(142,180),1,1:PAINT(172,180),1,1:PCOPY3TO1:PCOPY4TO2
56 FORI=0TO24STEP24:CIRCLE(216+I,176),12,2,.85,.85,.7:CIRCLE(216+I,176),10,2,.85:CIRCLE(216+I,176),8,2,.85:CIRCLE(216+I,164),10,2,.85:CIRCLE(216+I,164),8,2,.85:NEXTI
58 PCOPY3TO1:PCOPY4TO2
59 FORII=1TO1000
60 IFINKEY$=""THEN61ELSE600
61 NEXTII
600 REM START MENU TEXT
610 DIM A$(40)
620 READ MN$
630 FORP=1TO34:READ A$(P):IF A$(P)="END"THEN640ELSENEXTP
640 IF A$(P)="END"THEN A$(P)=""
650 CLS
660 PRINT"        RAINBOW ON TAPE"
670 PRINT"       (C) FALSOFT, 1987"
680 PRINT
690 PRINT "  (XX)=PAGE NUMBER OF LISTING":KK=LEN(MN$):KK=INT(KK/2):PRINTTAB(9-KK)"IN "MN$"'S RAIN00100 	ORG	$6000
00110 NUMBER	RMB	2
00120 NN	RMB	2
00130 SS	RMB	2
00140 DX	RMB	1
00150 SAME	RMB	1
00160 NEWS	RMB	2
00170 NEWX	RMB	2
00180 NEWY	RMB	2
00190 
00200 START	LDA	#$FF
00210 	STA	$B5
00220 	LDD	#0	OUTER LOOP
00230 L1	STD	NN
00240 	LDX	#STATUS
00250 	CLR	D,X	CLEAR STATUS ARRAY
00260 	LDD	#0	INNER LOOP
00270 L2	STD	SS
00280 	LDU	#STATUS
00290 	LDX	#XCORD
00300 	LDY	#YCORD
00310 	LEAU	D,U
00320 	STU	NEWS	CURRENT STATUS LOCATION
00330 	LEAX	D,X
00340 	STX	NEWX	CURRENT XCORD LOCATION
00350 	LEAY	D,Y
00360 	STY	NEWY	CURRENT YCORD LOCATION
00370 	LDB	[NEWS]	GET CURRENT STATUS
00380 	CMPB	#3
00390 	BEQ	LOOP1	DON'T MOVE IT
00400 	CMPB	#2
00410 	LBEQ	CH1
00420 	CMPB	#0
00430 	BNE	L3
00440 	LDA	#$80
00450 	STA	[NEWX]
00460 	CLR	[NEWY]
00470 	LBSR	PSET	PSET(128,0)
00480 	LDB	#1
00490 	STB	[NEWS]	NEW STATUS
00500 	BRA	LOOP1
00510 L3	LBSR	PRESET	ERASE CURRENT LOCATION
00520 	LDD	$116	START OF PSEUDO RANDOM ROUTINE
00530 	LDX	$118
00540 	JSR	$9FB5
00550 	LDD	$BF74	CONSTANT
00560 	LEAY	D,Y
00570 	STY	$116
00580 	LDD	$BF76	CONSTANT
00590 	LEAU	D,U
00600 	STU	$118
00610 	LDB	$117
00620 	ANDB	#1	=0,1
00630 	INCB		=1,2
00640 	LSLB		=2,4
00650 	SUBB	#3	=-1,+1
00660 	STB	DX
00670 	LDB	[NEWY]
00680 	INCB		INCREASE CURRENT YCORD
00690 	STB	[NEWY]
00700 	CMPB	#120	COMPARE TO 120
00710 	BLS	L4
00720 	LDB	#2	CHANGE STATUS IF GREATER
00730 	STB	[NEWS]
00740 L4	LDB	[NEWX]
00750 	ADDB	DX	MOVE +1 OR -1
00760 	STB	[NEWX]
00770 	LBSR	PSET	PSET NEW LOCATION
00780 LOOP1	LDD	SS
00790 	ADDD	#1
00800 	CMPD	NN
00810 	LBLS	L2
00820 	JSR	$BF3B	RANDOM(0);CHANGE $116 & $118
00830 	LDD	NN
00840 	ADDD	#1
00850 	CMPD	NUMBER
00860 	LBLS	L1
00870 
00880 L5	CLR	SAME	FLAG FOR 'ALL DONE'
00890 	LDD	#0
00900 L6	STD	SS
00910 	LDU	#STATUS
00920 	LDX	#XCORD
00930 	LDY	#YCORD
00940 	LEAU	D,U
00950 	STU	NEWS
00960 	LEAX	D,X
00970 	STX	NEWX
00980 	LEAY	D,Y
00990 	STY	NEWY
01000 	LDB	[NEWS]
01010 	CMPB	#3
01020 	BEQ	LOOP2
01030 	LDA	#1
01040 	STA	SAME	NOT FINISHED YET
01050 	CMPB	#2
01060 	BEQ	CH2
01070 	LBSR	PRESET
01080 	LDD	$116
01090 	LDX	$118
01100 	JSR	$9FB5
01110 	LDD	$BF74
01120 	LEAY	D,Y
01130 	STY	$116
01140 	LDD	$BF76
01150 	LEAU	D,U
01160 	STU	$118
01170 	LDB	$117
01180 	ANDB	#1
01190 	INCB
01200 	LSLB
01210 	SUBB	#3
01220 	STB	DX
01230 	LDB	[NEWY]
01240 	INCB
01250 	STB	[NEWY]
01260 	CMPB	#120
01270 :D(B)│D(Bл1):C(B)│C(Bл1):Л B:N│Nм1/r
╓Й" TYPE <1> TO DELETE ANOTHER ITEM,     <2> TO RETURN TO MENU";J:Е J│1 з 430/А
рЕ J│2 з Р/Ш
ъЕ J┤▓1 ▒ J┤▓2 з 470/╢
Ї:Г---------CHANGE AN ITEM04
■Ю:З"        CHANGE AN ITEM":З б(32,131);:Й" ITEM NUMBER TO BE CHANGED";X:Е X▓N з З"INVALID ITEM NUMBER":А TT│1 е 1200:Л:Р0·B│X:ЗB;L$(B);I$(B);D(B);C(B):З" DO YOU WISH TO CHANGE":З:З"   <L> LOCATION                    <I> ITEM NAME                   <Y> YEAR OF PURCHASE            <K> COST":З:Й" YOUR CHOICE IS: ";X$1ЕX$│"L"з 5801Е X$│"I" з 59011&Е X$│"Y" з 6001D0Е X$│"K" з 6101o:Е X$┤▓"L"▒X$┤▓"I"▒ X$┤▓"Y"▒ X$┤▓"K"з Р1ШDЙ" NEW LOCATION: ";C$:L$(B)│C$:Бе6201┬NЙ" NEW ITEM NAME: ";C$:I$(B)│C$:Бе6201ЁXЙ" NEW YEAR OF PURCHASE: ";G:D(B)│G:Бе6202bЙ" NEW COST OF ITEM: ";G:C(B)│G2vlЗ" PRESS <1> TO CHANGE ANOTHER     ITEM":З" PRESS <2> TO RETURN TO MENU":Й S:Е S│1 з 510 :Д Р2Фv:Г----------VIEW THE FILE38АЮ:З"         VIEW THE FILE":З  б(32,131);:З:З" DO YOU WANT TO SEE:":З:З"    <E> THE FILE AS ENTERED         <L> FILE BY ROOM LOCATION":З:Й J$:Е J$│"L" з Бе 7603`К:Г----------PRINT OF FILE AS LISTED3ВФЮ:ЗZ$"inventory"Z$"listing"Z$3╖ЮЗ"ROOM";д8)"ITEM";д18)"YR";д22)"COST";д27)"REPL"3╠иА B│1 е N:Бж12603∙▓З L$(B);д4)I$(B);д17)D(B);д20)C(B);д24)R4╝Е Bо12│ Б(Bо12) з 710 :Д7504=╞З@480,"    cONTINUE    mENU  ";4S╨R$│ Т:Е R$│""з7204d┌Е R$│"M"з Р 4jфЮ4╢юЛ B:ЗZ$"end"Z$"of"Z$"file"Z$:Й" PRESS enter TO RETURN TO MENU    ";R$:Р5°Ю:З"      INVENTORY BY ROOM":З б(32,131):З" <1> ALL ROOMS":З:З" <2> A SPECIFIC ROOM":Й Z:Е Z│1 з 8005rЮ:З"        SELECT THE ROOM":З б(32,131);:З:З"YOU MUST USE 2 LETTER ROOM CODE"65З б(32,140);: З"LR-LIVING RM","CR-COMPUTER RM","DR-DINING RM","SE-SEWING RM","DE-DEN","N1-MASTER BATH","KI-KITCHEN","N2-HALL BATH","UT-UTILITY RM","N3-HALF BATH","B1-BEDROOM 1","HA-HALLWAYS"6ЩЗ"B2-BEDROOM 2","GA-GARAGE","AT-ATTIC","ST-STORAGE","PO-PORCH","YD-YARD":З б(32,131);:ЙR$:F$│R$6╜ TC│0:CR│0:RC│0:TR│0:Е Z│2 з 8206╥*П:А E│1 е H:Н F$6ў4V│0:Бж830:Е Z│2 з Р :Д Л E:Бе9307>А B│1 е N:Е L$(B)┤▓F$ з 8907ЛHБж1260:З B;д5)L$(B);д9)I$(B);д22)D(B);д26)C(B):V│Vл1:CR│CRлC(B):TC│TCлC(B):RC│RCлR:TR│TRлR:Е V▓│12 з 850 :Д 8907▓RV│0:З@480,"   cONTINUE      mENU";7╔\R$│ Т:Е R$│""з 8607▐fЕ R$│"M"з Z│2 :Р7фpЮ7∙zЛ B:Е CR│0 з 9208ЕДЗ" TOTAL COST FOR THIS ROOM WAS     $";CR:З" REPLACEMENT COST FOR THIS ROOM   IS  $";RC:З@480,"  cONTINUE     mENU";:Й R$:Е R$│"M"з Z│28ХОЮ:CR│0:RC│08ЫШР9вЗ" TOTAL FOR ALL ROOMS WAS         $";TC:З" REPLACEMENT COST ALL ROOMS IS   $";TR:З:Й" PRESS enter TO RETURN TO MENU";R$:Р9Fм:Г----------PRINT THE INVENTORY LISTING9б╢Ю:З:З" DO YOU WANT:":З:З"   <1> ALL ROOMS":З:З"   <2> A SPECIFIC ROOM":Й Z:Е Z│1 з 9709Ё└З "WHICH ROOM ?-NOTE YOU MUST USE  TWO LETTER ROOM CODE":Й R$:F$│R$:Бе1060:╩З:Й" PRESS enter WHEN READY ";R$:=╘Й" INPUT MONTH/YEAR OF LISTING ";M$:n▐З #м2," HOUSEHOLD INVENTORY AS OF       ";M$:ешЗ#м2," REPLACEMENT COST COMPUTED AT    ";Pн100;"% :╤ЄЗ#м2," PER YEAR FROM YEAR OF PURCHASE.":┌№З#м2:рП:°TC│0:CR│0:RC│0:TR│0;А E│1 е H:Н F$;F$З#м2,"RM";д10)"ITEM";д23)"YR";д27)"COST";д33)"REPLACE";l.Бж1080:Е Z│2 з 1160 :Д Л E:Бе1130;Н8А B│1 е N:Е L$(B)┤▓F$ з 1100<BБж1260:З#м2,L$(B);д5)I$(B);д22)D(B);д26);:З#м2,═"$####";C(B);:З#м2,д34);:З#м2,═"$####";R:CR│CRлC(B):TC│TCлC(B):RC│RCлR:TR│TRлR<&LЛ B:Е CR│0 з 1120<┐VЗ#м2:З#м2," TOTAL COST FOR THIS ROOM WAS    $";:З#м2, ═"$#####.##";CR:З#м2," REPLACEMENT COST THIS ROOM IS   $";:З#м2,═"$#####.##";RC:CR│0:RC│0:З#м2<┼`Р=OjЗ#м2:З#м2," TOTAL FOR ALL ROOMS WAS         $";:З#м2, ═"$#####.##";TC:З#м2," REPLACEMENT COST ALL ROOMS IS   $";:З#м2,═"$#####.##";TR>.tЗ#м2:З#м2," LR=LIVING ROOM,  DR=DINING ROOM,  DE=DEN":З#м2," KI=KITCHEN,  UT=UTILITY" :З#м2," B1=MASTER BEDROOM,   B2=GUEST BEDROOM":З#м2, " SE=SEWING ROOM,  N1=MASTER BATH":З#м2," N2=HALL BATH,  N3=1/2 BATH,  HA=HALL">З~З#м2," GA=GARAGE,  AT=ATTIC,  ST=STORAGE":З#м2," PO=PORCH,  YD=YARD  CR=COMPUTER RM">╡ИЗ :Й" PRESS enter TO RETURN TO MENU";R$:Р>┘Т:Г----------LOAD DATA FROM DISK?МЬЮ:З"      LOAD DATA FROM DISK":З б(32,131);:З:Й" WHAT IS DATA SOURCE DRIVE       NUMBER: ";DN:╧(DN):З:Й" PRESS enter WHEN READY ";R$:Щ"I",#1,"HOUSEINV/DAT":Е  М (1)│м1 з 1200?ыжЙ #1,N:А B│1 е N:Ю:З@233,Z$"loading"Z$"data"Z$:╗Й#1,I$(B):╗Й#1,L$(B):Й#1,D(B):Й#1,C(B):Л B?ї░Ъ#1:Р@║:Г----------SAVE DATA TO DISK@┼─Ю:З"       SAVE FILE ON DISK":З б(32,131);:З" WHAT IS DESTINATION DRIVE";:Й DN:╧(DN):З:З" DATA WILL BE SAVED AS           -HOUSEINV/DAT-":З:Й" PRESS enter WHEN READY";R$@ч╬Щ "O",#1,"HOUSEINV/DAT":З#1,NA╪А B│1 е N:Ю:З@235,"ЁЖ " (42) SUPRDICE"/(ёЖ " (XX)%RESET"/4ЄЖ "END"):Q│Qм6:SL$│ П(Q$,Q).Y&╙ SL$,R.fшЖ "JULY".}щЖ " (15) HOUSEINV".ФъЖ " (31) PUCHINK1".лыЖ " (31) PUCHINK2".┬ьЖ " (31)*PUCHINKO".┘эЖ " (31)+PUCHINKO".ыюЖ " (36) ULT".¤яЖ " (36) ULE"/XREF","(182) COMMANDO"0.Ж END) FILESRCH"/ЗЖ "(102) LOADER","(103) CADPRINT","(108) RESTORE","(117) ROBOCISE","(135) WHO AM I"/рЖ "(146) TIN EAR","(147) KOLAROLA","(150) SUBTRACT","(162) SUPERCLS","(166) SOUND 2"0$Ж "(167) SOUNDGEN","(172)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &:ГHOUSE INVENTORY&5
:ГWRITTEN BY BOB GRIFFARD&O:ГCOPYRIGHT JUNE 1991&f:ГBY FALSOFT, INC.&}:ГRAINBOW MAGAZINE&ЙБе 1280&Ф#Х 8000&к(М I$(500),L$(500)&╚-МD(500),C(500):Z$│ Л(134)&▄2T│91:P│.05:H│18'7Ж LR,DR,DE,KI,UT,B1,B2,CR,SE,N1,N2,N3,HA,GA,AT,ST,PO,YD'a<:Г----------T=CURRENT YEAR P=ANNUAL INFLATION RATE H=NUMBER OF ROOMS'╣A:Г--------ROOM CODES ARE IN       LINES 1230 & 1240 AND IN        LINES 2070 & 2080'∙F:Г-------HARDCOPY PRINT FORMATTED FOR 4 1/2 INCH ROLL PAPER(_:Г---------MAIN MENU(@dЮ:З"        HOUSE INVENTORY":З б(32,134);(^nЗ"ITEMS IN INVENTORY= ";N(vxЗ" DO YOU WANT TO:"(гВЗ:      З д3)"1> ADD ITEMS TO INVENTORY"(╔МЗд3)"2> DELETE OR CHANGE AN ITEM"(фЦЗд3)"3> SEE INVENTORY")
аЗд3)"4> PRINT INVENTORY")'кЗд3)"5> LOAD INVENTORY FROM DISK")K┤Зд3)"6> SAVE INVENTORY TO DISK")]╛Зд3)"7> QUIT")К╚З:З б(32,131);:Й" INPUT CHOICE (1-7) ";A)│╥И A Бж 260,340,640,950,1180,1220,240)╜▄Бе100)┌ц:Г----------QUIT PROGRAM*4ЁЮ:З"       QUIT THE PROGRAM":З б(32,134):Й" ARE YOU SURE y/n ";R$:Е R$│"Y" з Ю:К::Д Р*V·:Г----------ADD ITEMS TO LIST*Е
Ю:З"       ADD ITEMS TO LIST":З б(32,131);*з
З" TYPE end TO STOP ENTRIES."*┬
N│Nл1:Е N│500 з Бе 320+
"ЗZ$"item"Z$"no"Z$;N:З:Й" ROOM LOCATION: ";E$:Е E$│"END" з 310+c
,L$(N)│E$:Й" ITEM NAME: ";I$(N):Й" YEAR PURCHASED: ";D(N):Й" PURCHASE PRICE: $";C(N):Бе 280+o
6N│Nм1:Р+╨
@ЗZ$Z$Z$Z$"sorry"Z$Z$Z$"the"Z$"file"Z$"is"Z$"full"Z$Z$Z$;Z$│ Л(128):а150,3:АX│1е3000:Л:Бе 310+я
J:Г----------DELETE AN ITEM, 
TЮ:З"     DELETE OR CHANGE ITEM":З б(32,131);,o
^З:З"YOU MUST KNOW THE ITEM NUMBER   TO EITHER DELETE OR CHANGE AN   ITEM.",Й
hЗ:З" DO YOU WISH TO:",░
rЗ:З"   <1> RETURN TO MASTER MENU" ,╧
|З:З"   <2> DELETE AN ITEM",ю
ЖЗ:З"   <3> CHANGE AN ITEM"-;
РЗ:Й" INPUT YOUR CHOICE (1-3) ";S:Е S│1 з Р :Д Е S│2 з 430 :Д Е S│3 з 510-g
ЪЕ S│1 з Р :Д Е S│2 з 430 :Д Е S│3 з 510-О
д:Г----------CHOICE: DELETE AN ITEM.
оЮ:З"        DELETE AN ITEM":З б(32,131):З" ITEM NUMBERS HIGHER THAN THE    DELETED ITEM CHANGE WHEN THE    ITEM IS DELETED.".@
╕З:З" DELETE HIGHEST NUMBERED ITEM    FIRST.".Ы
┬З:Й" ITEM NUMBER TO BE DELETED";K:Е K▓N з З"INVALID ITEM NUMBER":А TT│1 е 1200:Л:Бе470/!
╠B│K:З" DELETED ITEM, ";I$(B)",":З" WAS LOCATED IN ";L$(B):А B│K е N:I$(B)│I$(Bл1):L$(B)│L$(Bл1)
                                                                                                                                                                                                    №?№??№?   №  └№╒╨  №ї?№Ц?╬?№╬?ЦФ?   
O╩H№H╒╒ ёї?№Ц?╬╧№╬?ЦЦГ Ё?
O╩H№H├ ёї╧№Ц?╬╧№╬?АР 
O╩H№H?
╘ ёї╧№Ц?╬├№╬?ПЁЦ?╩C
J2C?Ё╘ ёї╧№Ц?╬├№╬?П№<╩C
J2C?№╘?┼ї╧№Ц?╬╠№╬?П№╩C
J2C?№╘ ┼┼є№Ц?┬╠№╬?П№Ц<?Ё╩C
J2C?└╘ ┼┼є№Ц?┬╬<╬?П┬Ц2 №
C
2C├ 51є№Ц?╠╬<╬?АРЄ  
C
2C╒╒ 51є№Ц?╠╬<╬?ЦЦГЄ  
HH
JC╒╒? 51Ї№Ц?╧╠╬?ЦФ?┬  HH
JO╒╒├ 51Ї№Ц?╧╠╬?АГЄ  2HC╩JO╙№Ї№Ї№Ц?╧╬└╬?ПЁРЄ  2HC╩JO?┴╙№ЇЇ№Ц?╧╬└╬?П№2 №2JC╩JO?ё╙№їїї<Ц?╧╬╠╬?П№<?ЁЄJC╩JO?ё╙ёїїї<Ц?╧Є╠╬?П№ЦЄJC╩JO?ё╘ёЁ5<Ц?╧Є╬╬?П┬Ц?ЄJC╩JO?ё╘ёє 5<Ц?╧№╬╬?АЦ?№JOЄJ??Ё╘ё╧ ┼╠Ц?╧№╬╬?ЦЦР №JOЄJ??№╘┼╧ ┼╠Ц?╧ ╬?ЦЦГ Ё?№JOЄJ??№└ └? ??   №Ё?                       №                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    	7&#
:Г***************************&E:Г* RAINBOW ON DISK GRAPHIC *&g:Г*    BY FRED B. SCERBO    *&Й:Г*   COPYRIGHT  (C) 1985   *&л:Г*     UNDER LICENSE TO    *&═:Г* FALSOFT PUBLISHING INC. *&Ё:Г*************************** &¤
Ю0:Х1000'OAA$│ б(3,143):АI│1е5:╙M" FALSOFT/"лAA$:╙M"PRESENTS/"лAA$:ЛI:╙M" RAINBOW/"лAA$'fАI│1е300:Е Т│""зЛI'Н(╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,248'Ю2╚2,3:╝1:╚1,3'▒<╙M"   ON/"лAA$'┐F╟3е1:╟4е2(P╝0:╗(40,190)м(212,60),╛,BF:┬(126,126),24,0,.9:├(126,126),0,0:┬(126,126),20,1,.9(LZ┬(170,126),8,0,.9:╞"BM122,186C0R10E4U26H4L10G4D26F4"(hd╟3е1:╟4е2:▀0,17,2,A$,B$(Бn╙M"  DISK/"лAA$:╟3е1),x╚1,1:╞"BM70,88C3U12R12D12NL12BR8U12F12NU12BR16R2U12NL2R10F2D8G2NL10BR12NU12BR10R10U6L10U6R10BR8D12U6R4NE6NF6BM98,156C2R14D10L14NU10R14D10L14BR52BU17R1U1R1U1R1D20L5R9"):ВАII│1е500)NМЕ Т│""з150:Д160)VЦЛII)lаВ START MENU TEXT)АкМ A$(34),B$(34))╖┤АI│1е26:B$(I)│ Л(64лI):Л:АI│27е34:B$(I)│ Л(22лI):Л)┴╛Н MN$)ы╚АP│1е34:Н A$(P):Е A$(P)│"END"з210:ДЛP*╥Е A$(P)│"END"з A$(P)│""*▄NP│Pм1*,цАI│NPл1е34:B$(I)│"":Л*2ЁЮ*Q·З"        RAINBOW ON DISK"*p
З"      (C) FALSOFT, 1991"*Щ
З" PRESS LETTER TO LOAD BASIC ONLY";*Є
З "  (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"*°
"З+!
,АP│1е5:ЗB$(P)A$(P),B$(4лP)A$(Pл4):ЛP+И
6З:З "   %FROM JUNE'S RAINBOW            *MACHINE LANGUAGE PROGRAM       +ASSEMBLY LANGUAGE SOURCE"+н
@З"   PRESS <SPACE> TO CONTINUE";+┬
JX$│ Т:ЕX$│""з330+╥
TЕX$│" "з330+ь
^АI│1е10:ЕX$│B$(I)з500+∙
hЛI:Бе330+ 
rЮ,(
|З:З "  (XX)= PAGE NUMBER OF LISTING",0
ЖЗ:З,[
РАP│11е15:ЗB$(P)A$(P),B$(5лP)A$(Pл5):ЛP,c
ХЗ:З,i
ЧЗ,o
ШЗ,▓
ЪЗ "    PRESS <SPACE> TO RETURN          TO FIRST PAGE OF MENU",┌
дЗ "  PRESS ^ (UP ARROW) FOR <DIR>";,Є
оXX$│ Т:Е XX$│""з430-	
╕ЕXX$│ Л(94)з Ю:╬:Ц-
┬ЕXX$│" "з240-7
╠АI│11е NP:ЕXX$│B$(I)з500-D
╓ЛI:Бе430-S
рЕXX$┤▓з430-]
ъБе240-}
ЇQ$│A$(I):Е П(Q$,1)┤▓"*"з540-─
■Ю:З@138,"SORRY, BUT":З:Зд8)Q$:З:З" IS A MACHINE LANGUAGE PROGRAM.".'З:З" THE MENU PROGRAM HAS NOW BEEN   CLEARED SO YOU MAY <LOADM> THE  PROGRAM BY ITS FILENAME.".-Ц.MQ│ З(Q$):Q│Qм6:SL$│ П(Q$,Q).Y&╙ SL$,R.fшЖ "JULY".}щЖ " (15) HOUSEINV".ФъЖ " (31) PUCHINK1".лыЖ " (31) PUCHINK2".┬ьЖ " (31)*PUCHINKO".┘эЖ " (31)+PUCHINKO".ыюЖ " (36) ULT".¤яЖ " (36) ULE"/
р╝┐╝╜║┐╝╜║┤╜╛╕А┐╝╝┐╡╛╝┐┤╜╛╝┐╡╝┐╝║А┐░╡║┐А╡║А╡║А░┐А░┐╡║░┐░╡║░┐╡░┐░║А ААА Ёї·Аї·АА АЁ ї·╨ Аї·А№їЁ Ё·А ААЁ Аї·Аї·АА ЁА ї·╨ Аї·АААА АААЯЁХЪЯАХЪАХЪААЯАР░ХЪРЯАХЪРЯААЯАААЯЬЭЪЯЬЭЪАХЪААЬЬЬЯХЪРЯРХЮЬЯрРЯАААПАААПАЕКАЕКААПААПЕКАПАЕКААрАПАААПАААПАЕКАЕКААПААПЕКАПАЕКААААПАААпАААпАекАекбвпаАпекАпаекААААпАААпАААпЁекАекекпААпекАпАекААААпААуяуруяРхытчычъяууяхыуясчытААсятА└└└└└р└└└└└└а└└└└└└└└└└└└└└└└└└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ПАЕКАЕКААПААПЕКАПАЕКАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
рьяьэъяьэъфэюшАяььяхюьяфэюьяхьяьъАя░хъяАхъАхъА░яА░яхъ░я░хъ░яхря░ъАпАААпЁекАекААпАЁпек╨пАекАмеЁпакапААЁпАекАекААпЁапек╨пАекААААпАААПЁЕКПАЕКАЕКААПАР░ЕКРПАЕКРПААПАААПМНКПМНКАЕКААМММПЕКРПРЕОМПрРПАААЯАААЯАХЪАХЪААЯААЯХЪАЯАХЪААрАЯАААЯАААЯАХЪАХЪААЯАРЯХЪАЯРХЪААААЯААА ААА Аї·Аї·ёЄ аА ї·А аї·АААА ААА ААА Ёї·Аї·ї· АА ї·А Аї·АААА АА│┐│░│┐Р╡╗▓╡╗╖║┐││┐╡╗│┐▒╖╗▓АА▒┐▓А└└└└└р└└└└└└а└└└└└└└└└└└└└└└└░└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ЯАХЪАХЪААЯАРЯХЪАЯРХЪАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ╟ ╟╟┬┴╟┬┬├$%╟─┬)*├,-./01╚3456╞              FALSOFTППП ъPRESENTSППП!ъ RAINBOWППП"
   ON   ППП#
  DISK  ПППMENU    BAS:HOUSEINVBAS PUCHINK1BAS&}PUCHINK2BAS'bPUCHINKOBIN(PUCHINKOASM kULT     BAS+└ULE     BAS@SUPRDICEBAS2WRESET   ASM                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 № №¤·ЯЬЭЪдноиА┐╝╝┐╒▐▄▀фэюьяЕМПМКА Аї·ЯАХЪАекАА┐АА┐╒┌╨▀АхъАяЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъАьЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъААААПААА Ёї·ЯАХЪАекАА┐АА░╒┌А▀АхъАяААПААА №¤·ЯЬЭЪАекАА╝╝╝┐╒┌А▀АхюьярАПААА АААЯАХЪАекАА┐АА┐╒┌А▀АхъААрАПА	А АААЯАХЪАекАА┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦└╧├╧А ЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           №       Ё?      └       ЁЁ           №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       └                             №         №         Ё?  Ё?        Ё?    Ё?        └      └         └?      Ё?Ё              └        №?    Ё       №?  Ё       Ё?      Ё  ?      └└      └0      0      0     №  └     №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          z&
:ГTHE ASSEMBLY LINE&6:ГWRITTEN BY WILLIAM NEE&T:ГCOPYRIGHT (C) JULY 1991&k:ГBY FALSOFT, INC.&В:ГRAINBOW MAGAZINE&Т
Х100,&H7FFF&ЭL│1400&▓М S(L),X(L),Y(L)&└(X│ Д(м Я)&╨2╚4,1:╝:┐1,1&щ<╗(0,191)м(255,191),╜&■FА N│0 е L:S(N)│0'PА S│0 е N'ZЕ S(S)│2 з 300'2dЕ S(S)│3 з 170'knЕ S(S)│0 з X(S)│127:Y(S)│0:S(S)│1:╜(X(S),Y(S)):Бе170'{xY(S)│Y(S)л1'МВDX│2н Д(2)м3'│М╛(X(S),Y(S)м1):Е Y(S)▓120 з S(S)│2'─ЦX(S)│X(S)лDX'╒а╜(X(S),Y(S))'▌кЛ S'х┤Л N'ў╛T│0:А S│0 е L(
╚Е S(S)│3 з 280(╥T│1(%▄Е S(S)│2 з 400(5цY(S)│Y(S)л1(FЁDX│2н Д(2)м3(m·╛(X(S),Y(S)м1):Е Y(S)▓120 з S(S)│2(~
X(S)│X(S)лDX(П
╜(X(S),Y(S))(в
Л:Е T┤▓0 з 190(н
"Бе 290(╓
,Е  а(X(S),Y(S)л1)┤▓0 з S(S)│3:Бе 170(ч
6╛(X(S),Y(S))(ў
@Y(S)│Y(S)л1)
J╜(X(S),Y(S)))
TБе 170)<
РЕ  а(X(S),Y(S)л1)┤▓0 з S(S)│3:Бе 280)M
Ъ╛(X(S),Y(S)))]
дY(S)│Y(S)л1)n
о╜(X(S),Y(S)))y
╕Бе 280DX(П
╜(X(S),Y(S))(в
Л:Е T┤▓0 з 190(н
"Бе 290(╓
,Е  а(X(S),Y(S)л1)┤▓0 з S(S)│3:Бе 170(ч
6╛(X(S),Y(S))(ў
@Y(S)│Y(S)л1)
J╜(X                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
_&
:ГTHE ASSEMBLY LINE&6:ГWRITTEN BY WILLIAM NEE&T:ГCOPYRIGHT (C) JULY 1991&k:ГBY FALSOFT, INC.&В:ГRAINBOW MAGAZINE&Т
Х200,&H6000&┬Е  Ж(&H600E)┤▓134 з ╙M"PUCHINKO":Т &HFF40,0&╦Н NU&ш(MS│ Б(NUо256):Т&H6000,MS'2LS│NUмMSн256:Т&H6001,LS'<X│ Д(м Я)'"F╚4,1:╝:┐1,1';P╗(0,191)м(255,191),╜'HZв &H600E'SdБе 100'^nЖ 1000SOFT, INC.&В:ГRAINBOW MAGAZINE&Т
Х200,&H6000&┬Е  Ж(&H600E)┤▓134 з ╙M"PUCHINKO":Т &HFF40,0&╦Н NU&ш(MS│ Б(NUо256):Т&H6000,MS'2LS│NUмMSн256:Т&H60                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ■`Ж Ч╡╠¤`Оa¤oЛ╠¤`╬a¤Оg¤Оm¤3╦ `0Л┐`
1л┐`цЯ`┴'i┴'
┴&ЖАзЯ`
oЯ`
8╞
чЯ` J
P№
╛
╜Я╡№┐t1л┐
№┐v3╦ 
Ў
─
\X└ў`цЯ`\чЯ`┴x#╞чЯ`цЯ`
√`чЯ`
ц№`├
│`# d╜┐;№`├
│`# H`╠¤`╬a¤Оg¤Оm¤3╦ `0Л┐`
1л┐`цЯ`┴'RЖ
╖`┴'|│№
╛
╜Я╡№┐t1л┐
№┐v3╦ 
Ў
─
\X└ў`цЯ`\чЯ`┴x#╞чЯ`цЯ`
√`чЯ`
НJ№`├
│`# {╜┐;}`& k9u]'	╞чЯ` <НClЯ`Н 1Н\]'╞чЯ` └Н+lЯ`Н ╢жЯ`╞ =Ы║
цЯ`
TTT:жЯ`
Д╬Т▌ж╞кДзД9жЯ`╞ =Ы║
цЯ`
TTT:жЯ`
Д╬Т▌ж╞CдДзД9жЯ`L╞ =Ы║
цЯ`
TTT:жЯ`
Д╬Т▌ц╞фД9 `85:┬(216лI,164),8,2,.85:ЛI;':╟3е1:╟4е2;6;АII│1е1000;I<Е Т│""з61:Д600;Q=ЛII;gXВ START MENU TEXT;tbМ A$(40);~lН MN$;иvАP│1е34:Н A$(P):Е A$(P)│"END"з640:ДЛP;─АЕ A$(P)│"END"з A$(P)│"";╩КЮ;щФЗ"        RAINBOW ON TAPE"<	ЮЗ"       (C) FALSOFT, 1987"<иЗ<h▓З "  (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"<Е╝З:З"           SIDE ONE"<в╞АP│1е7:ЗA$(P),A$(Pл7):ЛP<и╨З<═┌З"   PRESS ANY KEY TO CONTINUE";<▌фЕ  Т│""з740<уюЮ=°З:З "  (XX)= PAGE NUMBER OF LISTING"=З=2АP│15е24:ЗA$(P),A$(Pл10):ЛP=uЗ "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU"=Ю З "PRESS ^ (UP ARROW) TO EXIT MENU";=╤*XX$│ Т:Е XX$│ Л(94) з Ю:К :Д Е XX$│""з810:Д650=с4З б(32,45);=ёшЖ "OCTOBER">vЄЖ " (22) HORROR"," (27) SCROLL"," (29) QUEENS"," (32) SCRNDMP"," (36) SCRNDMPS"," (38) LP78DMPS"," (39) TESTSCRN"," (46) ENERGY"?№Ж " (50) GRAFTRAN"," (63) DESKTOPL"," (68) DESKTOPH"," (72) GENFONT1"," (75) GENFONT2"," (78) FUNFACE"," (79) MARTIAN"," (80) COCOART"," (81) MIRORPIX"?╛Ж " (82) P178&GL"," (82) WINDCHIL"," (83) FOOTBALL"," (95) CCBLITZ"," (99) MENUGEN"," (99) COCODRAW","(103) 3DLETTER","(107) READPROG","(118) ANIMATE","(124) PICTBOOK"?╚'Ж ENDNT2"," (78) FUNFACE"," (79) MARTIAN"," (80) COCOAR                                                                                                                                                                                                                                                                 =╜&Z
└1:Х6000:Ў:т40:Ю3:Бж410:W│640:H│3:F1$│"ABCDEFGH":PF│ Э(F1$):PF│256н Ж(PFл2)л Ж(PFл3)';O(2)│120:O(3)│240:O(4)│80:A(1)│27:A(2)│27:A(3)│28:B(2)│3:B(3)│6:C(2)│30:C(3)│40:D(2)│10:D(3)│17:E(1)│&H1294:E(2)│E(1):E(3)│E(1):E(4)│&H12DF:F(1)│&H135F:F(2)│F(1):F(3)│F(1):F(4)│&H13D7:G(1)│13:G(2)│13:G(3)│14:G(4)│14:Бе15'mP$│ П( И(I),1)л"/HR1":Q$│ П( И(I),1)л"/HR2":Р'Ы╓F$л"L"лP$е"L1/BIN":╓F$л"L"лQ$е"L2/BIN":Р'щТ&HFFA1,&H70:Т&HFFA2,&H71:╙M"L1",2н Ж(&H13F5)л57344:╙M"L2",2н Ж(&H13F5):Р(╓"L1/BIN"еF$л"L"лP$:╓"L2/BIN"еF$л"L"лQ$:Р(аТ4698,141:Т4713,16:Т4732,141:Т4741,1:Т4742,33:Т4745,80:Т4774,4:Т4846,5:Бж404:АI│1е4:Т&H13F5,O(I):Бж3:Бж4:Бж5:Т&HFFA1,121:Т&HFFA2,122(▐Бж6:Т&H137D,G(I):Т&H129E,A(I):Т&H12C7,B(I):Бж24:вE(I):Л:Р)q	Т4698,33:Т4713,0:Т4732,33:Т4741,31:Т4742,30:Т4745,50:Т4774,0:Т4846,0:Бж404:АI│1е4:Т&H13F5,O(I):Бж3:Бж4:╓F$л"R"лP$е"R1/BIN":╓F$л"R"лQ$е"R2/BIN"*
Бж5:Т&HFFA1,114:Т&HFFA2,115:╙M"R1",2н Ж(&H13F5)л57344:╙M"R2",2н Ж(&H13F5):Т&HFFA1,121:Т&HFFA2,122:╓"R1/BIN"еF$л"R"лP$:╓"R2/BIN"еF$л"R"лQ$:Бе8*КТ4741,48:Т4742,30:Т4745,33:Бж404:АI│1е4:Т&H13F5,O(I):P$│ П( И(I),1)л"/HR":╓F$л"L"лP$е"L/BIN":╓F$л"M"лP$е"M/BIN":╓F$л"R"лP$е"R/BIN"*ўТ&HFFA2,112:╙M"L",2н Ж(&H13F5):Т&HFFA2,113:╙M"M",2н Ж(&H13F5):Т&HFFA2,114:╙M"R",2н Ж(&H13F5):Т&HFFA2,122+h
╓"L/BIN"еF$л"L"лP$:╓"M/BIN"еF$л"M"лP$:╓"R/BIN"еF$л"R"лP$:Т&H1390,C(I):Т&H13BE,D(I):Т&H137D,G(I):Бж24:вF(I):Л+ЦТ&HFFA2,114:╙M"DMENU/HR1:0":Т&HFFA2,122:Р+йч3,0:И Ё Бе332,╙M"MLR":Т&HFFA2,&H70:╙M"DMENU/HR1":Т&HFFA2,&H71:╙M"DMENU/HR2":Т&HFFA2,&H77:╙M"FMENU/HR1":Т&HFFA2,&H7A:в&HF00,MТ150,18:Т55455,65:Т55456,66:Т55232,0:Т55318,20,ZИ я Бе22,░K$│K$л"C":A1│ Ж( Э(K$)л2):A2│ Ж( Э(K$)л3):ЕA2┤2зA2│254:A1│A1м1:Бе36:ДA2│A2м2:Бе36,╟Т&HFFA2,&H7A:Бе492,рЗ#м2, Л(27) Л(20);:Р-~Бж384:Т&HFFA2,&H70:╪M"OUT1",&H4000,&H5FFF,&HAC73:Т&HFFA2,&H71:╪M"OUT2",&H4000,&H5BFF,&HAC73:Т&HFFA2,&H7A:╓"OUT1/BIN"еF$л"/HR1":╓"OUT2/BIN"еF$л"/HR2":╧0:Р-▀в&HF3C:Бж384:Т&HFFA2,&H70:╪M"OUT",&H4000,&H5DFF,&HAC73:Т&HFFA2,&H7A:╓"OUT/BIN"еF$л"/HR":╧0:Р.JБж404:╓F$л"/HR1"е"IN1/BIN":╓F$л"/HR2"е"IN2/BIN":Т&HFFA2,&H70:╙M"IN1":Т&HFFA2,&H71:╙M"IN2":Т&HFFA2,&H7A.} ╓"IN1/BIN"еF$л"/HR1":╓"IN2/BIN"еF$л"/HR2":╧0:Р.┌"Бж404:╓F$л"/HR"е"IN/BIN":Т&HFFA2,&H70:╙M"IN":Т&HFFA2,&H7A:╓"IN/BIN"еF$л"/HR":╧0:в&HF71:Р/
$L2│1:P│176:МF$(84),M(84):Т&HFFD9,0/"&C1│63:у0,63:у1,63:у2,63:у3,0/g(в&H1000:Т&HE6E4,&HE6:фH:Т&HE6E4,&HE7:э1,399:ы(8,152)м(9,152лD),1/Х*э4,3200:э5,2104:ы(0,0)м(639,19),4:э6,1520/╞,в&HF00:ы(48,16)м(63,31),5:в&HF00:DX│16:DY│16/╧.у1,0/ш0T│V:L│U:K$│"F":Бе1380
2ЕZ│U ░ Lл4▓Wм1зL│U:ЕT┤P зT│TлDл10,4ЕZ┤▓U ░ Lл4▓Wм1зFL│1:Бе1120Y6ы(L,T)м(Lл1,TлD),1:ъ(L,T)м(Lл1,TлD),╜,BF0o8Т&H23,A1:Т&H24,A20Э:ЕSCI│1з420:ДЕSCI│2 ░ KS│1з428:ДЕSCI│2з4320▒<K$│ Т:ЕK$│""з600Є>K│ К(K$):ЕK▓64 ░ K┤91зN│Kм64:B│N:ъ(L,T)м(Lл1,TлD),╛,BF:Бе1061@ЕK▓96 ░ K┤123зN│Kм96:B│Nл26:Бе1061=BЕK▓47 ░ K┤58зN│Kм47:B│Nл52:Бе1061bDЕK▓32 ░ K┤48зN│Kм32:B│Nл62:Бе1061ЗFЕK▓57 ░ K┤65зN│Kм57:B│Nл77:Бе1062HЕK│32зZ│LлS:ЕLл8┤W зъ(L,T)м(Lл7,TлD),╛,BF:L│LлS:Бе50:Дъ(L,T)м(Lл1,TлD),╛,BF:L│U:ЕT┤P ░ T┤191м2нD зT│Tл1лD:Бе50:ДFL│0:Бе4442'JЕK│13зь(L,T)м(Lл1,TлD),1:L│U2OLЕK│13 ░ T┤P зT│Tл1лD:Бе54:ДЕK│13з542ХNЕK│8зL│2н Б(.5нL):ъ(L,T)м(Lл1,TлD),╛,BF:ЕL▓1зL│Lм2:Бе50:ДL│0:Бе503PЕK│93зЕH│1за60,9:Бе50:ДZ│U:ъ(L,T)м(Lл1,TлD),╛,BF:ЕLлDXм1┤W зL│8н Б(.125нL):ь(L,T)м(LлDXм1,TлDYм1),5:L│LлDX:Бе50:Да60,9:Бе503ERЕK│94зь(L,T)м(Lл1,TлD),1:ЕT▓D зT│Tм1мD:Бе503xTЕK│10зь(L,T)м(Lл1,TлD),1:ЕTлD┤191зT│TлDл1:Бе503▌VЕK│91зZ│U:ь(L,T)м(Lл1,TлD),1:ї"BM"л И(L)л","л И(Tл1л Б(.75нD))л"R4":L│Lл4:Бе50:ЕL▓Wм5зL│Lм4:Бе504
XЕK│9 ░ Lл4┤W зь(L,T)м(Lл1,TлD),1:L│Lл4:Бе504,ZЕK│92зв&H1000:T│V:L│U:Бе504N\ЕK│4зь(L,T)м(Lл1,TлD),1:Бе1284Ц^ЕK│12зь(L,T)м(Lл1,TлD),1:ЕT3│0зT3│1:L│T1:Бе50:ДЕT3│1зT3│0:L│T2:Бе504з`ЕK│189зБж3744шbЕK│21зь(U,T)м(Wм1,Tл.5нD),4:ь(U,Tл.5нD)м(Wм1,TлD),4:L│U:Бе505НdЕK│95зI│2нHл2:ь(L,T)м(Lл1,TлD),1:ЕL▓Wн.5зы(U,T)м(WмIм1,Tл.5нDл.5),6:ь(UлI,T)м(Wм1,Tл.5нDл.5),6:ы(U,Tл.5нDл1.5)м(WмIм1,TлD),6:ь(UлI,Tл.5нDл1.5)м(Wм1,TлD),6:Бе1046	fЕK│95зы(UлI,T)м(Wм1,Tл.5нDл.5),6:ь(U,T)м(Wм1мI,Tл.5нDл.5),6:ы(UлI,Tл.5нDл1.5)м(Wм1,TлD),6:ь(U,Tл.5нDл1.5)м(Wм1мI,TлD),660hЕK┤▓95зь(L,T)м(Lл1,TлD),1:Бе50:Д506Сjъ(L,T)м(Lл1,TлD),╛,BF:ЕLлM(B)┤W зБж126:L│Lл2н Б(.5лM(B)н.5)л2:ЕL▓Wм1зL2│LмWл1:L│Wм1:Бе50:Д506┬lЕZ│U зL│U:ЕT┤P ░ T┤191м2нD зT│TлDл1:Бе62:Д626╦nFL│26фpЕH│3зZ1│8н Б(.125нZ)6№rЕH│1зZ1│4н Б(.25нZ)7tZ│Z17Yvы(Z,T)м(L,TлD),6:ь(Z,T)м(L,TлD),4:L1│LмZ:L│U:Z│U:ЕT┤P ░ T┤191м2нD зT│TлDл1:Д4447sxЕLлL1┤0зL1│L1л2:Бе1207╦zЕSCI┤▓2зь(L,T)м(LлL1,TлD),6:L│LлL1лL2:L│2н Б(.5нLл.5):L2│0:ДL│U:Бж476:KS│KSл1:Бе4327х|N│FLл1:И N Бе50,54,628~ї"BM"л И(L)л","л И(T)лF$(B):Р8ЗАф0:Ю:°0,4:ё10,4:З"A: ART-DESIGNS":ё10,5:З"B: BACK TO SCREEN":ё10,6:З"C: CONVERT WPF":ё10,7:З"D: DIR":ё10,8:З"F: FONT SELECT9Вё10,9:З"H: HOUSEKEEPING":ё10,10:З"I: INPUT":ё10,11:З"K: KEYS LISTED":ё10,12:З"M: MARGIN SET":ё10,13:З"O: OUTPUT":ё10,14:З"P: PRESENT STATUS9зДё10,15:З"R: RESOLUTION CHANGE":ё10,16:З"S: SCREEN DUMP":ё10,17:З"T: TAB SET":ё10,18:З"X: EXIT UltraLace":ё14,18:Т&H23,A1:Т&H24,A2:Т&HFFD8,09╝ЖK$│ Т:ЕK$│""з1349▌ИЕK$│"D" ▒ K$│"d"зБж326:Бе128:8КЕK$│"F" ▒ K$│"f"зOD│D:L1│L:в&HF8E:Т&HE6E4,&HE6:ф3:Т&HE6E4,&HE7:Бж170:L│L1:в&HF8E:Бе128:QМЕK$│"B" ▒ K$│"b"з168:rОЕK$│"H" ▒ K$│"h"зБж324:Бе396:ЛРЕK$│"I" ▒ K$│"i"з482:мТЕK$│"K" ▒ K$│"k"зБж308:Бе128;*ФЕK$│"O" ▒ K$│"o"зЕCC│0 ░ HK│0з348:ДЕCC│0з346:ДF$│ О(F1$,HL):╧ Й( П(F$,1)):F$│ О(F$,HLм2):ЕHK│3зЮ:Бж28:Бе128:ДЮ:Бж26:Бе128;KЦЕK$│"M" ▒ K$│"m"зБж218:Бе128;kШЕK$│"P" ▒ K$│"p"Бж400:Бе128;╓ЪЕK$│"R" ▒ K$│"r"зЕH│1зH│3:U│2нU:W│2нW:T1│2нT1:T2│2нT2:Бе128:ДH│1:U│.5нU:W│.5нW:T1│.5нT1:T2│.5нT2:Бе128;ўЬЕK$│"T" ▒ K$│"t"зБж298:Бе128<ЮЕK$│"C" ▒ K$│"c"з252<БаЕK$│"S" ▒ K$│"s"зБж324:Бж322:ЕK$│"1"зБж7:Бе128:ДЕK$│"2"зБж9:Бе128:ДЕK$│"3"зТ&H13FF,0:Бж11:Бе128:Да60,9:Бе128<ЪвЕK$│"A" ▒ K$│"a"з330<▄дЕK$│"X" ▒K$│"x"зБж394:ЕK$│"Y" ▒ K$│"y"зЮ3:Т&HFFD8,0:╧0:К:Д128<Єжа60,5:а60,5:Бе128=#иТ&HE6E4,&HE6:фH:Т&HE6E4,&HE7:Т&HFFD9,0:Бе202=-кБе204=IмТ&H23,A1:Т&H24,A2:Бж322=sоЕK$┤"0" ▒ K$▓"9" за60,10:Р:ДK$│"1"лK$=}░Бж212=З▓Бж216=Э┤Щ"I",#1,"FONT"лK$=╢╢АI│1е84:╗Й#1,F$(I):Л=═╕АI│1е84:Й#1,M(I):Л>
║Й#1,D,S:Ъ#1:ЕD▓7 ░ D┤11зD│11:ДЕD▓11 ░ D┤15зD│15:ДЕD▓15зD│23>╝K│T>I╛T│Tл Б(.5н(ODмD)):V│T:ЕT┤0зT│0:V│0:ДЕT▓P зT│Pм1>j└ЕV▓│0зV│VмDм1:Бе192:ДV│VлDл1>┬ЕK│0зБж424:Бж250>Е─Р>Ю╞ь(16,20)м(111,170),5>и╚Бж250>─╩ы(L,T)м(Lл1,TлD),1:Бе50>р╠Т&H23,A1:Т&H24,A2:Бж322?╬K│ К(K$):ЕK▓96 ░ K┤122зK│Kм32:K$│ Л(K)?-╨ЕK▓64 ░ K┤90з176:Да60,9:Бе204?E╥Т&H23,A1:Т&H24,A2:Р?_╘Т&H23,A1м1:Т&H24,A2:Р?y╓Т&H23,A1м2:Т&H24,A2:Р?У╪Т&H23,A1м4:Т&H24,A2:Р?Ў┌Бж212:Ю:ё6,8:З"ENTER TOP MARGIN (0 - 10): ";:╗ЙV$:ё6,10:З"ENTER LEFT MARGIN ";:ЕV$│""зV$│ И(V)@;▄ё24,10:ЕH│1зЗ"(0 - 200):     ":ё35,10:ДЗ"(0 - 400):     ":ё35,10@О▐Бж214:╗ЙU$:Бж306:V│ Й(V$):U│ Й(U$):ЕH│1зU│4н Б(.25нU):Z│U :ДU│8н Б(.125нU):Z│U@ЫрЕV┤0зV│0@ктЕV▓10зV│10AфЕ U▓Wм50за60,5:ё10,15:З"LEFT MARGIN TOO BIG":ё8,16:З"RELATIVE TO RIGHT MARGIN!":ё14,17:З"TRY AGAIN.":Бе220A&цЕU┤0зU│0A=шЕH│1 ░ U▓200зU│200ATъЕH│3 ░ U▓400зU│400AкьБж212:ё4,12:З"ENTER RIGHT MARGIN ( 0 -";320л(Hм1)н160;"): ";:╗ЙW$:ЕW$│""зW$│ И(W)B#юW│ Й(W$):ЕW┤Uл50за60,5:ё9,15:З"RIGHT MARGIN TOO SMALL":ё8,16:З"RELATIVE TO LEFT MARGIN. ":ё14,17:З"TRY AGAIN.":Бе236B-ЁБж290BwЄЮ:ё6,12:З"DO YOU WANT TO CHANGE THE":ё6,13:З"BOTTOM MARGIN?  (Y/N) ";B╦ЇБж322:ЕK$│"N" ▒ K$│"n" ▒  К(K$)│13зL│U:T│V:Р:ДЕK$│"Y" ▒ K$│"y"з246:Да60,5:Бе244CtЎё6,16:З"DO YOU WANT IT AT THE MOST":ё6,17:З"RECENT CURSOR POSITION?  (Y/N) ":ё6,18:З"IF NOT, IT WILL BE SET TO THE":ё6,19:З"LOWEST POSSIBLE CURSOR POSITION.":ё37,17C╚°Бж322:ЕK$│"N" ▒ K$│"n"зБж424:Бе250:ДЕK$│"Y" ▒ K$│"y"зP│T:L│U:T│V:Р:Да65,0:Бе248Cя·P│Vл(Dл1)н(м1л Б((192мV)о(Dл1))):РDh№Бж212:Ю:ё5,8:З"FILENAME INCLUDING EXTENSION:":ё13,9:╗ЙF$:Z$│ П(F$,2):Е К(Z$)│58з╧ Й( П(Z$,1)):F$│ О(F$, З(F$)м2):Д╧0DХ■N│ Ю(F$,"/"):ЕN│0з252:ДG$│ О(F$,N)л"DAT"D╥
J│0:Е П(F$,3)│"DAT"з╓F$е О(F$,N)л"TXT":F$│ О(F$,N)л"TXT"D∙
Щ"D",#1,F$:╨#1,128  з A$,128  з B$E
Ъ#2:Щ"O",#2,G$E3
ЕDN│1з288:ДБж210:J│Jл1:─#1,J:C$│A$EО
B│ Ю(B$,"]"):Е Ю(A$,"]")▓0 ▒ B▓0зDN│1:ЕB▓0зB$│ О(B$,Bм1):ДC$│ О(C$, Ю(C$,"]")м1):B$│""E╪

N│ Ю(C$, Л(13)):ЕN▓0зБж286:C$│ П(C$, З(C$)мN):ЕC$│""зC$│B$:Бе270:Д266Eы
Бж276:C$│C$лB$F-
N│ Ю(C$, Л(13)):ЕN▓0зБж286:C$│ П(C$, З(C$)мN):ЕC$│""з262:Д270F]
Бж276:ЕDN│1з288:ДБж210:J│Jл1:─#1,J:C$│C$лA$Fg
Бе264Fo
I│1FЪ
Е З(C$)│I ▒ C$│ б( З(C$),32)зK│0:Бе284F╟
K│ Ю( З(C$)л1мI,C$," "):ЕK│0зI│Iл1:Бе278F┌
З#2, О(C$,Kм1)Fє
C$│ П(C$, З(C$)мK):РG%
Е О(C$,N)│ Л(13)зЗ#2," [":Р:ДЗ#2, О(C$,Nм1):РGF
 Ъ#1:З#2,C$:Ъ#2:╧0:DN│0:Бе128G]
"ЕH│1 ░ W▓320зW│320Gn
$ЕW▓640зW│640GХ
&ЕH│1зW│4н Б(.25нW):ДW│8н Б(.125нW)GЫ
(РH	
*Бж212:Ю:ё6,8:З"ENTER 1ST TAB VALUE: ";:╗ЙT$:Бж304:T1│2н Б( Й(T$)н.5):ЕH│1 ░ T1▓320зT1│320:ДЕT1▓640зT1│640Hu
,Бж212:ё6,12:З"ENTER 2ND TAB VALUE: ";:╗ЙT$:Бж304:T2│2н Б( Й(T$)н.5):ЕH1 ░ T2▓320зT2│320:ДЕT2▓640зT2│640H{
.РHЯ
0ЕT$│"c" ▒ T$│"C" зT$│ И(L):Р:ДРH╕
2ЕU$│""зU$│ И(U):Р:ДРIy
4Ю:ё2,2:З"F2:          CALL COMMAND MENU":ё2,3:З"RIGHT ARROW: MOVE CURSOR RIGHT":З"  LEFT ARROW:  BACKSPACE":З"  UP ARROW:    MOVE CURSOR UP 1 LINE":З"  DOWN ARROW:  MOVE CURSOR DOWN 1 LINEJ
6ё2,7:З"ENTER:       CARRIAGE RETURN &":ё15,8:З"MOVE CURSOR DOWN 1 LINE":З"  CLEAR:       TAB":ё7,11:°0,4,U:З"KEYS WITH SHIFT HELD DOWN";:°0,4J╥
8ё2,13:З"RIGHT ARROW: DRAW CLIP ART":З"  LEFT ARROW:  CLEAR LINE":З"  UP ARROW:    MOVE CHAR-LINE TOWARD":ё15,16:З"CURSOR HALF OF SCREEN":З"  DOWN ARROW:  UNDERLINE":З"  CLEAR:       CLEAR SCREENKf
:З"  0:           UPPER/LOWER CASE":ё4,22:°0,4,U:З"PRESS SPACE FOR REST OF KEY LIST";:°0,4:ё4,22:E$│"        STOPPED BY ANY KEY OR MARGIN":Бж322K·
<Ю:ё6,5:°0,4,U:З"KEYS PRESSED AFTER CTRL KEY";:°0,4:ё2,7:З"RIGHT ARROW: MOVE CURSOR RIGHT UNTIL"лE$:З"  LEFT ARROW:  MOVE CURSOR LEFT UNTIL "лE$L\
>ё2,11:З"UP ARROW:    MOVE CURSOR UP UNTIL   "лE$:З"  DOWN ARROW:  MOVE CURSOR DOWN UNTIL "лE$Lе
@ё5,22:З"PRESS ";:°0,4,U:З"SPACE";:°0,4:З" TO RETURN TO MENU";:ё12,22L╜
BK$│ Т:ЕK$│""з322:ДРM
DЮ:ё8,10:З"1: 1COLUMN/4SCREEN":ё8,11:З"2: 2COLUMN/8SCREEN":ё8,12:З"3: 3COLUMN/12SCREEN":РM>
FБж212:Ю:ё12,8:З"DRIVE NUMBER: "Mи
HБж322:K│ Й(K$):ЕK▓3за60,9:Бе328:Д╬K:З"  FREE GRANULES:"; г(K):З"     PRESS SPACE TO CONTINUE":Бж322:РNV
JЮ:ё10,8:З"1: NORMAL":ё10,9:З"2: DOUBLE WIDTH":ё10,10:З"3: DOUBLE WIDTH-LENGTH":ё10,11:MI$│": MIRROR IMAGE OF ":З"4";MI$;"1":ё10,12:З"5";MI$;"2":ё10,13:З"6";MI$;"3":Бе354Nz
LБж394:ЕK$│"Y" ▒ K$│"y"з334:Д128NО
NЮ3:Т&HFFD8,0:╧0N─
PЕ м▓м1 ░  Ж(&H13FF)┤▓9зТ&HFFA1,121:Т&HFFA2,122:ДКO
RЕ м┤25зAD│&HABAFл мн2:ДЕ м▓26зAD│&HC290л2н( мм27):ДAD│&H890DOE
Tт40:ё8,10:З" ";:З Л( Ж(AD)) Л( Ж(ADл1));" ERROR IN LINE"; нOТ
Vё12,14:З"CONTINUE? (Y,N)":Бж322:ЕK$│"Y" ▒ K$│"y"зт40:Ю5:у0,63:у1,0:Бе128OШ
XКO┐
ZБж404:ЕHK│3зБж28:Бе128:ДБж26:Бе128O 
\Ю:ё8,10:З"1: SAVE FULL SCREEN":ё8,12:З"2: SAVE HALF SCREEN"PI
^Бж322:ЕK$│"1"зБж404:Бж26:Бе128:ДЕK$│"2"зБж404:Бж28:Бе128:Да60,9:Бе128PY
`Бж322:Бе128Pд
bБж322:K│ Й(K$):ЕK┤1 ▒ K▓6за60,9:Бе354:ДЕK▓3зТ&H102A,1:K│Kм3:ДТ&H102A,0P▌
dDK│K:Т&H1027,K:Ю:в&HF00:Т&HE6E4,&HE6:ф3:Т&HE6E4,&HE7Q4
fБж322:K│ К(K$):ЕK┤48 ▒ K▓51за60,9:Бе358:ДK│Kм48:DX│(Kл1)н16:Т&H1028,2нKл3:ЕK▓0з368Q~
hБж322:K│ К(K$):ЕK▓96 ░ K┤123зK│Kм97:ДЕK▓64 ░ K┤77зK│Kм39:Да60,9:Бе360Qб
jТ&H1029,K:в&H1033:ЕDX▓48зDX│48Q┼
lDY│DX:ЕDK▓1зDX│2нDX:ЕDK│3зDY│DXR.
nЕ Ж(&H102A)│0зы(544,96)м(543лDX,95лDY),5:ф0:в&HF00:Бе128:Ды(640мDX,96)м(639,95лDY),5:ф0:в&HF00:Бе128R<
pЕ K▓1з372Rw
rБж322:K│ К(K$):ЕK▓96 ░ K┤116зK│Kм97:Бе362:Да60,9:Бе370R▓
tБж322:K│ К(K$):ЕK▓96 ░ K┤107зK│Kм97:Бе362:Да60,9:Бе372Rф
vБж322:K│ К(K$):ЕK│8з378:ДЕK│10з380:ДЕK│94з382SH
xK$│ Т:ЕLл4┤W ░ K$│""зь(L,T)м(Lл1,TлD),1:L│Lл4:ы(L,T)м(Lл1,TлD),1:ъ(L,T)м(Lл1,TлD),╜,BF:Бе376:ДРSм
zK$│ Т:ЕLм4▓U ░ K$│""зь(L,T)м(Lл1,TлD),1:L│Lм4:ы(L,T)м(Lл1,TлD),1:ъ(L,T)м(Lл1,TлD),╜,BF:Бе378:ДРT
|K$│ Т:ЕTлD┤191 ░ K$│""зь(L,T)м(Lл1,TлD),1:T│TлDл1:ы(L,T)м(Lл1,TлD),1:ъ(L,T)м(Lл1,TлD),╜,BF:Бе380:ДРTz
~K$│ Т:ЕTмD▓0 ░ K$│""зь(L,T)м(Lл1,TлD),1:T│TмDм1:ы(L,T)м(Lл1,TлD),1:ъ(L,T)м(Lл1,TлD),╜,BF:Бе382:ДРTЖ
АЕHK│0зРU
ВF$│F$л Л(HS)л П( И(HF),1):HR│HRл1:HF│HFл1:ЕHR│5зHF│1:ЕHK│1зHK│0:CC│0:Р:ДЕHK│2зHS│82:U│8:W│336:Бж516:ДHS│77:U│16:W│248:Бж516U>
ДЕHR│9зHF│1:ЕHK│2зHK│0:CC│0:Р:ДHS│82:U│0:W│232:Бж516UU
ЖЕHR│13зHK│0:CC│0:РUk
ИV│0:L│U:T│V:Бе250UЦ
КЮ:ё10,10:З"ARE YOU SURE? (Y/N) ":Бе322V
МБж322:ЕK$┤"1" ▒ K$▓"3"за60,8:Бе128:ДHF│1:HR│1:HS│76:ЕK$│"1"зHK│1:U│0:W│640:ДЕK$│"2"зHK│2:U│64:W│392:ДHK│3:U│32:W│264V*
ОБж516:Бж392:HF│1:Бе128V┬
РЮ:ё11,8:З"TOP MARGIN =";V:ё11,9:З"LEFT MARGIN =";U:ё11,10:З"RIGHT MARGIN =";W:ё11,11:З"BOTTOM MARGIN =";PлD:ё11,12:З"TAB1 =";T1:ё11,13:З"TAB2 =";T2V╠
ТБе320W:
ФБж212:Ю:ё12,8:З"FILENAME: ";:╗ЙF$:Z$│ П(F$,2):Z1$│Z$:Е К(Z$)│58з╧ Й( П(Z$,1)):F$│ О(F$, З(F$)м2):ДZ$│":0"Wq
ЦЕHK│0 ▒ I1│1зР:ДHL│ З(F$)л2:ЕHL▓8зF$│ О(F$,6):HL│8Wа
ШCC│1:АI│1еHL:ТPFм1лI, К( Р(F$лZ$,I,1)):Л:РXG
Ъё15,4:°3,2,U:З"UltraLace";:°2,2:ё8,6:З"THE ULTIMATE SHOESTRING":ё11,8:З"DESKTOP PUBLISHER":°3,2:ё11,12:З"BY H. Allen Curtis":ё13,14:З"COPYRIGHT 1990":ё16,4:°3,2:РX~
ЬЮ:°0,4:Щ"I",#1,"STR":АI│1е6:╗Й#1,AC$:ё4,7лI:ЗAC$:ЛX╖
ЮБж212:K$│ Т:ЕK$│""з414:ДЕK$▓"6" ▒ K$┤"1"за60,5:Бе414X╩
аSK│ Й(K$):KS│1Xч
вАI│1еSK:╗Й#1,AC$:Л:Ъ#1:РYQ
дТ&H23,A1:Т&H24,A2:ЕKS┤│ З(AC$)зK$│ Р(AC$,KS,1):KS│KSл1:Бж422:Бе62:ДSCI│0:ь(L,T)м(Lл1,TлD),1:U│UT:Бе50Yo
жЕ К(K$)│94зK$│ Л(13):Р:ДРYУ
иV│192м(Dл1)н Б(192о(Dл1)):T│V:РY╛
кЕH│1зU│4н Б(.25нL):Р:ДU│8н Б(.125нL):РZ!
мТ&HFFD8,0:Е М(1)│м1зЪ#1:Т&HFFD9,0:SCI│0:ь(L,T)м(Lл1,TлD),1:U│UT:Бе50:ДБж214:╗Й#1,SK$:Т&HFFD9,0Z<
оЕSK│0зSCI│0:U│UT:Бе450Zt
░Т&H23,A1:Т&H24,A2:ЕKS┤│ З(SK$)зK$│ Р(SK$,KS,1):Д446ZТ
▓Е К(K$)│91зK$│ Л(13):RS│1Z┼
┤Е К(K$)│94зKS│KSл2:ЕKS▓ З(SK$)зKS│1:Бе428:Д432[j
╢ЕL│U ░ K$│" "зSZ│1:ДЕL│UлS ░ K$┤▓" " ░ SZ│1зь(L,T)м(Lл1,TлD),1:L│U:SZ│0:ДSZ│0:ЕL▓U ░ KS│1 ░ K$│" "зь(L,T)м(Lл1,TлD),1:L│U:ЕT┤P ░ T┤191м2нD зT│Tл1лD :ДSK│0:Бе430[{
╕KS│KSл1:Бе62[ж
║ЕH│1зU│4н Б(.25нL):Р:ДU│8н Б(.125нL):Р[┬
╝ЕSCI┤▓2з124:ДSK│0:Бе430\
╛ЕSK$│""зь(L,T)м(Lл1,TлD),1:L│U :ДKS│1:ЕRS│1зRS│0:Бе428:ДЕLлSл8▓W з488:ДK$│" ":Бе62\H
└ЕT┤P ░ T┤191м2нD зT│Tл1лD:Бе62:ДSK│0:Бе430\Z
┬T│V:ф0:Ю:°0,4]
─ё4,8:З"Do you want to save on disk the         rest of the ASCII strings of":ё13,10::ЗFA$;":";ZA$:ё4,11:З"for later translation to their          font images? (Y/N)  ";]
╞K$│ Т:ЕK$│""з454];
╚ЕK$│"N" ▒ K$│"n"зЪ#1:Бе168]Х
╩ЕK$│"Y" ▒ K$│"y"зё4,14:З"The rest of the strings will be         saved in REST:";ZA$;]╗
╠ЕFA$│"REST"зRE$│"TEMP":ДRE$│"REST]▌
╬Т&HFFD8,0:Щ"O",#2,RE$л":"лZA$]°
╨Бж476:ЕKS▓│ З(SK$)з468^
╥З#2, П(SK$, З(SK$)мKS)^/
╘Е М(1)│м1зЪ#1:Ъ#2:Бе472^P
╓Бж214:╗Й#1,SK$:З#2,SK$:Бе468^У
╪ЕRE$│"TEMP"з╥"REST/DAT:"лZA$:╓"TEMP/DAT:"лZA$ е"REST/DAT:"лZA$^Э
┌Бе168^╠
▄KS│KSм1:ЕKS│0зР:ДЕ Р(SK$,KS,1)┤▓" "з476:ДР_u
▐Бж212:SK│6:KS│1:SCI│2:Ю:ё4,8:З"Type filename of ASCII file you         want translated:  ";:╗ЙFA$:Z$│ П(FA$,2):ZA$│"0":Е К(Z$)│58зZA$│ П(Z$,1):FA$│ О(FA$, З(FA$)м2)_Щ
рТ&HFFD8,0:Щ"I",#1,FA$л":"лZA$:Р`
тБж212:Ю:ё11,9:З"1: FULL SCREEN FILE":ё11,10:З"2: HALF SCREEN FILE":ё11,11:З"3: WORD PROCESSOR FILE":ё11,12:З"4: ASCII STRINGS`а
фБж322:ЕK$│"1"зI1│1:Бж30:I1│0:Бе128:ДЕK$│"2"зI1│1:Бж34:I1│0:Бе128:ДЕK$│"3"з486:ДЕK$│"4"зSCI│1:UT│U:Бж426:Бж412:Бе168:Да60,5:Бе128`╡
цUT│U:Бж478:Бе168`■
шь(L,T)м(Lл1,TлD),1:L│U:ЕT┤P ░ T┤191м2нD зT│TлDл1:Бе428:ДSK$│"":Бе448a
ъЪ#1:АI│0е2000:Л:Бе128a(
ьЕ н│472з474a6
юЕ н│40з48aT
ЁЕ н│328за60,9:Бж328:Бе128aг
ЄЕ н│98зT1│T:АI│1еSF:ь(U,T)м(Wм1,Tл Б(DоSF)),4:T│Tл Б(DоSF):Л:T│T1:L│U:Бе50a╞
ЇЕ н│470 ░  м│23 зЪ#1:Ъ#2:Бе472aы
ЎЕ н│30 ▒  н│34 ▒  н│480з504:Д506b|
°SCI│0:а60,5:ё5,11:З"THERE IS NO FILE BY THAT NAME":ё7,13:З"ON THE DISK IN DRIVE ";:ЕZ$│""зЗ"0":Бе490:ДЕ К(Z$)│58зЗ П(Z$,1):Бе490:ДЗ"0":Бе490b╥
·Е н│26з╥F$л"/HR1":╥F$л"/HR2":╓"OUT1/BIN"еF$л"/HR1":╓"OUT2/BIN"еF$л"/HR2":╧0:Бе128c
№Е н│28з╥F$л"/HR":╓"OUT/BIN"еF$л"/HR":╧0:Бе128cl
■Е н│14зт32:Ю:З"";:т40:Ю3:ё1,8:З"INSERT ULT DISK IN DRIVE 0 & HIT SPACE";:Бж322:Т&H13FF,9:Бж14:Бе128cЦЕ н│180зЪ#1:K$│"F":а60,9:в&HF8E:Бе138cаБе334c╝ЕH│1зU│.5нU:W│.5нW:Р:ДРеF$л"/HR2":╧0:Бе128c
№Е н│28з╥F$л"/HR":╓"OUT/BIN"еF$л"/HR":╧0:                                                                                                                                                                                                                                                                 )T&
:ГSUPERDICE&):ГBY DAVID SCHALLER&G:ГCOPYRIGHT (C) JULY 1991&^:ГBY FALSOFT, INC.&u:ГRAINBOW MAGAZINE&Х
В *************************&╡В *       SUPERDICE       *&╒В *      VERSION 4.0      *&ї(В *   BY DAVID SCHALLER   *'2В *        1/12/91        *'5<В *************************'>FХ550'YPМA$(6,4),S(4,6),U(4,7)'~ZC$│ Л(207):D$│ Л(205):E$│ Л(203)'оdF$│ Л(206):G$│ Л(202):H$│ Л(204):I$│ Л(200)'╜nY$│ Л(128)'╒xA$(1,1)│C$лC$лC$лG$'эВA$(1,2)│C$лF$лC$лG$(
МA$(1,3)│A$(1,1)(ЦA$(1,4)│H$лH$лH$лI$(1аA$(2,1)│C$лC$лF$лG$(EкA$(2,2)│A$(1,1)(]┤A$(2,3)│F$лC$лC$лG$(u╛A$(2,4)│H$лH$лH$лI$(Н╚A$(3,1)│F$лC$лC$лG$(е╥A$(3,2)│C$лF$лC$лG$(╜▄A$(3,3)│C$лC$лF$лG$(╒цA$(3,4)│H$лH$лH$лI$(эЁA$(4,1)│F$лC$лF$лG$)·A$(4,2)│C$лC$лC$лG$)
A$(4,3)│F$лC$лF$лG$)5
A$(4,4)│H$лH$лH$лI$)M
A$(5,1)│F$лC$лF$лG$)e
"A$(5,2)│C$лF$лC$лG$)}
,A$(5,3)│F$лC$лF$лG$)С
6A$(5,4)│A$(4,4))й
@A$(6,1)│F$лC$лF$лG$)▌
JA$(6,2)│A$(6,1):A$(6,3)│A$(6,1):A$(6,4)│A$(4,4))є
TВ SET UP FOR GAME)·
^Ю4*	
hHH│ Д(м Я)*&
rА I│1 е 5:D(I)│ Д(6):Л I*i
|CO│1:А I│34 е 58 й6:DD│D(CO):L│I:Бж1800:З@Iл160,CO;:CO│COл1:ЛI*Я
ЖЗ@262,"welcome"л Л(128)л"to"л Л(128)л"superdice";*┼
Р╔"O3V27L26CDEFGABO4CO3CO2BAGFEDC"+
ЪЗ@295,"COPYRIGHT (C) 1991";:З@295л32,"BY  DAVID SCHALLER";+
дАZ1│1е500:ЛZ1+C
оЗ@388,"HOW MANY PLAYERS?  (1-4)";:а170,1+X
╕Q$│ Т:ЕQ$│""з440+u
┬Q│ Й(Q$):ЕQ┤1 ▒ Q▓4 з430+А
╠а200,1+Л
╓Бж1880+Ъ
рА LP│1 е Q+╡
ъЗ@256лLPн32, б(32,32);+▄
ЇЗ@256л(LPн32),"PLAYER"л И(LP)л">";+ъ
■╗Й P$(LP)+■ЕP$(LP)│"" з500,ЛLP,АLP│1е300:ЛLP,#&Бж1880,+0T│1,D::ГBEGIN PLAY********,ODБж3830,`NЕ PU│1 з2830,iXRL│1,pb:Г,ЛlА C4│1 е5:RR(C4)│1:ЛC4,ЯvЕ DV(T)│1 з1690,╫АЗ@288,"player"лY$;:Т1319,48лT:Т1320,58:З@297,P$(T);,яКЕ F2│1 з F2│0:Бе710-&ФЕRL│1 зЗ@358,"press"лY$л"enter"лY$л"to"лY$л"roll";-pЮЕRL▓1 зЗ@352,"which"лY$л"ones"лY$л"to"лY$л"roll"лY$л"again";:Т1400,63-│иЕRL▓1 зCO│49:А I│34 е 58й6:З@Iл160," "л Л(CO)л" ";:CO│COл1:Л I-╞▓ЕRL▓1 з Бж3590-х╝Е RL▓1 з F2│1:Бж1880:Бе640.╞ЕRL▓1 зЗ@358,"press"лY$л"enter"лY$л"to"лY$л"roll";.&╨Q$│ Т.~┌CO│49:А I│34 е 58 й6:ЕRR(COм48)│1 зЗ@Iл160,">"л Л(CO)л"<";:ДЗ@Iл160," "л Л(CO)л" ";.ХфCO│COл1:Л I:BL$│"".мюА C5│1 е  З(P$(T)).╥°BL$│BL$л Л( К( Р(P$(T),C5,1))л32).рЛ C5:C5│0.ЁА C6│1 е 12.·Q$│ Т/ ЕQ$│ Л(13) зЗ@297,BL$;:Бе870/-*ЕQ$│"S" з2500/O4ЕQ$│"N" ░ RL▓1 з Бж1880:Бе640/X>Л C6/}HЕC5│0 зЗ@297,BL$; :ДЗ@297,P$(T);/ЙRC5│1мC5/У\Бе780/иfЗ@428,"ROLLING";/┐p:ГROLLING SEQUENCE/╚zL│34/╙ДБе2730/▐ОБж18800ШВ **** DISPLAY OPTION BOARDS ****0вA1│2790:мА C5│266 е 426 й32:З@C5, б(13,32);:ЛC50^╢З@256, б(9,32);:З@288, б(9,32);0r└З@320, б(9,32);0П╩З@266,"(1'S)=1 :"S(T,1);0м╘З@298,"(2'S)=2 :"S(T,2);0╔▐З@330,"(3'S)=3 :"S(T,3);0цшЗ@362,"(4'S)=4 :"S(T,4);1ЄЗ@394,"(5'S)=5 :"S(T,5);1 №З@426,"(6'S)=6 :"S(T,6);1@З@459,"next"лY$лY$л"table";1gS1│0:А C5│1 е 6:S1│S1лS(T,C5):Л C51ОS2│0:А C5│1 е 7:S2│S2лU(T,C5):Л C51б$З@256,"TT:"S1;1╖.З@288,"GT:"S1лS2;1р8З@320,"DT:"D(1)лD(2)лD(3)лD(4)лD(5);1ЇBЗ@A1,Y$;:A1│2792LЗ@A1, Л(95);2VQ$│ Т2 `в44539:Q$│ Т2EjЕQ$│ Л(13) зЗ@A1, Л(127);:Бе12102RtЗ@A1,Y$;2k~ЕQ$│ Л(94) зA1│A1м322~ИЕ Q$│"N" з12502ЧТЕQ$│ Л(10) зA1│A1л322нЬЕ A1┤279 з A1│4712├жЕ A1▓471 з A1│2792╬░Бе11002ч║SL│A1о32м7:SL│ Б(SL)2°─Е SL│7 з12503,╬Е S(T,SL)┤▓0 з╔"T255L255O1AAAAAAAAAAAAA":Бе110037╪Бе19203Sт:ГSECOND TABLE*********3eьБж1880:A1│2843СЎА C5│266 е 458 й32:З@C5, б(18,32);:Л C53╡З@256, б(9,32);:З@288, б(9,32);3╔
З@320, б(9,32);3ыЗ@266,"3 OF A KIND :";U(T,1);4
З@298,"4 OF A KIND :";U(T,2);4/(З@330," FULL HOUSE :";U(T,3);4Q2З@362,"SM.STRAIGHT :";U(T,4);4s<З@394,"LG.STRAIGHT :";U(T,5);4ХFЗ@426," SUPERDICE! :";U(T,6);4╖PЗ@458,"     CHANCE :";U(T,7);4ўZЕRL┤▓3 зЗ@493,"roll"лY$л"again"; :ДЗ@493,"next"лY$л"table";5
dЗ@256,"TT:"S2;5 nЗ@288,"GT:"S1лS2;5IxЗ@320,"DT:"D(1)лD(2)лD(3)лD(4)лD(5);5]ВЗ@A1,Y$;:A1│2845nМЗ@A1, Л(95);5xЦQ$│ Т5Йав44539:Q$│ Т5пкЕ Q$│ Л(13) зЗ@A1, Л(127);:Бе15305╝┤З@A1,Y$;5╫╛Е Q$│ Л(94) з A1│A1м325щ╚Е Q$│"N" з9106╥Е Q$│ Л(10) з A1│A1л326▄Е A1┤284 з A1│50860цЕ A1▓508 з A1│2846;ЁБе14206T·SL│A1о32м7:SL│ Б(SL)6eЕ SL│8 з15706ДЕ SL│6 ░ U(T,SL)┤▓м1 з15906╣Е U(T,SL)┤▓0 з╔"O1T255L255O1AAAAAAAAAAAA":Бе14206т"Е SL│8 ░ RL┤3 з RL│RLл1:Бж1880:Бе6407,Е SL│8 ░ RL│3 зБж1880:Бе92076В ORDER ROLL7"@А C5│1 е 572JE(C5)│D(C5)7;TЛ C57J^А C5│1 е 47ehЕ E(C5)┤│E(C5л1) з16607РrZ│E(C5):E(C5)│E(C5л1):E(C5л1)│Z:Бе16307Щ|Л C57╟ЖИ SL Бж2010,2080,2140,2200,2330,2380,24707╫РБж1880:RL│17эЪT│Tл1:Е T▓Q з T│18дЕ T│1 з570 :Д6008
оБе17108╕В **********8/┬В **********8@╠В **********8Q╓В **********8bрВ **********8tъВ SUBROUTINES8ЕЇВ **********8Ц■В **********8╢:ГPRINT DIE AT (L) LOCATION8╤:ГDIE TO PRINT IS (DD)8┌C2│18я&А K│L е Lл96 й3290З@K,A$(DD,C2);9:C2│C2л19DЛK9NР99X:ГCLEAR SCREEN PRINT AREA9^bА LP│256е448й32:З@LP, б(32,128);9ВlЛLP:З@480, б(31,128);:Т1535,1289ИvР9еАВ COUNT AND ADD ONLY(SL)9оКCX│09╜ФА C5│1 е 59╫ЮЕ D(C5)│SL з CX│CXлSL9риЛ C5:▓Е CX│0 з S(T,SL)│м1:АC6│1е5:а1,1:ЛC6 :Д S(T,SL)│CX:а205,4:.╝RL│1:Бж1880:9╞Бе1690:C╨Бе570:U┌:Г3 OF A KIND:wфЕ E(1)│E(2) ░ E(1)│E(3) з2060:ЩюЕ E(2)│E(3) ░ E(2)│E(4) з2060:╗°Е E(3)│E(4) ░ E(3)│E(5) з2060:▀А C6│1 е5:а1,1:ЛC6:U(T,SL)│м1:Р;U(T,SL)│D(1)лD(2)лD(3)лD(4)лD(5);а205,4:Р;# :Г4 OF A KIND;Q*Е E(1)│E(2) ░ E(1)│E(3) ░ E(1)│E(4) з2120;4Е E(2)│E(3) ░ E(2)│E(4) ░ E(2)│E(5) з2120;г>А C6│1 е5:а1,1:ЛC6:U(T,SL)│м1:Р;╚HU(T,SL)│D(1)лD(2)лD(3)лD(4)лD(5);╒Rа205,4:Р;ц\:ГFULL HOUSE<fЕ E(1)│E(2) ░ E(1)│E(3) ░ E(4)│E(5) з2180<BpЕ E(1)│E(2) ░ E(3)│E(4) ░ E(3)│E(5) з2180<fzА C6│1 е5:а1,1:ЛC6:U(T,SL)│м1:Р<uДU(T,SL)│25<ВОа205,4:Р<ФШ:ГSM.STRAIGHT<▒вА C6│1 е 6:X3(C6)│0:Л C6<└мА C6│1 е 5<╧╢А C7│1 е 6<щ└Е E(C6)│C7 з X3(C7)│1<ё╩ЛC7<∙╘ЛC6=+▐Е X3(1)│1 ░ X3(2)│1 ░ X3(3)│1 ░ X3(4)│1 з2310=]шЕ X3(2)│1 ░ X3(3)│1 ░ X3(4)│1 ░ X3(5)│1 з2310=ПЄЕ X3(3)│1 ░ X3(4)│1 ░ X3(5)│1 ░ X3(6)│1 з2310=▓№А C6│1е5:а1,1:ЛC6:U(T,SL)│м1:Р=┴	U(T,SL)│30=╬	а205,4:Р=р	:ГLG.STRAIGHT>"	$Е E(5)м1│E(4) ░ E(4)м1│E(3) ░ E(3)м1│E(2) ░ E(2)м1│E(1) з2360>F	.А C6│1 е5:а1,1:ЛC6:U(T,SL)│м1:Р>U	8U(T,SL)│40>b	Bа204,5:Р>s	L:ГSUPERDICE!>н	VЕ E(1)│E(2) ░ E(1)│E(3) ░ E(1)│E(4) ░ E(1)│E(5) з2410>╤	`А C6│1 е5:а1,1:ЛC6:U(T,SL)│м1:Р?	jЕU(T,SL)▓0 зU(T,SL)│U(T,SL)л100 :Д U(T,SL)│50?3	t╔"T3L16V28O4CP16O3GP16O4CP16O3FP16O4CP16O3"?X	~╔"E-DE-DCP16L8O4E-L16DP16L4GL8C"?М	И╔"O3L16BABAGABG;L16O4CP16O3GP16FP16O4DP16L16O3"?║	Т╔"E-DE-DCP16O4E-FGP16CP16O3GP16BP16L2O4C"?└	ЬР?═	ж:ГCHANCE?Є	░U(T,SL)│D(1)лD(2)лD(3)лD(4)лD(5)? 	║а204,5:Р@*	─Бж1880:З@288, Л(123)л"scores"л Л(125);@9	╬А C5│1 е Q@|	╪SX(C5)│S(C5,1)лS(C5,2)лS(C5,3)лS(C5,4)лS(C5,5)лS(C5,6)лU(C5,1)@╛	тSX(C5)│SX(C5)лU(C5,2)лU(C5,3)лU(C5,4)лU(C5,5)лU(C5,6)лU(C5,7)@╟	ьЛ C5@ш	ЎА C5│1 е Q:X$(C5)│P$(C5):ЛC5@°
Е Q│1 з2620A	

А C5│1 е Qм1A&
Е SX(C5)▓│SX(C5л1) з2610Ax
GG$│X$(C5):OE│SX(C5):X$(C5)│X$(C5л1):SX(C5)│SX(C5л1):X$(C5л1)│GG$:SX(C5л1)│OEAГ
(Бе2570AМ
2Л C5AЫ
<А C5│1 е QAц
FЕ  З(P$(C5))▓10 з R6$│ О(X$(C5),10) :Д R6$│X$(C5)л б(10м З(X$(C5)),32)B

PR6$│R6$л":"л И(SX(C5))B
ZЗ@288л(32нC5), б(32,32);B5
dЗ@288л(32нC5),R6$;B=
nЛC5Bx
xЗ@452,"press"лY$л"any"лY$л"key"лY$л"to"лY$л"continue";BВ
ВQ$│ ТBН
Мв44539BШ
ЦБж1880B╢
аЕ RL▓1 з F2│1:Бе640 :Д640B╧
кG│1:╔"V20T255L255O1"Bу
┤Е RR(G)│0 з2810BЄ
╛HH│ Д(м Я)C
╚А C5│1 е  Д(10)л2C
╥╔"A"C/
▄D(G)│ Д(6):DD│D(G):Бж1800C6
ц:ГC?
ЁЛ C5CU
·а Gн10л20,2:L│Lл6CpG│Gл1:ЕG│6 з910 :Д2740CВ:ГEND OF GAMECЙЮ0CШ"А X│0 е 15C▓,Т1024лX,42:Т1055мX,42C╠6Т1504лX,42:Т1535мX,42CЁ@Т1024л(Xн32),42:Т1504м(Xн32),42DJТ1055л(Xн32),42:Т1535м(Xн32),42DTЛXDM^PP$│"SUPERDICE FINAL STANDINGS:":WW│67:Бж3310DVhZA│1DerА C5│1 е QDЮ|Е З(P$(C5))▓7 з X$(C5)│ О(P$(C5),7) :Д X$(C5)│P$(C5)D╒ЖZ4│S(C5,1)лS(C5,2)лS(C5,3)лS(C5,4)лS(C5,5)лS(C5,6)EРZ5│U(C5,1)лU(C5,2)лU(C5,3)лU(C5,4)лU(C5,5)лU(C5,6)лU(C5,7)E%ЪFS(C5)│Z4лZ5EYдЕ Z4▓59 з FS(C5)│FS(C5)л35:BN(C5)│1 :Д BN(C5)│0EbоЛ C5Er╕Е Q│1 з3070EГ┬А C5│1 е Qм1Eа╠Е FS(C5)▓│FS(C5л1) з3060Eу╓KO│BN(C5):GG$│X$(C5):OE│FS(C5):X$(C5)│X$(C5л1):FS(C5)│FS(C5л1)FрX$(C5л1)│GG$:FS(C5л1)│OE:BN(C5)│BN(C5л1):BN(C5л1)│KOF'ъБе3010F0ЇЛ C5FT■А LK│129 е 129л(32н(Qм1)н2) й64FЙPP$│ б(8м З(X$(ZA)),128)лX$(ZA)л":":WW│LK:Бж3310F╛Е BN(ZA)│1 з PP$│ И(FS(ZA)м35) :Д PP$│ И(FS(ZA))FуЕ BN(ZA)│0 зPP$│PP$л" -NO BONUS"G&Е BN(ZA)│1зPP$│PP$л" +++ BONUS"G0Бж3310G:WW│LKл24G=DPP$│"="л И(FS(ZA)):Бж3310GINZA│ZAл1GRXЛ LKGДbWW│452:PP$│"PRESS (ENTER) TO CONTINUE":Бж3310GФl:ГPLAY SONGGнvН A8,A9:Е A8│0 з3550G╣Аа A8,A9G╨КЕ Ж(338)│191 з3230G█ФБе3190GьЮ:ГPLAY AGAINHиА LP│33 е 449 й32:З@LP, б(30,128);:ЛLPHH▓WW│132:PP$│"PLAY ANOTHER GAME? (Y/N)":Бж3310HZ╝в44539:MB$│ ТHy╞ЕMB$┤▓"Y" ░ MB$┤▓"N"з 3260HМ╨ЕMB$│"N" з Ю:КHТ┌ОHЭфБе3300H▒ю:ГINVERSE PRINTH┼°А O│1 е  З(PP$)H▄
A7│ К( Р(PP$,O,1))I
Е A7▓64 ░ A7┤91 зЗ@WW, Л(A7л32);:Бе3370I*
Е A7│32 зЗ@WW, Л(128);:Бе3370I:
 Т1024лWW,A7IJ
*WW│WWл1:Л OIP
4РIy
>Ж 176,2,159,2,133,2,133,2,89,2,133,2Iг
HЖ 133,2,159,2,133,2,159,2,176,2,165,2I╥
RЖ 159,2,165,2,147,2,147,2,89,2,147,2,147,2I№
\Ж 165,2,147,2,165,2,185,2,176,2,165,2J+
fЖ 159,2,133,2,133,2,89,2,133,2,133,2,159,2Ja
pЖ 133,2,159,2,176,2,165,2,159,2,165,2,159,2,165,2JС
zЖ 147,2,176,2,165,2,159,2,133,2,133,2,133,3J╡
ДЖ 133,1,147,1,159,2,133,2,133,2J╠
ОЖ 89,2,133,2,133,2JЎ
ШЖ 159,2,133,2,159,2,159,2,147,2,133,2K
вЖ 147,2,125,2,125,2,89,2K=
мЖ 125,2,125,2,147,2,125,2,147,2,147,2Kr
╢Ж 133,2,125,2,108,2,133,2,133,2,89,2,133,2,133,2KЪ
└Ж 69,2,133,2,133,2,58,2,133,2,133,2K╩
╩Ж 165,2,159,2,165,2,147,2,176,2,165,2,159,2Kц
╘Ж 133,2,133,2,133,4,0,0Kў
▐А LP│1 е 400L
шЕ Ж(338)│191 з3230L
ЄЛLPL#
№П:Бе3180L?А J2│1 е 5:RR(J2)│0:ЛJ2L]CU(1)│143л64:CU(2)│143л48LoJ9│384:DC$│""L~$А Z1│1 е 2LУ.З@J9, Л(CU(Z1));Lг8А Z2│1 е 20L╛BJ8$│ Т:Е J8$┤▓"" з3680L╩LЛ Z2,Z1L╒VБе3620LЇ`Е J8$│ Л(8) ░ J9│384 з3650MjЕJ8$│"N"зRL│RLм1:Бе1250M@tЕ J8$│ Л(8) зЗ@J9,Y$;:DC$│ О(DC$, З(DC$)м1)Mz~Е J8$│ Л(8) з J9│J9м1:Е J9┤384 з J9│384:Бе3630 :Д3630MСИЕ J8$│ Л(13) з3770M╕ТЕ J8$▓│"1" ░ J8$┤│"5" з3740 :Д3650M╨ЬDC$│DC$лJ8$:J9│J9л1M√жЕ J9▓389 з DC$│ О(DC$,5):J9│389:Бе3630N░Т1024лJ9м1, К(J8$):Бе3630N.║А J2│1 е  З(DC$)N=─А J3│1 е 5Nb╬Е  Й( Р(DC$,J2,1))│J3 з RR(J3)│1Nk╪Л J3NtтЛ J2NzьРNКЎ:ГALL DONE?NЩА F1│1 е QNи
А F3│1 е 6N└Е S(F1,F3)│0 з 3920N╔Л F3N╪(А F3│1 е 7NЁ2Е U(F1,F3)│0 з 3920N∙<Л F3OFDV(F1)│1OPЛ F1OZА F4│1 е QO;dЕ DV(F4)│1 з 3950 :Д3970ODnЛ F4OMxPU│1OSВР3 з RR(J3)│1Nk╪Л J3NtтЛ J2NzьРNКЎ:ГALL DONE?NЩА F1│1 е QNи
А F3│1 е 6N└Е S(F1,F3)│0 з 3920N╔Л F3N╪(А F3│1 е 7NЁ2Е U(F1,F3)│0 з 3920N∙<Л F3OFD