"THIS SECTION IS OFF LINE AT THIS TIME. WE HOPE TO HAVE IT BACK SOON" 000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21 g&&j"THIS UTILITY REQUIRES TWO DRIVESPUT CURRENT TEXT.DAT IN DRIVE 0 AND NEW TEXT.DAT IN DRIVE 1"'9 "ENTER OLD MESSAGE LINE LENGTH ";X$:OLD(X$): "OLD LENGTH IS ";OLD:"ENTER NEW MESSAGE LINE LENGTH ";X$:NWE(X$): "NEW LENGTH IS";NWE:"ENTER MESSAGE CAPACITY ";X$:CA(X$):"CAPACITY IS ";CA'W"HIT ENTER TO START";X$'"D",#1,"TEXT.DAT",OLD2:#1,OLD2 MS$'"D",#2,"TEXT.DAT:1",NWE2:#2,NWE2 MX$'Z X1 ((CA1)10)'_#1,X'`M$MS$(dMX$((M$,OLD)((NWEOLD),32)(M$,2))($e MX$(175)(.i#2,X(Lk "TRANSFERED RECORD# ";X(SnX(fx:: "DONE":.DAT",OLD2:#1,OLD2 MS$'"D",#2,"TEXT.DAT:1",NWE2:#2,NWE2 MX$'Z X1 ((CA1)10)'_#1,X'`M$MS$(dMX$((M$,OLD)((NWEvPߎU&C'I0, 1o' 90&J&~'64K NOT AVAILABLE !!!Ԏߧތ&߆ U`~r~̠}v+ $Y)0Σ9 `@(h&a(ɧ %0 `%󧀌%&0]i0f0m0n'0vJ "&x|&/9`+ COLOR RS-232 DRIVERBY pETE lYALLVERSION 1.4COPYRIGHT (C) 1983BY utilisoft ZPU2&s+1&s,B0's-;; "h0ȿh̳0a~}++ÿ  ͿΆ9,~09x0!*+ s0: 05! t0 0Ն~0~oprJK߿L~N0OJr9 o&6}+. &/ })&Z} ' z &45}+)}.n;2b9 })'}*!  }+ }' 4OZ&5 9}*|94_HM&T}*% %O 5 }++ M') &O L4V& :b`'2#𦀿b}+ &*''ZO*)M54"!+5; 4}* 4Ov"V}*4 $  5 4J&5$h$4@  52a|`#𧀿`55;4}, '+ 4j&2a  )5|<"y|"n||"`|"S|  "F ' "8'' ' ' "! \ '  | d & &Hn=&9Wh3&X0" 4" B}-*0: q~"3& o 'O95&V~)~4 4b& h$ 2a544.̆ W.Q L̆ ?̆ 255O*_0*9'&' & ~ S 5!~v~)~4 4b& h$ 2a544.̆ W.Q L̆ ?̆ 255O*_0*9'&' & ~ S 5!~ &g ORDER PROGRAM THIS PROGRAM NEEDS TO BE ON LINE AND UNLESS COCO21 IS MODIFIED KEEP IT IN DRIVE 0& 3000,32500: OD$(50)& 93000:82000:BA&HFA00:BA22,0:65313,53'%"OK I'M BACK WITH PAPER AND PENCIL!":"THE ITEMS YOU ORDER ON HERE WILL BE SENT BY UPS WHENEVER POSSIBLE"'"THEREFORE IT'S IMPORTANT YOU GIVE US YOUR STREET ADRESS.":"YOU MAY PAY BY MASTERCARD, VISA OR HAVE THE ITEMS SHIPPED C.O.D.":"IF YOU DO CHOOSE C.O.D. THERE WILL BE AN ADDTIONAL C.O.D. CHARGE BY UPS OF $2.00"(|"BE SURE TO INCLUDE YOUR PHONE # SO WE CAN GET BACK WITH YOU":"IN CASE THERE IS ANY PROBLEM.":"WELL LET'S GET STARTED."(#"PLEASE ENTER YOUR FULL NAME ";O1$($"IF YOU WANT IT SHIPPED AND INVOICED TO A DIFFERENT NAME OR TO A")/&"COMPANY ENTER THE NAME HERE, OTHERWISE JUST HIT ENTER ";O2$)z("OK, NOW WHERE DO YOU WANT US TO SHIP THE ITEMS (STREET ADR.)? ";O3$)*"NOW WE NEED TO KNOW THE CITY, STATE AND ZIP CODE --> ";O4$),"OK NOW LET'S REVIEW THAT ..."*"-:O1$:O2$:O3$:O4$::"WELL DOES IT LOOK OK TO YOU? (Y/N)"*e.MU$"YN":1000: I2 "OH WELL, LET'S JUST START OVER":35*2"WELL, NOW HOW DO YOU LIKE TO PAY FOR THE ITEMS YOU WILL ORDER?":" YOU HAVE THE CHOICE BETWEEN MASTERCARD, VISA OR C.O.D."+P3"PLEASE ENTER 'COD' OR YOUR CARD# !! IMPORTANT !! DON'T FORGET EXPIRATION DATE OF THE CARD!!--->";+4O5$: O5$;" IS THIS CORRECT? (Y/N)":1000: I2 51 : "OH, BEFORE I FORGET IT, LEAVE ME YOUR PHONE # SO WE CAN CONTACT":"YOU IN CASE WE RUN INTO A PROBLEM -->";,m6O6$:"LET'S SEE, I WROTE DOWN ";O6$;" IS THAT CORRECT? ":1000: I2 " OK LET'S TRY AGAIN":54,<" NOW LET ME GET THE ORDER CATALOG. I'LL READ THE ITEMS WE HAVE TO YOU AND":"YOU JUST TELL ME IF YOU WANT THE PARTICULAR ITEM OR NOT."-?X1-A"I",#1,"MERC99.BBS"-,F#1,X$: X$-{U"THIS ONE? (Y/N)": 1000:I1 " HOW MANY?";Q$:OD$(X)Q$" "X$:XX1-V (1) : 70-X"THAT'S ALL FOLKS":"DO YOU WANT TO GO OVER THE LIST AGAIN? (Y/N)":1000: I1 65.5Z X1 2000 : "LET'S REVIEW THE ITEMS": S1 X: OD$(S):S.["YOU MAY NOW ADD A COMMENT OR REQUEST.-->";OD$(X): (OD$(X))5 XX1._"CAN I SAVE IT? (Y/N)":1000:I2 2000.d"THANK YOU ! - PLEASE HOLD...".i"I",#1,"BBS.ORD"/j"O",#2,"NEW.ORD"/,n (1) 120 : #1,X$:#2,X$:110/dx#2,O1$,O2$,O3$,O4$,O5$,O6$: S1 X:#2,OD$(S):S/{z#2,"END OF ORDER"/}#1:#2:"BBS.ORD":"NEW.ORD" "BBS.ORD":20000 (111)1 2000 :I$: I$"" 1000 : (I$)96 I$(((I$)32))0<I(MU$,I$): I1 " WHAT..?";(8,8): 1000 : 0Ї"PLEASE HOLD....":65313,52: BA22,255:200,32500:"COCO21.BAS"0 " ** ERROR **":" SORRY WE CAN'T RECORD YOUR ORDER. PLEASE LEAVE YOUR ORDER AS MESSAGE TO THE SYSOP. THANK YOU":2000)0<I(MU$,I$): I1 " WHAT..?";(8,8): 1000 : 0Ї"PLEASE HOLD....":65313,52: BA22,255:200,32500:"COCO21.BAS"0 " ** ERROR **":" SORRY WE CAN'T RECORD YOUR ORDER. PLEASE LEAVE YOUR ORDER AS MESSAGE TO THE SYSOP. THANK YOU":2000AN ONLY READ FILES STORED IN ASCII (WITH 'P' COMMAND"/L "FILE NAME";F$/R/_AD&H400/o "I",#1,F$/ (1) 1480/ #1,O$/ O$"12" 1440/A(O$)/ AD,A:ADAD1/ 1425/Ț/א/܂ IN CHARACTER MODE0  A12 CH0: 5000 AD,A0"끥 500ITH 'P' COMMAND"/L "FILE NAME";F$/R/_AD&H400/o "I",#1,F$/ (1) 1480/ #1,O$/ O$"12" 1440/A(O$)/ AD,A:ADAD1/ 1425/Ț/א/܂ IN CHARACTER MODE0  A12 o%yJM 'J& V4߽M, 턆D435%&'@& &½Ą?ž +&M'.̎o&@{~I w446\561?&H5@&1@' U&z&dž9O9 Prs& Z&0&9\q-_r_9]&9|||@{5@y9!x! vA9v x!90Z&9' G-L9} '9 ~ `H 9z &( 'a-怿a  z &~C  z &~C~<;`'>z-"Dv z`'  ;sLq-O !s熶 ;"D% `; ; GHGHGHGHGHGHcoXZ}'Zt $ |@ o:Z&}'' O}.ca_ s 99rs/qȿ]&  9' G-L9ABĎDF'90  DZ&O99  Z Z&M 'V/'.' "'yZ&M/' .'Z&  '$:'Z&P:'Z& 'hM&+1 ' L -O999&Z&&Z&90 z&O9L - }." & ķ9O99' "'yZ&M/' .'Z&  '$:'Z&P:'Z& 'hM&+1 ' L -O999&Z&&Z&90 z&O9L - }." & ķ9O99 '&H&4 !1u*541v *5,,Ʀ,&H '&H& 9'%&cjm' m&'4 *&&6&N. 1v*59 1v*52,,Ʀ,&H '&H& 4 2*5}&c&m& |&c'~9&74 1v*594 *5&,&N&2&O3Jz&2&&Oz&L4)53L&R9,,Ʀ,&H '&H& 4 3*5}&c&m& |&c'9U}&6'+4'#5|&M2{&6 4&3]5&16 Z&9j'9}&Q'z&Q  '. &Y2{,,Ʀ,&H ' 29&Qk#ѦJ&8&8,Ʀ,&H*8M&JJJ9&Q4$L&8&8,Ʀ,&H*8M&uLL94 1v*594'3" 34 *59' O,&N-&N-3Fŧ8'*"'"JJp 3] ' LLP 3]9D@@@ ""  3?3  00???&2""J&&21?&9 ?&^0r-P5)55d56 56I56,50&Z&~61&5/+&`0&`&}&b'z&b5&`&M'^&L&Ӷ&b'4&M=&2&NXX&O:&O)@ 50 5Z&z&2&|&N&N - -z&N51z&O&^% &^#)&25ж""&2&21(#"' 0%Z&~6]&N&M&O~4,9&&^o'-&^&No&-##"#"˽,)&`&b.+&^#)& 9- 9†U_&b' \ 'o o\ 9#41?&""2J&5S`T`I`N`G`E`RhCi`qyxr`EIGEN`SYSTEMSPRESS`FIRE`BUTTONTO`ENTER`HIVEjjjj5/+}&M&'&`0&`&8 -׆"~3YSTEMSPRESS`FIRE`BUTTONTO`ENTER`HIVEjjjj5/+}&M&'&`0&`&8 -׆"~3 #&  5000&AD&H400&* LL$(15,32)&6 1300&CAD&H400&V F$"" 500&r "ENTER 'CLS' VALUE";A&z A&STOREIT(AD)& AD,&H2E&J1&A$& A$ "" AD,STOREIT: 600&JJ1: J10 510& J1' AD,STOREIT' A$'" A$ "" 600'9!JJ1: J50 535'D& 505'XX DECIPHER KEYS'eZA(A$)'u] A9 700'b A8 750'g A94 800'l A10 850'n CH1 1500'q A&H20 900'v A68 950(y (A12) (CH0) CH1: 500({ A$"M" 1000() A$"C" 1050(= A$"W" 1100(Q A$"P" 1200(\ 500(n RIGHT ARROW( AD&H5FF ADAD1: 500(Ɓ 500( BACKSPACE( AD&H400 ADAD1: 500( 500( UP ARROW)% AD&H41F ADAD&H20: 500)* 500)"R DOWN ARROW)EW AD&H5E0 ADAD&H20: 500)P\ 500)j STEP THROUGH SHAPES)~STORITSTORIT1) STORIT255 STORITSTORIT128) AD,STORIT) 500) DROP PREVIOUS SHAPE)STOREITLS: AD,LS: 500* SET MEMORY*LSSTOREIT: 500*0 CHANGE COLOR*GSTOREITSTOREIT16*o$ STOREIT255 STOREITSTOREIT128*& AD,STOREIT*) 500*L WRITE TO FILE*Q I0 15*V J0 31*[LL$(I,J)((&H400(I32)J))*`J*eI*j+ o "FILE NAME";F$+t "O",#1,F$++y I0 15+5{O$""+D~ J0 31+WO$O$LL$(I,J)+^J+j #1,O$+qI+w+ WRITE TO FILE IN ASCII MODE+ I0 15+ J0 31+LL$(I,J)((&H400(I32)J))+ċJ+ŋI+Ξ,ӻ "FILE NAME";F$,ؙ "O",#1,F$,_ى "DO YOU WANT TO CLEAR THE SCREEN BEFORE DISPLAYING THIS MSSAGE";A$,wڅ A$"Y" #1, 12,ۉ "DO YOU WANT TO PAUSE AFTER DISPLAYING THIS MESSAGE";P$,݀ I0 15,O$"", J0 31- (P$"Y") (I15) (J31) 1260-O(LL$(I,J))-# #1,O-*J-1I-F P$"Y" 1299-l "NUMBER OF SECONDS TO PAUSE";SE-{ I1 SE- J1 30- #1, 19-J-I- #1: 500- INSTRUCTIONS--< " SPACEBAR - CHANGE SHAPE". A " C - CHANGE COLOR".&F " M - STORE IN MEMORY".FK " D - PLACE MEMORY VALUE".aP " W - WRITE TO FILE".U " P - WRITE TO FILE IN ASCII".d: "PRESS 'ENTER' TO START";A.x:: "DO YOU WANT TO READ IN A GRAPHIC FILE?";A$.} A$"Y" /5~: "YOU CThis section gives you the unique opportunity to add and make a continous story. Please use the section responsible. This story you're reading is titled Rumors and Facts. If you have an idea for another story leave the Sysop a message. Talking about facts when Radio Shack came out with the disk rom 1.1 some of the sofware would not run on it. If you were upset, think again. Comodore has put on the market machines like the Vic-20, C64, 4/16, 264 and others. Not one of them is able to run the others software. I believe Radio Shack will not forget the Coco owners if a new Coco9 should come on the shelf. ere upset, think again. Comodore has put on the market machines like the Vic-20, C64, 4/16, 264 and others. Not one of them is able to run the others software'7%~3PEP*~'&~'V&M&2b0z&2&9'N40 Z&5b&MM'0J o0 Z&9P@%%U@ 0 EP 5 E P  5P P P P @U @U0E@%%@P5nnnnlllllllljjjjjjjjhhhhhhfffffddddbbb```^^^\\ZZZXXVVTTRRPNNLJJHFFDB@@><:86420.,*(&$"    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMMNOOPPQQRRSSTTTUUVVVVWWW ~)]~)S2|&oJ&)G ooa%la m&ma' babl1!3BmA&2d9'd 2{45 2{&N!D*&O#c&䦀cc0c&%2e9HHH)dL0 jd&9?333333?< ???000???333??00??000?333???33?333??33?  , *~*4 =5DDDT]'HHZ M92xf4 =5DDDaTb*a4c*Ƥ52hz&X&""&R.+@&X&R9?0 2~JJ4 =5DDDO00T-P?a1&' a1&a0a0a5'1#0 0 5~+~+&[,̄&Yt,(9&N-h&[&&L.\&Y0&Y&R|&[&[&@8''0 􆃧 &[O,&Y,&Nŷ&YO+9( &Y9,G /ĪĦAABB3 Z&9,b =:OĦAB3 Z&90  ?WPWP?????>W> WW?W U?T~,~-~.~-~.>8o<-&L&2.j8.0'-%''&2 z&2&&20 3D ӿ&\.v/8&2m-'&2.-&H 0m'<-н' 9.&H '  4&H.:*5-&9&H' 'ƀ&H ˀ&H&I, \&I&I9\&I94'5& Lf& e J&O9\&_95&J& Lf&e9Z&9(4`&H`(&I5=FVFVFVFV94&J]&0 4O&J% L&J55à&J92|`-.&NZa'0A.o`5/&N-ŧ0ja'`JJ`"` 2d9.>92|.>-a.`b&\&%a& $-Ձ"1.b%`2d92|`.>-.&N-a.>'9.&N.-`..>|&L0<'ja'`JJ`"` 2d9`dddddd81 m.0G  0m'<-9j'9,,Ʀ,&H"THIS SECTION IS OFF LINE AT THIS TIME. WE HOPE TO HAVE IT BACK SOON" 000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21"THIS SECTION IS OFF LINE AT THIS TIME. WE HOPE TO HAVE IT BACK SOON" 000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21"THIS SECTION IS OFF LINE AT THIS TIME. WE HOPE TO HAVE IT BACK SOON" 000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21 VERSION 2.2 THE ULTINAT TERMINAL PROGRAM FOR YOUR COCO. FEATURES 51 CHR SCREEN, COLORCOM/E DFT AND GRAPHICS (SUPPORTED BY THE COLORAMA. IF YOU HAVE A SMART MODEM IT CAN LOGON FOR YOU, GET YOUR MESSAGES AND LOG OFF AGAIN. ALL BY ITSELF WHILE YOU'RE IN BED SLEEPING! FOR PRICES CHECK FILE # 99 AM FOR YOUR COCO. FEATURES 51 CHR SCREEN, COLORCOM/E DFT AND GRAPHICS (SUPPORTED BY THE COLORAMA. IF YOU HAVE A SMART MODEM IT CAN LOGON FOR YOU, GET YOUR MESSAGES AND LOG OFF AGAIN. ALL BY ITSELF WHILE YOU'RE IN BED #1 COLORAMA BBS $99.95 #2 COLORCOM/E DISK $49.95 "THIS SECTION IS OFF LINE AT THIS TIME. WE HOPE TO HAVE IT BACK SOON" 000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21"THIS SECTION IS OFF LINE AT THIS TIME. WE HOPE TO HAVE IT BACK SOON" 000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21and to the file. It works on a number of terminal programs like Colorcom/E rompack or disk. imelist works just like the List but gives you about 5 seconds at the begin and end of the file. That may be helpful if you have to open and close the buffer manually. ft is one of the error checking direct file transfer protocols used by Colorcom/E disk V2.0 and up. You can use it for any kind of file. modem is another error checking protocol used by Sanycom, PC-Talk3, Copylink, Teleterm and others. !! Please xit the Colorama proper whenever you're ready to disconnect. Anyone not loging of with the xit option will be marked with an <*IL> (=Illegal logoff) to his name and may loose some or all privileges on the BBS. opylink, Teleterm and others. !! PleaTHE COLORAMA TOP LEVEL MENU HAS FOLLOWING COMMANDS dvertise-Enter a wanted or for sale ad hat -with the Sysop, he may helps you epartments this is another menu xit -This is the only way to hang-up ames -You can play online games ELP -Displays this menu nform . -Tells more about the BBS (MORE HELP) eave Msg Leave a message to someone or all ames -show you who was on befor you rder -Found a deal? Leave the order here

