MY PROGRAMS MBOS_v2.75.4 PROGRAM MBOS is an opperating system for the wizard. It has functions like a memo program, telephon program and a bookmark program. Please send any coments to mat-brown@lineone.net BIN_PROG_1 PFILE:B55RR8NU.BAS  D M  T : U+15 !"E:SUS1"Was#1:"#1 Q80,2:`"The time is ";;" " Q72,4:`"The date is ";;" " K$=(1):+*MAINMENU  U+18 !"E:SUS2"Was#1:"#1 +*MAINMENU U+jF26990 !"E:SUS3"Was#1:"#1 P h(9,0) 93"0000000000000000000000000000007878787D7D757575777772"  h(17,0) 93"000000000000000000000000000000F1F1F1F1F1717171717171"  h(25,0) 93"000000000000000000000000000000FEFFC7C7FEFEC7C7C7FFFE"  h(33,0) 93"000000000000000000000000000000070F0E1C1C1C1C1C0E0F03"  h(41,0) 83"000000000000000000000000000000C0F070383838383870F0C" ! h(49,0) "93"0000000000000000000000000000003EFFE7E0FC7E1FE7E77E3C" ' h(73,0) (e3"000000000000000000000000000000000000000000000000000101020202020404040404040404040404020202020101" ) h(81,0) *{3"0000000000000000000000000000010204081020204040808000000000000000000000000000000000000000000000008080404020201008040201" + h(89,0) ,3"000000000000000000030C1060800000000000000103070707030100000000000000000000000000404040202010080804030000000000000000008060100C03" - h(97,0) .3"000000000000011EE00000000000000000000000C0E0F0F0F0E0C000000000000000000000000000000000000000000000008060180700000000000000000000E01E01" / h(105,0) 03"000000000000FF00000000000000000000000000000000000000000000000000070F1F1F1F0F07000000000000000000000000000000FF0000000000000000000000FF" 1 h(113,0) 23"000000000000E01E0100000000000000000000000103070707030100000000000080C0C0C08000000000000000000000000000010638C0000000000000000000011EE" 3 h(121,0) 43"0000000000000000C0300C020100000000000000C0E0F0F0F0E0C000000000000000000000000000000000010102040408304080000000000000000001020C30C" 5 h(129,0) 6~3"0000000000000000000000008040201008040201010000000000000000000000000000000000000080808000000000000000000001010204081020408" 7 h(137,0) 8l3"0000000000000000000000000000000000000000008080404020201010101008080808080808080808081010101020204040808" Q*10:`" ":+*MAINMENU XX=190 YY=0 Z*ARROW:i(X,Y)-(X+15,Y) [i(X,Y+15)-(X,Y) \i(X,Y+15)-(X+15,Y) ]i(X+5,Y+10)-(X+20,Y+25) ^i(X+20,Y+25)-(X+25,Y+20) _i(X+25,Y+20)-(X+10,Y+5) `Y=Y+3 aVY>27T+*SPIC bP:+*ARROW c*SPIC eh(1,0) f]3"0000000000000000001F0000000000000000000000000000000000000000000000000000000000000000000F" gh(9,0) h]3"000000000000000000FFFF7F3F3F3F3F3F3F37373333333131303030303030303030303030303030303078FF" i h(17,0) j]3"000000000000000000FCFCFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F7F3F3F1F1F1F0F0F070703030301C1" k h(25,0) l\3"00000000000000000000000000000000808080C0C0E0E0E0F1F1F9FBFBFFFFFEFEFEFCFCFCF8F8F0F0F0E0E" m h(33,0) n3"000000000000000000070F0F0F1F1F1F3F37377767E7C7C7C787878707070707070707070707070707070FFF00000000000000000000000F0F0E0E0F0F0E0E0E0E0E" o h(41,0) p3"000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000E0E00000C1C303030301" q h(49,0) r3"000000000000000000FEC080808080808080808080808080808080808080808080808080808080808080C0FC0000000000000000000000000000F0F89C9C9C9CF8F" s h(57,0) t3"0000000000000000003F0301010101010101010101010101010101010101010101010101010101010101033F0000000000000000000000000000ECF8E0E0E0E0E0E" u h(65,0) v3"000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000020E0E1F1F0E0E0E0E0F07" w h(73,0) x3"000000000000000000FFE0E0E0E0E0E0E0E0E0E0E0E0E0E0E0FFE0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0FF00000000000000000000001C1C1C9D9F1C1C1C1C9C9C" y h(81,0) z3"000000000000000000FCFF7F3F3F1F1F1F1F1F1F1F1F3F3F7CF07F3F1F1F0F0F0F0F0F0F0F0F0F0F1F1F3FFE0000000000000000000000000000C1E3E7E7E7E7E3E1" { h(89,0) |3"00000000000000000000C0F0F8FCFCFCFEFEFEFCFCFCF0E00000E0F8FEFEFFFFFFFFFFFFFFFFFFFEFEF8F0000000000000000000000000000000E0F038F8F800F8F" } h(97,0) ~3"000000000000000000000000000000000000000001010101030303030301010101808080000000000000000000000000000000000000000F0F0E0E0F0F0E0E0E0E0E"  h(105,0) 3"000000000000000000000001030F1F3F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F3F3F1F0F030100000000000000000000000000E0E00003C3C30303030301" h(113,0) 3"000000000000000000033EF8F8F0F0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0F0F0F0F8F83C0300000000000000000000000000009D9D9C9C9C9CFCDC" h(121,0) 3"000000000000000000F01F070703030301010101010101010101010101010101010101010103030307071FF0000000000000000000000020E0E0F9F9E1E1E1E1F978" h(129,0) 3"0000000000000000000080E0F8FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFCF8E080000000000000000000000000000000CECECECECECEFEEE" h(137,0) 3"0000000000000000000000000000008080C0E0E0F0F0F0F0F8F8F8F8F8F0F0F0F0E0E0C080000000000000000000000000000000000000000000767C70707070707" h(145,0) 3"00000000000000000000000103070F1F1F1F3F3F3F3F1F1F1F0F0733313038383C3C3E3E3F3F3F383030303000000000000000000000000000003C7EE7FFFFE07F3E" h(153,0) [3"0000000000000000000770C0C0C0C0C0E0F8FEFFFFFFFFFFFFFFFFFFFF7F0F0300000000000080C0601806" h(161,0) ]3"000000000000000000C01C070100000000000080F0FEFFFFFFFFFFFFFFFFFFFF7F1F0301000000000001037C" h(169,0) Z3"0000000000000000000C0C8CFCFC7C3C3C1C1C0C0C0080E0F0F8FCFEFFFFFFFFFFFFFFFFFFFFFEFCF8F0C" h(177,0) J3"000000000000000000000000000000000000000000000000000000000000008080808" *10:` *MAINMENU:SD=0 U+,205 !"E:SOUND1"Was#1:"#1 SD=1 MM=0 *START:P:*0 %i(0,10)-(238,10):i(108,0)-(108,10) )Q110,0:`"Time - ";;" Date - ";;" " i(0,60)-(238,60) i(47,10)-(47,50) i(94,10)-(94,50) i(141,10)-(141,50) i(188,10)-(188,50) i(0,50)-(238,50) Q0,6:`"Help" i(20,60)-(20,69) i(55,60)-(55,69) i(112,60)-(112,69) Q23,6:`"Credits" Q57,6:`"Contact Info" BQ114,6:`"System Info":Q168,6:`"Quit MBOS":i(166,60)-(166,69) Q10,2:`"Memo" Q50,2:`"Telephone" Q100,2:`"Sketch" Q143,2:`"Calculator" Q195,2:`"Bookmark" Q41,1:`"1" Q88,1:`"2" Q135,1:`"3" Q182,1:`"4" Q232,1:`"5" Q5,5:`"6" Q148,5:`"User Settings" Q37,5:`"Games" %VMM=0TQ0,0:`"Enter Memo Program" *VMM=1TQ0,0:`"Enter Telephone Program" &VMM=2TQ0,0:`"Enter Sketch Progam" +VMM=3TQ0,0:`"Enter Calculator Program" )VMM=4TQ0,0:`"Enter Bookmark Program" &VMM=5TQ0,0:`"Enter Games Section" !VMM=7TQ0,0:`"View Help File" 'VMM=6TQ0,0:`"Change User Settings" VMM=8TQ0,0:`"View Credits" $VMM=10TQ0,0:`"View System Info" *VMM=9TQ0,0:`"View Contact Infomation" VMM=11TQ0,0:`"Quit MBOS" i(119,50)-(119,60) Q122,5:`"7" VMM=0Ti(0,10)-(47,50),X,BF VMM=1Ti(47,10)-(94,50),X,BF  VMM=2Ti(94,10)-(141,50),X,BF !VMM=3Ti(141,10)-(188,50),X,BF !VMM=4Ti(188,10)-(238,50),X,BF VMM=5Ti(0,50)-(119,60),X,BF !VMM=6Ti(119,50)-(238,60),X,BF VMM=8Ti(20,60)-(55,69),X,BF  VMM=9Ti(55,60)-(112,69),X,BF "VMM=10Ti(112,60)-(166,69),X,BF "VMM=11Ti(166,60)-(238,69),X,BF VMM=7Ti(0,60)-(20,69),X,BF , A$=(1) -V(A$)=14TMM=MM+1 .V(A$)=15TMM=MM-1 /V(A$)=27Tb*QUIT:Y 3V(A$)=10MM=0T+(*MEMO 4V(A$)=10MM=1T+3 *SCHED 5 V(A$)=10MM=2T+Hr*SKETCH 6V(A$)=10MM=3T+L*CALC 7!V(A$)=10MM=4T+>w*WEBSITE 8$V(A$)=10MM=5T+U*OTHERPROGS 9V(A$)=10MM=8T+R*CRED :%V(A$)=10MM=9T+f*CONTACTINFO ;%V(A$)=10MM=10T+L1*SYSTEMINFO <"V(A$)=10MM=11Tb*QUIT:Y =V(A$)=10MM=6T+_*US >V(A$)=10MM=7T+*HELP DV(A$)=52T+L*CALC EV(A$)=54T+U*OTHERPROGS FV(A$)=55T+_*US GV(A$)=53T+>w*WEBSITE HV(A$)=51T+Hr*SKETCH IV(A$)=48T+L1*SYSTEMINFO JV(A$)=49T+(*MEMO KV(A$)=50T+3 *SCHED ^"VMM=11(A$)=10Tb*QUIT:Y _VMM>11TMM=0 `VMM<0TMM=11 a VSD=1T)  +4*START  *QUIT:*0 0Q41,3:`"Are you sure you want to quit? (y/n)" i(40,31)-(192,31) i(192,31)-(192,40) i(40,40)-(192,40) i(40,40)-(40,31)  QUIT$=(1) V(QUIT$)=89TZ e  *HELP:HM=1 *HELP2:P:*0 +Q98,0:`"Help Menu":i(0,0)-(238,10),X,BF ``"General Overview"  `"Controls" `"Known Bugs"  `"Q and A"  `"Back" VHM=1Ti(0,20)-(150,30),X,BF VHM=2Ti(0,30)-(150,40),X,BF VHM=3Ti(0,40)-(150,50),X,BF VHM=4Ti(0,50)-(150,60),X,BF VHM=5Ti(0,60)-(150,69),X,BF  VSD=1T)  HELP$=(1)  V(HELP$)=5THM=HM+1  V(HELP$)=4THM=HM-1  ,V(HELP$)=10HM=1T+"n*GENERALOVERVIEW %V(HELP$)=10HM=2T+#O*CONTROLS "V(HELP$)=10HM=3T+$D*KBUGS "V(HELP$)=10HM=4T+&*QANDA "V(HELP$)=10HM=5T+4*START V(HELP$)=27T+4*START  VHM>5THM=1  VHM<1THM=5 P:*0  +*HELP2 &*GENERALOVERVIEW:*0:P '*:`"MBOS is a powerful Operating System for the ZQ/OZ Series of Sharp Organizers. I have a ZQ-770 and I have not tested MBOS on any other type or ogranizer, but it should work." * +*HELP2 0*CONTROLS:P:*0 1)`"KEY - FUNCTION":i(0,10)-(238,10) 20`"ARROW KEYS - Selects different programs" 3(`"ENTER - Enters selected Program" 4`"EXIT - Quits MBOS" 5(*:`"1...7 - Quick program Select" 6 +*HELP2 7*KBUGS:P:*0 8`*:`"In MBOS, there are some known bugs, but they won't damage your organizer. Here they are:" 9EP:`"1. You can open memos in the telephone program and vice versa" :P:`"2. If in the memo program or the telephone program, you type more than one line can hold 2 times in one entry, then you will not be able to view all of that entry" ;P:`"3. If in the memo program or the telephone program, you create and then delete a file, you can delete it as many times as you want without the program picking up that it is not there. However, you can't open it again once it has been deleated" > +*HELP2 ?*QANDA:P:*0 @4*:`"Here are some common Questions and Answears:" AP:`"Is it possible for me to join the MBOS team? No. I allready have a great team. If you have written a SMALL program that you think should be put on MBOS, then e-mail it to me and i will add it on, and you will get full credit." BSP:`"Is it possible to add programs to MBOS without changing the source code? No" D=P:`"Is it possible to obtain the source code for MBOS? No" W +*HELP2 X*MEMO Y U+)610 Z P:MMM=1 \*0 ^=0MKEUZE$(1)*1,DATA$(1)*7,NAME$(1)*7,LINE$(5)*255,KILL$(1)*7 `*MAINM:*0:U+)610 bP:U+)610:' dQ108,0:`"Memo" fi(0,0)-(238,10),X,BF j` k`" New Memo":' l`" Open Memo" m`" Delete Memo" n `" Help" o `" Exit" p VMMM=1Ti(0,20)-(150,30),X,BF q VMMM=2Ti(0,30)-(150,40),X,BF r VMMM=3Ti(0,40)-(150,50),X,BF t VMMM=4Ti(0,50)-(150,60),X,BF u VMMM=5Ti(0,60)-(150,69),X,BF v Q$=(1) wV(Q$)=5TMMM=MMM+1 xV(Q$)=4TMMM=MMM-1 y"V(Q$)=10MMM=1T++*NEWFILE z V(Q$)=10MMM=2T+.`*OFILE {"V(Q$)=10MMM=3T+0*DELFILE |V(Q$)=10MMM=4T+1W*HLP }#V(Q$)=10MMM=5T+*MAINMENU ~V(Q$)=27T+*MAINMENU VMMM>5TMMM=1 VMMM<1TMMM=5  +(*MAINM  *NEWFILE:P 4`"File names cannot be longer than 7 characters":' (`"What do you want to call your memo?" a"Name: ";DATA$ P `"Type your memo:":' :`"There are only 5 lines. Press [ENTER] after each line"  aLINE$(1)  aLINE$(2)  aLINE$(3)  aLINE$(4)  aLINE$(5) *VI:P  `LINE$(1)  `LINE$(2)  `LINE$(3)  `LINE$(4)  `LINE$(5) `"Is this allright? (y/n)"  COR$=(1) V(COR$)=89T-*CORR #V(COR$)=78T+*NEWFILEv,*VI  *CORR:P !"E:"+DATA$Wqs#1:' `#1,LINE$(1) `#1,LINE$(2) `#1,LINE$(3) `#1,LINE$(4) `#1,LINE$(5) *0 *0 `"Closing file..." "#1 *0  `"Done!" *0 +(*MAINM:'  *OFILE:P 4`"File names cannot be longer than 7 characters":' $`"Which file do you want to open?" a"Open: ";NAME$ P `"Opening file..." !"E:"+NAME$Was#1 2a#1,LINE$(1),LINE$(2),LINE$(3),LINE$(4),LINE$(5) *0 ` *0  `"Done!" *0 P Q98,0:`NAME$ i(0,0)-(238,10),X,BF  `LINE$(1)  `LINE$(2)  `LINE$(3)  `LINE$(4) *  `LINE$(5) *0 "#1 P +(*MAINM:'  *DELFILE:P 1`"File names must be shorter then 7 characters" &`"Which file do you want to delete?" a"Delete: ";KILL$ P `"Locating file..." !"E:"+KILL$Wqs#1 ` *0  `"Done!" *0 "#1 ` `"Deleting..."  <"E:"+KILL$ ` *0  `"Deleted!" *0 P  +(*MAINM *HLP:P Q98,0:`"Help Menu":' i(0,0)-(238,10),X,BF ` }`"To use the memo program, just follow the on screen instructions. To make viewing the files easier, use simple file names" 4`"Don't type in more that what the line can hold."  *  `  +(*MAINM:'  *SORRY:P ` ` * `"Sorry, not yet available" +(*MAINM:'  #P:`"The file could not be found" !*:` " +(*MAINM # +4*START R*SCHED S U+3860 T P:MMM=1 V*0 X=0MKEUZE$(1)*1,DATA$(1)*7,NAME$(1)*7,LINE$(5)*255,KILL$(1)*7 Z*MAINM2:*0:U+3860 \P:U+3860:' ^Q100,0:`"Telephone" `i(0,0)-(238,10),X,BF d` e`" New Entry":' f`" Look Up Entry" g`" Delete Entry" h `" Help" i `" Exit" j VMMM=1Ti(0,20)-(150,30),X,BF k VMMM=2Ti(0,30)-(150,40),X,BF l VMMM=3Ti(0,40)-(150,50),X,BF n VMMM=4Ti(0,50)-(150,60),X,BF o VMMM=5Ti(0,60)-(150,69),X,BF p Q$=(1) qV(Q$)=5TMMM=MMM+1 rV(Q$)=4TMMM=MMM-1 s#V(Q$)=10MMM=1T+63*NEWFILE2 t!V(Q$)=10MMM=2T+9;*OFILE2 u#V(Q$)=10MMM=3T+:*DELFILE2 vV(Q$)=10MMM=4T+<,*HLP2 w#V(Q$)=10MMM=5T+*MAINMENU xV(Q$)=27T+*MAINMENU zVMMM>5TMMM=1 |VMMM<1TMMM=5 ~ +3y*MAINM2  *NEWFILE2:P /`"Names cannot be longer than 7 characters":' '`"What is the surname of the person?" a"Surname: ";DATA$ P /`"Fill in the infomation below: DONT USE ','" `"First Names: ":aLINE$(1) #`"Home Phone Number: ":aLINE$(2) `"Mobile Number: ":aLINE$(3) '`"Address (Max 2 lines): ":aLINE$(4)  `"e-mail Address: ":aLINE$(5) *VI2:P  `LINE$(1)  `LINE$(2)  `LINE$(3)  `LINE$(4)  `LINE$(5) `"Is this allright? (y/n)"  COR$=(1) V(COR$)=89T8e*CORR2 %V(COR$)=78T63*NEWFILE2v7*VI2  *CORR2:P !"E:"+DATA$Wqs#1:' `#1,LINE$(1) `#1,LINE$(2) `#1,LINE$(3) `#1,LINE$(4) `#1,LINE$(5) *0 *0 `"Closing file..." "#1 *0  `"Done!" *0 +3y*MAINM2:'  *OFILE2:P /`"Names cannot be longer than 7 characters":' $`"Which file do you want to open?" a"Open: ";NAME$ P `"Opening file..." !"E:"+NAME$Was#1 2a#1,LINE$(1),LINE$(2),LINE$(3),LINE$(4),LINE$(5) *0 ` *0  `"Done!" *0 P Q98,0:`NAME$ i(0,0)-(238,10),X,BF  `LINE$(1)  `LINE$(2)  `LINE$(3)  `LINE$(4) *  `LINE$(5) *0 "#1 P +3y*MAINM2:'  *DELFILE2:P ,`"Names must be shorter then 7 characters" &`"Which file do you want to delete?" a"Delete: ";KILL$ P `"Locating file..." !"E:"+KILL$Wqs#1 ` *0  `"Done!" *0 "#1 ` `"Deleting..."  <"E:"+KILL$ ` *0  `"Deleted!" *0 P  +3y*MAINM2  *HLP2:P Q98,0:`"Help Menu":' i(0,0)-(238,10),X,BF ` `"To use the telephone program, just follow the on screen instructions. To make viewing the files easier, remember who you have stored in your phone directory" `"Don't type in more that what the line can hold, except on the address field, where a maximum of 2 lines can be used. NEVER TYPE COMMERS (,) OR THE PROGRAM WILL CRASH" * ` +3y*MAINM2:'  *SORRY2:P ` ` * `"Sorry, not yet available" +3y*MAINM2:' #P:`"The file could not be found" *:`  +3y*MAINM2 Z  *WEBSITE U+>1058  P:MMM=1 *0  @0MKEUZE$(1)*1,DATA$(1)*20,NAME$(1)*20,LINE$(5)*255,KILL$(1)*20 "*MAINM3:*0:U+)610 $P:U+>1058:' &Q100,0:`"Bookmarks" (i(0,0)-(238,10),X,BF ,` -`" New Bookmark":' .`" Open Bookmark" /`" Delete Bookmark" 0 `" Help" 1 `" Exit" 2 VMMM=1Ti(0,20)-(150,30),X,BF 3 VMMM=2Ti(0,30)-(150,40),X,BF4 VMMM=3Ti(0,40)-(150,50),X,BF 6 VMMM=4Ti(0,50)-(150,60),X,BF 7 VMMM=5Ti(0,60)-(150,69),X,BF 8 Q$=(1) 9V(Q$)=5TMMM=MMM+1 :V(Q$)=4TMMM=MMM-1 ;#V(Q$)=10MMM=1T+A*NEWFILE3 V(Q$)=10MMM=4T+F*HLP3 ?#V(Q$)=10MMM=5T+*MAINMENU @V(Q$)=27T+*MAINMENU BVMMM>5TMMM=1 DVMMM<1TMMM=5 F +>*MAINM3 H *NEWFILE3:P J4`"File names cannot be longer than 7 characters":' ,`"What do you want to call your bookmark?" a"Name: ";DATA$ P `"Long Name: ":aLINE$(1) `"Web Address: ":aLINE$(2) `"Description: ":aLINE$(3) *VI3:P  `LINE$(1)  `LINE$(2)  `LINE$(3) `"Is this allright? (y/n)"  COR$=(1) V(COR$)=89TCF*CORR3 %V(COR$)=78TA*NEWFILE3vB*VI3  *CORR3:P !"E:"+DATA$Wqs#1:' `#1,LINE$(1) `#1,LINE$(2) `#1,LINE$(3) *0 *0 `"Closing file..." "#1 *0  `"Done!" *0 +>*MAINM3:'  *OFILE3:P  4`"File names cannot be longer than 7 characters":'  $`"Which file do you want to open?"  a"Open: ";NAME$  P `"Opening file..." !"E:"+NAME$Was#1  a#1,LINE$(1),LINE$(2),LINE$(3) *0 ` *0  `"Done!" *0 P Q98,0:`NAME$ i(0,0)-(238,10),X,BF  `LINE$(1)  `LINE$(2) *  `LINE$(3)  *0 ""#1 $P &+>*MAINM3:' ( *DELFILE3:P *1`"File names must be shorter then 7 characters" ,&`"Which file do you want to delete?" .a"Delete: ";KILL$ P `"Locating file..." !"E:"+KILL$Wqs#1 ` *0 `"Done!" *0 "#1 ` `"Deleting..." <"E:"+KILL$ ` *0 `"Deleted!" *0 P +>*MAINM3 *HLP3:P Q98,0:`"Help Menu":' i(0,0)-(238,10),X,BF ` ہ`"To use the bookmark program, just follow the on screen instructions. To make viewing the files easier, use simple file names" ,`"Don't use ',' or the program will crash" * ` +>*MAINM3:' *SORRY:P ` ` * `"Sorry, not yet available" +>*MAINM3:' #P:`"The file could not be found" *:` +>*MAINM3 X' #(*SKETCH:P:*0:VSD=1T) #*X=119 #,Y=30 #.)Q104,0:`"Sketch":i(0,0)-(238,10),X,BF #/` #0 `"h - Help" #1`"ENTER - Start using Sketch" #2`"[ESC] - Quit to MBOS" #3 SKE$=(1) #4V(SKE$)=10T+JS*SKETCH2 #5V(SKE$)=27T+4*START #7*:P:`"To use the sketch program, use the arrow keys to move about. To clear the screen press [SPACE]. If you press [z], then you can input the coordinates that you want the pen to be at. To exit, press [ESC]" #8 +Hr*SKETCH #L9*SKETCH2:P:*0:Q104,0:`"Sketch":i(0,0)-(238,10),X,BF #Mi(X,Y)-(X+1,Y):' #Ni(X,Y+1)-(X+1,Y+1) #O *SKETCH3 #P K$=(1) #RV(K$)=4TY=Y-2 #TV(K$)=5TY=Y+2 #VV(K$)=15TX=X-2 #XV(K$)=14TX=X+2 #ZV(K$)=32T+JS*SKETCH2 #\V(K$)=27T+4*START #^V(K$)=90T+K*CHOICE #_ VY>68TY=68 #` VY<11TY=11 #aVX>237TX=237 #b VX<1TX=0 #c +J9037 #d*CHOICE #fQ0,1:a"X-";A #hX=A #jQ0,1:a"Y-";B #lY=B #n$Q0,1:`" ":+J9037 &*SYSTEMINFO:VSD=1T):P:*0 &P:*0:`"The time is ";;" " &`"The date is ";;" " &ME$=:A=&H0047,&HBFFA &5*:`"There are ";ME$;" sectors of free memory left" & +4*START '*CALC:*0:P:VSD=1T) 'Q96,0:`"Calculator" 'i(0,0)-(238,10),X,BF '#Q0,2:`"Calculator Help Menu - h" 'Q0,3:`"Quit to MBOS - q" '&Q0,4:`"Use Calculator - u or ENTER" 'CALCMM$=(1) 'V(CALCMM$)=81T+4*START '!V(CALCMM$)=72T+Q,*CALCHELP ' V(CALCMM$)=85T+NY*USECALC ' V(CALCMM$)=10T+NY*USECALC ' +4*START ''*USECALC:i(0,50)-(238,50) '(Q2,5:a"#1: ";A '* +N*ANUM '++*ANUM:i(0,50)-(238,50),B:Q2,5:a"#2: ";B '- +PU*ANSWER '. *ANSWER1 '/0A=A+B:i(0,50)-(238,50),B:`"The answer is: ";A '0*:Q150,5:`:+L*CALC '1 *ANSWER2 '26A=A-B:i(0,50)-(238,50),B:Q0,6:`"The answer is: ";A '3*:Q150,5:`:+L*CALC '4 *ANSWER3 '56A=A*B:i(0,50)-(238,50),B:Q0,6:`"The answer is: ";A '6*:Q150,5:`:+L*CALC '7 *ANSWER4 '86A=A/B:i(0,50)-(238,50),B:Q0,6:`"The answer is: ";A '9*:Q150,5:`:+L*CALC ':D*ANSWER:Q2,5:`"[d]ivide/[m]ultiply/[a]dd/[s]ubtract the numbers?" ';*CALCI:ABC$=(1) '<VABC$="D"TO*ANSWER4 '=VABC$="M"TO*ANSWER3 '>VABC$="A"TN*ANSWER1 '?VABC$="S"TO2*ANSWER2 '@ +P*CALCI 'B*CALCHELP:P:*0 'D`"To use MBOS' calculator, you must type in the first number in your calculation. Then press enter. Then you must type in your second number. Then choose the sign that you want to use. To quit the calculator, just type 'q' in the number box" 'EX*:`"eg. to calculate '5 + 3', you must type in '5' then '3' and then 'a' to add them" 'F +L*CALC '' _*CRED:VSD=1T):P:*0:PER=1 _1S$="Project Leader -":F$=" Matthew Brown":G$=" " _*CRED2:P:*3 _/*0:P:Q0,0:`S$:Q70,0:`F$:Q150,0:*3:`G$ _*3 _/*0:P:Q0,1:`S$:Q70,1:`F$:Q150,1:*3:`G$ _*3 _/*0:P:Q0,2:`S$:Q70,2:`F$:Q150,2:*3:`G$ _*3 _/*0:P:Q0,3:`S$:Q70,3:`F$:Q150,3:*3:`G$ _*3 _/*0:P:Q0,4:`S$:Q70,4:`F$:Q150,4:*3:`G$ _*3 _/*0:P:Q0,5:`S$:Q70,5:`F$:Q150,5:*3:`G$ _*3 _/*0:P:Q0,6:`S$:Q70,6:`F$:Q150,6:*3:`G$ _ PER=PER+1 _/VPER=2TS$="Programmer -":F$=" Matthew Brown" _,VPER=3TS$="Programmer -":F$=" Tom Grasso" _)VPER=4TS$="Tester -":F$=" Robin Davis" _%VPER=5TS$="Tester -":F$=" Allen H" _GVPER=6TS$="Task Scanner -":F$=" Andrew Lohse ":G$="Valkryie Systems" _3VPER=7TS$="Thanks To -":F$=" Tom Shearn ":G$=" " _VPER>7T+4*START _ +R*CRED2 a*OTHERPROGS:VSD=1T):P:*0 aOPMM=1 a*OPMM2:P:*0 aQ92,0:`"Games" ai(0,0)-(238,10),X,BF aQ0,2:`"Tower of Terror" a.Q0,3:`"Number Guess":Q0,4:`"Back to MBOS" a!VOPMM=1Ti(0,20)-(150,30),X,BF a!VOPMM=2Ti(0,30)-(150,40),X,BF a!VOPMM=3Ti(0,40)-(150,50),X,BF a OP$=(1) aV(OP$)=5TOPMM=OPMM+1 aV(OP$)=4TOPMM=OPMM-1 bV(OP$)=27T+4*START b VOPMM=1(OP$)=10T+Z4*OFT b%VOPMM=2(OP$)=10T+X5*NUMGUESS b "VOPMM=3(OP$)=10T+4*START b VOPMM>3TOPMM=1 b VOPMM<1TOPMM=3 b VSD=1T) b +V&*OPMM2 bp*NUMGUESS:P:*0 brGUESS=0 bt%:COMPNUM=1000 bv*NUMGUESS2:P:*0 bxQ89,0:`"Number Guess" byi(0,0)-(238,10),X,BF bz` b{)`"The computer is thinking of a number" b|2`"Try to guess it! (0 - 1000), 0 - Quit to MBOS" b~a":";C bVC=0T+V&*OPMM2 b+VC>COMPNUMT*:`"Your guess was too big" b-VC59TMIN=0:HOURS=HOURS+1 b[VHOURS>11TP:*:`"It is Midnight! You are too late, and you have gone MAD!":+V&*OPMM2 bXVHB>150TP:*:`"Your heartbeat has got too high, and you have gone MAD!":+V&*OPMM2 bVRM>10TRM=1:FL=FL+1 b^VRM=10FL=6TP:*:`"You have reached the top of the tower without going mad!":+V&*OPMM2 bVRM<1TRM=10:FL=FL-1 bVFL=1RM<1TRM=1 bQ85,0:`"Tower of Terror" bi(0,0)-(238,10),X,BF b` b#`"The time is ";HOURS;":";MIN;" " b0`"You are in room ";RM;"/10 on floor ";FL;"/6" b`"Your heartbeat is ";HB;" " b/`"[A]dvance or [R]etreat? (q - Quit to MBOS)" b TO$=(1) bV(TO$)=65T+]*ADVANCE b5V(TO$)=82TRM=RM-1:HB=HB-1:MIN=MIN+TIME:+Z*TT2 bV(TO$)=81T+V&*OPMM2 b *ADVANCE b%:MONSTER=17 b %:TIME=5 bMVMONSTER=1T*:`"There is a Ghost!":RM=RM+1:HB=HB+9:MIN=MIN+TIME:+Z*TT2 b[VMONSTER=2T*:`"There is a Headless Hourseman!":RM=RM+1:HB=HB+10:MIN=MIN+TIME:+Z*TT2 bNVMONSTER=3T*:`"There is a Goblin!":HB=HB+5:RM=RM+1:MIN=MIN+TIME:+Z*TT2 bQVMONSTER=4T*:`"There is a Skeliton!":HB=HB+15:RM=RM+1:MIN=MIN+TIME:+Z*TT2 bOVMONSTER=5T*:`"There is a Spirit!":HB=HB+12:RM=RM+1:MIN=MIN+TIME:+Z*TT2 b4VMONSTER>5THB=HB-1:RM=RM+1:MIN=MIN+TIME:+Z*TT2 c*US cP:*0 cUSM=1 c%*US2:*0:P:Q90,0:`"User Settings" ci(0,0)-(238,10),X,BFc!Q0,2:`"Change Startup Picture" c7Q0,3:`"Reset to Defaults (Do this before changeing)" cQ0,5:`"Back" cQ0,4:`"Sound on/off" c VUSM=1Ti(0,20)-(200,30),X,BF c VUSM=2Ti(0,30)-(200,40),X,BF c VUSM=3Ti(0,40)-(200,50),X,BF c VUSM=4Ti(0,50)-(200,60),X,BF c US$=(1) cV(US$)=27T+4*START cV(US$)=5TUSM=USM+1 cV(US$)=4TUSM=USM-1 c%V(US$)=10USM=1T+b*CHANGEPIC c!V(US$)=10USM=2T+b6*DEL12 c!V(US$)=10USM=4T+4*START cV(US$)=10USM=3T+g*SD cVUSM>4TUSM=1 cVUSM<1TUSM=4 c +_*US2 c*DEL12:P:*0 c <"E:SUS1" c <"E:SUS2" c <"E:SUS3" c <"E:SUS4" c*2:`"Deleting..." c`"Done!":+_*US2 c*CHANGEPIC:P:*0 cCP=1 c *CP2:P:*0 c"Q69,0:`"Change Startup Picture" ci(0,0)-(238,10),X,BF cQ0,1:`"MBOS Startup Movie" cQ0,2:`"Date and Time" cQ0,3:`"Nothing" cQ0,4:`"Smilie face" cQ0,5:`"Password" cQ0,6:`"Back" cVCP=1Ti(0,10)-(200,20),X,BF cVCP=2Ti(0,20)-(200,30),X,BF cVCP=3Ti(0,30)-(200,40),X,BF cVCP=4Ti(0,40)-(200,50),X,BF cVCP=5Ti(0,50)-(200,60),X,BF cVCP=6Ti(0,60)-(200,69),X,BF c CP$=(1) cV(CP$)=5TCP=CP+1 cV(CP$)=4TCP=CP-1 c@V(CP$)=10CP=1T<"E:SUS1":<"E:SUS2":<"E:SUS3":+fx*DONE c@V(CP$)=10CP=2T!"E:SUS1"Wqs#1:`#1," ":"#1:+fx*DONE c@V(CP$)=10CP=3T!"E:SUS2"Wqs#1:`#1," ":"#1:+fx*DONE c@V(CP$)=10CP=4T!"E:SUS3"Wqs#1:`#1," ":"#1:+fx*DONE cOV(CP$)=10CP=5T!"E:SUS4"Wqs#1:`#1," ":"#1:bk&*PASSETUP:+fx*DONE cV(CP$)=10CP=6T+_*US2 cV(CP$)=27T+_*US2 c VCP>6TCP=1 c VCP<1TCP=6 c +b*CP2 d *DONE:P:*0 d*2:`"Changeing Picture..." d `"Done!" d +4*START e*CONTACTINFO:P:*0 e*:`"You can contact the author of MBOS via e-mail. His address is 'mat-brown@lineone.net'. Please don't send rubbish, only constructive comments about any part of MBOS, or anything to do with sharp organizers in general." e +4*START e*SD:P:*0:SDMM=1 e *SD2:P:*0 e,Q95,0:`"Sound Menu":i(0,0)-(238,10),X,BF eQ0,2:`"Sound on" eQ0,3:`"Sound off" eQ0,4:`"Back" e!VSDMM=1Ti(0,20)-(150,30),X,BF e!VSDMM=2Ti(0,30)-(150,40),X,BF e!VSDMM=3Ti(0,40)-(150,50),X,BF e SM$=(1) eV(SM$)=5TSDMM=SDMM+1 eV(SM$)=4TSDMM=SDMM-1 eFV(SM$)=10SDMM=1T!"E:SOUND1"Wqs#1:`#1," ":"#1:+i*DONESD e0V(SM$)=10SDMM=2T<"E:SOUND1":+i*DONESD e V(SM$)=10SDMM=3T+_*US2 eV(SM$)=27T+_*US2 eVSDMM>3TSDMM=1 eVSDMM<1TSDMM=3 e +g*SD2 e*DONESD:P:*2 e`"Changing sound..." e `"Done!" e +4*START in U+88 io!"E:SUS4"Was#1:"#1 ipU+j26994 iq"E:pword"=PW$ ir!"E:pword"Was#1 isa#1,PW$:"#1 it 0PW$(3)*30 iu`"Welcome to MBOS" iva"What is your password: ";K$ iwVK$<>PW$TZ ix+*MAINMENU i*PASSETUP:P:*0 iQ98,0:`"Password" ii(0,0)-(238,10),X,BF i` i`"Enter Password: ";:aA$ i`"Confirm Password: ";:aB$ iIVA$<>B$T*:`"Passwords do not match. Please try again":+k&*PASSETUP i!"E:pword"Wqs#1 i `#1,A$:"#1 ie u1Z