ZXTape! 2 Computer Studies - Side A*Mercurian Pulp Products / Longman Software1984English Educational7.95 ROM LoaderOriginal ReleaseTZXed by Andrew BarkerTEXT   "TEXT" (1:1:7:56999  30 #821,0;" PLEASE WAIT " (<N=19 :G$:R=07:B:G$+R,B:R:N 2"A",28,34",33!,28,62>,63?,63?,31,"B",0,0,0,128,64@,32 ,144,200 7"C",15,7,3,1,0,0,0,0,"D",228,242,250,252,254,126~,62>,28 <~"E",0,480,60<,63?,60<,480,0,0,"F",63?,63?,63?,63?,513,33!,0,0,"G",63?,63?,63?,31,31,31,0,0,"H",255,255,255,255,255,255,0,0,"I",255,255,254,252,248,224,0,0 F@C=0242:0,C;"";1,C;"":C PL=2162:L,0;"";L+1,0;"";L,30-(4L=2)-(2L=4);"";L+1,30-(4L=2)-(2L=4);"":L ZBC=0302:18,C;"";19,C;"":C dq3,20;"";4,20;"";5,3;"LONGMAN SOFTWARE ";6,20;"" n9000(#:9000(# x1A$="COMPUTER":L=7:C=3:9180# }1A$="STUDIES":L=10 :C=4:9180# 0:1 140:A=57000 !N=023:B:A+N,B:N m33!,0,64@,17,0,228,1,0,27,237,176,201 m33!,0,228,17,0,64@,1,9 ,27,237,176,201 621,0;" " 57000 :21,0;" SEARCHING AND LOADING " &7:1:20,0; ""  #' "dbsize"" #("DOUBLE HEIGHT" #2a=57050 #<.z:z999a,z:a=a+1:9020<# #F237,75K,176,92\,121y,254,32 ,568,1,201,120x,254,21,568,1,201,205,158,14,197,6,0,9 ,193 #P229,229,120x,60<,205,158,14,6,0,9 ,209,1,0,7,9 ,235,9 ,229,6,4,126~,18,21,18,21,37%,16,248 #Z 209,6,4,126~,18,21,18,21,37%,16,248,225,124|,15,15,15,230,3,246,88X,103g,126~,1,32 ,0,9 ,119w,201,999 #"DOUBLE WIDTH" #a=57150> #.z:z999a,z:a=a+1:9130# #237,75K,176,92\,121y,254,31,568,1,201,120x,254,22,568,1,201,205,158,14,6,0,9 ,229,14 #8,126~,35#,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246 #Ȥ16,237,43+,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246,16,237,36$,13 ,32 ,203,225,124|,15,15,15,230,3,246,88X,103g,126~,35#,119w,201,999 # #n=1̱a$ #23729\,l:23728\,c # l,c;a$(n) #57150> #357050:23728\,c+1:57050 #c=c+2:n $ (bGIZ PazASTUDIES]Text -V S#/V57012:90Z "Text" F 1984 MERCURIAN PULP PRODUCTS/CONTRACT BOOKS @7:1:a$=" TEXT ":C=5:23729\,14 (&N=16:14,C;A$(N) 223728\,C:57150> <357050:23728\,C+1:57050 FXC=C+2:N:21,0;" ":57000 P<21,0;" STOP THE TAPE - PRESS ANY KEY " Z1,0:0 d1:7:1: i64@,170:40(,0:0,-12 ,-:-40(,0:0,12 ,-:1,8;"START":1,0 k 502 n84T,158:0,-4:64@,0:0,-12 :-128,0:0,12 :64@,0:3,3;"SELECT A FIELD":1,2 p 502 s84T,142:0,-4:72H,0:0,-12 :-144,0:0,12 :72H,0:5,2;"READ THE ENTRIES":1,4 u 502 x84T,126~:0,-5:64@,-22:-64@,-22:-64@,22:64@,22:8,8;"DO YOU";9 ,6;"KNOW THEM";10 ,9 ;"ALL?":1,5 z 502 }148,99c:24,0:8,18;"NO":0,14:80P,0:0,-28:-80P,0:0,14 8,22;"FIND THEM";9 ,22;"IN YOUR";10 ,22;"TEXTBOOK":212,112p:0,12 :-128,0:1,7:502:12 ,12 ;"YES" 84T,76L:0,-4:72H,-24:-72H,-24:-72H,24:72H,24:14,8;"HAVE";15,5;"YOU COVERED";16,5;"EVERYTHING?":1,9 502 z12 ,480:-8,0:14,1;"NO":0,108l:80P,0:1,11 18,12 ;"YES" 84T,22:0,-4:20,0:0,-12 ,-:-40(,0:0,12 ,-:20,0:20,8;"STOP":1,12 .150:r=07:b:"a"+r,b:r J254,66B,32 ,16,32 ,66B,254,0 H#1;0,0;" Press  any key  to start work " 1,0:0 Yz$(32 ):1:1:0::n=06:n,0;7;z$:n E8:0:1,1;"Tell me your field of interest" \3,1;"and I will list all of my";5,1;"references for that field." t$(5,25):800 :n=15:t$(n):6+n*2,3;5;" ";t$(n,1);" ";6;t$(n,2):n b.5,0:21,0;" PRESS  A   B   C   D  OR  E . " 23658j\,0 s$="" x$=:x$=""210 X$="e"700 'x$>96`Ưx$<101e240 1,-10 :210 s$=x$ %1,10 :tx=(s$)-96` ,67::1,3;6;t$(tx,3) 633,2;"Please select sub-section." @3800 +40(*(x$-96`):r=x$-97a Js$=x$ Tn ^:i=1n h+p$:"  ";p$(1);" ";p$(2) ri |'''"  0  RETURN TO MAIN CHOICE " I20,2;" PRESS A NUMBER TO SELECT ":.5,10 X$=:X$=""400 X$="0"175 X$<"1"X$>"9"390 x$>n420  s$=s$+x$ 840H+r*40(+x$ 0p$ :v5:1:p=7:l=1:v$(9 ,28):z$(32 )::" SEARCHING FOR ENTRIES ON......" ?)5;" ";t$(tx,3);" " DI6;" ";p$(3);:p$<286;z$(30-p$) IM3,0;1;7;z$;" *** INDICATES IMPORTANT IDEA ";Z$ Nq=1:1000 Xi=1540 bx:p$:p$="end"650 l j=1x vx$:x$=s$5+q*2,1;7-(q/2=(q/2));" ";p$;z$(29-p$):q=q+1:q>7710 j:i L#1;1,0;"   N  FOR NEW FIELD  E  TO END " 1,10 :0 ="n"175 ="e"700  660 Y1:57012:21,0;"  END OF PROGRAM  ": _#1;1,0;" MORE TO COME. PRESS WHEN READY ":1,10 :0 /n=421:n,0;5;z$:n B#1;1,0;" "  q=1:  data for menus ""A COMPUTER HARDWARE" #"B PERIPHERALS & MEDIA" $"C SOFTWARE" %"D APPLICATIONS & THEORY" &"E END OF PROGRAM" H 8 I"1 DEVELOPMENT" J"2 TYPES OF COMPUTERS" K"3 COMPONENTS" L "4 MEMORY" M"5 OPERATIONS" N"6 LOGIC CIRCUITS" O"7 OTHER CALCULATING DEVICES" P"8 MANUFACTURE" p 5 q"1 INPUT DEVICES" r"2 OUTPUT DEVICES" s"3 STORAGE MEDIA" t"4 INTER-COMMUNICATIONNS" u"5 BROADCASTING"  7 "1 TYPES OF PROGRAMS" "2 PROGRAMMING THEORY" "3 FLOWCHARTS" "4 LANGUAGES" "5 MACHINE CODE" "6 DATA PROCESSING" "7 PROGRAMMING TERMS"  5 "1 COMMERCIAL APPLICATIONS" "2 HOME & EDUCATION" "3 NUMBER THEORY" "4 NUMBER HANDLING" "5 COMPUTER JARGON"  main data  2,"Abacus","a1","a7" &2,"Absolute Address","c5","a5" 1,"Abort","d5" (3,"Access Method","c2","b3","c6" 1,"Access Time","a5" %2,"Accumulator ***","c5","a3" !1,"Acoustic Coupler","b4" 2,"Adder ***","a3","a6" !2,"Address ***","a5","c5" 1,"Address Bus","a3" %1,"Address Modification","c5" 1,"Howard Aiken","a1" 1,"Algol","c4" 2,"Algorithm","c7","d4" "1,"Alphanumeric Code","c7" 1,"Amplifier","a3" $1,"Analog Computer ***","a2" 1,"AND gate","a6" *2,"Applications Package","c1","d1" =1,"Arcade Game","d2",2,"Architecture","a1","a2" #2,"Archived File","b3","c6" 1,"Argument ***","c7" &1,"Arithmetic Logic Unit","a3" 2,"Array","c7","c6" (1,"Artificial Intelligence","c1" $2,"ASCII Code ***","a5","c7" "1,"Assembly Language","c4" 1,"Assign","c7" 1,"Astable","a3" "1,"Asynchronous Mode","c2" 1,"Atlas","a1" !1,"A to D Converter","b1"  1,"Author Language","c4"  +1,"Automatic Computing Engine","a1"  1,"Auto-start","a5"  1,"Charles Babbage","a1"  "1,"Backing Store ***","b3" 2,"Backup","b3","c2" 2,"Bar Code","b1","d1" 1,"Barrel Printer","b2" 1,"BASIC","c4" &2,"Batch Processing","c2","c6" 2,"Baud Rate","b4","b5" 2,"Benchmark","a5","d5" "1,"Beginning of File","c6" %1,"Binary Coded Decimal","d3" 1,"Binary Digit","d3"  1,"Binary Notation","d3" 1,"Bistable","a3" 2,"Bit ***","d3","d5" 2,"Black Box","c2","d5" 2,"Block","c6","b5" #2,"Block Diagram","c2","c3" *3,"Boolean Algebra","c2","d4","a6" 2,"Bootstrap","a5","d5"  2,"Branch","c2","c3" !1,"Breadboard","a1" "1,"Bubble Memory","a4" #2,"Buffer","a3","a4" $2,"Bug","c7","d5" %1,"Bus","a3" &3,"Byte","d3","d5","c6" '1,"Calculator","a7" ( 2,"Card Punch","b1","b2" )1,"Card Reader","b1" *1,"Cassette Tape","b3" +!1,"Cathode Ray Tube","b2" ,1,"Ceefax","b5" -,1,"Central Processing Unit ***","a3" .2,"Chain","c2","c6" /1,"Channel","b4" 0&1,"Charge Coupled Device","a3" 1$2,"Character Code","a5","c7" 2&1,"Character Recognition","b1" 31,"Chart","c3" 41,"Chart Recorder","b2" 5!2,"Check Digit","d4","c6" 61,"Chip ***","a3" 71,"Clock","a5" 81,"Closed Loop","c7" 9#2,"Coaxial Cable","b2","b4" :1,"COBOL","c4" ;1,"Coding","c2" <1,"Colour Decoder","b2" =1,"Compiler ***","c4" >1,"Complement ***","d3" ?02,"Computer Assisted Learning","d2","c1" @ 1,"Computer Bureau","d1" A(2,"Conditional Branch","c2","c3" B1,"Connector","c3" C2,"Console","a3","b1" D&1,"Continuous Stationery","b2" E'2,"Control Character","b2","c7" F!1,"Control Register","a3" G1,"Control Unit","a3" H1,"Core Store ***","a4" I2,"Counter","a3","c7" J1,"Courseware","d2" K1,"Seymour Cray","a1" L,2,"Critical Path Analysis","c2","c3" V1,"Cross Compiler","c5" W1,"Cursor","b2" X1,"Customizing","d1" Y1,"Cybernetics","d2" Z$1,"Daisy Wheel Printer","b2" [3,"Data","b3","a4","c6" \'3,"Database ***","c1","d1","c6" ]1,"Datalogging","b1" ^$3,"Debugging","c2","d5","c7" _1,"Decimal","d3" `1,"Decision Box","c3" a1,"Decoder","a3" b 1,"Denary Notation","d3" c#1,"Diagnostic Routine","c2" d1,"Digit","d3" e!1,"Digital Computer","a2" f1,"Digitiser","b1" g1,"Diode","a1" h1,"Direct Access","a4" i1,"Disk ***","b3" j1,"Disk Unit","b3" k"1,"Documentation ***","c2" l"1,"Document Reader","b1" m1,"Dot Printer","b2" n(2,"Double Buffering","a4","a5" o1,"Downloading","b5" p1,"Down Time","d5" q1,"Drum","b3" r1,"Dry Run ***","c2" s1,"Dump","b3" t(2,"Duplex Operation","b2","b4" u1,"Dynamic Stop","a5" v1,"Echo","b4" w$2,"Edge Connector","b4","a3" x"1,"Edge Notched Card","b1" y2,"Edit","c2","c7" z#1,"Eighty Column Card","b1" { 1,"Electronic Mail","b4" |&1,"Electrostatic Printer","b2" }2,"Emulator","a3","c1" ~2,"Encoder","a3","b1" 1,"End Mark","c6" 1,"End of File","c6" 1,"Epitaxy","a8" !1,"Erasable Storage","b3"  2,"Error Code","a5","c7" "1,"Exclusive OR Gate","a6" 1,"Execute","c7" 1,"Exit","c7" 1,"Expression","c7" 1,"Extended BASIC","c4" 1,"Facsimile","b4" 2,"Fail Safe","a5","d5" 1,"Fast Line","b4" '2,"Feasibility Study","c2","d1" 1,"Feedback","c2" 1,"Ferrite Core","a4" 1,"Fibre Optics","b4" 2,"Field ***","c6","b3" (1,"Field Effect Transistor","a3" #3,"File ***","b3","c6","c7"  1,"File processing","c1" 2,"Firmware","a3","a5" !1,"First Generation","a1" !1,"Fixed Disk Store","b3" 1,"Fixed Point","d3" 2,"Flag","a5","c7" !1,"Flat-Bed Plotter","b2" 1,"Flip Flop","a3" #1,"Floating Point ***","d3" 1,"Floppy Disk","b3" 1,"Flowlines","c3" 1,"Format","b2" 1,"FORTRAN","c4" '1,"Fount Change Character","b2" 2,"Frame","b4","b3" 2,"Function","c2","c7" 1,"Function Code","a5" !1,"Gallium Arsenide","a8" 1,"Garbage","d5" 2,"Gate","a3","a6" 1,"GIGO","d5" !2,"Grandfather","c6","d5" "1,"Graphical Display","b2" 1,"Graph Plotter","b2"  2,"Half-Adder","a3","a6" 1,"Handpunch","b1" 1,"Handshake","b4" 1,"Hard Copy","b2" #1,"Hard Sectored Disk","b3" &2,"Hard Wired Logic","a3","a6"  2,"Hash Total","d4","c6" 2,"Header","c7","c6" "1,"Heuristic Program","c1" %1,"Hexadecimal Notation","d3" (1,"High Level Language ***","c4" )1,"High Resolution Graphics","b2" !1,"Herman Hollerith","a1" 2,"Hopper","b1","b3" "2,"Housekeeping","c2","c6"  1,"Hybrid Computer","a2" '1,"Immediate Access Store","a4" "1,"Inclusive OR Gate","a6" $1,"Incremental Plotter","b2" (1,"Indexed Sequential File","c6" 1,"Indexing","c6" )2,"Indirect Addressing","c2","c5" 1,"Information","c7" +2,"Information Retrieval","c6","d1"  2,"Initialize","c7","c2"  1,"Ink-Jet Printer","b2"  1,"Inquiry Station","b4" 1,"Instruction","c7" -1,"Instruction Address Register","a3" '1,"Integrated Circuit ***","a3" *2,"Intelligent Terminal","a2","b4" 2,"Interface","a3","b4" %2,"Interpreter ***","c2","c4" 1,"Interrupt","a5" "1,"Inventory Control","d1" #2,"Inverted File","c2","c6" 1,"Iteration","d4" 1,"Jack Plug","b4"  1,"Joseph Jacquard","a1" *2,"Job Control Language","a5","c1" &2,"Josephson Memory","a1","a4" 2,"Joystick","b1","d2" 2,"Jump","c7","c2" "1,"Junction Transfer","a3" )1,"Justify (Left/Right) ***","b2" 2,"Keyboard","b1","a3" &2,"Key-to-Disk Unit","b1","b3" 2,"Keyword","c6","c7" !2,"Kimball Tag","b1","d1" *1,"Symbolique d'Enseignement","c4" (1,"Large Scale Integration","a1" ,1,"Least Significant Character","c7" 1,"Left Shift","d4" "1,"Gottfried Leibniz","a1" !1,"Library Software","c1" *2,"Light Emitting Diode","b2","a3" 1,"Light Guide","b4" 1,"Light Pen","b1" 1,"Line Feed","b2" 1,"Line Printer","b2" #1,"Linear Programming","c2" '1,"Liquid Crystal Display","b2" 1,"List","c7" 1,"Liveware","d5" 3,"Load","c7","b1","b3" 2,"Location","a5","c5" 2,"Log On","b4","d5"  1,"Logic Flowchart","c3" #2,"Look-up Table","c2","c7" 2,"Loop ***","c2","c7" ,2,"Low Level Language ***","c4","c5" -2,"Lyons Electronic Office","a1","d1" 1,"Magnetic Ink","b4" '2,"Magnetized Memory","a4","b3" 1,"Mainframe ***","a2" 1,"Main Program","c2" %1,"Maintenance Contract","d1" 1,"Mantissa","d3" !1,"Mark Sense Cards","b1" 1,"Mass Storage","b3" $1,"Master/Slave System","b4" 1,"Matrix Printer","b2" )1,"Medium Scale Integration","a1" $2,"Memory Mapping","c2","b2" !1,"Memory Switching","b4" 2,"Menu ***","c1","c7" 1,"Microcomputer","a2" 1,"Microfiche","b3" 1,"Microprocessor","a3" 1,"Minicomputer","a2" 1,"Mini-floppy","b3"  2,"Modulation","b4","b5" 1,"Monitor","b2" %1,"Most Significant Bit","d4"  1,"Mother Board","a3"  .3,"Multi-Access System","d1","d2","b4"  1,"Multiplexor","b4"  1,"Multivibrator","a3"  1,"NAND gate","a6"  1,"Sir John Napier","a1" 1,"Negation","d4" 1,"Nesting","c2" 1,"Network","b4" 2,"Noise","b4","b5" %1,"Non-Equivalence Gate","a6" 1,"NOR Gate","a6" 1,"Normalize","d3" 1,"NOT Gate","a6" 1,"n-Type Silicon","a8" *3,"Number Cruncher","a2","d5","d4" !2,"Object Code","c2","c4" 1,"Octal Notation","d3" 1,"On Line","b4" 2,"Operand","a5","c5" '2,"Operating Station","c6","d1" /3,"Operating System ***","c1","c5","d1" $2,"Operation Code","a5","c7"  *1,"Optical Char. Recognition","b1" !1,"Optical Disk","b3" " 1,"Optical Scanner","b1" #1,"Oracle","b5" $1,"OR Gate","a6" %1,"Overflow","d3" &2,"Overlay","d5","c2" ' 1,"Packing Density","b3" (1,"Page","b2" )%3,"Paper Tape","b1","b2","b3" *+2,"Parallel Transmission","b2","a5" +2,"Parameter","c2","d4" ,1,"Parity Bit","d3" -1,"Blaise Pascal","a1" .1,"PASCAL","c4" /1,"Password","b4" 02,"Path","c3","c7" 12,"Pilot","c4","d2" 21,"Pixel","b2" 31,"PL/1","c4" 4'1,"Point of Sale Terminal","b4" 51,"Prestel","b5" 6&1,"Printed Circuit Board","a3" 71,"Procedure","c2" 81,"Process","c3" 9'1,"Programmable Read Only","a3" :#1,"Production Control","d1" ;1,"Prompt","b2" <#2,"Pseudo-Random","a5","c7" =1,"p-Type Silicon","a8" >"2,"Punched Card","b3","b1" ?"2,"Punched Tape","b3","b1" @1,"QUICKTRAN","c4" A$1,"QWERTY Keyboard ***","b1" B%1,"Random Access Memory","a4" C1,"Random Numbers","d3" D>2,"Raw Data","c6","b1",1,"Read Only Memory","a4" E"1,"Read/Write Memory","a4" F$3,"Real Time","b4","d1","d5" G2,"Re-boot","a5","d5" H41,"Record","c6",2,"Register","a3","c5" I!1,"Remote Job Entry","b1" J1,"Re-run","c7" K1,"Reserved Word","c7" L1,"Response Time","c7" M1,"Right Shift","d4" N1,"Robotics","d1" O%2,"Rogue Value ***","c6","c7" P1,"Rounding ***","d4" Q2,"Routine","c2","c7" R1,"Run","c7" S1,"Scan","c6" T 2,"Scheduling","c2","d1" U1,"Schema","c6" V#1,"Scratch Pad Memory","a4" W1,"Screen","b2" X1,"Scroll","b2" Y1,"Search","c6" Z"1,"Second Generation","a1" [1,"Sector","b3" \1,"Segment","c2" ]1,"Semi-Conductor","a8" ^*2,"Serial Access Memory","c6","b3" _$1,"Serial Transmission","b4" `&1,"Seven Segment Display","b2" a"2,"Shared Files","b3","b4" b1,"Shift Register","a3" c2,"Signal","b4","b5" d1,"Sign Bit","d3" e1,"Silicon","a8" f"1,"Simplex Operation","b4" g1,"Simulation","c1" h2,"Sizing","d1","c2" i(1,"Small Scale Integration","a1" j#1,"Soft Sectored Disk","b3" k2,"Sort","c7","c6" l#1,"Speech Recognition","b1" m#1,"Speech Synthesizer","b2" n2,"Stack ***","a3","a4" o1,"Stationery","b2" p2,"Store","b3","a4" q1,"Stream","b4" r1,"String","c7" s'1,"Structured Programming","c2" t1,"Sub-routine","c2" u"1,"Symbolic Language","c4" v!1,"Synchronous Mode","c2" w2,"Syntax","c4","c7" x&2,"Systems Analysis","c2","c3" y1,"System X","b4" z1,"Tabulate","b2" {1,"Tape","b3" |!1,"Teaching Machine","d2" }(2,"Telecommunications","b4","b5" ~!2,"Teleprinter","b4","b2" 1,"Telesoftware","b5" 1,"Teletext","b5"  2,"Television","b5","b2" 2,"Terminal","b4","c3"  2,"Terminator","c6","c2" 1,"Test Run","c2" !2,"Text Editor","c6","c1" #1,"Thin Film Memories","a8" !1,"Third Generation","a1" "2,"Time Sharing","d1","d5" 1,"Timer","a3" 2,"Top Down","c2","d5" 2,"Trace","c2","c1" 1,"Track","b3" 1,"Tractor Feed","b2"  2,"Transistor","a1","a8" 12,"Transistor-Transistor Logic","a1","a6" 2,"Tree","c2","c3" 1,"Truncation","d4" !1,"Two's Complement","d3" %1,"Ultra-High Frequency","b4" -2,"Uncommitted Logic Array","a3","a6" 1,"Underflow","d3" 2,"Update","c6","c7" 1,"User Group","d2" 2,"User Port","b2","b1" &2,"Utility Programs","c1","d1" 1,"Validity Check","c2" 1,"Valve","a1" 1,"Variable ***","c7" 1,"Verifier","b1" -1,"Very Large Scale Integration","a1" 1,"Video Disk","b3" 1,"Video Text","b5" 1,"Viewdata","b5" 1,"Virtual Memory","b3" $1,"Visual Display Unit","b2" 1,"Voice Input","b1" $1,"Volatile Memory ***","a4" 1,"Wafer","a8" *1,"Winchester Disk Drive ***","b3" 2,"Word","a5","c7" )3,"Word Processor","c1","d1","d2" "2,"Work Station","b4","d1" 1,"Work Tape","b3" $1,"Xerographic Plotter","b2" 1,"X-Y Plotter","b2" 1,"Zone","b1" 1,"Zone Refining","a8" 99c,"end" M(23730\+256*23731\)-(23653e\+256*23654f\) b(ԂA COMPUTER HARDWARE B PERIPHERALS & MEDIA C SOFTWARE D APPLICATIONS & THEORY E END OF PROGRAM XSc1pl  # qxclXa8PendA TEXT c VISICODE  T "VISICODE" (1:1:7:42999  30 #821,0;" PLEASE WAIT " (<N=19 :G$:R=07:B:G$+R,B:R:N 2"A",28,34",33!,28,62>,63?,63?,31,"B",0,0,0,128,64@,32 ,144,200 7"C",15,7,3,1,0,0,0,0,"D",228,242,250,252,254,126~,62>,28 <~"E",0,480,60<,63?,60<,480,0,0,"F",63?,63?,63?,63?,513,33!,0,0,"G",63?,63?,63?,31,31,31,0,0,"H",255,255,255,255,255,255,0,0,"I",255,255,254,252,248,224,0,0 F@C=0242:0,C;"";1,C;"":C PL=2162:L,0;"";L+1,0;"";L,30-(4L=2)-(2L=4);"";L+1,30-(4L=2)-(2L=4);"":L ZBC=0302:18,C;"";19,C;"":C dq3,20;"";4,20;"";5,3;"LONGMAN SOFTWARE ";6,20;"" n9000(#:9000(# x1A$="COMPUTER":L=7:C=3:9180# }1A$="STUDIES":L=10 :C=4:9180# 0:1 140:A=43000 !N=071G:B:A+N,B:N m33!,0,64@,17,0,228,1,0,27,237,176,201 m33!,0,228,17,0,64@,1,9 ,27,237,176,201 m33!,0,64@,17,0,200,1,0,27,237,176,201 m33!,0,200,17,0,64@,1,9 ,27,237,176,201 m33!,0,64@,17,0,172,1,0,27,237,176,201 m33!,0,172,17,0,64@,1,9 ,27,237,176,201 621,0;" " 43000 :21,0;" SEARCHING AND LOADING " &7:1:20,0; ""  #("DOUBLE HEIGHT" #2a=43100\ #<.z:z999a,z:a=a+1:9020<# #F237,75K,176,92\,121y,254,32 ,568,1,201,120x,254,21,568,1,201,205,158,14,197,6,0,9 ,193 #P229,229,120x,60<,205,158,14,6,0,9 ,209,1,0,7,9 ,235,9 ,229,6,4,126~,18,21,18,21,37%,16,248 #Z 209,6,4,126~,18,21,18,21,37%,16,248,225,124|,15,15,15,230,3,246,88X,103g,126~,1,32 ,0,9 ,119w,201,999 #"DOUBLE WIDTH" #a=43200 #.z:z999a,z:a=a+1:9130# #237,75K,176,92\,121y,254,31,568,1,201,120x,254,22,568,1,201,205,158,14,6,0,9 ,229,14 #8,126~,35#,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246 #Ȥ16,237,43+,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246,16,237,36$,13 ,32 ,203,225,124|,15,15,15,230,3,246,88X,103g,126~,35#,119w,201,999 # #n=1̱a$ #23729\,l:23728\,c # l,c;a$(n) #Z=43200 #7Z=43100\:23728\,c+1:Z=43100\ #c=c+2:n $ HG(bGIZ Paz ASTUDIESVisicode ; '7i;Z=43012:60< "Visicode" D 1984 MERCURIAN PULP PRODUCTS/CONTRACT BOOKS .A$=" VISICODE ":7:1:C=3 (g23729\,13 :N=1̱A$:13 ,C;A$(N):23728\,C:Z=43200:Z=43100\ 2723728\,C+1:Z=43100\:C=C+2:N 7J21,0;" ":Z=43000 "!"l,2;1;c$(q,2):l=l+1 0FP(L)=Q+1:Q:H$(8,15):Q=18:H$(Q):Q :Cq=110 :7+q,15;2;z$(17):q ?:q=18:8+q,16;7;h$(q):q DW$:w$=z$+w$+z$:5800 Nc:1210:#1;0,3;" END OF EXAMPLE PROGRAM ";I;" ":i=5650 X]#1;1,0;" Press  N  for Next  E  to End ":.5,10 b-23658j\,8:a$=:a$=""610b la$="N"660 va$="E"670  610b B=5:5000 I |#1;0,0;" Do you want to see them again? Press  Y  or  N  ":.5,0 -23658j\,8:a$=:a$=""680 a$="Y"530 a$"N"670 C5,"PUT X,","3","ADD X","","PUT Y,","12","ADD Y","","END","" L"","++ ADDITION ++",""," numbers PUT"," in X and Y"," ADDED in ACC.","","" Ў"""PUT X,3"" stores 3 in REGISTER X. "" ADD X"" adds it to the 0 in the ACCUMULATOR. Either, or both, REGISTERS can be used in this way." E5,"PUT Y,","99","ADD Y","","PUT Y,","22","TAKE Y","","END","" m"- SUBTRACTION -","","Use ADD to get","first number in","ACCUMULATOR.","TAKE subtracts","second number.","" "You can add, or subtract a whole series of numbers. Keep PUTting numbers into a REGISTER and follow with an ADD or TAKE instruction." T6,"PUT Y,","2","ADD Y","","CHECK,","12","ZEROGO,","3","GOBACK,","4","END","" {"*TIMES*TABLE*1*"," Shows loop &"," CHECK on ACC.",""," GOBACK,4 loops"," to ADD Y line."," ZEROGO jumps "," if ACC.=12."  "When using any ""GO"" count from the ""GO"" to the target line. Include in the total ALL numbers and instructions to be jumped." \7,"PUT X,","5","PUT Y,","2","ADD Y","","DOWN","","XZERO,","3","GOBACK,","3","END",""  z"*TIMES*TABLE*2*"," Shows loop &"," X as COUNTER.",""," GOBACK,3 loops"," to ADD Y line."," XZERO jumps"," on 5th DOWN." *"In BASIC the X COUNTER would look like this: LET X=10 >>>> LET X=X-1 >>>>> IF X=0 THEN.... Note: ""XZERO"" is a ""GO"" instruction." 4T10 ,"PUT Y,","32","ADD Y","","PUT Y,","5","TAKE Y","","COUNT","","CHECK,","4" >3"ZEROGO,","5","NEGGO,","3","GOBACK,","7","END","" H" / DIVISION /"," CHECK 4 and"," NEGGO used in"," case of uneven"," division."," Quotient in X."," Remainder in"," ACCUMULATOR." R"This program shows why ""proper"" Assembler needs so many different instructions. The 15 VISICODEs do not have the flexibility for anything more than simple division." 1:1:7: )0,8;" USING VISICODE " E''" Plan out your program using"'" the HELP! page. Take particular" 3" care when calculating numbers"'" for ""GO""'s." G'" Use the next section to key in"'" your program,then watch it run." ]'" The HELP! page can be recalled"'" when keying in,without losing"'" any work already in." s''" The worst that can happen is"'" that it won't work - in which"'" case - check your codes and"'" start again." 25;"!HELP!" B=1:5000 eEX=0:P(22):P(1)=1:C$(20,2,7):IN=1::5400 L=1:8,15;" ";9 ,15;" ENTER VISICODE  ";10 ,15;" INSTRUCTION OR  " g11 ,15;"  ""H"" FOR HELP!  ";12 ,15;"  ""G"" TO GO ON  " ,13 ,15;" " ^23658j\,8:.5,10 :1,0;" YES?...";A$:A$=""1040 +A$="H"B=5:5500|:1040 $*a$="G"L>15700D:1200 .;C=0:M$="":N$="":Q=1̱A$:Q=A$1090B 8@A$(Q)=","C=1:M$=A$(Q):N$=A$(Q+1):1100L BQ:M$=""M$=A$ GA$(A$)=","C=1 L$M$<7M$=M$+" ":1100L VMF=0:Q=115:M$=I$(Q)C$(IN,1)=M$:F=q:1130j `Q j#F=05600:1040 t5(n$=""C)(N$""C=0)5600:1040 y:F=0:Q=1̱N$:N$(Q)<"0"N$(Q)>"9"F=1 ~Q:F5600:1040 1L,2;1;C$(IN,1):L=L+1 C=01190 N$>5N$=N$(5) DC$(IN,2)=N$:L,2;1;C$(IN,2):L=L+1 0IN=IN+1:P(L)=IN:l<201040 #1;0,0;" No more space!! Do you want to see if this works?  Y  or  N  ":.5,20:y=0:5100:y=01500 C$(IN,1)="END" ;L=813 :L,15;5;Z$(17):L EEND=0:CN=1:L=1:X=0:Y=0:A=0 nB=5:1,5:#1;1,0;" PROGRAM READY  ENTER  TO START ":5005 2L,0;8;9 ;"";L,10 ;"" L1=L ZDIS=1:Q=115:I$(Q)=C$(CN,1)1980+20*Q:1260  Q:endEX  END(1500-502*END) [CN=CN+1:5000:DISQ=818:Q,15;5;Z$(17):Q $CN=0CN>201450 7L1,0;8;" ";L1,10 ;" ":1230 x|8,15;" ILLEGAL JUMP.";10 ,15;" NO INSTRUCTION ";12 ,15;" AT GIVEN PLACE " }#1;0,0;" Do you want to write another? Press  Y  or  N  ":.5,10 &y=0:5100:y1000 G1:Z=43012:21,8;" END OF PROGRAM ": TX=C$(CN,2):1,27-(X>9 )-(X>99c);" ";X:L=L+2: TY=C$(CN,2):3,27-(Y>9 )-(Y>99c);" ";Y:L=L+2: HA=A+X:5,27-(A>9 )-(A>99c);" ";A:L=L+1:  HA=A+Y:5,27-(A>9 )-(A>99c);" ";A:L=L+1:  HA=A-X:5,27-(A>9 )-(A>99c);" ";A:L=L+1: 4HA=A-Y:5,27-(A>9 )-(A>99c);" ";A:L=L+1: HDIS=0:8,15;" CHECKING ACC.":D=A-C$(CN,2):502:10 ,15;" DIFFERENCE=";D;" ":L=L+2: \>D=012 ,15;" ZERO : GOING ":2180 f812 ,15;" NOT ZERO:NO GO ":L=L+2: pAD<012 ,15;" NEGATIVE: GOING ":2180 z812 ,15;" NOT NEG: NO GO ":L=L+2: L=L+C$(CN,2)+1 L>20END=2: ,CN=P(L)-1:CN<0END=2:  L=L-C$(CN,2)-1 L<0END=2: ,CN=P(L)-1:CN<0END=2:  NX=X+1:1,27-(X>9 )-(X>99c);" ";X:L=L+1: NX=X-1:1,27-(X>9 )-(X>99c);" ";X:L=L+1: <X=012 ,15;"X ZERO:GOING":2180 912 ,15;"X NOT ZERO:NO GO ":L=L+2: END=1:  H#1;1,0;"  Press  ENTER  to continue " .5,0: .23658j\,8:a$=:a$=""5010 a$=13 " ": hxA$="H"5500|  5005 '23658j\,0:.5,0 a$=:a$=""5110 y=0:a$="n"" ":  a$"y"5100 " ":y=1: P\5200P:7:7:0::0,3;" VISICODE INSTRUCTION SET " Z*'"  CODE   MEANING "'' d"N=115:q$,z$:q$:n i*20,8;" n = Any number " nd5200P:n=115:q$,Z$:n+3,0;5;q$;" ";6;Z$(23) x8n=320,5;" ACC.= ACCUMULATOR " }Wn=720,0;" Compares n with number in ACC. ":.5,0 in=820,0;"  EVERY INSTRUCTION & NUMBER   TAKES ONE ""PLACE"" " 5000:n C"PUT X,n ","PUT n IN X REGISTER","PUT Y,n ","PUT n IN Y REGISTER" E"ADD X ","ADD X number TO ACC.","ADD Y ","ADD Y number TO ACC." K"TAKE X ","TAKE X number FROM ACC.","TAKE Y ","TAKE Y number FROM ACC." J"CHECK,n ","DIFFERENCE (ACC.-n)...","ZEROGO,n","IF DIFF=0,JUMP n PLACES" &"NEGGO,N ","IF DIFF<0,JUMP n PLACES" ?"GO,n ","JUMP n PLACES ON","GOBACK,n","JUMP n PLACES BACK" H"COUNT ","ADD 1 TO number IN X","DOWN ","TAKE 1 FROM number IN X" 6"XZERO,n ","IF X=0 JUMP n PLACES","END "," STOP" rz=43024:20,0;" When !HELP! shown on screen, press H to see this page again " z$(32 ): 5:0:5: "7:0,0;" PROGRAM ":l=120:l,0;" _________ ":l:21,0;" " ,a0,15;" REGISTERS ";1,15;"  REG.X   0  " 62,15;" ";3,15;"  REG.Y   0  ";4,15;" " @a5,15;"  ACC.   0  ";6,15;" " Jc19,24;" ";20,24;" !HELP! ";21,24;" " T |)z=43048(:z=43036:7 ""5505 !5000:z=430604:B: P#1;0,0;"ILLEGAL INSTRUCION - CHECK CODES":5000: D[C$(IN-1,1)"END "C$(IN,1)="END":L,2;1;"END ": NIN=IN-1: Yq=1(w$-31):#1;1,0;7;w$(qq+31):15 ="h"Ŧ="H"5500| q: @ 8000@ J<N=12:G$:R=07:B:G$+R,B:R:N T"A",16,480,126~,254,126~,480,16,0,"B",8,12 ,126~,127,126~,12 ,8,0 ^ z (JbGBnPUT X, PUT Y, ADD X ADD Y TAKE X TAKE Y CHECK, ZEROGO,NEGGO, GO, GOBACK,COUNT DOWN XZERO, END  QEND # h nxaid} / DIVISION / CHECK 4 and NEGGO used in case of uneven division. Quotient in X. Remainder in ACCUMULATOR. W This program shows why "proper" Assembler needs so many different instructions. The 15 VISICODEs do not have the flexibility for anything more than simple division. qEND cNMEND fA &