arameters,coreboard,ead Messages5jell me,pload,pert Speed,ake story,<#>Read Club,<%>Load Club,,,5kEX1 112 : EX2: (13)"Help with Commands ":FL$"INFO":FX$"":FX2:5606nEX3:MX$;:LV1 "#%";: LV2 "!*";6 o6p1000:1156=qA(I$):A96 I$(A32)6WrI(MU$,I$):I0 6sBA23,80:::AT$AT$I$:I 3900,3700,700,200,130,180,960,99,158,300,165,400,500,600,750,900,110,90,171,177,172,1786xI$:I$"" : 1137RFX0::"<< COLORAMA DEPARTMENT MENU >>"::MX$"A,B,D,E,G,M,S,T,U,W,?=Help":EX3 MX$:1357"agazine allery": "outique ownload":"nswers tory":"anted Ads pdates":"xit the BBS op level"8TMU$"MG ;& 100&I 0:(34,207);"COLORAMA/BBS (C) CERATEC INC";(34,207);&O&X10&^Z&d10:5000: MR(100),SR$(100):"DEFAULTS ARE: 52 MESSAGES 63 CHRPER LINE AND 230 USERS. IF YOU CHOOSE DIFFERENT YOU must EDIT LINE 21999 IN COCO21!!!"'e"ENTER MESAGE CAPACITY (20-98)";X$:OL(X$): OL20 OL98 "NOT ACCEPTED": X1 500:X: 101 : "ENTER MESSAGE LINE LENGTH (32-96)";X$:LG(X$): LG32 LG96 "NOT ACCEPTED": 100(&j"ENTER USERLOG CAPACITY (100-900) ";X$:UX(X$): UX900 106 : "USERLOG SET FOR ";UX(XxX$(255):"SETUP ROUTINE FOR COLORAMA "("USE THIS ROUTINE ONLY WHEN YOU START NEW. OTHERWISE IT WILL DESTROY ALL MESSAGES, HEADDERS AND USERLOG"::"HIT ENTER TO START ROUTINE";X$:X$(255))800)nX$(255):"D",#1,"USERLOG/DAT",49:#1,15 U1$,10 U2$,6 U3$,6 U4$,5 U5$,6 U6$,1 U7$)X1 UX:@420,"USERLOG #";X:U1$X$:U2$X$:U3$X$:U4$X$:U5$X$:U6$X$:U7$X$:#1,X:X:#1*"D",#1,"ACTIV.DAT",23:#1,4 N1$,3 N2$,16 N3$*S X1 100: N1$"001": N2$"010": N3$"NOT USED YET": X:*X$(255):210:"SETING UP HEADDER":X1 OL1:@420,"HEADDER# ";X:H1$X$:H2$X$:H3$X$:H4$X$:H5$X$:H6$X$:#1,X:X:#1+)230:X10 ((OL1)10)10:MS$X$:@420," MESS LINE# ";X:#1,X:X:#1:+u10:"BBS/DATA":MO0:FM0:TM0:CN0:MY0:C9$"MORRIS CAT":UL1:320:+{Ȋ+Қ:"D",#1,"HEADDER.DAT",78+#1,17 H1$,21 H2$,18 H3$,6 H4$,3 H5$,13 H6$:+ MESSAGE TEXT,:"D",#1,"TEXT.DAT",LG2,'#1,(LG2) MS$:,=@"O",#1,"BBS/DAT",|J#1,MO,FM,TM,CN,UL,MY,C1$,AD,QQ,UM,US,ST,CB,(C3$),CT,CT$,TX0OL1:SR$(X)"0000X"(((X101),2)):#1,SR$(X):X:#1:, "SET UP USERLOG Y/N":X$:X$"Y" 140-(*20:@192,"SET UP MESSAGE BASE Y/N":X$:X$"Y" 160-[>20:@192,"SET UP BBS/DAT":X$:X$"Y" 190-H20:@192,"SETUP all MAIN DATA FILES WITH - THIS SECTION IS OFF LINE AT THIS TIME - Y/N":X$:X$"Y" 850.M" BBS IS SETUP. TRANSFER ALL MANDATORY FILE FROM YOUR MASTER DISK !!!!!":.RA$"THIS SECTION IS OFF LINE AT THIS TIME. WE HOPE TO HAVE IT BACK SOON":"SIGNON":"O",#1,"SIGNON/BBS":#1,A$:#1:"O",#1,"GRAPL/BBS":#1,A$:#1.\"UPDATE":"O",#1,"UPDATE/BBS":#1,A$:#1/,f"DOWNLOAD":"O",#1,"DOWN/BBS":#1,A$:#1:"O",#1,"DOWNS/BBS":#1,A$:#1/yp"MAGAZINE":"O",#1,"NEWS/BBS":#1,A$:#1:"O",#1,"NEWSS/BBS":#1,A$:#1/z"BOUTIQUE":"O",#1,"MERC/BBS":#1,A$:#1:"O",#1,"MERCS/BBS":#1,A$:#10"GALLERIE":"O",#1,"GRAP/BBS":#1,A$:#1:"O",#1,"GRAPS/BBS":#1,A$:#10" THE ROUTINE WILL SETUP THE CLUB AND PRIVATE CELLAR. IF YOU ONLY HAVE ONE DRIVE WE DON'T RECOMEND HAVING THESE SECTIONS. HIT C TO CONTINUE OR ENTER TO EXIT":Y$: Y$"" 84510"O",#1,"CELLS/BBS":#1," PRIVATE CELLAR MENU ":#1:"O",#1,"CLUBS/BBS":#1,"CLUB CORNER MENU":#11:ԁ845D PRIVATE CELLAR. IF YOU ONLY HAVE ONE DRIVE WE DON'T RECOMEND HAVING THESE SECTIONS. HIT C TO CONTINUE OR ENTER TO EXIT":Y$: Y$"" 84510"O",#1,"CELLS/BBS":#1," PRIVATE CELLAR MENU ": !#&(-./01>789:;= BBSFGRAPS BBSSTORS BBS4LSTOR BBS5STOR1 BBS bDOWN10 BBS SETUP BAS >RECOVER BAS" COCO21 BASRTC MRG$YGAME1 GAM%EDITOR BAS'GO BAS)_GOT BAS*CONVERT SCR+ZINFOS BBS,INFO BBSDOWNS BBSFNEWSS BBSFDOWN BBSFMERCS BBSFMERC99 BBS8MERC BBS2FNEWS BBS3FGRAP BBSFGRAPS BBSFSTORS BBS4LSTOR BBS5STOR1 BBS bDOWN10 BBS NEWS1 BBS6GRAPHED BAS &DFT BIN ORS BASGRAP1 BBS<PNEWMSLENBASjDRIVER BIN DRIVER BAS?USERLOG DAT$BBS DAT@ HEADDER DATAfSIGNON BBSFGRAPL BBSBFUPDATE BBSCF &+M"DRIVER.BIN":X11000:X::22000&2000:"MESSAGE RECOVERY UTILITY INSERT THE COLORAMA DISKETTE WITH BBS/DAT IN DIRVE 0 AND HIT ENTER ... IF YOU WANT TO RECOVER THE HEADDER.DAT ENTER H"'OL52:X$:X$"H" 200: --set OL to message base lenght identical to coco21'QT0 OL:SR$(T)"0000X"(((101T),2)):T'bA0:Y0 OL'X((SR$(Y),2)):2000::"RECORD#";X:#1:6000:#1,X: "FROM "H1$:"TO "H2$:"SUBJECT "H3$:"DATE "H6$:"MESSAGE #"H4$('@448,"USE THIS ONE Y/N ";:MU$"YynN":1000:I 100,100,30,30(.Y(8#130(d(H4$)1 110 : SR$(Y)((100000(H4$)),4)"X"((((X100)),2))(i (H4$) TM TM (H4$)(nY("NEXT CALLER WILL BE#";CN(UL1:(C1$"SYS RECOVERY"(#1)8000)"RECOVERY DONE")("USERS ";UL)K"MESSAGES FROM ";FM;" TO ";TM)b"NEXT CALLER ";CN)h*ȁ2000::"SAVE WHAT'S LEFT OF THE HEADER FILE UTILITY!! PLACE YOUR 3/4 DEAD HEADDER .DAT IN DRIVE 0 AND A NEW FORMATED HEADDER.DAT IN DRIVE 1"*҇"HIT ENTER";:X$:*'׹9280*=XX1:XOL 260*"GETTING # ";X:#1:6000:#1,X:X1$H1$:X2$H2$:X3$H3$:X4$H4$:X5$H5$:X6$H6$:#1:"D",#1,"HEADDER.DAT:1",78:6020+H1$X1$:H2$X2$:H3$X3$:H4$X4$:H5$X5$:H6$X6$:#1,X:#1:220+R"WELL WE TRYED!!!! NOW RUN A BBS.DAT RECOVERY ON THE NEW HEADDER."+X+s"#";X;" IS BAD":220+}"260+," WELL THIS IS JUST FOR THE HOPLESS!!! LET'S SEE IF WE GET THE TEXT.DAT BACK",'6"D",#1,"TEXT.DAT:1",65:#1,65 MS$:X1540:MS$(255):#1,X:@320,X:X,/8#1,7:X0,D;9360,f@#1:XX1:X(OL10)10 400,J"D",#1,"TEXT.DAT",65:#1,65 MS$:#1,X:X$MS$:#1:"D",#1,"TEXT.DAT:1",65:#1,65 MS$:MS$X$:#1,X:"TRANSFER LINE";X:320-h"BAD LINE"X:320-""WE SAVED WHAT WE COULD":-8"?? -->";:1004-P"WHAT ??";(7,8);-I$:I$"" 1004 : I(MU$,I$):I0 1001-I3 "yes": "no"--X110:I$:I$"" X:.О0:@0,(34,207);"COLORAMA (C)BBS/DAT RECOVERY";(34,207);:. .p HEADDER I.O.:z"D",#1,"HEADDER.DAT",78.~#1,17 H1$,21 H2$,18 H3$,6 H4$,3 H5$,13 H6$:."O",#1,"BBS/DAT".(C1$,5)"SYSOP" MYTM.#1,MO,FM,TM,CN,UL,MY,C1$,AD,QQ,UM,US,ST,CB,(C3$),CT,CT$/рX0OL:#1,SR$(X):X:#1:/@ SORT/^MN(SR$(0)):32600,(N256):32601,N(N256)256:X(0)/SMO1:FM9999:X0 OL: (SR$(X))0 MOMO1: (SR$(X))FM FM(SR$(X))/TX/^7100:/&I32600 32704:A:I,A:I0f& 0,0,174,140,251,52,16,238,228,174,94,48,31,79,52,18,166,196,39,42,166,196,230,69,160,69,36,2,230,196,52,1,174,66,16,174,710& 109,69,38,4,50,97,32,41,166,128,160,160,39,4,50,97,32,5,90,38,243,53,1,35,24,174,66,16,174,71,175,71,16,175,66,1661U& 196,230,69,231,196,167,69,234,69,234,228,231,228,51,69,174,97,48,31,175,97,38,176,166,228,50,99,38,161,50,98,571U5000,32000:MS$(12),SR$(100): I32600 32704:A:I,A:I:032602:924000:820000:BA&HFA00:BA22,255:BA21,0:(32590)99 32590,80:970 : 22 U1:2199928,231,228,51,69,174,97,48,31,175,97,38,176,166,228,50,99,38,161,50,98,571U5000,32000:MS$(12),SR$(100): I32600 32704:A:I,A:I:032602:924000:820000:BA&HFA00:BA22,255:BA21,0:(32590)99 32590,80:970 : 22 U 1 A=USR2(0):TA=32540:X=1000000+PEEK(TA+2)+(PEEK(TA+1)*100)+(PEEK(TA)*10000):DA$=RIGHT$(STR$(X),6):TI=(PEEK(TA+9))+((PEEK(TA+7))*60)+((PEEK(TA+5))*3600):GOSUB80:RETURN 3 IF PEEK(TA+1)=1 THEN D=8900 ELSE D=100 5 PRINTSTRING$(33,175);" COLORAMA 2.6RT (C)85 CERATEC ";STRING$(33,175);:PRINT@128,"LAST CALLER: ";C9$:PRINT"MSG CNT:";MO;" ";FM;"-";TM:PRINT"NEXT CALLER:";CN:PRINT"USERL LV:";UL;"OVERW:";UM:OPEN"D",#1,"SURV.BBS",1:PRINT "SURV:";LOF(1):CLOSE 8 POKEBA+22,0:F=F+1:GOSUB85:PRINT@416,"COLORAMA of ....... V2.6RT Hit @ to confirm compatibility ";:FORX=1TO800:I$=INKEY$:IFI$<> "@" THEN NEXTX:PRINT@384,"":PRINT" negative, check#";F:GOTO7 80 TW$=" "+RIGHT$(STR$(100+PEEK(TA+5)),2)+":"+RIGHT$(STR$(100+PEEK(TA+7)),2)+":"+RIGHT$(STR$(100+PEEK(TA+9)),2):RETURN 82 L8$=RIGHT$(STR$(100+PEEK(TA+1)),2)+"-"+RIGHT$(STR$(100+PEEK(TA+2)),2)+" /"+TW$:RETURN 100 POKE65313,53:CLOSE:UNLOAD:ST$="":FX=0:POKEBA+22,0:GOSUB571:FL$="":FT=0:POKEBA+12,LL:POKEBA+23,16:AT$=RIGHT$(AT$,50):IFC1$=""THEN 10 ELSE X$=STRING$(31,175):PRINT:PRINTX$:PRINT"COLORAMA/RT TOP L. MENU ?=HELP":PRINTX$:GOSUB820 810 PRINT:PRINT"Todays date ";LEFT$(CC$,5)+"-19"+RIGHT$(STR$(PEEK(TA)),2):PRINT"Logon time:";CT$ 21999 CLEAR2999,32500:LY=0:OL=52:UX=230:LG=63:DIMMS$(12),SR$(OL+2),A$(35):BA=&HFA00:POKEBA+14,2:GOSUB1:GOSUB7000:DEFUSR0=32602:DEFUSR1=3824:DEFUSR2=32512:DEFUSR9=100:DEFUSR8=15000:POKEBA+21,0 T$(CC$,5)+"-19"+RIGHT$(STR$(PEEK(TA)),2):PRINT"Logon time:";CT$ 21999 CLEAR2999,32500:LY=0:OL=52:UX=230:LG=63:DIMMS$(12),SR$(OL+2),A$(35):BA=&HFA00:POKEBA+14,2:GOSUB1: }&A 4000,32000:BA&HFA00: BA22,0: 65313,53:SC(50),SC$(50)&U977:876&p"WELCOME TO HAMURABI"&v&"HAMURABI -"&"WHERE YOU GOVERN THE ANCIENT":"KINGDOM OF SUMERIA."&"THE OBJECT IS TO FIGURE OUT HOW":"THE GAME WORKS!!"' I 1 1000::::'V A1100:A25:A30:B12800:B2200:B33:B43000:C11000:J1'o REPORT TO HAMURABI' ::"HAMURABI, I BEG TO REPORT THAT":"LAST YEAR";A3;"PEOPLE STARVED"' "AND";A2;"PEOPLE CAME TO THE CITY"' J0 17(A1 A1 (A12)(0"THE PLAGUE KILLED 1/2 THE PEOPLE"(P"THE POPULATION IS NOW";A1("WE HARVESTED";B4;"BUSHELS":"AT"B3;"BUSHELS PER ACRE."("RATS DESTROYED";B2;"BUSHELS":"LEAVING";B1;"BUSHELS IN THE":"STOREHOUSES."):"THE CITY OWNS"C1"ACRES OF LAND")C216(6))="LAND IS WORTH"C2"BU. PER ACRE.")U:"HAMURABI . . .")s"HIT ENTER OR Q TO QUIT")I$: I$"" 25) I$"Q" I$ "q" 80) ** BUY LAND ?)"BUY HOW MANY ACRES";I)I ((I))) I0 36*J IC2* J B1 34*&! 72: 28*B"B1 B1 J: C1 C1 I*T# I 0 44*a$ SELL??*~%"SELL HOW MANY ACRES";I*&I ((I)): I 0 44*' I C1 42*( I C1 76*) 72: 37**C1C1I*+B1B1C2I+, **FEED PEOPLE+!-"HOW MANY BUSHELS SHALL WE"+=."DISTRIBUTE AS FOOD";I+O/I ((I))+a0 I B1 51+k1 72+u2 45+3B1 B1 I: A3 A1(I20):A20+4 A3 0 54+5A2 A32: A3 0+6 ** PLANT LAND+7"PLANT HOW MANY ACRES";I, 8I ((I)),9 I C1 60,*:J (I2),=; J B1 62,G< 72,Q= 55,e> I 10A1 60,t?B1 B1 J,@ HARVEST, RATS ECT.,AB3 (5):B4B3I,BB2 ((B1B4).07(0)),CB1 B1 B2 B4,DJ (10)1- EA2 (A2(5B3)B16001)- F A2 50 A2 50-9GA1 A1A2A3: 11-KH THINK AGAIN-I:"HAMURABI, THINK AGAIN - YOU ONLY HAVE"A1"PEOPLE,"C1"ACRES,"-J"AND"B1"BUSHELS IN STOREHOUSES.":-K-L 400,32500: BA22,255:65313,52:"COCO21.BAS".M" ERROR - RETUNING TO COLORAMA": 76.CN:" RETURNING TO COLORAMA ": 76.LPER0.ddSCA1: SCORES SAVE.i ER0 9300 : 977.n "I",#1,"SCORES.DAT".sX0.xXX1:#1,SC$(X). (1) : 120. I1 20: SC(I)(SC$(I)): I/ SORT/- S1 20: SC SC(S) 180 : S/}" SORRY YOUR SCORE IS NOT IT THE TOP 20'S .... MAY BE NEXT TIME!!!": 78/ T19 S1 1:SC$(T1)SC$(T): T/ P1024 1039: PC(P): PC 32 PC 190 PC32 : PCPC640NA$NA$(PC): P0(L((SC)):SC$(((SC)),L1)0FSC$(S)SC$" PEOPLE "NA$0_"O",#1,"SCORES/DAT"0~I1 21:#1,SC$(I): I:0"YOUR SCORE IS";SC;" YOU ARE NOW IN PLACE";S;"IN THE TOP 20'S - CONGRATULATIONS!! ": 780," PLEASE HOLD..."16 "O",#1,"SCORES.DAT"1<@ X1 21:#1,"NO SCORE":X::ER1:1001U"I",#1,"SCORES.DAT"1x#1,A$:A$: (1) 78 : 5100"YOUR SCORE IS";SC;" YOU ARE NOW IN PLACE";S;"IN THE TOP 20'S - CONGRATULATIONS!! ": 780," PLEASE HOLD..."16 "O",  SET UX IF NOT STANDARD3 5000:SR$(100)> UX230L30:40S0@0,(33,207);" COLORAMA (TM) USERLOG EDITOR ";(33,207);:(:230:@160,(6,207);" MENU ";(20,207);::" IME KILL DIT":MU$"TtEe":1000:I 500,500,100,100Pd"ENTER STARTING LOG NUMBER";:X$:XX(X$)_iXXX UXhn30x2000:#1,X:X1$U1$:X2$U2$:X3$U3$:X4$U4$:X5$U5$:X6$U6$:X7$U7$:#1@128,"LOG RECORD NUMBER";X;(30,175)@160,"NAME :";X1$(20,175)*@192,"FROM :";X2$(20,175)O@224,"ID CODE :";X3$(25,175)t@256,"DATE :";X4$(25,175)@288,"LAST MSG:";X5$(25,175)@320,"SYSTEM C:";X6$(25,175)@352,"LEVEL :";X7$(22,175);1ȇ@ 416,"EDIT nAME fROM iD dATE mSG sYST.lEVEL C/R=NEXT *=SAVE eXIT kILL"MU$"NnFfIiDdMmSsLl*EeKk"(13):1000:@416,(64,255);:I 220,220,222,222,224,224,226,226,228,228,230,230,232,232,249,236,236,238,238,234܇@416,"NAME :";:X1$:X1$(X1$(15,32),15):128=އ@416,"FROM :";:X2$:X2$(X2$(14,32),10):128w@416,"ID CODE :";:X3$:X3$(X3$(6,32),6):128@416,"DATE :";:X4$:X4$(X4$(6,32),6):128@416,"LAST MSG:";:X5$:X5$(X5$(6,32),5):128%@416,"SYSTEM C:";:X6$:X6$(X6$(6,32),6):128Z@416,"LEVEL :";:X7$:X7$(X7$"0",1):128uX:"END OF USERLOG":쁥100#@416,"ARE YOU SURE";:MU$"yYnN":1000:I2 X:"END OF FILE": : X$(16,32):X1$X$:X2$X$:X3$X$:X4$X$:X5$X$:X6$X$:X7$X$:"KILLING RECORD #";X:250@@416,"SAVING RECORD#";X2000:U1$X1$:U2$X2$:U3$X3$:U4$X4$:U5$X5$:U6$X6$:U7$X7$:#1,X:#1:X:"END OF USERLOG":30:@160,"ALL USERLOG ENTRIES AFTER THE DATE ENTERED WILL BE AUTOMATICALLY KILLED"3@320," ENTER DATE (YYMMDD) "LX$: (X$)6 510Z0X1 UX2@384,"FREE SPACE ";YT;" LOG#"X;:2000:#1,X:(U4$) (X$) 575 : #1:X:590?30::"NAME ";U1$:"FROM ";U2$:"DATE ";U4$:"LEVEL";U7$::" THIS NAME WILL BE KILLED"6@ (U7$)0 577 : 580A@448,"HIT ANY KEY TO NOT KILL REC.":Y1600:I$:I$"" #1:X : YDYTYT1:#1:2000:U1$"":U2$"":U3$"":U4$"":U5$"":U6$"":U7$"":#1,X:#1:XN"TOTAL FREE SPACE:";YT:"END OF FILE":600FX30:@320,"UPDATING BBS.DAT":"I",#1,"BBS.DAT"lb#1,MO,FM,TM,CN,UL,MY,C9$,AD,AQ,XlX0 OL:#1,SR$(X):X:#1"O",#1,"BBS.DAT"#1,MO,FM,TM,CN,UL,MY,C9$,AD,AQ,YTX0 OL:#1,SR$(X):X:#1 I$:I$"" 1000-I(MU$,I$):I0 1000 : JЙ"D",#1,"USERLOG/DAT",49#1,15 U1$,10 U2$,6 U3$,6 U4$,5 U5$,6 U6$,1 U7$:"BBS.DAT"#1,MO,FM,TM,CN,UL,MY,C9$,AD,AQ,YTX0 OL:#1,SR$(X):X:#1 I$:#1,"SCORES.DAT"1<@ X1 21:#1,"NO SCORE":X::ER1:1001U"I",#1,"SCORES.DAT"1x#1,A$:A$: (1) 78 : 5100"YOUR SCORE IS";SC;" YOU ARE NOW IN PLACE";S;"IN THE TOP 20'S - CONGRATULATIONS!! ": 780," PLEASE HOLD..."16 "O",\& 20000& 200,32500&+20:50&0:(33,207);" COLORAMA (TM) (C)83,84,85 ";(2,207);" CERATEC INC. ELGIN, TEXAS ";(2,207);" COLORAMA START ROUTINE ";(33,207);:'2@422,"LOADING DRIVER";:M"DRIVER.BIN": X11500:X:@422," EXECUTING DRIVER";'27:BA&HFA00:BA22,255'e<20:@422,"SETTING UP ML SUB ROUTINE";:9000'F20:@226,"ENTER MONTH: ";:X$:(X$) 12 70 : BA10,((X$))'J@258,"ENTER DAY : ";:X$:(X$)31 74 : BA9,((X$))(#L@290,"ENTER HOUR : ";:X$:(X$) 12 76(M@308,"M /

