extends their deepest apologies. Bill has been transfered to a new
Contents
1. frequently called sub rtns follo 102 rem set hi lo shape from mtrx 105 sh ch y x 110 if sh gt by if sh lt yy then sl 4 gotol20 115 sl 0 Pal PA Fek 120 125 130 135 140 145 150 155 160 165 24 08 54 1982 chkr gme Page 3 sb l sx 2 rem crsr chkr size for i ssb to sx rem put obj on brd scrn pokeitxatva sh rem put hi shape pokei xatyatra shtsl rem put Jo shape nexti return sh by sl 4 rem vlo crsr if ch y x yythen sh yb s 4 rem blu crsr gosubl20 return cb 6 0 ch y x cb y x O return rem save chkr ceb y x cb 6 0 return rem rplc chkr b Feb 22 09 22 1982 chkrs inst Page 1 checkers facilitv submitted by Don Schmidt Neptune N J instructions 1 2 load program type run Return Key a program builds board puts checkers on board and a yellow cursor left starts digits 1 9 except 5 control movement a b Hit 0 Hit ea move cursor to desired square hit to key to mark and remove checker move cursor to desired square hit 5 to put marked checker at this new location If opponent s player was jumped position cursor on jumped checker and hit 5 again to remove the checker zero to switch players to end game FAR Product Catalog and Price List COMPUTER PRODUCTS JANUARY 1 1982 LIST PRICE FACTORY PRICE 23K APF IM 1 COMPUTER Includes 14 000 Bytes ROM with BASIC built in 9000 Bytes User RAM Color Sound Pr2. always luck determine if you beat the machine BASEBALL THE GREAT American pastime can still be great even when the 19 95 weather isn t BOXING Features 2 boxers battling toe to toe like Dempsey and Firpo 19 95 variations BACKGAMMON This ancient game has never been more popular and it really 19 95 comes to life in all the colors of your TV screen CATENA Surround your opponent but watch out for the last minute 19 95 reverses WARRANTY 90 DAYS PARTS AND LABOR If unit fails within 90 days of purchase send unit and sales receipt prepaid via United Parcel Service to PROTECTO ENTERPRIZES at address shown We will ship you a replacement unit within 48 hours of receipt prepaid SERVICE MANUAL Detailed service instructions and pictures for those who 19 95 want to service their computer CLUB PRICE 19 95 14 95 19 95 19 95 14 95 19 95 14 95 19 95 19 95 14 95 14 95 19 95 14 95 14 95 14 95 19 95 XKOLUB PRICE 14 95 14 95 14 95 14 95 14 95 9 95 14 95 14 95 14 95 14 95 14 95 NATIONAL IMAGINATION COMPUTER CLUB FACTORY SPONSORED 1982 MEMBERSHIP APPLICATION Expires 12 31 82 PURPOSE KEEP OWNERS AND PROSPECTIVE OWNERS INFORMED ON A NATIONAL BASIS ABOUT THE FANTASTIC CAPABILITIES OF THE NEW 23K APF IM 1 COMPUTER INFORMATION FURNISHED LATEST PRODUCT DEVELOPMENTS TO ENHANCE AND EXPAND THE CAPABILITIES OF THE NEW 23K APF IM 1 COMPUTER KEEPING UP WITH LATEST DEVELOPMENTS AND PROBLEMS FROM A
3. sale We planned this sale for six months and sold out in 30 days We are now shipping all orders We are shipping about two weeks later than we promised We still have not been able to get any peripherals and do not expect to be able to ship peripherals back orders before June 1 1982 We do have all the programs in stock we show on our price list as they were stored in another warehouse and were not affected by the flood There are a lot of good programs available from other firms and we will advise club members of these programs in future club letters So please have patience We are dedicated to giving APF IM 1 owners the best possible service and continued program support P S We neeo Peoceams Awo Su cestions From You To Mnge Ove Crue Svacessfus 11
4. 0 shipping D 100 MINI FLOPPY DISK DRIVE Plugs into interface has its own power supply and controller uses no RAM memory give you 72 000 Bytes of additional data storage plus instant loading and accessing of data 7 50 shipping PROGRAMMING AND LANGUAGE AIDS 599 00 698 00 199 00 129 00 149 00 726 00 199 00 149 00 599 00 FACTORY PRICE 239 00 289 00 79 50 79 50 79 60 499 00 129 00 79 50 399 00 LUB PRICE BASIC TUTOR This program includes two cassette tape programs with a 243 page manual Teaches you how to use the simplified Level II BASIC cuts programming time a must for beginners and professionals PROGRAMMING AND TECHNICAL ASSISTANCE MANUAL 100 pages graphics memory maps machine language schematics and parts list 6800 MACHINE LANGUAGE EDITOR AND ASSEMBLER This disk program is used to create source code file this file is then used as the assembler simplifies sntrv or editing adding deleting change in lines etc 6800 MACHINE LANGUAGE DISASSEMBLER This disk enhances creation debugging and recording of machine language DISK COPIER PROGRAM Allows vou to make duplicate copies of all disk rograms written for the APF IM 1 NATIONAL COMPUTER CLUB MEMBERSHIP Allows special discount prices Programming assistance new developments program exchange factory sponsored 49 95 19 95 59 95 19 95 19 95 MASTER CARDS Add 1
5. 5 00 for shippping if PRO I EC T oO C 0 D add 5 00 more xadd 3 00 for postage if ENTERPRIZES FACTORY DIRECT RELIABILITY C O D add 2 00 more BOX 550 BARRINGTON ILLINOIS 60010 Phone 312 382 5244 to order 8 29 95 14 95 29 95 14 95 9 95 15 00 FACTORX MANAGEMENT PROGRAM TAPES PRICE ELECTRONIC FILES This is a computer filing svstem that allows vou to 29 95 keep track of names addresses and other records BAR CHARTS Color charts for comparisons year to year category by 19 95 category See your situation at a glance TYPING TUTOR Learn typing at your own speed unique program Computer 29 95 designs and changes to fit your ability CHECK BOOK BUDGET MANAGER Faster way to balance your check book 29 95 Balance your budget Keep tax records etc BUDGET MANAGER Day by day week by week 3 categories including food 19 95 medical automotive even summary reports PERSONAL BUSINESS MACHINE Calculate loans interest principle payments 29 95 loan payments etc BILLBOARD Great for creating messages in sound color and graphics with 19 95 a beautiful display SPACE SIZE AND SURFACE GUIDE Great for home improvements figure your 29 95 material needs How much Paint Carpeting Fertilizer etc MATH TUTOR Great for improving math skills at any age level based on 29 95 personal ability a private tutor with lots of fun THE WORD FACTORY A spelling game that s fun spell name of object 19
6. 95 pictured great to improve your kids spelling skill and adult to SPELLING DUEL Challenging and educational Great fun with combination 19 95 spelling and crossword game JUMBLED UP THINGS Create words from jumbled up letters against the clock 29 95 Great educational program to improve your memory PERCEPTION Learning game Two players any level compete Improves your 19 95 ability to solve problems ARTIST AND EASEL Great color art program for those who like to paint 19 95 doodle Save your masterpiece Use your imagination MUSIC COMPOSTER Practice on keyboard select key and tempo write a tune 19 95 and record it SPACE DESTROYERS The most popular space game played Hold off the 29 95 invaders save the earth from destruction FACTORY GAME CARTRIDGES PRICE HANGMAN Tic Tac Toe Doodle Two competitive games plus the electronic 19 95 art of Doodle U F O Shoot a Lot Sea Monsters Break it Down Two great adventures in 19 95 space and the deep and two challenging carnival games SHOOTING GALLARY Brickdown it takes smart shooting to get all bricks and 19 95 a steady ai PINBALL Blockout Dungeon Hunt Electronic flippers and tricky ball speed 19 95 changes in pinball In Dungeon search and score CASINO Roulette Keno Slot Machine All games are played by the real 19 95 Las Vegas rules Even has the authentic sounds of the casino too BLACK JACK Great practice You ll really clean up at the real thing 19 95 Smart decisions not
7. LL SOURCES OWNER EXPERIENCES BUGS IMPROVEMENTS EXPANSION IDEAS PROGRAM EXCHANGE ETC APPLICANT NAME STREET ADDRESS CITY STATE PHONE NO INCLUDE ANNUAL FEE 15 00 MAKE CHECK PAYABLE TO JOE BADGER NICC NATIONAL IMAGINATION COMPUTER CLUB AS A CLUB MEMBER YOU WILL BE ENTITLED TO A SPECIAL CLUB PRICE ON MANY ITEMS THIS CLUB PRICE WILL NOT BE NO LESS THAN 15 ON ALL PROGRAMS YOUR SAVINGS SHOULD EASILY PAY YOUR 1982 CLUB MEMBERSHIP FEE A MONTHLY COMPUTER CLUB LETTER IS ISSUED STARTING FEBRUARY 1982 IF NEW INFORMATION IS IMPORTANT ENOUGH WE WILL ISSUE MORE FREQUENT LETTERS MAIL TO CLUB PRESIDENT JOE BADGER 515 W SHADY LANE BARRINGTON IL 60010 PHONE 312 382 5244 to Over Other Special News Protecto Enterprizes apologizes for delavs in shipping orders Their objective is alwavs to ship the following dav after an order is placed and to give two to seven davs deliverv on phone orders anvwhere in the USA The problem on delaved orders was caused when the 28 below zero weather hit the New York area It froze the water main on the third floor of the warehouse where the 23K IM 1 computers and peripherals were stored on the first floor This completely flooded the first floor and ruined all the computers and peripherals We had to bring in all new merchan dise to replace the computers causing a 60 to 90 day delay At the same time we sold out all the computers several thousand we planned for this
8. No 2 March KRKUHARRKARARAL HA MAI The National Imagination Club AEE AERE FEAE EAEE E AEREE JEE RERE ANNOUNCEMENTS Those of you who have tried to reach Bill Badger and have met with either no answer or just an answering machine Protecto extends their deepest apologies Bill has been transfered to a new position within Protecto Those of you wishing to talk to someone about programming problems or needing technical assistance can contact Ken Whitmire at 312 695 7446 Do not try and call Bill anymore as he is unavailable Some of you have had questions about the Free club information you recieved with your computers This is an inactive club in New York not The National APF Imagination Club Cnly members of the National club are eligible for special price discounts as outlined in the protecto price sheets uestions and answer ka Some of you have been wondering how to get a logical AND or OP function for IF THEN statements Here is one way to get themi AND The logical AND is usually written IF J 7 AND I 6 THEN 500 which means both J has to be equal to 7 and I has to be equal to 6 before the program will jump to line 500 The Imagination Machine uses a multiple IF statement to perform the same function It looks like this IF J 7 THEN IF I 6 THEN 500 op The logical OR is usually written IF J 7 OR I 6 TEEN 500 which means either J has to be equal to 7 or I has to be equal to 6 in order for the program to j
9. dditive 6004 rem sh sx start stop pointers to shape table 6005 rem sh sl hi lo shape color values 6006 rem bb by bg br yy yb gb rb are shape s and 6007 rem indicate color of shape color table 0 6008 rem i e bh blue blue gh green blue br blue red 5994 600 rem build shapes 601 sb 512 sx 519 rem shape th starts at loc 512 602 ye 85 b 170 rd 255 rem grn yelo blu red 605 xa O ya a 8 rem set additives 610 for x lto8 rem 8 shapes 615 on x gosub 625 630 635 640 645 650 655 660 620 sh sbh l16 sx sb 7 nextx rem next block 625 sh b sl 0 gosub125 bh O0 return 630 sl ye bl gosubl125 return 635 sl bi gosubi2 sreturn 640 sl rd bl gosubi25 br 3 return 645 sh ye s 0 gosubl25 yy 4 return 650 sl bl ye gosubl25 yb 5 return 655 shsgr sl bl gosubl25 gb 6 return 660 sh rd sl bl rd gosubl125 rb 7 return 499 500 rem build board 501 sh bb s O rem start w blu sgr 505 sh 0 sx 3 xa O ya 0 ra 32 rem set start controls 510 for y Oto5 rem only 6 rows 515 for x 0to7 rem but 8 cols 520 gosubl25 ch y x Sh rem init mtrx 525 if sh bb then sh yy goto535 rem swtch color 530 sh bb 535 xa xat 4 nextx 540 ya yat64 xa O rem re init x additive 4 Feb 24 08 54 1982 chkr gme Page 2 545 if sh bbthen sh yy nexty 550 sh bb nexty return w w wo 400 rem put checkers on board 401 ya 0 xa 0 ra 32 rem set r c additives 405 sh bg sl 4 rem strt w grn chkr lo shape is 4 away 410 for y 0to5 rem on
10. ly 6 rows this board 415 for x 0to7step2 420 if y 0then435 425 on y goto 430 435 430 435 430 435 430 if x 0 then x l xa xa 4 435 gosubl20 cb y x sh rem save ckr id in mtrx 440 xa xa 8 nextx 445 ya ya 64 xa 0 450 if y l then y 3 ya ya 128 sh br rem swtch chkr colr 455 nexty return 299 300 rem read playrs move 305 k key p if k then305 rem wait 310 if k then return rem back to main 311 if K O then return 315 if K then gosubl60 gosublUO gosubl45 goto300 rem rmv chkr 316 if kS 5 then gosubl65 gosubl00 gosubl45 goto300 rem rp chkr 320 k asc k 48 gosubl00 rem rmv crsr 325 on k gosub200 205 215 225 235 240 245 255 326 rem test overflow 330 if x gt 7 if k 9then ya ya 64 y ytl 335 if x gt 7 if k 3then ya ya 64 y y 1 340 if x gt 7thenx 7 xa 28 music 7 7 345 if x lt 0 if k 7then ya ya 64 y ytl 350 if x lt 0 if k lthen ya ya 64 y y 1 355 if x lt Othenx 0 xa 0 music 1 1 360 if y gt 5 if k 3 then xa xa 4 x x 1 365 if y gt 5 if k l then xa xat4 x 1 370 if y gt 5 then y 5 ya 320 music 5 5 375 if y lt 0 if k 9 then xa xa 4 x x 1 380 if y lt 0 if k 7 then xa xa 4 x x 385 if y lt 0 then y 0 ya 0 music 77 390 gosubl45 goto300 199 200 rem adjust x y additives 201 x x l xa xa 4 205 y ytl ya yat 64 return 215 x x l xa xat4 220 l ya ya 64 return 225 l xa xa 4 return 235 lixa xat4 return 240 l xa xa 4 245 l varva 64 return 255 l xa xa 4 260 y y l ya ya 64 return 100 rem most
11. makes sure it is an integer line 30 makes Af equal to the string character whose ascii code is equal to J If you look on page 21 of the language reference guide you will see that J is equal to a number between 1 and 7 Line 40 simply performs the music function Try this program 10 DIV At 1 20 J INT RND 0 7 r1 30 X INT RND 0 31 1 O Y INT RND 0 15 1 50 SHAPE 15 60 COLOP J 70 PLOT X X 80 K INT PND 0 7 h9 90 At CHRS K 100 NUSIC A 110 CO TO 20 3 Feb 4 08 54 1982 chkr gme Page 1 10 rem just a box of checkers 11 rem no kinging allowed vet 15 goto 5000 rem branch to mainline 5000 rem mainline control 5002 dim cb 6 7 k 1 rem board mtrx xtra variables 5004 poke 8193 60 rem mode set up 50 0 poke 8194 158 rem mode2 remve 4 tst debug 5015 rem bld shapes bld board put chkrs 5020 gosub 600 gosub 500 gosub 400 5025 xa O ya 0 x 0 y 0 rem re init co ordinates 5030 gosub 145 music 15 rem output cursor 5035 p 2 rem left player 5040 gosub 300 rem play game 5045 if ks then 5060 rem play again 5050 if p 2 then p l goto 5040 5055 goto 5035 rem left again 5060 cal117046 poke 8194 30 poke 40960 3 poke 40961 224 rem crsr lo lft 5065 input want to play again y n k 5070 if k y then 5010 5075 stop 6000 rem variables used bv this pgm 6001 rem x y loop controls pointers to matrix cb 6002 rem xa va ra row co co ordinates to shape table 6003 rem and or screen map row a
12. ofessional 53 keyboard Two controllers Two 10 key numeric pads High speed cassette A C adapter R F Modulator T V switch box Accepts TAPE DISK PLUG in cartridges It is plug in expandable 90 days parts and labor warranty Owners guide BASIC language manual Beautiful Black amp White Console Case 23K APF IM 1 COMPUTER FACTORY PACK Everything you get for 239 00 plus BASIC TUTOR program on two tape cassettes with manual to teach you how to cut programming time PROGRAMMING AND TECHNICAL ASSISTANCE MANUAL for Graphics Machine Language Memory maps Schematics and Parts List Also you get the popular SPACE DESTROYERS Program BB 1 BUILDING BLOCK INTERFACE This plug in interface allows you to use the 23K IM 1 computer to its fullest degree It contains 4 universal ports to add RAM memory Printers Telephone Modem and Floppy Disk drives 5 00 shipping 8K RAM EXPANSION Plug into interface port to increase your RAM memory 8192 Bytes 3 00 shipping 1 232 SERIAL INTERFACE Plug in to interface port to connect printers and telephone modems 3 00 shipping MX 80 EPSON LINE PRINTER Deluxe quality Impact dot matrix bi direc tional 40 80 66 132 columns uses regular paper Includes serial port 20 00 shipping TM 150 TELEPHONE MODEM Best quality Transmit receive full duplex switches Originate off answer 4 00 shipping FI 100 DISK INTERFACE Plug into interface port allows you to connect the floppy disk drive 3 0
13. ump to line 500 The Imagination Machine can only check for numbers not letters and this is performed like this IF J 7 I 6 0 THEN 500 which means that if either J is equal to 7 or I is equal to 6 the formula will equal 0 and the program will jump to 500 NOTE You can not subtract a character string and get 0 Therefore this method will only work with numbers Some requests have been made for books showing how to use the 6800 machine language Here are some you may want to try Motorola 6800 Programming Reference Wanual source Motorola Semiconductor Products Box 20912 Phoenix AZ 85036 The 6800 Microprocessor A Self Study Course with applications by Lance Leventhal 6800 Assembly Language Propraming by Lance Leventhal source Osborne amp Associates Inc P O Box 2036 Berkeley CA 94702 415 548 2805 How do you set random musical notes It would be very easy if you could just get a random number between 1 and 7 set a variable to it and place a NUSIC command in front of it like so 10 A INT END O 7 1 20 NUSIC A The reason this doesn t work is that the music function only works with a string variable Therefore we have to make our random number a string number between 1 and 7 ie 5 we do this like so 10 DIN 1 20 J INT RND O 7 L 30 At CHPS J 4O NUSIC A Line 10 dimensions our string variable to be at least 1 character in length Line 20 gets a random number between 49 and 55 and
Download Pdf Manuals
Related Search