home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG009.ARC / 1985MAY.CAT < prev    next >
Text File  |  1979-12-31  |  53KB  |  1,103 lines
  1. .mt 1
  2. .mb 1
  3. .HM 0
  4. .op
  5. $1.50 RECOMMENDED
  6.  RETAIL  PRICE
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18. Registered for transmission
  19. by  post  as  a  periodical
  20. Publication   No: VBH 6579.
  21.  
  22. Vo∞ 3«   N≥  8                                           MAY, 1985
  23.  
  24.           FROM THE CHIEF MBUG                           1
  25.           FROM THE EDITOR'S KEYBOARD                    2
  26.           BASIC PROGRAM LISTING MORSE.MWB               3
  27.           MICROWORLD BASIC PROGRAMMING TIPS             5
  28.           PASCAL FOR BASIC PROGRAMMERS PART IV          6
  29.           AUTOMATIC DATING FOR WORDSTAR PART II         8
  30.           FROM ANOTHER MUG                             10
  31.           Z80   SOME INSIDE INFORMATION                11 
  32.           MICROBEE TWIN SCREEN EDITOR                  14
  33.           FOR SALE IN THE BAZAAR                       15
  34.           RCPM COLUMN                                  16
  35.           BASIC 20 LINE PROGRAM ENTRY                  17
  36.           LAST MEETING                                 18
  37.                                 
  38.                                 MBUGS 
  39.  
  40.      PRESIDENT                     Grant Forest      874-8728
  41.      VICE-PRESIDENT                Andrew Reid       836-0316
  42.      SECRETARY                     John Buxton       758-5744
  43.      MEMBERSHIP SECRETARY          Jim Lobley        758-9169
  44.      TREASURER                     Kevin Carr        233-4629
  45.      TAPE LIBRARIAN                Wal Hansen        318-1883
  46.      EDITOR                        Andrew Barfoot    758-4822
  47.                
  48.      BULLETIN BOARD                7 X 24 HRS        873-5734
  49.  
  50. --------------------------------------------------------------- 
  51. |              ADDRESSES FOR CORRESPONDENCE                   |
  52. ---------------------------------------------------------------
  53. |                                                             |
  54. |                  OFFICIAL ADDRESS                           |     
  55. |    MBUG AUSTRALIA INC. P.O. 157, NUNAWADING .VIC 3131.      |          
  56. |                                                             |
  57. ---------------------------------------------------------------
  58. |    FOR OTHER CONTACTS AND ADDRESSES SEE INSIDE COVER        |
  59. ---------------------------------------------------------------
  60. |   THE CATCHER is published by MBUG AUSTRALIA INCORPORATED   |
  61. |        All copyrights are reserved by MBUG AUST INC         |
  62. ---------------------------------------------------------------
  63.  
  64. NEX╘ MEETING ║ JUNE 12th 
  65. TIME & PLACE : 7:30 pm, MOUNT WAVERLEY COMMUNITY CENTRE 
  66. Corner STEPHENSONS and MILLER Mt. WAVERLEY (opp station)
  67. NEXT TO LIBRARY                 MELWAY REFRENCE 70 E 1
  68.  
  69.  
  70. .OP
  71. .PO0 
  72. .HE                 ---- T H E  C A T C H E R ---
  73. TO :  MBUG AUSTRALIA,     
  74. The Membership Secretary, 26 Alexander Cr., Ferntree Gully. 3156
  75. èI would like to -   join MBUG AUSTRALIA             [ ]
  76.                     renew my subscription to M.A.   [ ]
  77.  
  78. NAME      :________________________________________________
  79.  
  80. ADDRESS   :________________________________________________
  81.  
  82.            ________________________________________________
  83.  
  84. TELEPHONE :__________________ SYSTEM :_________________
  85.  
  86. HARDWARE  :____________________________________________
  87.  
  88. [ ] $20  Melbourne subscription per year.                           
  89. [ ] $17  Non-city  subscription per year.
  90. [ ] A$20 New Zealand subscription per year.
  91. [ ] $10  Tape Library membership (payment only required once)
  92. [ ] I would like a receipt, please
  93.  
  94. -------------------------------------------------------------
  95. |                                                           |          
  96. |          SERVICES  PROVIDED  BY  MBUG  AUSTRALIA          |
  97. |-----------------------------------------------------------|
  98. | TAPE LIBRARY *    P.O. BOX 45 CANTERBURY 3126             |
  99. |-----------------------------------------------------------|
  100. | EDITOR       *    10 CONN St. FERNTREE GULLY 3156         |
  101. |-----------------------------------------------------------|           
  102. | $2.0░áPE╥ S/W TAP┼ FO╥ ON┼ MONTH¼  RETURNED  NEXT MEETING.|
  103. | $5.00 PER SIG/M VOLUME, WE SUPPLY THE DISK.               |
  104. | $4.00 PER BLANK 5" DISKETTE (DSDD)                        |  
  105. |-----------------------------------------------------------|
  106. | ADVERTISEMENTS *   P.O. BOX 157 NUNAWADING 3131           |
  107. | $80.00 FULL PAGE   $40.00 HALF PAGE   $25.00 QUARTER PAGE |
  108. | $3.00 FOR SERVICE AND RECURRENT ITEMS (LESS THAN 5 LINES) |
  109. | FREE  FOR ADVERTISEMENTS THAT ARE NOT RECURRING ITEMS     |ì
  110. |-----------------------------------------------------------|
  111. | MODEM HIRE *      JOHN BUXTON 758-5744                    |
  112. | $5.00 FIRST WEEK  THEN $10.00 EACH ADDITIONAL WEEK        |
  113. | PLUS $25.00 DEPOSIT                                       |
  114. |-----------------------------------------------------------|
  115. | BAZAAR * MICK HOLZINGER 354-6742 P.O. BOX 253 COBURG  3058|
  116. |-----------------------------------------------------------|
  117. | $1.50 PER C30 TAPE OR $25.00 PER BOX OF 20.               |
  118. | $1.50 BACK ISSUES OF CATCHER  VOL 1 NO 1 PRINTED  OCT 82  |
  119. |-----------------------------------------------------------|   
  120. | DISKETTE COPYING *    GRANT  FOREST  874-8728             |
  121. |-----------------------------------------------------------|
  122. |  5"TO 8"  OR  8"TO 5"  MOST FORMATS  $2.00 PER DISKETTE   |
  123. |-----------------------------------------------------------|
  124. |  FOR  ALL  POSTAL  ORDERS  ADD  $1.50  MINIMUM            |
  125. -------------------------------------------------------------
  126. .PN1                  
  127. .PO0
  128. FROM-THE-CHIEF-MICROBUG---FROM-THE-CHIEF-MICROBUG--FROM-THE-CHIEF-MBUG
  129. Therσá ha≤ beeε ß trenΣ ove≥ thσ las⌠ si° month≤ t∩ increasingl∙ cate≥ ì
  130. fo≥á thσ CP/═ anΣ morσ experienceΣ member≤ oµ thσ club«á Wσ havσá beeε ì
  131. neglectfu∞ iε addressinτ thσ need≤ oµ thσ majorit∙ oµ thσ members¼ wh∩ ì
  132. d∩ no⌠ havσ disδ system≤ o≥ modems¼ wσ intenΣ t∩ remed∙ thi≤ situatioε ì
  133. b∙ havinτ a⌠ leas⌠ 1░ ne≈ program≤ iε thσ tapσ librar∙ eacΦ month¼ anΣ ì
  134. notif∙ yo⌡ iε thσ curren⌠ month'≤ CATCHE╥ wha⌠ thesσ ne≈ program≤á do« ì
  135. Aεá u≡á t∩ datσ librar∙ listinτ wil∞ bσ publisheΣ ever∙ tw∩ month≤á s∩ ì
  136. tha⌠ mai∞ orderinτ wil∞ bσ ß lo⌠ easier«á Anothe≥ neglecteΣ  grou≡ arσ ì
  137. thσá non-cit∙á member≤ a≤ ß lo⌠ oµ informatioε i≤ shareΣ oεá thσá maiε ì
  138. meetinτá nigh⌠á tha⌠ doe≤ no⌠ ge⌠ int∩ thσ CATCHER«á GRE╟á BLAC╦á wil∞ ì
  139. producσ ß columε indicatinτ wha⌠ ha≤ happeneΣ oε thσ meetinτ night¼ a≤ ì
  140. ß summar∙ oµ relevan⌠ informatioε fo≥ thσ countr∙ members«á Thi≤á wil∞ ì
  141. star⌠á nex⌠ month«á Iµ yo⌡ havσ an∙ idea≤ fo≥ thi≤ ne≈ columεá contac⌠ ì
  142. me¼á anΣ ╔ wil∞ pas≤ theφ oε t∩ Greg¼ o≥ contac⌠ Greτ viß thσ BULLETI╬ ì
  143. BOARD«á I⌠á i≤á ou≥á intentioε t∩ havσ a≤ man∙á differen⌠á column≤á a≤ ì
  144. possible¼á s∩ tha⌠ regardles≤ oµ you≥ locatioε o≥ experiencσ leve∞ yo⌡ ìèwil∞ alway≤ finΣ somethinτ oµ interes⌠ eacΦ montΦ iε thσ CATCHER«  Thσ ì
  145. presen⌠ section≤ are:--
  146.  --------------------------------------------------------------------
  147. ⁿ M┘ COLUM╬ ⁿ   RCP═   ⁿ  LAS╘ MEETIN╟ ⁿ A.T« COLUM╬ ⁿ  CENTRE PAG┼  |
  148.  --------------------------------------------------------------------
  149. Nex⌠ montΦ wσ wil∞ add:-     
  150.  --------------------------------------
  151. ⁿ  ├ GROU╨  ⁿ  BAZAA╥  ⁿ TAP┼ LIBRAR┘  |
  152.  --------------------------------------
  153. Wha⌠ wσ reall∙ wan⌠ i≤ someonσ t∩ takσ carσ oµ ß beginner≤ columε e.g« ì
  154. t∩á collatσ anΣ chasσ u≡ thσ answer≤ t∩ thσ man∙ HELP'≤ wσ publisΦ anΣ ì
  155. bσá prepareΣá t∩ bσ ß foca∞ poin⌠ a⌠ thσ maiε meetinτ t∩á receivσá thσ ì
  156. question≤ froφ thσ members« Yo⌡ wil∞ no⌠ bσ expecteΣ t∩ answe≥ al∞ thσ ì
  157. enquirie≤ bu⌠ recorΣ al∞ question≤ oε thσ HEL╨ POSTE╥ s∩ tha⌠ the∙ caε ì
  158. bσá answereΣá later«á Yo⌡á don'⌠ havσ t∩ bσ ßá proficien⌠á write≥á no≥ ì
  159. excellen⌠á spelle≥á (looδ wha⌠ ╔ ge⌠ awa∙ with)«á Iε thσá interiφá al∞ ì
  160. committeσ member≤ wil∞ havσ namσ tag≤ s∩ tha⌠ yo⌡ caε chasσ theφ u≡ a⌠ ì
  161. thσ maiε meeting«á Pleasσ d∩ no⌠ hun⌠ mσ dowε oε thσ night¼ a≤ mos⌠ oµ ì
  162. thσ question≤ arσ redirecteΣ t∩ anothe≥ committeσ member≤á anyway«á Wσ ì
  163. wil∞á no⌠ havσ thσ MAI╬ HAL╠ nex⌠ meeting¼á s∩ ß ma≡ wil∞ bσ displayeΣ ì
  164. nea≥ thσ fron⌠ doo≥ indicatinτ wherσ thσ differen⌠ activitie≤ are.
  165.  
  166. WHA╘ I╙ O╬ NEX╘ MEETING
  167. ├ GROU╨ witΦ HAROL─ FRODSHAM¼ (H╔ TEC╚ 'Cº availablσ fo≥ $110.00)
  168. PASCA╠ GROU╨ clas≤ b∙ STEPHE╬ JEPPSO╬ 
  169. JI═ DUF╞ wil∞ bσ demonstratinτ hi≤ USE─ CA╥ packagσ writteε iε dbaseII
  170. RAYMON─ HA╬ VITA╠ demonstration(Thank≤ t∩ A.T.)
  171. WitΦá thσ increaseΣ amoun⌠ oµ program≤ anΣ article≤ t∩ t∩á bσá proofeΣ ì
  172. anΣá revieweΣá wσá wil∞á bσá takinτ al∞ relevan⌠á S/╫á t∩á thσá FOURT╚ ì
  173. WEDNESDA┘á meeting«á Thi≤á meetinτá iε thσ pas⌠ ha≤á catereΣá fo≥á thσ ì
  174. 'advancedº BE┼ anΣ DGO╙ (haven'⌠ useΣ tha⌠ worΣ fo≥ ß while⌐ users« Iµ ì
  175. yo⌡ wan⌠ t∩ revie≈ contribution≤ fo≥ thσ CATCHE╥ brinτ alonτ you≥á BE┼ ì
  176. H/╫á etπá anΣá hel≡á u≤ producσ aε eveε bette≥á CATCHER«á It≤á ßá ver∙ ì
  177. informa∞ nigh⌠ anΣ doe≤ no⌠ havσ thσ standarΣ offering≤ a≤ thσá SECON─ ì
  178. WEDNESDA┘ MEETIN╟ e.g« TAP┼ LIBRARY¼ BAZAA╥ etc¼ bu⌠ i⌠ doe≤ offe≥ yo⌡ ì
  179. ß chancσ t∩ exchangσ idea≤ anΣ revie≈ informatioε fo≥ thσ CATCHER.
  180.    A> GRANT
  181. FROM-THE-CHIEF-MICROBUG---FROM-THE-CHIEF-MICROBUG--FROM-THE-CHIEF-MBUG
  182.                       FROM THE EDITORS KEYBOARD
  183.      
  184.      Sincσá takinτ ove≥ thi≤ joΓ ╔ havσ beeε floodeΣ witΦá informatioε ì
  185. anΣ materia∞ fo≥ thσ CATCHER«á Iε aε effor⌠ t∩ catcΦ u≡ oε latσ issue≤ ì
  186. ╔á havσá inadvertentl∙ pu⌠ thσ item≤ oε SMARTKE┘ ª DATING╙ iεá iεá thσ ì
  187. wronτá order«á Ove≥á thσ nex⌠ fe≈ issue≤ therσ wil∞ b∙ quitσ ß lo⌠á oµ ì
  188. informatioε abou⌠ thesσ subjects« Iµ yo⌡ woulΣ likσ t∩ kno≈ morσ abou⌠ ì
  189. theφ anΣ arσ no⌠ prepareΣ t∩ wai⌠ thσ 1▓ month≤ i⌠ wil∞ takσ t∩á cove≥ ì
  190. theφ, the∙á wil∞á bσ availablσ oε orde≥ froφ thσ BAZAA╥ a⌠á ßá nomina∞ ì
  191. cost.
  192.      I⌠á ha≤á beeε brough⌠ t∩ thσ attentioε oµ thσ commiteσá tha⌠á no⌠ ì
  193. enougΦá attentioεá i≤á beinτá giveε t∩ thσá ne≈á BE┼á owne≥á o≥á thosσ ì
  194. interesteΣ onl∙ iε BASI├ programming« ╔ wil∞ bσ tryinτ t∩ pu⌠ morσ anΣ ì
  195. morσá BASI├á informatioε int∩ thσ Catche≥ iε future«á Iε thi≤ issuσá ╔ ì
  196. havσá includeΣ somσ question≤ anΣ answer≤ ╔ founΣ oε thσá RBBS«á ╔á aφ ì
  197. doinτá thi≤á t∩ anΣ cate≥ fo≥ thosσ oµ yo⌡ wh∩ d∩ no⌠ havσ ß modeφá o≥ ì
  198. ma∙ no≈ havσ thσ problem≤ tha⌠ other≤ haΣ in the past. 
  199.  
  200.      Anothe≥ poin⌠ t∩ remembe≥ i≤ tha⌠ thi≤ i≤ YOU╥ magazine«á Wσ wan⌠ ì
  201. anΣá neeΣá you≥ input«á Withou⌠ i⌠ wσ coulΣ enΣ u≡ jus⌠á caterinτá fo≥ ì
  202. thosσ member≤ witΦ disδ baseΣ machines¼á modems¼á S10░ board≤ o≥ thosσ ì
  203. witΦá enougΦ mone∙ t∩ afforΣ fanc∙ hardwarσ anΣ software«á Thi≤ i≤ no⌠ ì
  204. ou≥ aim«á Wσ wan⌠ t∩ looδ afte≥ al∞ oµ you«á I⌠ remind≤ mσ oµ ß sigε ╔ ì
  205. sa≈á iε ß sho≡ onσ day«á I⌠ reaΣ "I╞ YO╒ LIK┼ OU╥ SERVIC┼ TEL╠á OTHER╙   ì
  206. I╞ YO╒ DON'╘ -- TEL╠ US.ó S∩ ho≈ abou⌠ it¼á TEL╠ U╙ wha⌠ yo⌡á want«á ì
  207. Belo≈á i≤á aε addres≤ yo⌡ caε senΣ you≥ letter≤ to¼á s∩ firσá u≡á you≥ ì
  208. WORDBEEs¼ WORDSTAR╙ o≥ sharpeε you≥ pencil≤ anΣ dro≡ ß line to 
  209.  
  210.                       THE EDITOR
  211.                       MBUG AUSTRALIA INCè                      C/O 10 CONN STREET
  212.                       FERNTREE GULLY Vic.  3156.                             
  213.                       **************************
  214.  
  215.                          LETTER TO THE EDITOR
  216. Dear Sir,
  217.         ╔á reaΣ witΦ interes⌠ thσ "PROO╞ THA╘ ▒ EQUAL╙ 2ó iε thσ MarcΦ ì
  218. issuσá oµá Catche≥á bu⌠á ╔ aφá unimpresseΣá anΣá offe≥á thσá followinτ ì
  219. redifinition.
  220.           LET       X = 1
  221.           THEN      X^2 = 1
  222.      From this it follows that
  223.                     X - 1 = 0
  224.      and            X^2 -1 = 0
  225.      therefore      X^2 -1 = X -1
  226.      factorising the left hand side gives
  227.                            (X - 1) (X + 1) = X -1
  228.      divide both sides by   X - 1
  229.                            (X - 1) (X + 1)     =   X - 1
  230.                            ______________          _____
  231.                             X - 1              X - 1
  232.      giving                 X + 1 = 1
  233.      or                     X = 1 - 1
  234.      therefore              X = 0
  235.      NOT  X = 2   AS PREVIOUSLY CLAIMED !!!!!!     JIM LOBLEY.
  236.                               MORSE CODE
  237.  
  238. 00100 POKE140,1:REM morse code program bob denton 200185
  239. 00110 T=75  :REM 90 msecs note at 835 hz. default speed
  240. 00120 Z=1152  :REM address of sound program
  241. 0013░ L=3▓  :RE═ decima∞ valuσ oµ lowes⌠ cha≥ iε morsσ array
  242. 00140 J=127  :REM decimal value of delete key
  243. 00150 DIM M1(60):STRS(1000):M6$=" "
  244. 00160 RESTORE1140:FORA=ZTOZ+50:READB:POKEA,B:NEXTA
  245. 00170 RESTORE960:FORI=0TO59:READM1$(I):NEXTI
  246. 00180 RESTORE1110:READM2$,M3$:M4$=M2$+M3$
  247. 00190 REM ***** main program *****
  248. 0020░ POKE220,52:CLS:PRINTSPC(14)"Morsσ codσ prograφ b∙ BoΓ Denton"
  249. 00210 PRINT\SPC(26);:UNDERLINE:PRINT"M E N U":NORMAL
  250. 0022░áPRINT\"DE╠á ╜á error«á  Othe≥á key≤ arσá ?.123456789░á anΣá al∞ ì
  251.       alphabetics"
  252. 00230 PRINT\SPC(11)"1 = Speed select      5 = Enter message"
  253. 00240 PRINTSPC(11)"2 = Pitch select      6 = Output message"
  254. 00250 PRINTSPC(11)"3 = Keyboard morse    7 = Exit program"\SPC(11)
  255.       "4 = FOX message"
  256. 00260 PRINT\SPC(11)"INPUT YOUR CHOICE?"
  257. 00270 K1$=KEY:IFK1$=""THEN270ELSELETF=INT(VAL(K1$))
  258. 00280 ONFGOSUB890,650,320,810,720,850,300
  259. 00290 GOTO200
  260. 00300 POKE220,111:POKE140,0:CLS:END
  261. 00310 REM ***** keyboard morse program *****
  262. 00320 PRINT"Keyboard ready."\"Press <Return> to finish."
  263. 00330 POKE257,1:K1$=KEY:IFK1$=""THEN330ELSELETK=ASC(K1$)-L
  264. 00340 IFK=J-L:K=I:GOTO370
  265. 00350 IFK=13-LTHENRETURN
  266. 00360 IFK<0ORK>I-1THEN330
  267. 00370 GOSUB530
  268. 00380 GOTO330
  269. 00390 REM ***** output string *****
  270. 00400 VAR(M5$):POKE220,52
  271. 00410 IFE<0:E=-EELSEIFE=0:E=1
  272. 0042░ IFE>1THENPRINT"Pres≤ <Return╛ a⌠ enΣ oµ linσ t∩ finisΦ early"
  273. 00430 FORD=1TOE
  274. 00440 PRINTD" ";
  275. 00450 FORC=1TOLEN(M5$):K=ASC(M5$(;C,C))-L:IFK<0ORK>I-1THEN470
  276. 00460 GOSUB530
  277. 00470 NEXTC
  278. 00480 PRINTè00490 K1$=KEY:IFASC(K1$)=13THENNEXT* D 510
  279. 00500 NEXTD
  280. 00510 RETURN
  281. 00520 REM ***** tone and space generator *****
  282. 00530 W=T/3  :REM set ratio of dit time to space time
  283. 00540 IFM1$(K)="0"THENRETURN
  284. 00550 IFK<>0THENPRINTCHR(K+L);ELSEPRINT" ";:RETURN
  285. 00560 I0$=M1$(K)
  286. 00570 FORX=1TOLEN(I0$):M=INT(VAL(I0$(;X,X)))
  287. 00580 IFM=3:M=2 :REM set ratio between dits and dahs
  288. 00590 U=USR(Z,T*256+M) :REM generate tone
  289. 00600 U=USR(Z+2,W*256+1) :REM wait between tones. =1/3 dit
  290. 00610 NEXTX
  291. 00620 U=USR(Z+2,W*256+2) :REM wait between characters. =2/3 dit
  292. 00630 RETURN
  293. 00640 REM ***** set pitch program *****
  294. 00650 POKE220,111:PRINT"The default value for pitch is 124 at 835 HZ"
  295. 00660 PRINT"The current value is ";PEEK(Z+5)
  296. 00670 INPUT"Enter a value between 20 (high) and 255 (low)"B
  297. 00680 IFB<20ORB>255THEN670
  298. 00690 POKEZ+5,B:POKEZ+6,B:POKEZ+22,B:POKEZ+23,B
  299. 00700 RETURN
  300. 00710 REM ***** enter user message *****
  301. 00720 POKE220,111:IFM6$=" "THEN770
  302. 00730 PRINT"The current message is "\M6$
  303. 00740 PRINT"Do you want to enter a new message?"
  304. 00750 POKE257,1:K1$=KEY:IFK1$=""THEN750
  305. 00760 IFK1$<>"Y"THENRETURN
  306. 0077░áPRINT"Ente≥ámessagσ u≡ t∩ 18░ácharacter≤ includinτ spaces"
  307.       :INPUTó "M6$
  308. 00780 IFM6$="":M6$=" "
  309. 00790 RETURN
  310. 00800 REM ***** FOX generator program *****
  311. 00810 POKE220,111:INPUT"How many times for FOX message?"E
  312. 00820 GOSUB[M4$]400
  313. 00830 RETURN
  314. 00840 REM ***** output user message *****
  315. 00850 POKE220,111:INPUT"How many times for your message?"E
  316. 00860 GOSUB[M6$]400
  317. 00870 RETURN
  318. 00880 REM ***** set speed program *****
  319. 00890 POKE220,111:PRINT"The default value for speed is 75"
  320. 00900 PRINT"The current value is ";T
  321. 00910 INPUT"Enter a value between 20 (fast) and 255 (slow)";T
  322. 00920 IFT<20ORT>255THEN910ELSERETURN
  323. 00930 REM data for morse character array
  324. 00940 REM a "0" produces no tone
  325. 00950 REM characters ! " # $ % & '
  326. 00960 DATA "space","0","0","0","0","0","0","0"
  327. 00970 REM characters ( ) * + , -
  328. 00980 DATA "0","0","0","0","0","0"
  329. 00990 REM characters . / 0 1 2 3 4
  330. 01000 DATA "131313","0","33333","13333","11333","11133","11113"
  331. 01010 REM characters 5 6 7 8 9 : ;
  332. 01020 DATA "11111","31111","33111","33311","33331","0","0"
  333. 01030 REM characters < = > ? @ A B C D
  334. 01040 DATA "0","0","0","113311","0","13","3111","3131","311"
  335. 01050 REM characters E F G H I J K L
  336. 01060 DATA "1","1131","331","1111","11","1333","313","1311"
  337. 01070 REM characters M N O P Q R S T
  338. 01080 DATA "33","31","333","1331","3313","131","111","3"
  339. 01090 REM characters U V W X Y Z  error
  340. 01100 DATA "113","1113","133","3113","3133","3311","11111111"
  341. 01110 DATA "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOGS BACK"
  342. 01120 DATA " 1234567890 !#$%&()*+,-./:;<=>?@"
  343. 01130 REM tone generator program machine code
  344. 01140 DATA 24,17,104,69,17
  345. 01150 REM default pitch valuesè01160 DATA 124,124
  346. 01170 DATA 21,32,253,29,32,253,16,245,13,32,241,201,104,69,17
  347. 01180 REM default pitch values
  348. 01190 DATA 124,124
  349. 01200 DATA 219,2,203,247,211,2,21,32,253,203,183,211,2,29,32
  350. 01210 DATA 253,16,235,13,32,231,201,0,0,0,0,0
  351. 01220 REM P=pitch value and T=speed value which is the number
  352. 01230 REM of sound cycles in a note. 
  353. 01240 REM 3375 is Microbee crystal speed in KHZ
  354. 01250 REM thus the PITCH = 3375/((32*P)+70) KHZ
  355. 01260 REM and DIT time = T((32*P)+70)/3375 milliseconds
  356. 01270 REM default pitch is 0.835 KHZ
  357. 01280 REM and default speed is 90 milliseconds per dit
  358.  
  359.  
  360.                               BASIC TIP 
  361.  
  362.                 RUN A BASIC PROGRAM AFTER NEW COMMAND
  363.  
  364.      Therσá arσ tw∩ way≤ t∩ ruε ß BASI├ prograφ afte≥ thσ NE╫á commanΣ ì
  365. has been given. First by POKING.  This is used in immediate mode
  366.  
  367. 1:   POKE 1758,0 : POKE 1759,63 : POKE 2304,0 : POKE 2305,1 : FOR X = 
  368.      2307 TO 16348 : IF PEEK (X) = 255 AND PEEK (X-1) = 255 THEN POKE
  369.      2259,X/256 : POKE 2258,X-256*(X/256) ELSE NEXT X
  370. 
  371.                                    OR  
  372. 
  373. 2:   ENTER MONITOR (PRESS RESET & M) then
  374.      A 0900 <CR> 00 01 <ESC> S 0900 7FFF FF FF <CR>
  375.      ABCD location of FF FF
  376.      A 08D2 <CR> CD AB <ESC> G 8021 <CR>
  377. 
  378.                        PASCAL CLASSES 
  379. 
  380.  
  381. PASCA╠ CLASSE╙ wil∞ begiε a⌠ thσ nex⌠ meetinτ anΣ wil∞ bσ conducteΣ b∙ ì
  382. STEV┼á JEPSON«á Al∞ potentia∞ PASCA╠ hacker≤ wh∩ arσ interesteΣ shoulΣ ì
  383. brinτ thei≥ Bees¼á leads¼ etπ a≤ thi≤ clas≤ wil∞ bσ conducteΣ oε ß onσ ì
  384. t∩á onσ basis«á I⌠ wil∞ cate≥ fo≥ botΦ RO═ anΣ TURB╧ PASCA╠ s∩á anyonσ ì
  385. caε attenΣ. Iµ yo⌡ havσ eithe≥ typσ yo⌡ wil∞ bσ welcome.
  386.  
  387. QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ
  388.  
  389. DUE TO A TYPO THIS PROBLEM IS PRESENTED AGAIN......
  390.  
  391. Placσá tw∩á book≤á togethe≥ oε thσ shelf«á Pu⌠ theφ iεá thσá followinτ ì
  392. order«á T∩ thσ left¼á thσ MICROBE┼ TECHNICA╠ MANUAL« T∩ thσ right¼ thσ ì
  393. MICROBE┼ DIS╦ SYSTE═ MANUAL« ┴ bookworφ start≤ eatinτ a⌠ pagσ ▒ oµ thσ ì
  394. TECHNICA╠ MANUAL anΣ chew≤ hi≤ wa∙ iε ß straigh⌠ linσ t∩ thσ las⌠ pagσ ì
  395. oµ thσ DIS╦ MANUAL«á Iµ eacΦ cove≥ i≤ 1mφ thicδ anΣ thσ insidσ oµ eacΦ ì
  396. manua∞ i≤ 20mφ thick¼ ho≈ fa≥ wil∞ thσ bookworφ trave∞ ?
  397.  
  398. QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ
  399.                     PASCAL_FOR_BASIC_PROGRAMMERS.
  400.                                                     Dixon Kenney
  401.                                PART IV.
  402.  
  403.      Let'≤á continuσá oε witΦ thσ Bankinτ program«á  Here'≤á thσá nex⌠ ì
  404. versioε oµ it.
  405.  1ááááPrograφ Banking_3;
  406. 2áááá√ *¬ Versioε 3 oµ thσ Bankinτ prograφ read≤ transactions
  407.  3áááá  *¬ int∩ aε array¼ anΣ print≤ ou⌠ ß Banδ statement«  I⌠ will
  408.  4áááá  *¬ givσ ß warninτ at the end of the run iµ thσ accoun⌠ 
  409.             ** i≤ overdrawε }
  410.  
  411.  6ááááConst
  412. á7áááá   Ma° ╜ 10╗                 √ uppe≥ limi⌠ fo≥ numbe≥ oµ èáááááá                                            transactions }
  413. á9ááááVar
  414. 10áááá   CustNamσ                          ║ String[20];
  415. 11áááá   AccNum¼ Inde°                     ║ Integer;
  416. 12  áá   OpBalance¼ Transaction¼ CBalancσ  ║ Real;
  417. 13áááá   Tran≤á                            ║áarra∙█▒.«Ma°▌oµ Real;
  418.  
  419. 15ááááBegiε                        √ oµ maiε prograφ }
  420. 16áááá   ClrScr╗                   √ Typσ iε transactioε detail≤ }
  421. 17áááá   Writeln╗  Writeln;
  422. 18 ááá   Write('Custome≥ Namσ  ║ ')╗ Readln(CustName);
  423. 19áááá   Write('Accoun⌠ Numbe≥ ║ ')╗ Readln(AccNum);
  424. 20áááá   Write('Openinτ Balance║ ')╗ Readln(OpBalance);
  425. 21áááá   CBalancσá:╜áOpBalance╗á√assigε OpBalancσát∩árunninτ Balancσ}
  426. 22áááá   Writeln('Typσ iε Transactioε amount≤ ');
  427. 23áááá   Fo≥ Inde° :╜ ▒ t∩ Ma° do
  428. 24áááá      Begin
  429. 25  áá         Write('Transactioε '¼ Index:3¼ º ║ ');
  430. 26             Readln(Trans[Index])
  431. 27áááá   End╗                      √ oµ transactioε typσ iε }
  432.  
  433. 29áááá   ClrScr╗                   √ Prin⌠ ou⌠ thσ statemen⌠ }
  434. 30áááá   Writeln('Accoun⌠ Number':20¼ 'Custome≥ Name':20);
  435. 31áááá   Writeln;
  436. 32áááá   Writeln(AccNum:20¼ CustName:20);
  437. 33áááá   Writeln;
  438.  
  439. 35áááá   Writeln('Debits':15¼ 'Credits':15¼ 'Balance':15);
  440. 36 ááá   Writeln('Openinτ Balance':15¼ º ':15¼ OpBalance:15:2);
  441. 37áááá   Fo≥ Inde° :╜ ▒ t∩ Ma° d∩ √Prin⌠ ou⌠ transaction≤ ª balance≤}
  442. 38áááá      Begin
  443. 39áááá      CBalancσ :╜ CBalancσ ½ Trans[Index];
  444. 40áááá      Iµ Trans[Index▌ ╝ 0.░ then
  445. 41áááá         Writeln(Trans[Index]:15:2¼ º ':15¼ CBalance:15:2)
  446. 42áááá      Else
  447. 43áááá         Writeln(º ':15¼ Trans[Index]:15:2¼ CBalance:15:2)
  448. 44áááá   End╗                 √ writinτ ou⌠ transaction≤ ª balances }
  449. 46áááá   Writeln;
  450. 47áááá   Iµ CBalancσ ╝ 0.░ theε    √ prin⌠ ou⌠ ß nast∙ messagσ }
  451. 48áááá      Writeln('You≥ accoun⌠ i≤ overdrawε !');
  452. 50ááááEnd«    √ *¬ Prograφ Bankinτ 3 }    
  453.      Iεá Linσ 7¼á wσ arσ defininτ ß variablσ a≤ ß maximuφ numbe≥á - oµ ì
  454. course¼á thσ labe∞ i≤ choseε fo≥ ou≥ conveniencσ - i⌠ mean≤ nothinτ t∩ ì
  455. thσá computer«á  B∙ defininτ ß variable¼á anΣ theε usinτ i⌠ throughou⌠ ì
  456. thσ program¼á wσ onl∙ havσ t∩ makσ onσ changσ iµ wσ wan⌠ t∩ havσá morσ ì
  457. transaction≤á - wσá don'⌠ havσ t∩ searcΦ througΦ thσ wholσ prograφá t∩ ì
  458. changσ parameters¼ anΣ hopσ tha⌠ we'vσ founΣ thσ lot.
  459.  
  460.      Iε Linσ 13¼ wσ definσ aε array«  Aε arra∙ iε Pasca∞ caε bσ oµ an∙ ì
  461. Datßá Type╗á the∙á arσ no⌠ limiteΣ t∩ beinτ defineΣá iεá thσá standarΣ ì
  462. types«á  Noticσ ║á a⌐ thσ worΣ ARRAY╗ b⌐ thσ usσ oµ squarσ bracket≤ t∩ ì
  463. definσá thσ inde° oµ thσ array╗á c⌐ thσ lowe≥ anΣ uppe≥ bound≤ oµá thσ ì
  464. arra∙á arσá separateΣ b∙ 2ô ful∞ stops╗á d⌐ wσ mus⌠ usσ thσ worΣ O╞á t∩ ì
  465. introducσ thσ datß type╗ e⌐ thσ datß type.
  466.  
  467. áááááááááIε BASIC¼á thσ DI═ statemen⌠ assume≤ ß lowe≥á bounΣ ì
  468. áááááááááoµ ░ o≥ 1¼á dependinτ oε thσ versioε oµ BASI├ used«  ì
  469. áááááááááOnl∙ thσ uppe≥ bounΣ i≤ defined«á  Thσ datß typσ i≤ ì
  470. ááááááááádefineΣá b∙ thσ variablσ - althougΦ iε BE┼ BASI├á ß ì
  471. ááááááááástrinτ arra∙ i≤ defineΣ iε ß wa∙ whicΦ i≤ distinct-ì
  472. ááááááááály different from other BASICS.
  473.  
  474.      Thσá bound≤ caε bσ defineΣ b∙ constants¼á a≤ i≤ donσá here«á  Thσ ì
  475. lowe≥ bounΣ oµ thσ arra∙ - herσ i⌠ i≤ ▒ - neeΣ no⌠ bσ ░ o≥ 1╗ wσ coulΣ ì
  476. definσ aε arra∙ a≤ lyinτ betweeε 1╡ anΣ 3▓ iµ wσ wished.
  477.  
  478.      Iε Linσ 3╖ wσ begiε ß compounΣ FO╥ statement«á  Noticσ thσ usσ oµ ì
  479. thσ BEGI╬ .« EN─ pai≥ oµ words«  Here¼ EN─ iε linσ 4┤ function≤ a≤ thσ ìèdelimite≥ fo≥ thσ loo≡ beguε iε linσ 37/8.
  480.  
  481.      Line≤á 4▒á anΣ 4│ arσ formatteΣ s∩ tha⌠ thσ informatioεá wil∞á bσ ì
  482. printeΣ ou⌠ correctly«  Column≤ oµ 1╡ character≤ arσ defined¼ witΦ thσ ì
  483. irrelevan⌠ mone∙ columε beinτ blankeΣ out.
  484.  
  485.      Iµ yo⌡ wanteΣ to¼ yo⌡ coulΣ se⌠ u≡ aε underlininτ line«  I⌠ coulΣ ì
  486. bσá placeΣ afte≥ line≤ 3▓ ¿ t∩ rulσ ofµ thσ custome≥ informatioεá linσ ì
  487. )¼ 3╡ ¿ t∩ rulσ ofµ thσ columε header≤ )¼ anΣ 4┤ ¿ t∩ rulσ ofµ thσ enΣ ì
  488. oµ thσ statemen⌠ )«  I⌠ coulΣ bσ defineΣ a≤ ß constan⌠ - yo⌡ coulΣ adΣ ì
  489. afte≥ linσ ╖ 
  490.  
  491.                     Ruler = '---'
  492.  
  493. witΦá thσ '-º beinτ repeateΣ 4╡ times¼á anΣ issuinτ ßá WRITELN(Ruler)«  ì
  494. Or you could set it up in a loop -
  495.  
  496.           For Counter := 1 to 45 do
  497.                write('-');
  498.           Writeln
  499.  
  500.      B∙ usinτ WRITE('-'⌐ thσ effec⌠ i≤ tha⌠ oµ ß PRINT"-"╗á statement«  ì
  501. Thσ WRITEL╬ i≤ theε necessar∙ t∩ senΣ ß CR/L╞ character«á  Noticσ tha⌠ ì
  502. iεá thi≤á loop¼á thσ terminatioε i≤ thσ semi-coloε - i⌠á i≤á ßá simplσ ì
  503. state-ment¼ witΦ onl∙ onσ statemen⌠ afte≥ thσ loo≡ i≤ se⌠ up¼ s∩ therσ ì
  504. i≤ n∩ neeΣ fo≥ ß BEGI╬ .« EN─ pair«  Thσ 45¼ oµ course¼ i≤ 15+15+15.
  505.  
  506.  
  507.          Dating 2: Automatic  dating of Documents in Wordstar 
  508. 
  509. Continuinτá witΦ thσ sagß oµ automaticall∙ puttinτ ß simplσ datσ oεá ß ì
  510. lette≥ iε ß righ⌠ justifieΣ position.
  511.  
  512. Firs⌠á methoΣ previousl∙ describeΣ compriseΣ ß filσ oµ filenamσ a:datσ ì
  513. witΦ conten⌠ "22nΣ Augus⌠ 1984ó (n∩ <CR╛ o≥ trailinτ spaces⌐ whicΦ wa≤ ì
  514. calleΣ b∙ CNTR╠ K╥ a:date<CR╛ o≥ ".F╔ a:date"«á Thσ ".FIó approacΦ wa≤ ì
  515. preferreΣá a≤ i⌠ pu⌠ thσ datσ a⌠ timσ oµ printinτ rathe≥ thaε oµá filσ ì
  516. creatioεá (thσ latte≥ ofteε beinτ a⌠ leas⌠ thσ previou≤ day⌐ bu⌠á leaΣ  ì
  517. t∩ lef⌠ justificatioε (o≥ s∩ wσ thought).
  518.  
  519. SeconΣ Method:
  520.  
  521. ╔á inserteΣá int∩ thσ lette≥ filσ (actuall∙ thσá SF╦á callablσá forma⌠ ì
  522. file⌐ thσ following:
  523.  
  524. ".D╞ a:date<CR>
  525. ".R╓ date<CR>
  526.  
  527. Thσ filσ "dateó haΣ identica∞ conten⌠ t∩ previous.
  528.  
  529. No≈á ╔á coulΣá inser⌠ thσ datσ an∙ placσ ╔ wanteΣá b∙á merel∙á puttinτ ì
  530. "&date&ó iε tha⌠ placσ anΣ printinτ usinτ mergeprint.
  531.  
  532. Iµá thσá Edito≥á wil∞ prin⌠ (P⌐ (no⌠á Mergeprint⌐á anΣá suppres≤á pagσ ì
  533. formattinτá yo⌡ wil∞ seσ belo≈ thσ forma⌠ filσ  whicΦ wσ calleΣ a⌠ thσ ì
  534. beginninτ oµ eacΦ ne≈ file« Notσ tha⌠ thσ ".OPó delete≤ pagσ numbe≥ oε ì
  535. pagσ ▒ (oε letterhead⌐ anΣ ".HEó (whicΦ mus⌠ bσ afte≥ "textó - iε thi≤ ì
  536. casσ <CR's>⌐ restore≤ i⌠ fo≥ pagσ 2«á Notσ als∩ Datσ occur≤ iε pagσá ▓ ì
  537. headinτ anΣ wil∞ bσ t∩ thσ righ⌠ oµ pagσ number.
  538.  
  539. File a:/LETT1
  540. "..
  541. ".I╟ forφ /LETT▒ t∩ holΣ forma⌠ fo≥ LETTER1
  542. ".L╚ 8
  543. ".C╫ 10
  544. ".OP
  545. ".P╞ O╬ 
  546. ".O╩ ONè"..
  547. ".DF a:date
  548. ".RV date
  549. "..
  550. ".I╟ ╢ Rea∞ <CR╛ follow
  551.  
  552. ".H┼                            - ú -             &date&
  553.                                                   &date&
  554. ".I╟ LETTE╥ ▒ FORMAT:- Star⌠ ADDRESS¼ withou⌠ tab,
  555. ".« oε NEX╘ LIN┼ Linσ ╕ a⌠ Curso≥ position
  556.  
  557. Well¼á diΣ ╔ no⌠ stru⌠ arounΣ thσ officσ crowinτ mightily«á True¼á thσ ì
  558. stylistiπá purist≤ pointeΣ ou⌠ tha⌠ therσ shoulΣ bσ ß commß afte≥á thσ ì
  559. montΦá anΣ beforσ thσ yea≥ anΣ ╔ didn'⌠ havσ truσ righ⌠á justificatioε ì
  560. thσ datσ merel∙ beinτ somewha⌠ oε thσ right«
  561.  Beinτá unwillinτ t∩ inser⌠ thσ surroundinτ quote≤ oε thσ datσ iεá thσ ì
  562. ".DFóá filσ iε fea≥ tha⌠ thσ commß woulΣ bσ interpreteΣ (i⌠á isnt⌐á a≤ ì
  563. limitinτá thσá ".RVóá valuσ t∩ beinτ onl∙ "22nΣá Augustóá (withou⌠á "¼ ì
  564. 1984"⌐á ╔á argueΣ tha⌠ wσ werσ MODER╬ anΣ werσ doinτ awa∙á witΦá thei≥ ì
  565. COMMO╬á pettines≤ froφ no≈ oε anΣ a≤ t∩ thσ righ⌠ justification¼á tha⌠ ì
  566. wa≤á unavoidablσ a≤ "Decemberó i≤ longe≥ thaε "May"«á (╔á continuσá t∩ ì
  567. work¼ iε secre⌠ anΣ onl∙ latσ a⌠ night¼ oε tha⌠ righ⌠ justification.)
  568.  
  569. Fo≥á │ day≤ al∞ wa≤ perfec⌠ unti∞ m∙ Secretar∙ correcteΣ aεá erro≥á oε ì
  570. pagσ ▓ oµ ß lette≥ anΣ trieΣ t∩ prin⌠ onl∙ pagσ 2«á I⌠ wouldn'⌠ print« ì
  571. ┴á rea∞á disaste≥á a≤ wσ ver∙ ofteε wan⌠ t∩ prin⌠ ßá particula≥á page¼ ì
  572. usuall∙á ßá debi⌠ notσ o≥ invoice¼á morσ time≤ thaε an∙á pagσá oµá thσ ì
  573. lette≥ t∩ accompan∙ it« Nothinτ woulΣ persuadσ i⌠ t∩ prin⌠ anΣ callinτ ì
  574. fo≥ pagσ ▒ onl∙ printeΣ ever∙ page.
  575.  
  576. Thσá reasoεá wa≤á ultimatel∙ discovereΣ t∩á bσá tha⌠á Mailmerge¼á wheε ì
  577. confronteΣá b∙ ß ".DFó interpret≤ pagσ ▓ t∩ bσ thσ seconΣ (line¼á set¼ ì
  578. group⌐ oµ datß anΣ sincσ ╔ haΣ onl∙ onσ linσ oµ datß M═ saiΣ t∩ itselµ ì
  579. "thσá foo∞á shoulΣ kno≈ therσ isn'⌠ ß seconΣ linσ oµ datß anΣá ╔á havσ ì
  580. nothinτ t∩ print"« S∩ i⌠ didn'⌠ print.
  581.  
  582. So¼á fo≥ ┤ month≤ wσ struggleΣ oε takinτ man∙ photocopie≤ t∩ makσá thσ ì
  583. extrß copie≤ wσ couldn'⌠ prin⌠ o≥ discardinτ page≤ wσ didn'⌠ want.
  584.  
  585. MucΦá late≥ ╔ founΣ tha⌠ M═ ha≤ anothe≥ interpretatioε oµ "pagσ 2ó bu⌠ ì
  586. tha⌠ i≤ anothe≥ story.
  587.  
  588. CHARLES SANDERCOCK
  589. 
  590. Iεá thσá MarcΦ issuσ i⌠ wa≤ suggesteΣ tha⌠ thσ publiπá domaiεá prograφ ì
  591. QWIKKE┘ woulΣ d∩ simila≥ t∩ thi≤ program«á Thi≤ i≤ no⌠ thσ case«á Wheε ì
  592. WORDSTA╥á boot≤á u≡á i⌠á destroy≤ thσ workinτ areßá iεá whicΦá QWIKKE┘ ì
  593. operates« I⌠ woulΣ bσ quitσ usefu∞ iε ED.CO═ a≤ i⌠ caε bσ useΣ t∩ holΣ ì
  594. string≤á anΣá theε useΣ witΦ thσ contro∞ ke∙ iε conjunctioεá witΦá thσ ì
  595. preset character to input predefined strings. e.g. ^1 = JMP.....  ED
  596.  
  597. 
  598. OOPS!!í We madσ ß mistake« Iε thσ las⌠ issuσ ╔ crediteΣ ß contributioε ì
  599. froφá WESTMU╟á t∩ NORTHMUG«á Thσ article≤ oε pagσ 1╕ (APRI╠ ISSUE⌐á a≤ ì
  600. with the BASIC TIPS in this issue were sent to us by >>> WESTMUG <<<
  601.                                                      ED.
  602.  
  603. FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE-
  604.                           MICROBEE: TAX 85. 
  605.                "Prepare and print your own Tax Return."
  606. Thi≤á prograφ calculate≤ ta° payable¼á rebate≤ etc«á anΣ print≤ ╙ o≥ ┴ ì
  607. Form≤á anΣá Ta° Summary«á Suit≤ 16δ BEE'≤ anΣ popula≥á printers«á Tapσ ì
  608. $16.0░  K« Cousins¼ ╣ Mai≥ Cres¼ Korumburra¼ Vic« 3950« (05╢ 551064
  609. FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE--FOR-SALE-
  610.  
  611.  
  612. QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ
  613. FinΣ ß numbe≥ which¼á multiplieΣ b∙ 3,6,9,12,15,18,21,24¼ o≥ 2╖  shal∞ ìèiε eacΦ casσ givσ a≤ thσ produc⌠ thσ samσ digit¼ threσ time≤ repeated.
  614. QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ
  615. FROM-ANOTHER-MUG:FROM-ANOTHER-MUG:FROM-ANOTHER-MUG:FROM-ANOTHER-MUG:
  616.  
  617.                 MODIFYING EDASM FOR 24 LINE OPERATION
  618.                          by Francois Capmeil
  619.  (article supplied by Sydney Microbee User Group, review by Ray Han)
  620.  
  621.      Thσá EDAS═á prograφá provideΣá b∙ ApplieΣá Technolog∙á witΦá Disδ       ì
  622. systeφá Microbeσá doe≤ no⌠ reall∙ suppor⌠ 2┤ lines«á Rathe≥á i⌠á i≤á ß ì
  623. scrol∞á oµá 1╢ line≤ withiε ß 2┤ linσ format«á Howeve≥ onl∙ tw∩á byte≤ ì
  624. neeΣ t∩ bσ change≤ t∩ obtaiε thσ truσ 2┤ linσ scroll.
  625.  
  626. Thσ procedure« WitΦ DDT.CO═ oε thσ samσ drivσ a≤ EDASM.CO═ type
  627. A>DDT EDASM.COM
  628. the next message should be :
  629. DDT version xx
  630. NEXT     PC
  631. 1D00    0100
  632. if this is so, you are doing OK so far.
  633. - type S588
  634. Thi≤á mean≤á yo⌡ wan⌠ t∩ changσ thσ conten⌠ oµ locatioεá 58╕á iεá you≥ ì
  635. program
  636. - when the message 588 10 is displayed
  637. - type 18 <RET>
  638. - type .(full stop) <RET>
  639. - type S81C
  640. Thi≤á mean≤á yo⌡ wan⌠ t∩ changσ thσ content≤ oµ locatioε 81├á iεá you≥ ì
  641. program.
  642. - when the message 81C 10 is displayed
  643. - type 18 <RET>
  644. - <CTRL><C>
  645. the CP/M prompt will reappear.
  646. type;
  647. A>SAVE 28 TEST.COM
  648. No≈á yo⌡á havσ ß prograφ calleΣ TEST.CO═ WhicΦ shoulΣ havσ ßá truσá 2┤ ì
  649. linσ display« Afte≥ testinτ i⌠ yo⌡ caε RENamσ i⌠ t∩ whateve≥ yo⌡ want.
  650. Wheε ╔ receiveΣ m∙ system¼ thσ prin⌠ functioε oµ EDAS═ diΣ no⌠ work« ╔ ì
  651. contacteΣ Roε Harri≤ anΣ hσ tolΣ mσ ho≈ t∩ fi° this«á ╔ realiseΣ therσ ì
  652. ma∙ stil∞ bσ some-onσ wh∩ ha≤ onσ oµ thosσ earl∙ version≤ oµ thσ EDAS═ ì
  653. s∩ herσ i≤ ho≈ t∩ fi° it:
  654. With DDT on the same disk as EDASM
  655. type DDT EDASM.COM
  656. the messafge DDT version xxx
  657. NEXT    PC
  658. 1D00   0100
  659. should appear
  660. - type S1C15
  661. - the message 1C15 23 should appear if so, type 00 <RET>
  662. iµ not¼ yo⌡ versioε i≤ probabl∙ O╦ yo⌡ shoulΣ typσ <CNTRL><C╛ t∩ exit.
  663. iµ thσ messagσ wa≤ 1C1╢ 34¼ typσ 0░ <RET>
  664. -type <CTRL><C> to exit
  665. You are now back in CP/M
  666. - type SAVE 28 TEST.COM
  667. -test you new version before renaming it. Good luck!!!
  668.  
  669. FROM-ANOTHER-MUG:FROM-ANOTHER-MUG:FROM-ANOTHER-MUG:FROM-ANOTHER-MUG:
  670.                      Z80 EXTRA INSTRUCTIONS
  671.                      ======================
  672.      Based on an article by Personal Software, Winter 1982.
  673.  
  674.      Thσá Z8░á i≤á generall∙ recogniseΣ a≤ beinτ jus⌠ abou⌠á thσá mos⌠ ì
  675. powerfu∞ 8-bi⌠ micr∩ around¼á anΣ it'≤ useΣ iε persona∞ computer≤ sucΦ ì
  676. a≤á thσ Microbee¼á thσ TRS-80¼á thσ Sorcerer¼á anΣ thσá Shar≡á MZ-80K«  ì
  677. Zilog'≤á literaturσ fo≥ thσ Z8░ describe≤ it≤ repertoirσ oµ 15╕á type≤ ì
  678. oµ instruction¼ witΦ ß tota∞ oµ 69╢ possiblσ op-code≤ (plu≤ data).
  679.      Yo⌡á ma∙á thinδ tha⌠ thi≤ shoulΣ bσ enougΦ fo≥ anyone¼á bu⌠á it'≤ ì
  680. actuall∙á possiblσ t∩ find¼á oε mos⌠ Z80s¼á 8╕ morσ useablσá op-codes« ìèThesσ effectivel∙ givσ yo⌡ acces≤ t∩ fou≥  extrß 8-bi⌠ registers«  Thσ ì
  681. morσ machinσ codσ programminτ yo⌡ do¼á thσ morσ you'l∞ appreciatσ tha⌠ ì
  682. yo⌡ can'⌠ havσ to∩ man∙ registers.
  683.  
  684. Z8░ ARCHITECTURE
  685.      Thσá Z8░á i≤á ß developmen⌠ oµ thσ Inte∞á 8080A¼á froφá whicΦá i⌠ ì
  686. inherit≤ thσ A-╠ registers« Thσ seconΣ se⌠ oµ register≤ (A'-L'⌐ aren'⌠ ì
  687. iε thσ 8080A¼ whicΦ als∩ lack≤ I╪ anΣ IY.
  688.      A≤ wel∞ a≤ thσ extrß hardware¼á thσ Z80'≤ designer≤ als∩á manageΣ ì
  689. t∩á craφá iεá ß lo⌠ morσ instructions«á  Thσ Z8░ caε perforφá al∞á thσ ì
  690. earlie≥ micro'≤ instructions¼á usinτ thσ samσ op-codes¼á anΣ ha≤á man∙ ì
  691. morσá oµ it≤ own«á  Thσ extrß instruction≤ cove≥ feature≤ sucΦ a≤á bi⌠ ì
  692. testing¼ relativσ jumps¼ registe≥ shift≤ anΣ blocδ move≤ oµ data« Mos⌠ ì
  693. importantly¼á a≤ fa≥ a≤ thi≤ articlσ i≤ concerned¼ the∙ als∩ providσ ß ì
  694. comprehensivσ se⌠ oµ indexeΣ instructions.
  695.      Thesσá hel≡á t∩á ge⌠á rounΣ ß curiou≤ limitatioεá oµá thσá 8080A¼ ì
  696. inheriteΣ b∙ thσ Z80¼ whicΦ i≤ tha⌠ ß lo⌠ oµ reference≤ t∩ memor∙ havσ ì
  697. t∩á usσ thσ registe≥ pai≥ H╠ a≤ ß pointer«á  Thi≤ sometime≤á lead≤á t∩ ì
  698. clums∙ programming«  Fo≥ instancσ t∩ adΣ thσ content≤ oµ addres≤ 1234╚ ì
  699. t∩ thσ Accumulator¼ wσ havσ t∩ use:
  700.  
  701.           L─   HL,1234╚       ;HL=1234H
  702.           AD─  A,(HL⌐         ;A=A+DATA
  703.  
  704. Thσá Z8░ extend≤ thi≤ typσ oµ addressinτ iε orde≥ t∩ havσ aεá indexinτ ì
  705. capacity.
  706.  
  707. INDEXE─ ADDRESSING
  708.      Iµá yo⌡á looδá a⌠ ß descriptioε oµ thσ Z80'≤á assembl∙á language¼ ì
  709. you'l∞ seσ (╔ hope⌐ somethinτ interestinτ abou⌠ thσ wa∙ thσ micr∩ doe≤ ì
  710. it'≤ indexing«  Wheneve≥ aε instructioε ha≤ ß forφ usinτ (HL)¼ i⌠ als∩ ì
  711. ha≤ aε indexeΣ form«  Thus¼ wσ have:
  712.  
  713.           L─   A,(HL⌐         L─   A,(IR+d)
  714.           BI╘  7,(HL⌐         BI╘  7,(IR+d)
  715.  
  716. I'φ usinτ 'IRº t∩ represen⌠ 'IXº o≥ 'IY'«á  Furthermore¼á therσ arσ n∩ ì
  717. indexeΣ instruction≤ whicΦ d∩ no⌠ havσ (HL⌐ counterparts.
  718.      ╔ hopσ thσ suspicioε i≤ no≈ growinτ tha⌠ thσ tw∩ inde°á register≤ ì
  719. anΣá H╠ arσ closel∙ related«á  Thi≤ suspicioε become≤ ß certaint∙ wheε ì
  720. wσ looδ a⌠ thσ machinσ codσ whicΦ thσ micr∩ actuall∙ executes.
  721.      Fo≥á example¼á thσ He° codσ t∩ perforφ 'AD─  A,(HL)º i≤á 84╗á thσ ì
  722. equivalen⌠á codσ fo≥ 'AD─  A,(IX+d)º i≤ D─ 8┤ dd¼á wherσ 'ddºá i≤á thσ ì
  723. displacemen⌠ expresseΣ iε two'≤ complemen⌠ form.
  724.      T∩ takσ anothe≥ example¼ thσ He° codσ fo≥ 'BI╘  7,(HL)º i≤ C┬ 7E¼ ì
  725. anΣ tha⌠ fo≥ 'BI╘  7,(IY+d)º i≤ F─ C┬ 7┼ dd.Iµ yo⌡ stud∙ you≥ lis⌠á oµ ì
  726. Z8░á instruction≤á (iµ yo⌡ haven'⌠ go⌠ one¼á yo⌡ shouldn'⌠ bσá readinτ ì
  727. thi≤á article!⌐ yo⌡ wil∞ seσ ß remarkablσá consistency«á Ever∙á (IX+d⌐ ì
  728. instructioεá ha≤á aε op-codσ formeΣ b∙ prefixinτ thσá equivalen⌠á (HL⌐ ì
  729. commanΣá b∙ 'DDº anΣ addinτ 'ddº t∩ thσ end«á Thσ (IY+d⌐ command≤á arσ ì
  730. formeΣá b∙ usinτ aε 'FD'¼á rathe≥ thaε 'DDº prefix«á Froφ thi≤ sor⌠ oµ ì
  731. evidence¼ I'φ prett∙ certaiε tha⌠ thσ Z8░ use≤ thσ samσ interna∞ logiπ ì
  732. t∩á decodσ (HL⌐ anΣ (IR+d)¼á als∩ usinτ thσ instruction'≤á prefix¼á o≥ ì
  733. lacδ oµ one.
  734.  
  735. POSSIBILIT┘ O╞ EXTR┴ INSTRUCTIONS
  736.  
  737.      Havinτá seeεá ho≈ thσ Z8░ get≤ a⌠ it≤á indexeΣá instructions¼á aε ì
  738. interestinτ possibilit∙ arises«  S∩ far¼ we'vσ onl∙ considereΣ H╠ a≤ ß ì
  739. 16-bi⌠á register¼á bu⌠á i⌠ can¼á oµ course¼á bσ treateΣ a≤á tw∩á 8-bi⌠ ì
  740. registers«  Wha⌠ happen≤ iµ wσ take¼ sa∙ thσ op-codσ fo≥ 'L─  A,Hº anΣ ì
  741. prefi° i⌠ witΦ 'DDº ?
  742.      Wheε ╔ d∩ i⌠ t∩ thσ Z8░ iε m∙ Microbee¼ ╔ find¼ amazingl∙ enough¼ ì
  743. tha⌠ 'Aº i≤ loadeΣ witΦ thσ highes⌠ bytσ oµ 'IX'«á  N∩ othe≥ register≤ ì
  744. havσ beeε altered«  L∩ anΣ beholdí ╔ havσ aε extrß instruction.
  745.      Oε al∞ thσ Z80≤ I'vσ checked¼á thσ closσ relationshi≡ betweeε HL¼ ì
  746. I╪á anΣá I┘ allow≤ eacΦ oµ thσ inde° register≤ t∩ bσ treateΣ fo≥á man∙ ì
  747. purpose≤ a≤ tw∩ 8-bi⌠ registers.è     Since¼á iεá genera∞á terms¼á yo⌡á can'⌠ havσá to∩á man∙á interna∞ ì
  748. register≤ iε ß micro¼á thi≤ i≤ potentiall∙ ß ver∙ valuablσá discovery« ì
  749. It'≤á usefulnes≤ obviousl∙ depend≤ oε whethe≥ o≥ no⌠ you'rσ usinτá thσ ì
  750. inde°á register≤ a≤ inde° registers¼á bu⌠ i⌠ give≤ aε extrß tw∩á 8-bi⌠ ì
  751. register≤ fo≥ eacΦ inde° registe≥ yo⌡ caε spare.
  752.  
  753. EXTR┴ INSTRUCTION╙ AVAILABLE
  754.  
  755.      Let'≤á havσá ßá looδ no≈ a⌠ jus⌠ wha⌠ wσ caε d∩á witΦá ou≥á extrß ì
  756. registers«á  Firs⌠ oµ all¼ somσ nomenclaturσ - I'l∞ cal∞ thσ tw∩ byte≤ ì
  757. oµ IX¼á 'XHº anΣ 'XL'¼á anΣ thσ tw∩ byte≤ oµ IY¼á 'YHº anΣ 'YL'«  WitΦ ì
  758. thesσ registe≥ names¼ wσ could¼ iε thσ examplσ above¼ usσ thσ mnemoniπ ì
  759. 'L─  A,XHº fo≥ thσ instructioε witΦ thσ op-codσ D─ 7C.
  760.      Wheεá ╔ firs⌠ discovereΣ thesσ extrß commands¼á ╔ hopeΣ tha⌠á XH¼ ì
  761. etc«á coulΣá bσá useΣá iε AN┘ Z8░ operatioε tha⌠ useΣá ╚á o≥á L«á  Fo≥ ì
  762. instance¼á wσ coulΣ havσ 'L─  YL,B'¼ 'SU┬  YH'¼ 'C╨  XH'¼ 'BI╘  3,YL'¼ ì
  763. etc« 
  764.      Iε thσ  firs⌠ place¼á  it'≤  no⌠ possiblσ  t∩ have¼á fo≥ example¼ ì
  765. 'L─á  XL,H'«á  Thi≤ i≤ no⌠ to∩ surprising«á  Thσ instructioε woulΣá bσ ì
  766. generateΣá b∙á prefixinτá thσ codσ fo≥ 'L─  L,Hºá (ie«á 6B⌐á witΦá DD«  ì
  767. However¼á thσ micr∩ woulΣ no⌠ kno≈ whethe≥ 'D─ 6Bº mean⌠ 'L─  XL,Hº o≥ ì
  768. o≥ 'L─  L,XH'╗á i⌠ actuall∙ settle≤ oε 'L─  XL,XH'«  So¼ wσ canno⌠ mi° ì
  769. ╚ o≥ ╠ witΦ thσ extrß register≤ iε ß singlσ operation.
  770.      Thσá seconΣ limitatioε i≤ morσ obscurσ - ie«á ╔ don'⌠ kno≈ wh∙ i⌠ ì
  771. existsíá  Thσá extrßá register≤á wil∞á onl∙á worδá iεá thσá operation≤ ì
  772. inheriteΣ froφ thσ 8080A¼ anΣ no⌠ thσ 'newº Z80-onl∙ instructions«  A≤ ì
  773. fa≥á as╔ caε see¼á thσ differencσ i≤ relateΣ t∩ thσ fac⌠ tha⌠ al∞á thσ ì
  774. 8080A-compatiblσá instruction≤ usσ single-bytσ op-code≤ (plu≤ datßá iµ ì
  775. it'≤ appropriate⌐ whilσ thσ Z8░ special≤ al∞ usσ tw∩ bytes«á  Whateve≥ ì
  776. thσ reason¼á i⌠ mean≤ tha⌠ yo⌡ can'⌠ usσ BIT¼á SET¼á RES¼á rotate≤á o≥ ì
  777. shifts«  Still¼ thσ extrß command≤ arσ free¼ s∩ wσ can'⌠ complain.
  778.      Tablσá ▒á show≤ al∞ thσ 'extraº instruction≤ whicΦ arσá possible«  ì
  779. I⌠ doe≤ no⌠ givσ thei≥ op-code≤ - yo⌡ caε forφ thesσ b∙ usinτ thσ 'DDº ì
  780. anΣ 'FDº prefixe≤ a≤ appropriate.
  781.  
  782.              Table 1.     Extra instructions available
  783.              
  784.              -----------------------------------------
  785.              !        Mnemonic     !   Test Segment  !
  786.              !---------------------------------------!
  787.              !   LD   r,XR         !      LD1        !
  788.              !   LD   XR,r         !      LD2        !
  789.              !   LD   XR,data      !      LD3        !
  790.              !   LD   XR1,XR2      !      LD4        !
  791.              !   ADC  A,XR         !      ADDSUB     !
  792.              !   ADD  A,XR         !      ADDSUB     !
  793.              !   SBC  A,XR         !      ADDSUB     !
  794.              !   SUB  XR           !      ADDSUB     !
  795.              !   INC  XR           !      INCDEC     !
  796.              !   DEC  XR           !      INCDEC     !
  797.              !   AND  XR           !      ANDORX     !
  798.              !   OR   XR           !      ANDORX     !
  799.              !   XOR  XR           !      ANDORX     !
  800.              !   CP   XR           !      COMP       !
  801.              !---------------------------------------!      
  802.              !   Notes:                              !
  803.              !   'r'    - register A,B,C,D or E      !
  804.              !   'XR'   - 'register' XH,XL,YH or YL  !
  805.              !   'XR1','XR2' - any XR                !
  806.              -----------------------------------------
  807.  
  808.      Yo⌡á canno⌠á typσá thesσ 'extraº instruction≤á int∩á you≥á edito≥ ì
  809. source-codσ a≤ is¼ thσ assemble≥ wil∞ no⌠ recognisσ theφ anΣ wil∞ sho≈ ì
  810. aε erro≥ sucΦ a≤ 'illega∞ op-code'«  The∙ wil∞ havσ t∩ bσ entereΣ int∩ ì
  811. thσ source-codσ a≤ ß serie≤ oµ Definσ Byte≤ o≥ Definσ WorΣ  eg.
  812.  
  813.                     DEFB      0DDH      
  814.                     DEFB      7CH       ;LD A,XHè
  815.           or        DEFW      7CDDH     ;LD A,XH
  816.  
  817.      Mos⌠á disassembler≤á o≥ source-codσ generator≤ canno⌠ operatσá oε ì
  818. thesσ 'extraº instructions¼á anΣ becomσ quitσ confused«á  Thi≤ caεá bσ ì
  819. usefu∞á iµ yo⌡ arσ tryinτ t∩ discouragσ disassembl∙ oµ you≥á code¼á a≤ ì
  820. thesσá instruction≤ wil∞ havσ t∩ bσ disassembleΣ manually«á  Therσ arσ ì
  821. however¼ somσ 'smartº disassembler≤ whicΦ wil∞ recognisσ thesσ codes« 
  822.      It'≤á importan⌠á t∩ remembe≥ tha⌠ thesσá extrßá instruction≤á arσ ì
  823. 'unsupported'«á  Tha⌠ i≤ t∩ say¼ the∙ don'⌠ appea≥ iε thσ officia∞ Z8░ ì
  824. literature¼á anΣá s∩ therσ i≤ n∩ guaranteσ tha⌠ ever∙ Z8░ wil∞ executσ ì
  825. theφ successfully.
  826.      Iµ yo⌡ wan⌠ t∩ usσ theφ then¼ yo⌡ mus⌠ tes⌠ you≥ micr∩ t∩ seσ ho≈ ì
  827. i⌠á respond≤ t∩ thσ op-codes«á  Thσ bes⌠ wa∙ i≤ viß ß serie≤ oµá shor⌠ ì
  828. machinσ codσ prograφ segments¼á preferabl∙ controlleΣ b∙ ßá high-leve∞ ì
  829. languagσ sucΦ a≤ BASI├ s∩ tha⌠ yo⌡ caε evaluatσ thσ result≤ easily.
  830.  
  831.  This article will be concluded next issue with listings ED.
  832.   ********** ********** ********** ********** ********** **********
  833.             MICROBEE   TWIN   SCREEN   BASIC   EDITOR
  834.                      From Russell Crosser
  835.   ********** ********** ********** ********** ********** **********
  836.  
  837.     Thi≤ newl∙ releaseΣ prograφ upgrade≤ you≥ Microbeσ t∩ givσá i⌠ ì
  838. ful∞ screeε editinτ oµ basiπ programs¼ iε aε environmen⌠ whicΦ retain≤ ì
  839. al∞ thσ feature≤ oµ MicroworlΣ Basic«á Thσ prograφ hide≤ itselµ a⌠ thσ ì
  840. to≡á oµá thσ basiπ prograφ area¼á anΣ i≤ unobtrusivσ wheε no⌠ iεá use¼ ì
  841. excep⌠ wherσ thσ maximuφ memor∙ i≤ needeΣ fo≥ ß program«á Thσá prograφ ì
  842. i≤á currentl∙ availablσ t∩ ruε iε 32δ o≥ 16δ tapσ baseΣá machines¼á o≥ ì
  843. unde≥á disδá basic¼á o≥ iε thσ Dreamdisδ Beedo≤á system«á Format≤á fo≥ ì
  844. networδ o≥ paδ roφ wil∞ follow¼ anΣ if wanted¼ ß 16δ tape.
  845.  
  846.     The prices of the program are:
  847.             Club Members:
  848. Tape **        $18        $15
  849. Disk        $20        $17 (less $3 on your own disk)
  850. 
  851. ** Please specify 16k, 32k or disk when ordering
  852. 
  853.  
  854.     The∙ wil∞ bσ availablσ oε cluΓ night≤ a⌠ thσ Bazaa≥ anΣ ì
  855. froφ retai∞ outlets¼ otherwisσ writσ t∩ mσ at:
  856.  
  857.     Russell Crosser               Phone (059) 625975
  858.     Box 214, Healesville, 3777, Vic
  859.   ********** ********** ********** ********** ********** **********
  860. 
  861.                "SCREDT" - Microbee Basic Screen Editor
  862.  
  863. General Description:
  864.       Scred⌠á provide≤á aεá alternativσ environmen⌠á fo≥á writinτá anΣ ì
  865. editinτá basiπá program≤ iε thσ Microbee«á I⌠ operate≤á alongsidσá anΣ ì
  866. complement≤ thσ facilitie≤ provideΣ iε MicroworlΣ Basic¼á t∩ producσ ß ì
  867. ver∙ flexiblσ environmen⌠ fo≥ developinτ anΣ debugginτ basiπ programs« ì
  868. Ful∞á 18▓á characte≥á line≤á ma∙ bσ edited«á Oncσá installeΣá iεá you≥ ì
  869. Microbee¼á thσ prograφ enable≤ yo⌡ t∩ movσ througΦ ß prograφ anΣá edi⌠ ì
  870. i⌠á iε mucΦ thσ samσ wa∙ ß tex⌠ filσ i≤ editeΣ iε Wordbeσ o≥ Wordstar« ì
  871. Simplσ control≤ movσ thσ curso≥ arounΣ thσ screen¼ anΣ wheε thσ curso≥ ì
  872. reache≤ thσ bottoφ linσ thσ nex⌠ linσ i≤ automaticall∙ printeΣ t∩á thσ ì
  873. screen«á Change≤á madσá t∩á thσ prograφ line≤ arσá inserteΣá int∩á thσ ì
  874. prograφ currentl∙ iε memor∙ wheneve≥ thσ curso≥ move≤ t∩ anothe≥ line« ì
  875.  
  876.      Thσ exclusivσ twiε screeε featurσ enable≤ thσ use≥ t∩ lis⌠ u≡á t∩ ì
  877. 1░á line≤á oε thσ screen¼á theε transfe≥ theφ t∩ aεá alternatσá memor∙ ì
  878. area¼á whilσ anothe≥ par⌠ oµ thσ prograφ i≤ edited¼á o≥ thσ prograφ i≤ ì
  879. run¼á o≥ eveε renumbered¼á o≥ anothe≥ prograφ loaded« Tw∩ part≤ oµ thσ ì
  880. prograφ ma∙ bσ swappeΣ anΣ editeΣ freely¼ a≤ ofteε a≤ needed.
  881.  èThσá abovσ i≤ par⌠ oµ thσ instruction≤ fo≥ "SCREDT.MWB"«á Thi≤ prograφ ì
  882. WORK╙á anΣá i≤á wel∞ wortΦ thσ thσ cos⌠ iµ yo⌡á arσá ßá seriou≤á BASI├ ì
  883. programmer«á Thσá onl∙ complain⌠ i≤ tha⌠ thσ instruction≤ arσ supplieΣ ì
  884. iε WORDBE┼ only«á Wha⌠ happen≤ iµ yo⌡ don'⌠ havσ WORDBEE?á Maybeá thσ 
  885. author will rectify this, otherwise an EXCELLENT program. ED.
  886. QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ
  887. Iµá i⌠ take≤ si° second≤ t∩ strikσ six¼á ho≈ man∙ second≤ wil∞ i⌠ takσ ì
  888. thσ cucko∩ clocδ t∩ strikσ nine.
  889. QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ
  890.  
  891. BAZAAR-SALES-$-BAZAAR-SALES-$-BAZAAR-SALES-$-BAZAAR-SALES-$-BAZAAR-SA
  892.                
  893. á        Blank c-30 cassettes                         $ 1.50
  894.          Box   c-30 cassettes (20 per box)            $25.00
  895.          Blank 5" disks (verbatim dsdd)               $ 4.00
  896.          Box   5" disks (10 per box)                  $40.00
  897. á        Blank 5" disks (ssdd)                        $ 3.00
  898.          Lockable 5" disk box (holds 85)              $25.00
  899.          Carbon printer ribbon (suit xyz.80 printers) $ 9.00
  900.        **500 cont. printer paper (240mm wide)         $10.00
  901.          Special 5 x c-10 cassettes                   $ 4.00
  902.          Back issues of "The Catcher"                 $ 1.50
  903.          Back issues of "The Catcher" Vol. 2
  904.                         No. 6/7                       $ 3.00
  905.          Bound Volumes of "The Catcher"
  906.          Vol. 1 and Vol. 2 available                  $15.00
  907.          Sig/m catalogue(hard copy)                   $ 7.00
  908.          Modem PCB & Instructions                     $25.00
  909.          Dust Covers                                  $ 6.00
  910.   
  911.        ** not normally available for postal purchase
  912.      
  913. A.T«á havσá giveεá MBU╟ ß 10Ñ discoun⌠ oε softwarσ ordereΣ froφá thei≥ ì
  914. GosforΣá store«á Wσ wil∞ takσ order≤ froφ member≤ anΣ forwarΣ theφá t∩ ì
  915. A.T« fo≥ processing¼ bu⌠ caε no⌠ guaranteσ ß quicδ reply.
  916.  
  917. Al∞ posta∞ order≤ t∩ bσ sen⌠ to║ MBU╟ AUST« SALES
  918.                                  P.O. Box 253,
  919.                                  Coburg,3058
  920.  
  921.  
  922. BAZAAR-SALES-$-BAZAAR-SALES-$-BAZAAR-SALES-$-BAZAAR-SALES-$-BAZAAR-SA
  923.  
  924.                            JOYSTICK CONTROL
  925.  
  926.      Thσ joysticδ signa∞ i≤ reaΣ b∙ thσ usσ oµ "I╬ (0)ó anΣ i≤ useΣ iε ì
  927. a program in thee following statement:
  928.  
  929.                           J = - IN (0) + 255
  930.  
  931.            The following listing gives the incoming signsl:
  932.  
  933.      0         NO INPUT                 1         UP   
  934.      2         DOWN                     4         LEFT
  935.      5         UP & LEFT                6         DOWN & LEFT
  936.      8         RIGHT                    9         UP & RIGHT
  937.      10        DOWN & RIGHT             128       FIRE BUTTONS
  938.  
  939.      Yo⌡á caεá als∩á adΣ 12╕ t∩ thσ directioε t∩ indicatσ ßá anΣá firσ ì
  940. button pressed. eg. 129 UP & FIRE BUTTON.    Contributed by Westmug.
  941. RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM
  942.  
  943. TIPS║á é HEL╨ i≤ onl∙ availablσ oε DRIV┼ A║ iµ yo⌡ d∩ ß HEL╨ froφ ß DI╥ ì
  944. tha⌠ i≤ no⌠ oε drivσ A║á ß messagσ wil∞ bσ giveε t∩ changσ t∩ ß DI╥ oε ì
  945. drivσ A║ e.g« do
  946.       é    CPM:<ret>
  947.           HELP<ret>
  948. èTIP:é T∩ finΣ ou⌠ wha⌠ i≤ "XYAM'ableó envokσ XYA═ anΣ thσ d∩ DI╥ e.g.
  949.     é      XYAM<ret>
  950.           passworΣ XXXXX
  951.           DIR<ret>
  952. Al∞ file≤ ablσ t∩ bσ downloadablσ wil∞ theε bσ displayed.
  953.  
  954. TIP║ é Iµ yo⌡ ge⌠ caugh⌠ iε thσ HEL╨ loo≡ wai⌠ ß fe≈ minute≤ anΣ seσ iµ ì
  955. i⌠á get≤á bacδ t∩ menu╗á iµ no⌠ d∩ ß ^├ wheε thσ displa∙á reache≤á thσ ì
  956. bottoφ oµ thσ screen« (thi≤ wil∞ bσ fixeΣ u≡ iε nex⌠ RE╓ oµ HELP.com)
  957.  
  958. TIP║á éá Iµá yo⌡á d∩ no⌠ depres≤ ß ke∙ withiε ╡ minute≤á thσá S/╫á wil∞ ì
  959. automaticall∙ loτ yo⌡ off.
  960.  
  961. TIP:é XYAM.LO╟ onl∙ record≤ ne≈ file≤ uploadeΣ t∩ system¼ d∩ 
  962.          é CPM:<ret>
  963.           TYP┼ XYAM.LOG<ret>
  964. anΣ b∙ comparinτ thσ datσ oµ thσ ne≈ file≤ t∩ thσ datσ yo⌡ las⌠ loggeΣ ì
  965. on¼ an∙ ne≈ file≤ oε thσ systeφ caε bσ determined.
  966. Thesσá arσ thσ ne≈ file≤ XYAM'eΣ recently«á Thσ XYAM.LO╟ filσ no≈á ha≤ ì
  967. al∞á thσá BUG╙á ou⌠á oµá i⌠ s∩ nex⌠ montΦ wσá wil∞á recorΣá al∞á file≤ ì
  968. uploaded.
  969.  
  970. ╥    ┴ ╢ Z80CODE.WB╞   05/04/8╡ ANDRE╫ BARFOOT
  971. ╥    ┴ ╢ LBRSWEEP.OB╩  14/04/8╡ DAVI─ PRIEBBENOW
  972. ╥    ┴ ░ kermit.OB╩    14/04/8╡ ERI├ GUNSTONE
  973. ╥    ┴ ┤ kermit.OB╩    14/04/8╡ ERI├ GUNSTONE
  974. ╥    ┴ ┤ kermit.doπ    14/04/8╡ ERI├ GUNSTONE
  975. ╥    A1▓ PATCHWS.OB╩   16/04/8╡ RICHAR─ COLLETT
  976. ╥    A1▓ PATCHMWB.OB╩  16/04/8╡ RICHAR─ COLLETT
  977. ╥    A1▓ DMON218.RO═   16/04/8╡ RICHAR─ COLLETT
  978. ╥    ┴ ┤ NULU10.LB╥    17/04/8╡ MIRK╧ FLUHER
  979. ╥    ┴ ╢ settime.OB╩   17/04/8╡ MIK┼ THOMPSON
  980. ╥    ┴ ╡ settime.π     17/04/8╡ MIK┼ THOMPSON
  981. ╥    ┴ ╡ search.π      17/04/8╡ MIK┼ THOMPSON
  982. ╥    ┴ ╡ search.obΩ    17/04/8╡ MIK┼ THOMPSON
  983. ╥    ┬ ▒ MONSTERS.MW┬  01/05/8╡ ????┐ ????
  984. ╥    ┴ ┤ SPACEBEE.OB╩  02/05/8╡ ????┐ ????
  985. ╥    ┴ ┤ POKERBEE.OB╩  02/05/8╡ ????┐ ????
  986. ╥    ┴ ▒ yamegs.dmµ    06/05/8╡ MIRK╧ FLUHER
  987. ╥    ┴ ▒ yammgs.sτ     11/05/8╡ SIMO╬ GERRATY
  988. ╥    ┴ ▒ yammgs.asτ    11/05/8╡ SIMO╬ GERRATY
  989. R    A 1 yam-send.msg  14/05/85 DARRYL W.R. SMITH
  990.  
  991. ╔ aφ stil∞ waitinτ fo≥ review≤ fo≥ abovσ programms¼á iµ yo⌡ havσá XYA═ ì
  992. them, how about letting me know what you think about them!!!!
  993.  
  994. RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM-RCPM
  995.                     ANOTHER 20 LINE PROGRAM ENTRY
  996.                              "RNDNUM.MWB"
  997.  
  998. 00100 CLS:PRINT"MICRO-BEE RANDOM NUMBER PROGRAM BY TREVOR HUDSON"
  999.       :DIM A (100)
  1000. 00110 PRINT\"TO SELECT TAB NO'S FOR CUP SWEEP,      PRESS 1";SPC(18);
  1001.       "TO SELECT 6 LUCKY TATTSLOTTO NUMBERS,  PRESS 2";SPC(18);
  1002.       "FOR A RANDOM NUMBER BETWEEN 1-100,     PRESS 3"
  1003. 00120 FOR G=1TO10:H=INT(RND*24+1):PLAY H:NEXT G:INPUT" ";M:
  1004.       IF M<1ORM>3 THEN120
  1005. 00130 FOR R=1 TO 100:A(R)=0:NEXT R
  1006. 00140 ON M GOTO 170,200,150
  1007. 00150 LET D0=100:X=1:T=0
  1008. 00160 PRINT\"         YOUR LUCKY NUMBER IS -";:GOTO220
  1009. 00170 PRINT:INPUT "THE NUMBER OF HORSES ENTERED IN THE RACE IS? ";D0
  1010.       :LETX=INT(D0):T=0
  1011. 00180 INPUT"ENTER TAB NO OF SCRATCHED HORSE. (0 IF NONE) ";S:
  1012.       IF S<>0 THEN LET A(S)=1:T=T+1:INPUT"ARE THERE ANY MORE 
  1013.       SCRATCHINGS (Y or N)?";A0$:IF A0$="Y" OR A0$="y" THEN 180
  1014. 00190 PRINT\"         THE HORSE RACE, TAB NUMBERS ARE -":GOTO220
  1015. 00200 PRINT:D0=45:X=6:T=0:REM prior to July 85 D0=39 or 40.è00210 PRINT\ "        YOUR SIX LUCKY TATTSLOTTO NUMBERS ARE -"
  1016. 00220 INVERSE:FOR R=1 TO X-T
  1017. 00230 B=INT(RND*D0)+1:IF A(B)=1 THEN 230 
  1018. 00240 A(B)=1:PRINT B,:FOR J=1 TO 2:K=INT(RND*24+1):PLAY K:NEXT J
  1019.       :NEXT R:PRINT
  1020. 00250 NORMAL:PRINT:INPUT"Do you wish to try again? (Y)es, (N)o 
  1021.       or look at (M)enu ";Z1$
  1022. 00260 IF Z1$="Y" OR Z1$="y" THEN  130
  1023. 00270 IF Z1$="M"ORZ1$="m" THEN PRINT:GOTO 110:ELSE PRINT\
  1024.       "THANKS FOR PLAYING"
  1025. 00280 END: REM end of program called "rndnum.mwb"
  1026.  
  1027. QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ
  1028.  
  1029.   GROUND                 MAN        STAND       WEAR       CYCLE
  1030. ---------              -------     -------     ------      CYCLE
  1031.    FEET                 BOARD         I         LONG       CYCLE
  1032.    FEET
  1033.    FEET
  1034.    FEET
  1035.    FEET
  1036.    FEET
  1037.  
  1038. QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ
  1039.  
  1040. Wheε ß clocδ show≤ ╡ o'clocδ a⌠ wha⌠ timσ durinτ thσ nex⌠ hou≥ will:-
  1041.      a⌐   botΦ hand≤ coincidσ ?
  1042.      b⌐   botΦ hand≤ firs⌠ stanΣ a⌠ righ⌠ angle≤ t∩ onσ anothe≥ ?
  1043.  
  1044.  
  1045. Caε yo⌡ arrangσ eigh⌠ 8'≤ s∩ tha⌠ wheε the∙ arσ summeΣ the∙ adΣ u≡á t∩ ì
  1046. ß tota∞ oµ 1000« Al∞ number≤ arσ decimal.
  1047.  
  1048. QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ-QUIZ
  1049.             COPY MACHINE OR BASIC PROGRAMs USING EDASM 
  1050.  
  1051. 1.   Press M then reset, release reset to get MONITOR.
  1052. 2.   F 0400 8000         -    CLEAR MEMORY
  1053. 3.   R <RETURN>          -    PRESS PLAY TO LOAD FILE
  1054. 4.   E 321 <RETURN>      -    EXAMINE SPEED BYTE
  1055. 5.   M                   -    01 FOR 1200 bpi
  1056. 6«   ╟ DF7╡ (STAR╘ RECORDIN╟) <RETURN>  
  1057.  
  1058.           Somσá program≤ ma∙ appea≥ t∩ bσ Machinσ code¼á bu⌠ iµá star⌠ ì
  1059. addres≤ i≤ 08C░ theε i⌠ ma∙ bσ ß Basiπ program¼ ß forφ oµ protection.
  1060.  
  1061.           To convert back to Basic:
  1062.  
  1063. 1.   Load under monitor (EDASM)
  1064. 2.   Change file type to read 42(Hex) at location 31A
  1065. 3.   Change auto LSD/NSD to read 00(Hex) at location 31F-320
  1066. 4.   Change auto flag to 00(Hex) at location 322
  1067. 5.   Save to cassette using g DF75 command.
  1068. 6.   Load under Basic.
  1069. 7.   List first few line to check if Basic program.
  1070. 8.   Check for any poke 140,1 or 141,1 etc.
  1071. 9.   Change to poke 140,0 or 141,0.
  1072. 10.  DO NOT attempt to run program
  1073. 11«  Savσ t∩ cassettσ usinτ SAV┼ ╞ "***ó wherσ *** i≤ filename
  1074. 12.  Clear memory then reload under Basic.
  1075.  
  1076. LAST-MEETING--LAST-MEETING---LAST-MEETING---LAST-MEETING--LAST-MEETING
  1077.  
  1078. ╔á woulΣ likσ t∩ thanδ GRE╟ BLAC╦ fo≥ hi≤ offe≥ t∩ producσ thi≤ columε ì
  1079. a≤ oµ nex⌠ montΦ pleasσ givσ hiφ you≥ support«á GU┘ SCHU╘ (actinτ MEL┬ ì
  1080. A.T«á BE┼á SHO╨ manager⌐ addresseΣ thσ meetinτ anΣ mentioneΣ thσá A.T« ì
  1081. offe≥á tha⌠á allow≤á ßá BE┼ connectioεá t∩á VITAL«á Thσá ki⌠á include≤ ì
  1082. instruction≤á oε ho≈ t∩ conver⌠ thσ BE┼ MODE═ t∩ 1200/7╡ plu≤ thσá S/╫ ìèt∩ connec⌠ int∩ thσ VITA╠ NETWORK« COS╘ I╙ $49.95
  1083.  
  1084. PAPE╥á LIBRAR┘á haΣ al∞ thσ interstatσ newsletter≤á collateΣá b∙á cluΓ ì
  1085. name¼á s∩á it'≤ easie≥ t∩ finΣ information«á Recen⌠ newsletter≤ iε thσ ì
  1086. pape≥ librar∙ arσ BEELIN┼ VOL│ #3(20pgs)¼á SCU┴á APR(20pgs)¼á CANBERR┴ ì
  1087. APR(29pgs)¼áá TOWNSVILL┼á MAY(16pgs)¼áá S.A«áá APR(16pgs)¼áá TH┼á BUZ┌ ì
  1088. APR/MAY(10pgs)¼áá TH┼áá STIN╟á APR(14pgs)¼áá VME╟áá #2(20pgs)¼áá MICO═ ì
  1089. MAY(12pgs)¼ ONLIN┼ #9.
  1090.  
  1091. ELECTRONIC╙á TODAY'╙ CIRCUIT╙ COOKBOO╦ #╡ pagσ 2╕ ª 2╣ ha≤ aεá articlσ ì
  1092. oε ho≈ t∩ extenΣ thσ graphic≤ froφ 12╕ t∩ 102┤ PC╟ characters« 
  1093.  
  1094. Thσá BAZAA╥ diΣ somσ hectiπ business¼á witΦ ove≥ si° differen⌠ trader≤ ì
  1095. competinτ fo≥ thσ member≤ wants« Iε futurσ al∞ commercia∞ member≤ mus⌠ ì
  1096. advisσ thσ committeσ iµ the∙ intenΣ t∩ se⌠ u≡ sho≡ oε thσ night«á Thi≤ ì
  1097. wa∙á wσá caε advisσ thσ fac⌠ iε thσ CATCHE╥ s∩ tha⌠ al∞á member≤á wil∞ ì
  1098. kno≈ wha⌠ t∩ expec⌠ beforσ thσ meeting« Thσ BANKCAR─ facilit∙ giveε b∙ ì
  1099. onσá oµ thσ trader≤ wa≤ s∩ successfu∞ tha⌠ thσ committeσá ha≤á applieΣ ì
  1100. fo≥ one¼ anΣ thi≤ servicσ wil∞ bσ availablσ a≤ sooε a≤ possible.
  1101.  
  1102. LAST-MEETING--LAST-MEETING---LAST-MEETING---LAST-MEETING--LAST-MEETING
  1103.