M";:I$:I$""77 : I$"A" 5000:BA8,((X$)) :I$"P" 5000:X$(((X$)12),2):(X$)24 76 :@303,X$:BA8,((X$)))N@322,"ENTER MINUTES:";:X$:(X$)60 78 : BA7,((X$)))*P@354,"YEAR SET TO 85";:BA11,85)RZ@448," ALL ENTRIES CORRECT (Y/N)";)[I$:I$""91 : I$"Y" 100 : I$"N" :9900:70 : 90)d20: 19930:@417,"LOADING COLORAMA":200,32500:"COCO21.BAS")(X$)12 X$"00")*@* #(**&I32600 32704:A:I,A:I:*& 0,0,174,140,251,52,16,238,228,174,94,48,31,79,52,18,166,196,39,42,166,196,230,69,160,69,36,2,230,196,52,1,174,66,16,174,71+$& 109,69,38,4,50,97,32,41,166,128,160,160,39,4,50,97,32,5,90,38,243,53,1,35,24,174,66,16,174,71,175,71,16,175,66,166+& 196,230,69,231,196,167,69,234,69,234,228,231,228,51,69,174,97,48,31,175,97,38,176,166,228,50,99,38,161,50,98,57+MڀI32570 32598:A:I,A:I:,M189,179,237,31,1,166,129,167,141,0,17,16,174,132,95,235,160,106,,M 141,0,7,38,248,79,189,180,244,57,255,8N 1:10NO INPUT":X1 5000:I$:I$,69,174,97,48,31,175,97,38,176,166,228,50,99,38,161,50,98,57+MڀI32570 32598:A:I,A:I:,M189,179,237,31,1,166,129,167,141,0,17,16,174,132,95,235,160,1,98,57,>& JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC,`MڀI32570 32598:A:I,A:I:,M189,179,237,31,1,166,129,167,141,0,17,16,174,132,95,235,160,106,M 141,0,7,38,248,79,189,180,244,57,255,N 1:10NO INPUT":X1 5000:I$:I$& d 500&n&!x200,32500&1140:150&0:(33,207);" COLORAMA (TM) (C) 1983,84 ";(2,207);" CERATEC INC. ELGIN, TEXAS ";(2,207);" COLORAMA START ROUTINE ";(33,207);:'@422,"LOADING DRIVER";:M"DRIVER.BIN": X11500:X:@422," EXECUTING DRIVER";'8:BA&HFA00:BA22,255'k140:@419,"SETTING UP ML SUB ROUTINE";:240' 140:@419,"SETTING UP CLOCK";:300''ȁ19000:@417,"LOADING COLORAMA":200,32500:"COCO21.BAS"'҅(X$)12 X$"00"'ܐ'((2I32600 32704:DT:I,DT:I:132602:( 0,0,174,140,251,52,16,238,228,174,94,48,31,79,52,18,166,196,39,42,166,196,230,69,160,69,36,2,230,196,52,1,174,66,16,174,71), 109,69,38,4,50,97,32,41,166,128,160,160,39,4,50,97,32,5,90,38,243,53,1,35,24,174,66,16,174,71,175,71,16,175,66,166) 196,230,69,231,196,167,69,234,69,234,228,231,228,51,69,174,97,48,31,175,97,38,176,166,228,50,99,38,161,50,98,57)"),ADR 32512)6BUFADR28)@2 ADR)J XI 0 27)T DT*^ ADR XI, DT* h XI*;r &H30,&H8D,&H00,&H18,&HC6,&H09,&H86,&H0A*i| &HB7,&HFF,&H6E,&HB6,&HFF,&H6F,&H2B,&HF6* &HF7,&HFF,&H6E,&HB6,&HFF,&H6F,&HA7,&H80* &H5A,&H2C,&HEB,&H39*A2(0)* (BUF1)12 410*@322,(BUF): BA11,((BUF0))+1@325,(BUF1): BA10,((BUF 1)) : :MONTH+p‡@328,(BUF2): BA9,((BUF 2)) : : DAY OF THE MONTH+̇ @335,(BUF5): BA8,( (BUF 5)) : : HOUR+և@338,(BUF7): BA7,( (BUF 7)) : : MINUTES,@341,(BUF9): BA6,( (BUF 9)): : SECOND,,$1:120,*J8,LMڀI32570 32598:A:I,A:I:,M189,179,237,31,1,166,129,167,141,0,17,16,174,132,95,235,160,106,M 141,0,7,38,248,79,189,180,244,57,255,N 1:10 7)) : : MINUTES,@341,(BUF9): BA6,( (BU0 RETURN 500 PCLEAR1:GOTO120 EK(BUF + 2)) : ' DAY OF THE MONTH 460 PRINT @335,PEEK(BUF+5):POKE BA+8,( PEEK(BUF + 5)) : ' HOUR 470 PRINT@338,PEEK(BUF+7):POKE BA+7,( PEEK(BUF + 7)) : ' MINUTES 480 PRINT@341,PEEK(BUF+9):POKE BA+6,( PEEK(BUF + 9)): ' SECOND 49W] THIS UTILITY WILL PUT AN END OF FILE MARKER IN WORDPROCESSOR FILES LIKE SCRIPSIT ETC. JUST TYPE IN THE FILENAME WHEN ASK AND THE PROGRAM DOES THE REST 10000,32400: I$(500): 20:9200 :" ENTER FILENAME TO BE CONVERTED --->";X$ I0:"I",#1,X$:9100P II1:#1,I$(I): I$(I): (1) : 13Z300A32552 32585:DD$:V("&H"DD$):A,V:A:32555( 00,00,00,30,8D,00,04,BF,01,92,39,E7,8C,F2,C1,0E,26,01,39,BD,AD,33,BD,A4,26,FC,09,71,BD,AE,B4,7E,AD,9E210pd "THIS SEEMS TO BE THE END OF THE FILE. ENTER THE FILENAME UNDER WHICH YOU LIKE TO SAVE THIS FILE"n"--->";S$:9200:"O",#1,S$x X1 I:#1,I$(X): I$(X):X:#1: "******** DONE *****":ȇ " THERE IS SOMETHING WRONG WITH YOUR DISK OR FILENAME" 100,100:N, " THIS FILE HAS AN END OF FILE MARKER":$,LIKE TO SAVE THIS FILE"n"--->";S$:9200:"O",#1,S$x X1 I:#1,I$(X): I$(X):X:#1: "******** DONE *****":ȇ " THERE IS SOMETHING WRONG WITH YOURative, check#";F:7** :1:82:CC$L8$* A$""::"Testversion 2.5":"Enter your ID-Code please.":BA4,0:"New users: Hit enter (Id will NOT echo) ->";A$: BA4,255* X(A$): XUX X1 21 : 13* ".";:A$A$I$: (A$)8 14 : 11+> A$(" "A$,6):5000:#1,X: A$U3$ 15 : "No record"+eXYXY1: XY4 184 : 16: 10+EX2:C6$U6$:SY(U6$):5642:19+" Please answer correctly";(7):,?C7$U7$:LV(C7$):C6$U6$:C1$U1$:C2$U2$:C3$U3$:C4$U4$:LM(U5$):#1:I(C1$" "," "):CF$(C1$,I1): CB1 CB0:100 : 38,t:"Please enter you first AND last name ->";A$,(A$)6 14 : 2000:(A$)15 "Only 15 Chr. please":21 : C1$A$,"ENTER CITY & STATE -->";:C2$:C2$(C2$,10)-T"Do you use Colorcom/E or Videotex Y/N -> ";:1014:1012:I1 SY0:5642 : 5600-"Name: ";C1$:"From: ";C2$:"Correct ";:1014:1012:I2 10. $C1$(C1$(10,32),15):C7$"0":"Join the Colorama family! For only $89.95 you can be a Sysop too!".%"Enter 3 letters for your ID code ->";C3$:(C3$)0 37 : C3$(C3$,3):5100:#1:C3$((UL)C3$,6):"Your ID code is ->";C3$;"<":" Use it for future logons. Hit > ";X$:UMUM1/u&X0:"Loging in"::C1$;" Caller# ";CN;:@0'UPLOAD BYSYSOP AT:850104 00:25:15 **** COLORAMA INFOTEK ***** WELCOME TO THE COLORAMA BULLETIN BOARD SYSTEM-GROUP.IF YOU ARE INTERESTED IN RUNNING YOUR OWN BBS YOU MAY CONTACT THE SYSOP THE PRICE OF THE COLORAMA BBS IS WELL BELOW OTHER SYSTEMS ON THE MARKET. THE FEATURES AND THE EASE OF OPERATION ARE OUTSTAN- DING. TO RUN THE COLORAMA YOU WILL NEED A AUTO ANSWER MODEM, A 64K COCO AND A MINIMUM OF 1 DISK DRIVE. EVEN IF YOU ONLY USE ONE DRIVE YOU'LL HAVE OVER 20 GRANS LEFT ON YOU DRIVE 0 AFTER FOR FILES LIKE DOWNLOAD ETC. THE STANDARD SYSTEM ALLOWS YOU TO HAVE 50 MESSAGES ON LINE AND STORE OVER 220 USERS. THE COLORAMA WORKS WELL TOGETHER WITH VIDEOTEX AND COLORCOM/E. ALSO THIS BBS SUPPORTS UPPER AND LOWER CASE INCLUDING COMMAND MODE. WHEN YOU FIRST LOGED ON YOU WHERE ASK ABOUT YOUR ID CODE. OF COURSE SINCE YOU DIDN'T HAVE ONE YOU DID HIT ENTER AND RESPONDED TO ALL QUESTIONS. YOU THEN WERE GIVEN AN ID CODE. THIS CODE IS SIMILAR TO A PASSWORD. SOME COLORAMAS WILL USE ACTUALLY A PASSWORD. IN EITHER CASE IT IS USED TO ALLOW YOU A FAST LOGON NEXT TIME YOU ARE CALLING UP THE COLORAMA. AFTER LOGIN THE COLORAMA WILL COME UP WITH A QUESTIONNAIRE YOU MAY READ YOURS AND OTHER ANSWERS LATER IN THE ANSWER SECTION. AFTER THE QUESTIONS ARE ANSWERED THE COLORAMA CHECKS FOR MAIL. BUT IT WILL NOT ONLY TELL YOU IF SOMEONE LEFT YOU A MESSAGE, IT WILL DISPLAY THE MESSAGE RIGHT THEN AND THERE. NEXT IN LINE YOU GET AN OPTION OF READING THE SIGNON MESSAGE OR THE UPDATE REPORT. THE SIGNON MESSAGE MAY CONTAIN INFORMATION FOR NEW USERS, THE UPDATE REPORT INFORMS YOU ABOUT THE LATEST STUFF ON THE COLORAMA. IT'S WELL WORTH READING AND FASTER THEN FINDING THE NEW STUFF BY YOUR- SELF! WELL THE NEXT THING DIS- PLAYED ON YOUR SCREEN WILL BE //////////////////////////////// T H E M A I N M E N U //////////////////////////////// THE SYSTEM COMMANDS ARE: --------A - ADVERTISE----------- HERE IS YOUR CHANCE OF ENTERING AN AD FREE OF CHARGE! WE EVEN PUT THE FRAME AROUND IT. BUT REMEMBER, YOU ONLY GOT 4 LINES A 30 CHARACTERS EACH. PS. NO SOFT- WARE TRADING ADS PLEASE! --------- A - ANSWERS ---------- HERE YOU CAN FIND OUT WHAT OTHER USERS ANSWERED TO THE QUESTIONS. THE QUESTIONNAIRE MAYBE DIFFERENT ON MANY COLORAMAS AND WILL BE CHANGED FROM TIME TO TIME. ----------- C - CHAT ----------- IF YOU REALLY GET STUCK OR IF YOU JUST LIKE TO TALK (TYPE) WITH SOMEONE THE CHAT MODE WILL PAGE THE SYSOP OF THE COLORAMA. IF HE IS AROUND HE WILL ANSWER. ---------D - DEPARTMENTS-------- HERE YOU WILL FIND THE SECTIONS SUCH AS DOWNLOAD, MAGAZINE, ETC. SEE THE SECTION BELOW. ----------- E - EXIT ----------- SOME MAY THINK IT'S OK TO JUST HANG UP. BUT IT IS TO YOURS AND EVERYONE ELSES BENEFIT TO LOG- OFF PROPER.TO DO THIS USE THE E=EXIT. USING THE EXIT AND YOUR ID CODE WHEN LOGING ON WILL ALLOW YOU TO SAVE TIME AND SUP- PLIES YOU WITH IMPORTANT INFOR- MATION. HOWEVER THIS MAY NOT BE THE CASE IF YOU HANG UP IN THE MIDDLE OF SOMETHING. SHOULD YOU EVER LOOSE CONNECTION DURING SESSION, CALL BACK IMMEDIATELY. SOME SYSTEMS ALLOW YOU TO RECO- VER WHERE YOU GOT CUT-OFF. -----------G - GAMES------------ THIS IS THE ON-LINE GAMES AREA. IF THE SYSOP SUPPORTS THIS, YOU MAY FIND SUCH GAMES AS WUMPUS, OR STARTREK, OR PERHAPS A D & D TYPE GAME. ------- I - INFORMATION -------- THAT'S WHAT YOU'RE JUST READING. IF IT DOESN'T HELP, TRY CHAT. ------ L - LEAVE MESSAGES ------ USE THE COLORAMA AS YOUR ELEC- TRONIC MAILBOX YOU CAN LEAVE MESSAGES ON THE COLORAMA TO OTHER USERS ON THE SYSTEM. THE MESSAGES CAN BE TO ALL OR TO AN INDIVIDUAL. IF YOU WANT TO LEAVE A MESSAGE TO THE PERSON WHO RUNS THE BBS, CALL HIM SYSOP. THIS STANDS FOR SYSTEM OPERATOR. SUB- JECT OF MESSAGE IS SIMPLY THE TITLE OF YOUR MESSAGE AND SHOULD GIVE THE READER AN IDEA WHAT TO EXPECT. YOU THEN WILL BE ASK TO ENTER YOUR MESSAGE IN A CATE- GORY. AFTER THAT YOU WILL HAVE TO MAKE AN DECISION, LET EVERY- BODY READ YOUR MESSAGE OR JUST THE ADDRESS. TRY TO LEAVE MESS- AGES OPEN TO EVERYONE A BBS EXISTS FROM INTERESTING MESS- AGES. HOWEVER I REMEMBER SEEING ON A BBS A COUPLE GUYS USING IT AS CHESS MAIL BOX .. AND I DON'T THINK ANYONE ELSE CARED ABOUT THE NEXT MOVE. THE BOTTOM LINE IS USE YOUR GOOD JUDGMENT. AFTER ENTERING ALL THE HEADER DATA YOU NOW CAN START TYPING. THE COLORAMA MESSAGE ENTRY HAS SOME WORD PROCESSOR CAPABILITIES, SUCH AS WORD WRAP, EDIT, LIST, CONT. AND SUCH. THE MAXIMUM CHARACTERS PER LINE IS 63. DON'T WORRY TO0 MUCH ABOUT IT. UNLIKE OTHER BBS THE COLORAMA DOESN'T CUT LINES, IT WILL REFORMAT THE LINES AND MAKE THEM FIT.OF COURSE AFTER 255 CHARACTER THE CAN'T TAKE ANYMORE INPUT ..JUST HIT ENTER AND EVERYTHING WILL BE FINE. AFTER YOU TYPED EVERYTHING YOU WANTED TO SAY. HIT ENTER (TWICE) YOU THEN WILL SEE A MENU YOU OPTIONS ARE THE FOLLOWING: EDIT - EDIT A LINE WHERE YOU MADE A MISTAKE LIST - LIST THE WHOLE MESSAGE CONT - CONTINUE THE MESSAGE SAVE - THIS SAVES THE MESSAGE TO DISK AND PUTS YOU BACK IN THE MAIN MENU ABORT- IT CANCELS THE WHOLE MES- SAGE AND YOU CAN START ALL OVER AGAIN. IF EVERYTHING LOOKS FINE TO YOU, JUST HIT S (S=SAVE) IN THIS MENU AND THE MESSAGE WILL BE SAVED. ---------- N - NAMES ----------- DO YOU WANT TO KNOW WHO ELSE IS OR WAS ON THIS COLORAMA.. NAMES IS THE SECTION WHERE YOU'LL FIND THE ANSWER. IF THE LIST GETS TOO LONG FOR YOUR TEMPER & TIME JUST HIT ANY KEY AND YOU'LL GET A CHANCE TO GET BACK TO THE MAIN MENU. ---------- O - ORDER ----------- IF ACTIVE ON THE INDIVIDUAL COLORAMA THIS OPTION ALLOWS YOU TO PLACE AN ORDER WHILE ON LINE. DEPENDING ON THE OWNER OF THE BBS, YOU MAY PURCHASE ITEMS WITH MASTER & VISA CARDS OR C.O.D -------- P - PARAMETERS -------- IF YOU WANT TO CHANGE LINE LENGTH, BIT MODE, CR/LF, CR/DE- LAY OR LIKE TO MAKE THE EXPERT MODE PERMANENT, ENTER THIS SECTION. DO YOU SEE ONE OR TWO LINES WILL BE THE NEXT QUESTION. ANSWER WHATEVER YOU SEE. IT WILL DETERMINE IF YOU NEED LINEFEED OR NOT. CARRIAGE DELAY - A HARD COPY TERMINAL MAYBE A BIT SLOW SO HERE IS A WAY TO SLOW THINGS DOWN. HOWEVER IF YOU USE A COCO JUST ANSWER NO. WORD WRAP IF YOU USE A SMART TERMINAL LIKE COLOR- COM/E OR EVEN VIDTEXT YOUR TERMINAL IS CAPABLE OF WORD WRAP SO HIT Y HERE. WORD WRAP - IF YOUR TERMINAL PROGRAM DOES NOT SPLIT WORDS YOU HAVE A FEATURE CALLED WORD WRAP. THEREFORE ANSWER THE QUESTION WITH YES. IF IT SPLITS THE WORDS ANSWER WITH NO. LINE LENGTH - EVEN IF YOU ONLY HAVE 32 CHARACTERS ON THE COCO YOU MAY STILL ENTER 96. IT SPEEDS THINGS UP A LITTLE. HOWEVER IS YOU USE A 64 CHARAC- TER SCREEN, WE RECOMMEND ENTERING 64. EXPERT MODE - YOU HAVE THE OP- TION OF EXPERT OR NORMAL BOARD MODE. THE DIFFERENCE IS IN THE MENU DISPLAY. IN THE EXPERT MODE THE COLORAMA DISPLAYS ONLY THE STARTING LETTER OF THE SECTIONS. THIS SAVES YOU TIME. HOWEVER YOU MAY GET LOST. IN THIS CASE HIT H AND THE REGULAR MENU COMES BACK UP. YOU ALSO CAN CHOOSE THE THE EXPERT MODE IN THE MAIN MENU BUT ONLY THE THE PARAMETER SEC- TION SAVES YOUR DATA FOR THE NEXT LOGON. ------S - SCOREBOARD------------ THIS SECTION CONTAINS THE HIGH SCORES FROM THE GAME SECTION. YOU MAY WAN TO TRY TO SCORES FROM THE GAMES SECTION. YOU MAY WANT TO TRY TO GET YOUR NAME ON THE LIST. ------ R - READ MESSAGES ------- IN THIS SECTION YOU CAN READ ALL OPEN MESSAGES PLUS THE PRIVATE MESSAGES FROM OR TO YOU. THE PRIVATE MESSAGES ARE SPECIALLY MARKED. IF A MESSAGE IS LEFT TO YOU OR FROM YOU IT WILL ALLOW YOU TO KILL IT. WE ASK YOU TO KILL ALL PRIVATE MESSAGES AFTER THEY ARE READ. OPEN MESSAGES TO YOU ARE MAY BE LEFT ON THE BOARD IF THEIR INTERESTING TO OTHERS. BESIDES READING ALL MESSAGES FORWARD AND REVERSE YOU CAN BE MORE SPECIFIC. YOU CAN CHOOSE THE CATEGORY SELECTION AND READ MESSAGES OF ONE CATEGORY ONLY. THE SCAN OPTION, IF YOU ENABLE IT, WILL ASK YOU AFTER DISPLAY- ING THE HEADER, READ(Y/N) ENTERING NO WILL SKIP TO THE NEXT MESSAGE. IF YOU WANT TO LEAVE THIS SECTION IN THE MID- DLE, JUST HIT ANY KEY DURING THE MESSAGE TEXT DISPLAY YOU THEN WILL BE GIVEN THE OPTION OF CONTINUE OR RETURNING TO THE MAIN MENU. THIS OPTION MAYBE ALSO USED TO PAUSE. THE OPTION IS ALSO ACTIVE IN MOST OTHER SECTIONS OF THE COLORAMA INCLUD- ING UPDATE, SIGNON, MAGAZINE, BOUTIQUE, DOWNLOAD, GALLERY AND INFORMATION. ----------T - TELL ME----------- TELL ME WHAT YOU LIKE ABOUT THE COLORAMA BBS. PUT YOUR COMMENTS HERE FOR OTHER USERS TO SEE. THIS ALSO HELPS ME TO MAKE THE SYSTEM BETTER FOR YOU. ---------- U - UPLOAD ---------- YOU MAY ASK WHERE ALL THE FREE PROGRAMS ARE COMING FROM ONE WAY IS THE UPLOAD. READ THE INSTRUC- TION OF YOUR SMART TERMINAL. IT WILL TELL YOU HOW TO LOAD A FILE FROM DISK OR TAPE IN THE BUFFER. THE PROGRAM FILES HAVE TO BE SAVED IN ASCII PRIOR TO LOADING. YOU CAN DO THIS AS FOLLOWS: LOAD YOUR PROGRAM IN MEMORY, THEN SAVE IT IN ASCII FOR EXAM- PLE "PROGRAM/BAS",A THE ",A" IS THE IMPORTANT PART. THE LAST STEP IS TO SET YOUR X-ON, X-OFF SET X-ON TO 11 HEX AND X-OFF TO 0D HEX. IF YOUR TERM. PROGRAM DOES NOT SUPPORT X-ON/X-OFF SEND ONE LINE AT THE TIME AND ALWAYS WAIT TILL YOU SEE THE PROMPT (>) --------X - EXPERT SPEED-------- THIS COMMAND SUPPRESSES ALL MENUS THROUGHOUT THE BBS. ONCE YOU BECOME USED TO THIS FEATURE, YOU MAY CHANGE YOUR PARAMETERS TO SET THE BBS TO EXPERT MODE. ---------M - MAKE STORY--------- ADD TO A STORY/DISCUSSION IN THE STORY SECTION. THIS IS WHERE EVERYONE CAN EXPRESS THEIR OPINIONS ON A PARTICULAR TOPIC. YOU CAN READ THIS SECTION FROM THE DEPARTMENT MENU. ----------- ? - HELP ----------- THIS COMMAND GIVES YOU THE FULL TEXT MENUS WHILE IN THE EXPERT MODE AND WILL GIVE YOU A BETTER DESCRIPTION OF THE COMMANDS WHEN IN THE NORMAL MODE. ******************************** << COLORAMA DEPARTMENT MENU >> ******************************** --------- M - MAGAZINE --------- IN HERE YOU FIND ALL KINDS OF STUFF. MAY BE THE LOCAL CLUB NEWS LETTER. OR A LISTING OF THE COLORAMAS. ..MAY BE A REPORT FROM THE LAST SUPERBOWL?? WHO KNOWS ..CHECK IT OUT!! --------- G - GALLERY --------- IF SUPPORTED FROM THE SYSTEM, YOU FIND COLOR GRAPHICS IN THIS SECTION OF THE BBS. TO SEE THE GRAPHICS YOU DO NOT HAVE TO SET YOUR PARAMETERS DIFFERENT. THERE IS NO!! NEED TO GO IN THE PARA- METER SECTION AND SET YOUR TER- MINAL TO 8 BIT. THE COLORAMA DOES IT AUTOMATICALLY. -------- B - BOUTIQUE --------- THE BOUTIQUE ALLOWS YOU (WHERE IMPLEMENTED) TAKE A WALK THROUGH THE STORE OF THE BBS. YOU FIND ALL KINDS OF MERCHANDISE OFF- ERED. MANY TIMES YOU'LL FIND ITEMS AT A LOWER PRICE THEN YOU SEE IN OTHER STORES. --------- D - DOWNLOAD --------- THIS IS ONE OF THE MOST POPULAR SECTIONS OF THE BBS WORLD. IN HERE YOU FIND COMPUTER PROGRAMS FREE OF CHARGE. IT IS POSSIBLE TO DOWNLOAD THEM IF YOU USE A SMART TERMINAL PROGRAM LIKE COLORCOM/E OR OTHERS. IT WILL NOT WORK WITH VIDTEXT. COMPARED TO OTHER COCO BBS THE COLORAMA GIVES YOU MORE INFORMATION IN THE SECTIONS LIKE DOWNLOAD. Whenever you choose a file it will display the transmission time for the "L" od the "D" option. It also tells you how long the file is (bytes). Then you get following options: ist ownload ft board If you choose the "L" option it goes on and list the program of text file you selected. The "D" command will cause most terminal programs to open their buffer and close it after the file has been transmitted. The "C" option is unique to the COLORAMA BBS. It allows you error free down loading of any file on the BBS. However you do have to use COLORCOM/E DISK VERSION 2.0 OR later to access this transmis sion protocol. Also make sure your diskette in the drive is NOT write protected. The "A" option will bring you back to the file number entry. All these option listed above work in any sections like Download, Magazine, Gallery and Boutique. -----------A - ANSWERS---------- HERE THEY ARE. THE ANSWER TO THE QUESTION "WHAT DO YOU LIKE ABOUT THE COLORAMA BBS?". IS YOUR ANSWER HERE? ------------S - STORY----------- READ THE STORIES HERE. WHEN YOU FINISH READING ONE, YOU ARE GIVEN THE OPTION OF ADDING TO IT. -------- W - WANTED ADS -------- THIS IS A VERY INTERESTING SEC- TION OF THE COLORAMA. HERE YOU FIND ADS FROM OTHER USERS. THEY MAY LIKE TO BUY OR SELL CHECK"THIS SECTION IS OFF LINE AT THIS TIME. WE HOPE TO HAVE IT BACK SOON" 000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21 a private message Y/N ";:1014:1012:I1 PV$"P":3092fH PV$"A"fR 330f :"QUESTIONNAIRE":"I",#1,"QUEST.DAT":X112:#1,A$:X:X12f #1,A$:A$:Xf Y1 9:#1,A$:A$;" ";: Y 3531,3532,3533,3533,3533,3533,3533,3539,3533g ˻X1$:Yg ̻X2$:Ygb ́1014:1012:3660: Y 3531,3532,3534,3535,3536,3537,3538,3539,3540gp X3$F$:Yg~ X4$F$:Yg X5$F$:Yg X6$F$:Yg X7$F$:Yg ӻX8$:Yg X9$F$g ه"SAVING..."g ޅ QQ49 QQ1 : QQQQ1hu 聦3600:Q$C1$:Q1$X1$:Q2$X2$:Q3$X3$:Q4$X4$:Q5$X5$:Q6$X6$:Q7$X7$:Q8$X8$:Q9$X9$:#1,QQ:#1:"THANK YOU ";C1$:42h#1:"D",#1,"ANSW.DAT",45:#1,15 Q$,10 Q1$,10 Q2$,1 Q3$,1 Q4$,1 Q5$,1 Q6$,1 Q7$,4 Q8$,1 Q9$:iLI1 F$"Y" : F$"N"iMi#V3674:Ii?ZX$"Y" "Yes" :"No"iE[iht LVLY 995 : "Tell me..."i~"What do you like about the COLORAMA BBS? -->";X$:(X$)5 100i"I",#1,"SURV.BBS":"O",#2,"WORK.BBS":X$C1$" "(X$,238)j (1) 3760 : #1,XX$:#2,XX$:3730jS#2,X$::"SURV.BBS":"WORK.BBS""SURV.BBS":100j؇"WANTED ADS":FX2:FL$"WANT":FX$"":519k< LVLY 995 : "ENTER AD - All ads are 5 lines by 63 chr. Do you like to enter an ad now? (y/n) ";:1014::I2 100k KX15k L3917:X:3920krM"LINE";X:A$(X): (A$(X))63 A$(X)(A$,63):" Line";X;" Reads":A$(X)kxNkP"The ad reads":X15:A$(X):XkZ"ave dit bort ";:MU$"ESA":1000::I 3940,3945,100l(d"Which line# ";X$:X(X$):X5 X 2 3930 : 3917:3920l9i "SAVING.."ln"I",#1,"WANT.BBS":"O",#2,"WORK.FIL":#2,"AD left by ";C1$;" ON ";CC$loX15:#2,A$(X):X:#2," "lp (1) 3954 : #1,X$:#2,X$:3952lr:"WANT.BBS":"WORK.FIL""WANT.BBS":100m PK2 mE"Kill the message (Y/N) ";:1014:1012: I2 mp KM9 " SORRY CAN'T KILL IT NOW":mKMKM1:PK(KM)(SR$(XX))::"Message# ";(SR$(XX));" Will be erased after you log off":mҒ65313,52:BA22,255: KM0 4060 : 4065"THIS SECTION IS OFF LINE AT THIS TIME. WE HOPE TO HAVE IT BACK SOON" 000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21T",49oO#1,15 U1$,10 U2$,6 U3$,6 U4$,5 U5$,6 U6$,1 U7$:o"D",#2,"USERLOG.DAT",49:#2,15U1$,10U2$,6U3$,6U4$,5U5$,6U6$,1U7$:p쁦5000:XUL UX:#1,X: (U1$,3,3)" " ULX: : X:X(DA$)100:UL1 UX:#1,UL:(U4$)X : UL:p,|"PARAMETERS"pn"Present settings":"Bits :";:(BA1)&HFF "8" : 7p"Nulls: ";(BA2):"C/R With";:(BA3)1 "out";p" Linefeed"pSY0qT(17):BA3,255:"$":"$":BA3,0:(10)"How many $ signs do you see (1,2) -> ";:MU$"12":1000:I2 SYSY10:"=NO LF" : "=With LF"q"Do you have word wrap (Y/N) -> ";:1014:1012:I1 5630q"ENTER LINE LENGHT ->";X$:X(X$): X20 X99 5628 : SYSY(X100)r@(13);"Do you want the BBS to slow down? (Y/N) -> ";:1014:1012:I1 SYSY10000r"BBS mode ormal xpert ";:MU$"NE":1000:: I2 EX3:SYSY100000r SYSY1000000rC6$(SY):C6$(C6$,6)r5660:5670sG(C6$,1)"1" BA1,0:65313,52:(27);:5693: (71);:5693: (52):BA1,255: (12): 65313,53:5662s (BA1)255 65313,52: (27);:5693:(71);:5693:(78): BA1,0:BA,0: 65313,53s:s&(C6$,5,1)"0" BA3,0 : BA3,255t%0LL((C6$,3,2)):BA12,LL:(C6$,2,1)"1" BA2,10 : BA2,0tG:(C6$,1)"1" EX3 : EX2tM;t`= X1120:X:tD"D",#1,"ACTIV.DAT",23:#1,4 N1$,3 N2$,16 N3$:tp"D",#1,"HEADDER.DAT",78t#1,17 H1$,21 H2$,18 H3$,6 H4$,3 H5$,13 H6$:u$d"D",#2,"TEXT.DAT",65:#2,65 MS$:uM"D",#1,"TEXT.DAT",65:#1,65 MS$:ucX"I",#1,"BBS.DAT"ul#1,MO,FM,TM,CN,UL,MY,C9$,AD,QQ,UM,US,ST,CB,LU,CT$uqCNCN1uvX0 OL:#1,SR$(X):X:#1:uC1$"" : "O",#1,"BBS/DAT"v (C1$,5)"SYSOP" MYTMvF#1,MO,FM,TM,CN,UL,MY,C1$,AD,QQ,UM,US,ST,CB,(C3$),C MS$:ucX"I",#1,"BBS.DAT"ul#1,MO,FM,TM,CN,UL,MY,C9$,AD,QQ,UM,US,ST,CB,LU,CT$uqCNCN1uvX0 OL:#1,SR$(X):X:#1:uC1$"" : "O",#1,"BBS/DAT"v (C1$,5)"SYS*** COLORAMA STORY MENU *** 1 RUMORS AND FACTS 1 SKYLINES by Peter Banz *** COLORAMA STORIES *** Welcome to the Colorama story section. This is a unique opportunity for you to creat a story together with other callers. Youmay read a story and then you have the option of adding to it.  [-ߴ!ߵ [vok[0'UPLOAD BYSYSOP AT:8409240122 ## THE COCO PHONE BOOK ## #### 1. OFFICIAL COCO BBS LIST APROVED BY THE COLORAMA HEADQUARTERS ##### LAST UPDATE SEPT 22. 1984 A = 24HR/7 Days N = Night time & Weekends * = 300/1200 baud L = No public access, ? = down when called, O = Odd hours ######## LIST OF ALL COLORAMA SYSTEMS AS OF Feb 28. 1984 ################# Phone number run by System name & location Comp. Code Former bbs 512-285-5028 Peter Banz COLORAMA Headquart's TX Coco * A 1 MEGA 405-726-6134 Jim Morgan COLORAMA of Hobart, OK Coco A 011-49-****-**** U. Jagush COLORAMA West Germany Coco 300/1200/2400 304-925-3338 Bob Vaughan 21.-Century Connect WV Coco L A COLOR-80 304-744-2491 Jeff Lynch Microw. Databank WV Coco ? A RAINBOARD 201-572-0617 Peter Jablow COLORAMA Highland Pk NJ Coco A COCO-BOARD 201-773-8265 Ted Altoz Meadowland Coconet NJ Coco * A 813-345-8100 Roger Lamb COLORAMA St.Petersb. FL Coco A RAINBOARD 813-733-2415 Reid Barker COLORAMA of Dunedin, FL Coco A 805-484-5491 John Basque COLORAMA o Camarillo CA Coco * A 409-983-2383 David Scott COLORAMA Port Arthur TX Coco A RAINBOARD 516-277-1285 Bob Candina COLORAMA Islip Terr. NY Coco A COLOR-80 808-262-5110 Tom Frey COLORAMA of HAWAII HI Coco A 405-***-**** Ted Freeman COLORAMA Oklahoma Ct OK Coco A 803-763-9666 Steve Zedalis COLORAMA Charleston SC Coco A COLOR 80 516-331-3718 COLORAMA Jeff Point NY Coco N 902-683-2086 Jeff Pine COLORAMA Pt.Mouton CAN Coco A 308-665-1526 Rick Hungerford COLORAMA of Crawford NE Coco N 509-489-5133 Terry Thompson COLORAMA of Spokane WA Coco 6-12PM 805-646-1627 Joe Russel COLORAMA of Ojai CA Coco 6-11PM 803-669-3275 Dennis Deringer COLORAMA of Florence SC Coco * A 417-781-4020 David Morgan COLORAMA of Joplin MO Coco A 213-690-4585 Paul Kush Next Step Yorba CA Coco N 813-697-1871 Charles Stockwell COLORAMA Rotonda W.FL Coco 6-11PM 817-641-0133 James Redmon Dragonfire BBS TX Coco N 716-473-2334 Jon Dickason COLORAMA Rochester NY Coco A 212-423-4623 Tom Dionysion Coco's Nest Farmingd NY Coco A 214-721-9136 Terry Luttrell Colorama of Irving Tx Coco N 201-827-7815 Allan Davenport COLORAMA Odgenburg NJ Coco A 717-652-8659 Scott Woolf COLORAMA Harrisburg PA Coco A 916-381-8788 Charles Doughty COLORAMA Sacramento CA Coco A 902-857-9843 Bruce Hall COLORAMA Hubbards NS Canada A 619-365-**** Loyd Blair COLORAMA El Centro CA Coco N 305-731-6097 Larry Hughes Hughes-A-Vision FL Coco N 414-251-7632 Dale Westmoreland Great L. COLORAMA Wi Coco N 914-965-7600 Fred Siudym COLORAMA Yonkers Ny Coco A 817-430-1876 Myron Geipe COLORAMA Roanoke Tx Coco N 815-485-6663 John McGinn COLORAMA Braidwood Il Coco N 515-277-6510 James Corcoran COLORAMA Des Moines Ia Coco A 804-466-**** John Magnum COLORAMA Norfolk Va Coco A 409-948-3357 Bob Hall Coco Nuts Texas City Tx Coco * A 506-382-2190 Leo Allain Can. Color Connect. NB Coco N 219-256-5782 Bill Sagendorf SAGCOM Mishawaka In Coco A 315-782-5447 Paul Stevens COLORAMA Watertown NY Coco N 212-825-0780 Ray Bisson COLORAMA New York 1 Ny Coco N 817-897-4700 Jim COLORAMA Glen Rose Tx Coco A 312-879-6880 Rich Parry COLORAMA Batavia, Il Coco A 212-423-4623 ARNOLD SCHIFFMAN COLORAMA of Queens NY Coco A 213-380-8086 Norman Wolfe Color America L.A. Ca Coco A 305-997-6830 Terry Weiss Colorama Boca Raton Fl Coco! A 504-293-7799 Gary Cash Colorama Baton Rouge La Coco N 609-399-7108 Peter Hess Colorama Ocean City NJ Coco N 615-688-8349 Mike Phillips K-80 Color Board TN Coco A 304-344-xxxx Bruce Haley The Program Store WV Coco N 602-836-9577 Jay Bohn Colorama Casa Grande AZ Coco N 816-232-2320 Rick Drozd Colorama St. Joseph MO Coco A 302-227-4375 Eric Flores Rehoboth Beach DE Coco A 718-251-2528 Brian Greenwald The Big B.G's Coco NY Coco A 516-928-8135 Ron Lamardo Port Jeff Station NY Coco A 301-774-5491 Craig Luecke Colorama Brinklow MD Coco A 604-949-9732 Dave Porter Colorama Port Hardy BC Coco N 212-682-0681 Steve Schechter Grand Central Term. NY Coco A 907-452-4829 Michael Harry Colorama Fairbanks AK Coco A ########### LISTING BY AREA CODE ### ######### ------------------------------------------------------------------------- Phone number Sysop Name System Name or loc. State Comp. Code System 201-572-0617 Peter Jablow COLORAMA Highland Pk NJ Coco A COLORAMA 201-773-8265 Ted Altoz Meadowlands Coconet NJ Coco * A COLORAMA 203-237-2668 DAVE SCHWARTZ Wallingford CT Coco A Cool Coco 206-255-5150 MARSHALL BUTLER Renton WA Coco A ? 209-836-1074 KEN DENNY Tracy CA Coco ? A Color 80 212-441-3755 BOB ROSEN Rainbow Connection NY Mod3 * A TBBS 212-441-3766 BOB ROSEN Rainbow Connection NY Mod3 * A TBBS 212-441-5719 BOB ROSEN Rainbow Connection Ny Mod3 * A TBBS 212-423-4623 ARNOLD SCHIFFMAN Queens NY Coco A COLORAMA 212-682-0681 Steve Schechter Grand Central Term. NY Coco A Colorama 212-825-0780 Ray Bisson COLORAMA New York 1 Ny Coco N COLORAMA 213-380-8086 Norman Wolfe Color America L.A. Ca Coco A COLORAMA 214-657-8147 RON GARRETT ICCC Henderson TX Coco A Color 80 215-253-1236 STEVE PITINO Easton PA Coco A Color 80 215-857-3035 JOE BRACH Parkersburg PA Coco A Color 80 216-788-7910 LARRY CADMAN Youngstown OH Coco A Color 80 219-256-5782 Bill Sagendorf COLORAMA Mishawaka In Coco A COLORAMA 219-923-0584 Fred Kotynski ? IN Coco N Rainboard 301-774-5491 Craig Luecke Colorama of Brinklow MD Coco A Colorama 302-227-4375 Eric Flores Colorama Reholth B. DE Coco A Colorama 303-249-7866 CHUCK DAVID Montrose CO Coco A Color 80 304-599-0760 WALLACE COLYER Mountanier Morgant. WV Coco A Colorama 304-744-2491 Jeff Lynch Microw. Databank WV Coco ? O COLORAMA 304-925-3338 Bob Vaughan 21.-Century Connect WV Coco L A COLORAMA 305-997-6830 Terry Weiss Colorama Boca Raton Fl Coco! A COLORAMA 305-525-1192 ALAN WATSON FT. Lauderdale FL Mod1 A ? 305-533-0333 Bob Boyce Lantana FL ? A ? 305-731-6097 Larry Hughes Hughes-A-Vision FL Coco N COLORAMA 308-665-1526 Rick Hungerford COLORAMA of Crawford NE Coco N COLORAMA 312-879-6880 Rich Parry COLORAMA Batavia, Il Coco A COLORAMA 313-981-5061 WADE HAMPTON Canton MI Coco A Color 80 315-782-5447 Paul Stevens COLORAMA Watertown NY Coco N COLORAMA 381-463-3371 Ike Steward Silver Coco LA Coco A ? 401-272-1138 Don Lambert Syslink80 Providence RI Mod3 A Original 401-512-2626 Andy Nulman COLORAMA Providence RI Coco (*) A COLORAMA 404-378-4410 LEE BLITCH Coco Board Atlanta GA Coco N Coco Bd 405-248-8433 NOEL FALLON Lawton OK Coco A Color 80 405-726-6134 Jim Morgan COLORAMA of Hobart, OK Coco A COLORAMA 405-***-**** Ted Freeman COLORAMA Oklahoma Ct OK Coco COLORAMA 409-948-3357 Bob Hall Coco Nuts Texas City Tx Coco * A COLORAMA 409-983-2383 David Scott COLORAMA Port Arthur TX Coco A COLORAMA 412-744-2335 John Yurek Coconet Pittsburg PA Coco A Original 414-251-7632 Dale Westmoreland Great L. COLORAMA Wi Coco N COLORAMA 419-***-**** Jeff Kranz COLORAMA of Toledo OH Coco COLORAMA 504-293-7799 Gary Cash Colorama Baton Rouge La Coco N COLORAMA 506-382-2190 Leo Allain Can. Color Connect. NB Coco N COLORAMA 509-489-5133 Terry Thompson COLORAMA of Spokane WA Coco N COLORAMA 512-285-5028 Peter Banz COLORAMA Headquart's TX Coco * A COLORAMA 515-277-6510 James Corcoran COLORAMA Des Moines Ia Coco A COLORAMA 516-277-1285 Bob Candina COLORAMA Islip Terr. NY Coco A COLORAMA 516-331-3718 COLORAMA Jeff Point NY Coco N COLORAMA 516-473-5621 Ron Lammardo Colorama Port Jeff. NY Coco A Colorama 517-224-8457 Steve Lopez MCS MI Mod3 A Mcs 602-242-8742 Ken Riggs Phoenix AZ Coco A COLORAMA 602-245-0488 DENNIS CONNOLLY Coconet Phoenix AZ Coco A Color 80 602-836-9577 Jay Bohn Colorama Casa Grande AZ Coco N Colorama 602-866-8141 Jim Cook Sands of Coco Ph. AZ Coco N ? 604-949-9732 Dave Porter Port Hardy BC Coco N Colorama 604-399-7108 Peter Hess Colorama Ocean City NJ Coco N Colorama 612-533-1957 BOB SHAW Mineapolis MN MOD3 A ? 615-688-8349 Mike Philiphs K-80 Color Board TN Coco A 616-956-9553 TOM MIX Forum80 Grand Rapids,MI MOD4 * A Forum 80 617-321-6809 ORMAN BECKLES Malden MA Coco A Color 80 617-646-6809 GREG MOORE Arlington MA Coco A Color 80 619-368-3839 MIKE COLLINS 29 Palms CA Mod3 * A Connection 80 619-474-8981 Joe Bennett San Diego CA Coco A Color 80 703-569-3716 Jiffy Jeff Washington DC Coco L A ? 707-437-6336 DAN DANIEL Travis AFB CA Coco A Color 80 713-331-2599 Coco Country Houston TX Coco ? ? 713-941-1542 FAT FINGERS Houston TX Coco ? A ? 714-***-**** Fred Wright COLORAMA Gardn Grove CA Coco A COLORAMA 714-350-2668 JOHN JAMES Fontana CA Coco A Color 80 718-251-2528 Brian Greenwald The big BG's Coco NY Coco A Colorama 803-669-3275 Dennis Deringer COLORAMA of Florence SC Coco N COLORAMA 803-763-9666 Steve Zedalis COLORAMA Charleston SC Coco N COLORAMA 804-466-**** John Magnum COLORAMA Norfolk Va Coco A COLORAMA 805-484-5491 John Basque COLORAMA o.Camarillo CA Coco * A COLORAMA 805-646-1627 Joe Russel COLORAMA of Ojai CA Coco N COLORAMA 805-687-9400 JIM LEDOUX Santa Barbara CA Coco * A Coco Corner 808-262-5110 Tom Frey COLORAMA of HAWAII HI Coco A COLORAMA 813-345-8100 Roger Lamb COLORAMA St.Petersb. FL Coco A COLORAMA 813-733-2415 Reid Barker COLORAMA of Dunedin, FL Coco A COLORAMA 813-879-1105 ERIC BODLEY Tampa FL Coco A Color 80 813-924-2626 DANA CAMPBELL Sarasota FL Coco A Color 80 815-485-6663 John McGinn COLORAMA Braidwood Il Coco N COLORAMA 816-232-4932 Rick Drozd Colorma St. Josef MO Coco A Colorama 817-897-4700 Jim COLORAMA Glen Rose Tx Coco A COLORAMA 817-430-1876 Myron Geipe COLORAMA Roanoke Tx Coco N COLORAMA 817-641-0133 James Redmon Dragonfire TX Coco N Colorama 818-334-2864 LA Coco Club Los Angeles CA Coco A Color 80 904-264-0335 WIZARD PENDLETON Orange Park FL Coco L A Coco Bd. 907-452-4829 Michael Harry Colorama Fairbanks AK Coco A Colorama 907-356-2626 KERRY CLABAUCH Wainwright AK Coco A ? 914-965-7600 Fred Siudym COLORAMA Yonkers Ny Coco A COLORAMA 916-***-**** Charles Doughty COLORAMA Sacramento CA Coco COLORAMA 919-758-5261 GARY DAVIS Greenville, NC Mod1 A Original * 6800 AND 6809 BBS'S * 312-397-8308 GEORGE DORNER PALATINE,IL HP MINI 405-722-6809 ROGER WALTON OKLAHOMA CITY,OK 6809 615-842-6809 TOM WILLIAMS HIXSON,TN 6800 503-761-6345 RICK BENSENE PORTLAND,OR 6809 404-891-0136 DENNIS WOMACK RINGGOLD,GA 6809 HAVE YOU EVER CONSIDERED RUNNING A BBS? CALL A COLORAMA TODAY! WE OFFER MORE FOR LESS AND SETTING STANDARDS IN COCO COMUNICATIONS. TRY US AT 1200 BAUD AND YOU WILL NOTICE THE DIFFERENCE IMMEDIATELY! TO ORDER A COLORAMA CALL ANY COLORAMA SYSTEM OR THE HEADQUARTERS AT 512 285 5028. ... AND WE GIVE YOU SUPPORT, ASK ANY COLORAMA SYSOP. Feel free to upload this list to any other BBS under the condition the credit lines and the update note is intact. The list is frequently updated. If you know about a new BBS, leave a message on the COLORAMA HEADQUARTERS 512 285 5028. THANK YOU! free to upload this list to any other BBS under the condition the credit lines and the update note is intact. The list is frequently updated. If you know about a new BBS, leave a message on the COLORAMA HEADQUARTERS 512 28ϯ ˯ ϯ ˯ﯠ ￟ Ͽϟ Ͽϟ ؖ ذ ذ ذ ذ ذ ذ ذ ذ ﯯ𯯯 ﯯ    𯿿 𿕕 𯿿 𯿿  ş ş ş ž ž ž ￿ž ￿ž Š ʯ ʯ ʯ ʿʿ ʿ ʿ ʿ ʟ ʟ ʟʟ ʟ 񵀀 񵀀 񵀀 񵀀 񵀀 񵀀 񵀀񀯧 񵀑 񵀀񀿿 񵀑񀀀 񵀀 񵀀 񵀀񀯧 񵀑 񵀀񀿿 THIS ONE OUT!! ----------U - UPDATES----------- THE UPDATE REPORT INFORMS YOU ABOUT THE LATEST STUFF ON THE COLORAMA. IT'S WELL WORTH READING AND FASTER THEN FINDING THE NEW STUFF BY YOUR- SELF! ------------E - EXIT------------ EXIT. SAME HERE AS IT IS THROUGHOUT THE BBS. PLEASE US IT! ----------T - TOP LEVEL--------- THIS WILL RETURN YOU TO THE TOP OF THE BBS MENU. ND FASTER THEN FINDING THE NEW STUFF BY YOUR- SELF! ------------E - EXIT----------& : DRIVER CHANGER&"6000&0M"DRIVER&6(&V2@37,"RS-232 DRIVER UTILITY&z<@67,"BY HANK WALTERS (C) 07/85&F@163,"1.) CHANGE SERIAL NUMBER&P@195,"2.) CHANGE SERIAL ACCESS&Z@227,"3.) CHANGE TIMEOUT ACCESS"' d@259,"4.) CHANGE BASIC ACCESS'-n@291,"5.) SAVE CHANGED COPY"'Ax@364,":";:A$'j (A$) 1000,2000,3000,4000,5000't 40'z'" CURRENT SERIAL NUMBER IS:'S(31900)256(31901):S$((30766)):M(31934):D(31935):Y(31936)( S;S$;M;(8);D;(8);Y((3"ENTER A VAULE BETWEEN 0 AND"(M$"65535 TO REPLACE";S(~.S:31900,(S256):31901,S((S256)256)(8"ENTER ANY ASCII VALUE BETWEEN"(B"0 AND 127 TO REPLACE ";S$(LS:30766,S(V"ENTER ANY VALUE BETWEEN 0 AND")`"255 TO REPLACE";M) jM:31934,M)Et"ENTER ANY VALUE BETWEEN 0 AND")]~"255 TO REPLACE";D)mD:31935,D)"ENTER ANY VALUE BETWEEN 0 AND")"255 TO REPLACE";Y)Y:31936,Y))О)ڇ" CURRENT SERIAL ACCESS IS:"*" ASCII(";(31294);") THEN ASCII( 3 )"**?"ENTER ANY ASCII CODE BETWEEN"*e"0 AND 127 TO REPLACE";(31294)*u X:31294,X*{* * ‡" CURRENT TIMEOUT ACCESS IS:"* ̇"ASCII(";(31300);") THEN ASCII( 3 )"* և* "ENTER ANY ASCII VALUE BETWENN"+! "0 AND 127 TO REPLACE";(31300)+1 X:31300,X+7 +=+c" CURRENT BASIC ACCESS CODE IS:"+:ADD BASIC ACCESS CODE+:CHANGE ROUTINE HERE.+ȑ++" SAVING CHANGED DRIVER TO DISK"++M"DRIVER",30208,31999,30209+, p200,30207:30EPLACE";(31300)+1 X:31300,X+7 +=+c" CURRENT BASIC ACCESS CODE IS:"+:ADD BASIC ACCESS CODE+:CHANGE ROUTINE HERE.+ȑ++" SAVING CHANGED DRIVER TO DISK"++M"DRIVER",30208,31999,30209+, p 0, 0, 0, 0, 1, 0,"", 0, 0, 0, 0, 0, 0, 0, 0,"" "0000X01" "0000X02" "0000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21" "0000X22" 1, 0,"", 0, 0, 0, 0, 0, 0, 0, 0,"" "0000X01" "0000X02" "0000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21 "THIS SECTION IS OFF LINE AT THIS TIME. WE HOPE TO HAVE IT BACK SOON" 000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21 "THIS SECTION IS OFF LINE AT THIS TIME. WE HOPE TO HAVE IT BACK SOON" 000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21

arameter-If you get garbage try this section ead msg.-Read messages left by others ell Me -Enter your comment (1 line only) pload -Alows you to send a file to the BBS pert -Shows only letter commands THE COLORAMA DEPARTMENT MENU OPTIONS nswers -shows that others left in the TELL ME outique -Lists things you can buy on here ownload -Allows you to get a file from the BBS allery -Shows graphic pictures (not all Comp) agazine -Read articals or look for other BBS's tory -Read and add to a story anted ad-Read ads from other callers op level-Get you back to the top menu xit BBs -Allows you to logoff -------------------------------------- all Comp) agazine -Read articals or look for other BBS's tory -Read and add to a stor"THIS SECTION IS OFF LINE AT THIS TIME. WE HOPE TO HAVE IT BACK SOON" 000X03" "0000X04" "0000X05" "0000X06" "0000X07" "0000X08" "0000X09" "0000X10" "0000X11" "0000X12" "0000X13" "0000X14" "0000X15" "0000X16" "0000X17" "0000X18" "0000X19" "0000X20" "0000X21܀X1 KM:XX0 OL: PK(X)(SR$(XX)) SR$(XX)"0000"(SR$(XX),3):" DELETED MSG# ";PK(X):X : XX:Xn::USUS1:US100 US1n⁦8013:8019:CB0 5700:N1$C3$:N2$OT$:N3$AT$:#1,US:nn@4065n:"D",#1,"USERLOG/DAT",49oI#1,15 U1$,10 U2$,6 U3$,6 U4$,5 U5$,6 U6$,1 U7$:o"D",#2,"USERLOG.DAT",49:#2,15U1$,10U2$,6U3$,6U4$,5U5$,6U6$,1U7$:p쁦5000:XUL UX:#1,X: (U1$,3,3)" " ULX: : X:UMUM1:X(DA$)D:UL30 UX:#1,UL:(U4$)X : UL:p-|"PARAMETERS"po"Present settings":"Bits :";:(BA1)&HFF "8" : 7p"Nulls: ";(BA2):"C/R With";:(BA3)1 "out";p" Linefeed"pSY0pqeMX$"1,2":(17):BA3,255:"$":"$":BA3,0:(10)"How many $ signs do you see (1,2) -> ";:MU$"12":1000:I2 SYSY10:"=NO LF" : "=With LF"q"Do you have word wrap (Y/N) -> ";:1014:1012:I1 5630q"ENTER LINE LENGHT ->";X$:X(X$): X20 X99 5628 : SYSY(X100)rQ(13);"Do you want the BBS to slow down? (Y/N) -> ";:1014:1012:I1 SYSY10000rMX$"N,E":"BBS mode ormal xpert ";:MU$"NE":1000:: I2 EX3:SYSY100000r SYSY1000000rC6$(SY):C6$(C6$,6)r5660:5670sb(C6$,1)"1" BA1,0:65313,52:(27);:5693: (71);:5693: (52):BA1,255: (12): 65313,53:5662s (BA1)255 65313,52: (27);:5693:(71);:5693:(78): BA1,0:BA,0: 65313,53s:s&(C6$,5,1)"0" BA3,0 : BA3,255t@0LL((C6$,3,2)):BA12,LL:(C6$,2,1)"1" BA2,10 : BA2,0tb:(C6$,1)"1" EX3 : EX2th;t{= X1120:X:tD"D",#1,"ACTIV.DAT",23:#1,4 N1$,3 N2$,16 N3$:tp"D",#1,"HEADDER.DAT",78u#1,17 H1$,21 H2$,18 H3$,6 H4$,3 H5$,13 H6$:uEd"D",#2,"TEXT.DAT",LG2:#2,(LG2) MS$:ut"D",#1,"TEXT.DAT",LG2:#1,(LG2) MS$:uX:"I",#1,"BBS.DAT"ul#1,MO,FM,TM,CN,UL,MY,C9$,AD,QQ,UM,US,ST,CB,LU,CT,CT$uqCNCN1uvX0 OL:#1,SR$(X):X:#1:vC1$"" : :"O",#1,"BBS/DAT"v8(C1$,5)"SYSOP" MYTMvw#1,MO,FM,TM,CN,UL,MY,C1$,AD,QQ,UM,US,ST,CB,(C3$),CT,CT$vрX0 OL:#1,SR$(X):X:#1:vMN(SR$(0)):32600,(N256):32601,N(N256)256:X(0)vNw3SMO0:FM9999:X0 OL: (SR$(X))0 MOMO1: (SR$(X))FM FM(SR$(X))wCTX:7100:w XX0:NR((SR$(XX),2)):NR(NR10):TMTM1:SR$(XX)((TM10000),4)(SR$(XX),3):w#((24):"READ ERROR":(20):9100:100w'F110:I$:I$"" 10002 : F:530xS'F10:"Continue? (Y/N) ";:1014:I1 (17,8)(17,32)(17,8);:530 : xs' FX2 FX0: 100 : #1x'BF1 (20)x' FL$"GRAP" 5650:FX$"L" 100x'540x*I$:I$"" ::MSGx*EX3 "T,N,E,C,?-->";:11005y/*"op level menu ext msg. xit ont.-> ";yi*MU$"TNEC?":1004:: I 100,11100,180,11010,11002y{+ (64,8);:y+\SS(SN10)LT:y:C1$C1$"*IL":AT$"*L*"AT$: 181yN 15000z`U2999,32500:LY0:OL52:UX230:LG63:MS$(12),SR$(OL2),A$(35):BA&HFA00:BA14,2:1:7000:032602:13824:332570:9100:815000:BA21,0zU &HAC7C,126:&HAC7D,&HAC:44158,124:BA22,255:2"*IL":AT$"*L*"AT$: 181yN 15000z`U2999,32500:LY0:OL52:UX230:LG63:MS$(12),SR$(OL2),:ST$"S":352\>‡:"SAVING..":"I",#1,FL$:"O",#2,"WORK.FIL"\Å (FL$,4)"STOR" 709: 710:#2,"SIGNED ";C1$ : #2,XX$: 710:FL$"WANT.BBS" #2,(32,"-"):#2," ": 709 : 709\Ě: FL$:"WORK.FIL" FL$:100]Ņ (1) : #1,X$:#2,X$:709],ƀ S1X1:#2,MA$(S):S:]"ORDER section - do you like to place an order at this time? ";:1014:1012:I2 100]:"The salesman is on his way ...":CB1:4050:"ORS.BAS"]]600] 810:100^;*:"Todays date ";(CC$,5)"-19"(((BA11)),2):"Logon time:";CT$^p41:T1((TICT)60): T10 CTCT86400:820^9"time:";TW$;" online:";T1;((TICT)(T160)):OT$((TICT)60):OT$(OT$,((OT$)1)):_o(0)7 "Upload disk full...":100 : :"Enter X-ON value of your terminal (DEC #!!)";Y: Y1 Y128 "Not accepted!": 100 : Y$(Y):F$(13)_"Enter file name orhit to abort --> ";A$:A$"" 100 : 2000: 2005:X$(A$,8)` "Type 'END' to end upload mode":BA12,0:BA23,16`_"O",#1,X$"/UPL":#1,"0'UPLOAD BY";C1$;" AT:";DA$;TW$: (Y)Y$ Y$">":XF$""` Y$;:A$:A$"END" A$"end" 950 : #1,A$:940`#1:BA23,80:BA12,LL:CQ$"Thank you ";CF$:CQ1 220 : 100a"<< On line game menu >>"::" 1 HAMURABI"aEŻ"Enter # to play or for Top menu -> ";X$awDž(X$)0 CB1:"Loading ":4050 : 100aX(X$): X 971,972,973aʁ100a˕200,32500:"GAME1.GAM"â RUN"GAME2.GAM"a͂ ADD. GAMESb:"! No access ! leave request at logoff"::100b9"Enter Choice ->";:1004bpMU$"" 100 : B$"??"(2,8)(2,32)(2,8);bI$:I$"" 1004 : (I$)96 I$(((I$)32))bI(MU$,I$):I0 1001 : I$;:bX110:I$:I$"" XbcI1 "es" : I2 "o"cc/MU$"YN":1004c5cPMWMW1: MW7 15000cVcЀX1((A$)):Y((A$,X,1)):Y96 (A$,X,1)((Y32)):X : XcѐcՀY1 (A$):YY((A$,Y,1)): YY65 YY90 (A$,Y,1)" "c֋Y:d:ڀX1 (C1$):(C1$,X,4)"SYSO" I25:F$C1$:C1$"STUPID TURKEY"dCۋX:d O7O71: (SR$(O7))LM O7OL1 3010 :".";: 2999d d X$((C1$(21,32)),21):6000:XXO7 OL:X((SR$(XX),2)):F0:#1,X:X$H2$ (H2$,4)"$All" 3012e# Ç".";:XX:#1::" Check complete":45eh ą (H2$,4)"$All" F3:3050 : (SR$(XX))0 3050 : 3011e :"Msg#: ";H4$:"From: ";H1$:"Subject: ";H3$:"Dated : ";H6$:X1$H1$:X2$H2$:X3$H3$:X4$H4$:X5$H5$:X6$H6$f9 LT((H5$,2)):#1:6800:S(X10) (X10)LT: #1,S:SZ((MS$,2)): (MS$,SZ): Sf ::#1:6000: F3 3011 : H1$X1$:H3$X3$:H4$X4$:H5$X5$:H6$X6$:H2$C1$"":#1,X:#1f  (X5$,1)"P" 4003 : 4002g "Reply to this message (Y/N)? ";:1014:1012: I2 6000:3011 : RP3g O7XX:XXOL:L1$X1$:L2$(X3$,((X3$)3))"": (X5$,1)"P" "Keep it a private message Y/N ";:1014:1012:I1 PV$"P":3092g PV$"A"g 330g I1500:I$:I:hl 9540: BA12,0::"HOLDING FOR NCK": BA3,255:CK0:LST0:I0:RET0:X0:BA1,255: BA4,0::BL1:BK1:AK$(6):NK$(21):CK$(24):I$""h I$:XX1:I$NK$ 3512:X20003540h 3504h 3576:F(1):#1:3580:F1(1):F2F1128:F30i BKF1 3520:#1,BK:3584:A3((A$)):A$;(A);:3536i1 3576:F31:BLF21iq ā3584:XBL BL127:XF (0);:X:LST1:3532:#1,X i ȇA$;:CKCK(A$):Xi XX(CK256):CKCK(XX256): (CK);:CK0i Ё3560:OK 3540,3544,3548i ԇ CK$: "ABORTED": 3572j RETRET1: RET9 3540 :3556ja ܅ LST1 (4);: 3499:CKCK1: OK 3 CK4 3548 : 3572jx BKBK1:RET0:BLXj F31 3516,3524j I0j II1:I$:I$AK$OK3::I$NK$OK2::I$CK$3540:I2000OK1:j 3564k BA4,255: BA3,0: 5642: 540k8 #1:"D",#1,X$,1:#1,1 A$:k_ #1:"D",#1,X$,128:#1,128 A$:k(1);(BK);(255BK);:kX1500:X:kt LVLY 995 : "Tell me..."l~"What do you like about the COLORAMA BBS? -->";MA$(1):(MA$(1))5 100l/XX$C1$" -> ":X2:FL$"SURV.BBS":706l^؇"WANTED ADS":FX2:FL$"WANT":FX$"":519l< LVLY 995 : "ENTER AD - Do you like to enter an ad now? (y/n) ";:1014::I2 100lLXX$"AD BY: "C1$" ON "DA$:FL$"WANT.BBS":ST$"S":352m PK2 mA"Kill the message (Y/N) ";:1014:1012: I2 ml KM9 " SORRY CAN'T KILL IT NOW":mKMKM1:PK(KM)(SR$(XX))::"Message# ";(SR$(XX));" Will be erased after you log off":mҒ65313,52:BA22,255: KM0 4060 : 4065nl:"Enter string to be replaced":">";WO$:"Replace it with ":">";W$:WO(WO$):WS(MA$(J))JWW1 (WSWO1):(MA$(J),WW,WO)WO$ MA$(J)(MA$(J),(WW1))W$(MA$(J),(WSWOWW1)) : WWKMA$(J)(MA$(J),LG):"LINE";J;"READS NOW":MA$(J):368K368K]X10 "Sorry you got 10 lines":368 : "Please continue ":XX1::XKg368Kr5500K:#1:5000:404:100KU1$C1$:U2$C2$:U3$C3$:U4$DA$:U5$(TM):U6$C6$:U7$C7$:#1,((C3$)):#1:L "USERLOG":5700:5020:XUSL5XX1:#1,X:505:X1 501 : X100LbXX1:#1,X:505:X(US1) 100 : 502L(N1$)0 : #2,((N1$))::U1$:U2$:"Last on ";U4$:"Min. online:";N2$: (C1$,5)"SYSOP" N3$M I$: I$"" "Continue ?":1014: I2 100MMFSS1:XS:S4 99000:550: EDIT IFS=>?MiS5 570:X1 : S6 X2Ms520MX0:571::S0NK9510:Y$"/BBS:"((X),1):X$FL$FX$Y$:"I",#1,X$:99000:#1:"D",#1,X$,1:F(1):#1:"I",#1,X$:FX2 528 ::(FX$)0 "FILE#";FX$;" LENGTH";F;"BYTE="(F128)"BLOCKS":528N "ASCII transm. time";: (230)41 FF59 : FF23N " #### SEC.";FN EX3 "L,D,C,X,A,T,?,->";:525O "ist ownload ft modem imelist bort ->";OD Y0:MU$"LDCA?TX":1004:: I 528,526,573,540,524,579,3500O^(18):BF1:BA12,0OFL$"GRAP"C6$"000011":5660O#1,A$:A$O(1) 580: : 10000P( FL$"STOR" (FX$)0 S0 "Do you like to add to this story ";:1014::I1 FL$X$: 705 : 100P^ FX$"L" 10009 : FX2 100 : I10:10003P:EX3 "T,D,M,E,#,?->";:542P"op level-,epartm-,enu xit or file#-> ";QS0:X0:MU$"?MTDE123456789":1004: I 541,544,100,130,180QEX$I$:MU$(13)"1234567890":1004:I1546 : X$X$I$:546QY :FX$"S":519Q":"Searching..":Y$:FX$X$:520Q&571:FTFT1:FT6 100 : B$"##No such file##"B$:FX$"S":X0:S0:520Q0EX3 FX$"S"Q1519Q:Q;R<R'=A(230):A170 F$"B":F$"A"R]>:A$F$X$:M"DFT.BIN":Y$1(A$):S$(Y$,1):S$R?S$"B" "YOU DON'T HAVE COLORCOM/E DISK 2.0+ !!"R@S$"C" " DISK ERROR - ABORTED "RA544S%C (7)"You have 5 sec. to get ready. A beep signals the end": X1 3500:X:Y2: 528SID Y2 B$(8):X1 2500:XSOESX#2:F100:SU$"":RM$"OFF":#1:6000:6500:"READ MESSAGES"SYMX$"F,R,I,C,T,N,E,S&R":EX3 MX$"/";RM$;"? ->":603TWZ(13)"orward everse ":"ndividual by category":"op l.menu ew messages":"xit BBS can & Reply ";RM$Tz["Available msg: ";FM;" - ";TMT\MU$"E?FRICTNS":1000::I 180,602,610,610,670,605,100,609,698UF]MX$"A,C,G,I,T,X,Y":X$(13):X$"Available categories:GOSUB70:MU$="ACGITXY":GOSUB1000:PRINT:SU$=I$:PRINT"Category ";SU$:GOTO601UhaYLM1::"New messages":612Ub"Starting msg#?";X$:"Hit space to stop"::Y(X$): I4 640UdDR1:Y0 YFM: FM9999 FM0 100VfX0 OL: (SR$(X))Y 616 : X:"No messages found":600V+hXXX OLVjSN((SR$(XX),2)):#1,SN:694:RM1 620 : (13)"Msg# ";H4$:"From: ";H1$:"To: ";H2$:"Subject: ";H3$:"Msg left on:";H6$:LT(H5$):622Vk600VlXXF 670 : XX:100WnI0:692:I1 XX : SS (SN10) (SN10)LT:#2,SS:SZ((MS$,2)): (MS$,SZ):11000: SS:4000:FXX 670 : RM$"ON" 675 : XX:100W~XXW600WDR2:Y0 YTMW"":XOL 0 1:(SR$(X))Y 646 : XXXXX 0 1: (SR$(XX))0 XX : 618X"600Xb:F0:"Msg# (C/R to END)->";Y$:(Y$)0 600 : Y(Y$)XF1 OL:Y(SR$(F)) XXF:XXXX F:618 : F:"Message not found ":670X600Y."Reply (y/n)";: 1014:1012: I1 XX:600 : YM(SR$(XX)):X1$H1$:X3$H3$:X5$H5$:RPDR::3090Y\:6000:6500:RP0:YYM: DR 612,640Yf600YRM$"ON" MU$"YNQ":"READ (Y/N/Quit)";:1004:1012::I 693,693,600YY(C1$,5)"SYSOP" : "Status ";(H5$,1);:PK2:RM0:Z=RM0:PK0:(H5$,1)"P" RM1 : (H5$,1)"R" LV3 RM1Zw(C1$,9)(H1$,9) (C1$,9)(H2$,9) PK2:RM0ZRM1 : SU$"" : SU$(H3$,2,1) RM0: : RM1:ZRM$"OFF"RM$"ON":RM1 : RM$"ON" RM$"OFF":RM0[:601[Z LVLY 995 : "MAKE STORY. you can add up to 10 lines to the following stories"[r"I",#1,"STORS.BBS"[ (1) : #1,A$:A$: 702[:"Enter story # or 0 to abort ->";X$: (X$)1 100 : FL$"STOR"X$".BBS":"I",#1,FL$\ BDTSE?WAU":1000:AT$AT$"#"I$::I 150,154,160,152,100,162,180,131,3800,163,1648Z8vFL$"NEWS":FX$"":5608FL$"DOWN":FX$"":5608FL$"GRAP":FX$"":5608FX2:FL$"INFO":FX$"S":5608FL$"MERC":FX$"":5609FL$"STOR":FX$"":5609FL$"SURV":16994FL$"UPDATE":1699|"SCOREBOARD"::"I",#1,"SCORES.DAT": X1 20:#1,X$:X$:X:1009FX2:I2:FX$"":5199"CLUB CORNER":FL$"CLUB":FX$"S":5609"PRIVATE CELLAR":FL$"CELL":FX$"S"::560:6(0)6 "DISK FULL":100 : X0::X$:"I",#1,XX$"S/BBS":XX1:#1,A$(X):A(A$(X)):"File #";A;" Taken": (1) #1:"You have"(0)2300"Bytes free on the disk":CQ1 175 :"Your file will be #"A1 "Name of file? (C/R) To Abort ":X$ : 174;X$"" 100 : "O",#1,XX$"S/BBS":XX1X:#1,A$(XX):XX:#1,(A1)" -"X$" BY "C1$" ON "L8$:#1:"Start at the promt, type END to exit ";CQ$:Y$((A1001),2):Y$(Y$,2):BA23,16:BA12,0<-(Y$,1)"0" Y$(Y$,1):"O",#1,XX$Y$"/BBS":940 : "O",#1,XX$Y$"/BBS":XO$">":940es o op Menu -> ";:MU$"YNT":1004::I 182,181,100={ 571:184: "Please hang up now":X1 190:A(&HFF20):AA &HFD:&HFF20,A:X:4050:200,32500:"COCO21"=FB4:L1$"SYSOP":L2$"FEEDBACK":PV$"P":352= C91 "Don't forget your ID code is ";C3$=>X(0):(3)40 203>*X0:"Chat Mode - paging sysop ....">XX1: X6 203 : B$;" RIIING.";:210,15: Y140: (344)247 210 : Y:202>˒1054,255:"Sorry Sysop seems to be out of town!?!": 100>҇"... Hi ";CF$;" I'm .......Can I help you ?"?ܻ">";X$:(X$,6)"BYE" X$"bye" 230 : (X$,6)"REC" "IS IT OK IF I RECORD THE CHAT (Y/N)-->";:MU$"YN":1004 : (X$,6)"OFF" "RECORDING OFF":#1:220 : 220@ ݅I1 X$"CHAT WITH THE SYSOP":CQ1:CQ$" RECORDING MODE":XX$"CLUB":173 : "NO":220@KCQ0:CQ$"":X$"":"Hope to see you back soon ":X$"":100@b,CO0:I0:BA23,16@1 LVLY 995 : 1200:"Msg. to: (c/r=Abort) ";A$: A$"" 100 : 2000@2L1$(A$,20):I1 377 : "Message title->";L2$:L2$(L2$,14)A26X$(13):"Category:":EX3 "A,C,I,T,X,Y" : 70AQ7MU$"ACGITXY":1000:W$I$Aj8L2$"#"W$"#"L2$:A9L1$"$ALL" (C1$,5)"SYSOP" L1$"$All"A@PV$"A":" Message open to all?";:1014:1012:I2 PV$"P"B=E PV$"A" LV2 "Restricted to Level 3 (y/n)":1014:1012:I1 PV$"R":L2$L2$""BJ (13)"Message to: ";L1$: "Subject ";L2$:PV$"P""Private message to ";L1$ : "Open message "BT"It this correct? ";:1014:1012:I2 300 : CH` X1 10:MA$(X)"":X:EX3 356 : "You're allowed 10 lines a";LG;"chr - linewrap active!"Crc"To end hit on a blank line"Cd X1 11Ce9100:X10 X10:MA$(10)(MA$(10),LG):368CfX;(8);">";:MA$(X):MA$(X)"" 368D g X10 X10:MA$(10)(MA$(10),LG)Dh9357:MA(MA$(X)):MALG ILG LG34 1: ((MA$(X),I,1))32 I : XX1:MA$(X)(MA$(X1),(MAI)):MA$(X1)(MA$(X1),I)::(X1);(8);">";MA$(X1);: (MA$(X))LG 359 : 364DjX:367EVl:X;(8);">";(17);MA$(X);:X$"":X$:I(((X$))((MA$(X)))): I254 II254:X$(X$,(((X$))I))EqnMA$(X)MA$(X)X$:360EoEX3 "L,E,A,C,S,?,->";:369Ep:"ont ist ave bort dit ";EqMU$"LSEAC?":1004:: I 374,377,384,370,390,368F;r"Are you sure (Y/N) ";: 1014:1012:I2 367 : 381FCv:Fix I1 X:I;">";MA$(I): I:367F|yST$"S" 706Gz:S0:6800:8200:YNR (NRX1):SS1: CO0 SZ(MA$(S)):MA$(S)MA$(S)((LGSZ),32)((SZ),2): MS$MA$(S): MS$MA$(S)G{#1,Y:Y::82:"Recording...":6000: H1$C1$:H2$L1$:H3$L2$:H4$(((TM1000000),6)):H5$(((X1))PV$): H6$L8$:#1,(NR10):::FB4 181H|"Message #:";TM:8013: "To:";L1$: (MA$(10))20 "Continue this msg. (y/n) ";: 1014:1012: I 330,381HD} RP0 8019: RP 677,677,383H~ PV$"P"100 :"Send a copy to someone else? (y/n)";:1014:1012:I1 CO1:305 :100H".Mailcheck continued...":RP0:3000I3MX$"Line #":"Enter line# to be edited (0for LINE 10) ";:MU$"1234567890": 1000:MX$"R,L,E"IJI::"LINE";J;" READS:":MA$(J):"eplace eave as is,dit then line (R/L/E)->";:MU$"REL":1004::I1 " Enter new line ":J;">";:MA$(J):MA$(J)(MA$(J),LG):367 : I3 367J_T&%&HA1BA,32:21999: 2.7A031985&TABA:X1000000(BA9)((BA10)100)((BA11)10000):DA$((X),6):TI((BA6))(((BA7))60)(((BA8))3600):80:&B$(7):SY2:1: 5642: CB0 0& (BA10)1 D8900 : D100'BA1,0:BA,0:@288,"LAST RESET: ";DA$;TW$:"LAST MSG READ BY SYSOP";MY:"DSK:";(0);"WA:";:"D",#1,"WANT.BBS",1:"D",#2,"BBS.ORD",1:(1);"OR:";(2):: CB0 @0,;(p(33,175);" COLORAMA 2.6 A (C)85 CERATEC ";(33,175);:@128,"LAST CALLER: ";C9$:"MSG CNT:";MO;" ";FM;"-";TM:"NEXT CALLER:";CN:"USERL LV:";UL;"OVERW:";UM:"D",#1,"SURV.BBS",1: "SURV:";(1):(BA22,255:@480,"TIME";:1:TW$;:CB1 5000:#1,LU:15 : CTTI:CT$TW$)0 BA22,0: 65313,53:Y17:X110:S((117)135):1492X,S:X:X1600:I$:I$"" 8 : X:Y:6)BA22,0:FF1:85:@416,"COLORAMA of ........... V2.7 Hit @ to confirm compatibility ";:X1800:I$:I$ "@" X:@384,"":" negative, check#";F:7) :1:82:CC$L8$*V A$""::"Enter your ID-Code please.":BA4,0:"New users: Hit enter (Id will NOT echo) ->";A$: BA4,255*t X(A$): XUX X1 21* A$(" "A$,6):5000:#1,X: A$U3$ 15 : "No record"*XXXX1: XX4 15000 : 16: 10+ EX2:C6$U6$:SY(U6$):5642:19+2" Please answer correctly";(7):+C7$U7$:LV(C7$):C6$U6$:C1$U1$:C2$U2$:C3$U3$:C4$U4$:LM(U5$):#1:I(C1$" "," "):CF$(C1$,I1): CB1 CB0:100 : 38+:"Please enter you first AND last name ->";A$,H(A$)6 14 : 2000: 2005:(A$)15 "Only 15 Chr. please":21 : C1$A$,|"ENTER CITY & STATE -->";:C2$:C2$(C2$,10),"Do you use Colorcom/E or Videotex Y/N -> ";:1014:1012:I1 SY0:5642 : 5600-$"Name: ";C1$:"From: ";C2$:"Correct ";:1014:1012:I2 10-$C1$(C1$(10,32),15):C7$"0":"Join the Colorama family! For only $99.95 you can be a Sysop too!".]%"Enter 3 letters for your ID code ->";C3$:"Processing":(C3$)0 37 :C3$(C3$,3):5100:#1:C3$((UL)C3$,6):"Your ID code is ->";C3$;"<":" Use it for future logons. Hit ";X$:C91.&X0:"Loging in"::C1$;" Caller# ";CN;:@32,"From :";C2$;" At:";CT$:: &HA34D,96:2010: I25 X$:X$"PASSWORD" C1$F$ : CF$"TURKEY"/z'LM0 "Last activity on: ";C4$:"High msg# then :";LM:"High msg# now :";TM:"Total new msgs :";TMLM:"Previous Caller : ";C9$/(5000:404/*LMTM 45 : :"Hi, ";CF$;" I'm ...... your host. let's see if you have mail..";:29990 -:EX3 "S,U,N-> ";:500=."Read options: ignon pdate one -> ";02A$"":MU$"?USN":1004::I1 46 :I2 164 : I3 FL$"SIGNON" : 10003FL$"SIGNON" (C6$,4)"0000" FL$"GRAP":FX$"L":I2: 519041691<FX$(13):X$"pple"X$"oco"X$"eneral"X$"bm"X$"andy"X$"c64"X$"Atari"X$:1PTW$" "((100(BA8)),2)":"((100(BA7)),2)":"((100(BA6)),2):1RL8$((100(BA10)),2)"-"((100(BA9)),2)" /"TW$:29UX$"00 Baud, 7 Bit, even parity": (0)11 (0)17 230,41:X12 : 230,180:X32_V@416,"Connected at";X;(8);X$:2Z X$:X$"PASSWRD" X$: X$"PSWDR2" "BREAK IN 300":"OK": X$: X$"LASTPWRD" 44156,&HBD:44157,&HA3:44158,&H90:2\1002cEXEX13d::ST$"":FX0:BA22,0:65313,53:571:FL$"":FT0:BA12,LL:BA23,16:AT$(AT$,50):C1$"" 10 : X$(31,175)::X$:"COLORAMA TOP LEVEL MENU ?=HELP":X$:8203eI0:9100:X8:MU$"ATMCDEG?ILSPNROUX+":LV1 X9:MU$MU$"#%":LV2 MU$MU$"!*"4;fMX$"A,C,D,E,G,I,L,M,N,O,P,R,S,U,?,": EX 107,103,1104jg:S1X:A$:A$;:120:A$:16);A$:1204hS:LV2 "Read cellar <*>Load Cellar"54idvertise,hat w.Sysop,epartments,xit BBS,ames,nformation,eave Message,ames,rders,