X7$ ?BOOT-U-No boot on volume ߋtv !?SRT11A DECRT11A #" <+  !+ 5K! + S} Q Ry} Q Ay<Q Ayv.) 8v +Eyvg( *  J[q! Q Z Sv<Q Sl<Q  <Q S <Q Sv<Q S<Q S(#<Q .& Q x, *2d  +y Q p: Q 6}D Q 6}I Q fZ Q ke Q ke Q 5x_ Q ke Q .% Q }} Q }} Q '@Q Q 62 Q [q! K }؁ K 4-iL k zv Q zv Q 2XM k 2XM k '@QԀQ 62aQ AyTq.)Ay<Ay<t#"qQ; tqQ t 8 t 8 t  !? CMS03 USERP DECFILE11B Yv$CMS020.CCMS020.CBACKUP/COMMENT=VAX/VMS SPKITBLD Procedure/INTER/LOG/VERIFY CMSV2SHROB2.OBJ,CMSV2SHROB3.OBJ,CMS.CLD,CMSSHR.OPT,CMSSHR.OBJ,PROSHR.OBJ,SYSENQ.OBJ DUA1:[0,0]CMS020.C/LABEL=(CMS03,CMS04,CMS05,CMS06,CMS07,CMS08,CMS09,CMS10)/SAVE From: WALLEY 22-DEC-1982 15:55 To: TSMITH Subj: bert's christmas card!!! From: KLEINSCHMIDT 22-DEC-1982 09:59 To: @YOU Subj: MERRY CHRISTMAS, Follow the Directions. To read this mail use the following procedure: 1) EXIT from mail. 2) Type the command SET TERMINAL/HARDCOPY 3) Enter MAIL 4) Read this message <(A)0[?4h[?5l lqqqqqqqqqwwwqqqqqqqqqk sssssssssssssssssssssssssssss xMerry Chrxxxmas * Merx \ / xry Christxxx * Merry x pr rp xChristmasxxxMerry Chrx oqrs srqo xistmas * xxxry Christx ooppqqwqwqqppoo tqqqqqqqqqjxmqqqqqqqqqu x x tqqqqqqqqqq`qqqqqqqqqqu x x tqqqqqqqqqkxlqqqqqqqqqu x x xry Christxxx * Merry x x x xChristmasxxxMerry Chrx x x xistmas * xxxry Christx x x xmas * MerxxxChristmasx srqqj mqqrs mqqqqqqqqqvvvqqqqqqqqqj  rqpo opqr  lmxx lqmqx x lqwmqvx xx x lqwqmqvqx x x x lqwqmqvqx x x x lqwqmqvqx x x x lqwqmqvqx x x x lqwqmqvqx x x x lqwqmqvqx x x x lqwqmqvqx x x x // // //  / / //  / /// //  //// //  //// // /  //// / /  // / // // / // / //s/ //  sssssssssss / / //  // / ss  / //  //  // rrrrrrrrrrr / /s //  // qqqqqqqqq //  //  // srqqqqqqqqqrs   //  /// srrs //  //// // rrqqqqrr /  //// / / ppppppp  // / // rrqqrr // / // / rqppppqr //s/ //  rqpppooooooopppqr / / //  // / qppoooooooooooppq  / //  //  // sssssssooo ooo. o f / /s //  //.f ssss .f //  //  // f ssssrrrrqqqqqrrrrsssss s   //  ///. . . sssrrrrqqqqqqqqqrrrrsssf f . f //  //// / f . rrrqqqqpppppppppqqqqrss. . o f /  //// / /f .f qqqppppooooooooopppqrss .f . s// / // f f sssssssssqppoooo oopqrss.o . // / // /f f. . . ssrrrrrrrrrsqpooo opqrssf f f . f //s/ // f o o f . ssssssrrrrssssss   f o o .. . o f s/ //  /  . o o ff .f srrrrrrqqqqqqqqqqqqqqrrssrqf o o .  .f . / //  / mqvqqqqqq lqwqqqqqq x x x x . o ff f rqqqqqqppppppppppppppq mqvqqqqq lqwqqqqq x x x xf .o . o /s /  mqvqqqq lqwqqqq x x x x f f . . . qppppppoooooooooooooo mqvqqq lqwqqq x x x xf  .f f . f s /  mqvqq lqwqq x x x x. o f o o f f . poooooo  mqvq lqwq x x x x o o of o o .. . o f rrrrrrrrrrrrrrrrrrrrrrrrrrrrr   mqv lqw x x x xo o o . o o ff .f  mq lq x  x  . o o of o o .  .f .  m l x x. o o f o . . . o ff f     f o o f . ff .o . o #3 Cheers! #4 Cheers!   . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . #5 #5 f . o . f o ff  .f f . f  f f f . o f o o f f .  /ooooooooooooooo\  o o of o o .. . o f  / sss sss \ o o o . o o ff .f  x (sOs) (sOs) x  . o o of o o .  .f .  x ` x . o o f o . . . o ff f  \ \sssssssss/ / f o o f . ff .o . o  \ /  . o o . o f  f f . . .  \sssssssssss/ f . o . f o ff  .f f . f  ooppqqrrsss  f f f . o f o o f f .  ooppqqrrsss  o o of o o .. . o f  ooppqqrrsss o o o . o o ff .f  ooppqqrrsss  . o o of o o .  .f .  ooppqqrrsss . o o f o . . . o ff f  ooppqqrrsss f o o f . ff .o . o  ooppqqrrsss . o o . o f  f f . . . M x ` x f . o . f o ff  .f f . f M x (sOs) (sOs) x  f f f . o f o o f f . M / sss sss \  o o of o o .. . o f M /ooooooooooooooo\ o o o . o o ff .f M  . o o of o o .  .f . M . o o f o . . . o ff f M f o o f . ff .o . o M  . o o . o f  f f . . .  \ / f . o . f o ff  .f f . f  \sssssssssss/  f f f . o f o o f f .  ooppqqrrsss  o o of o o .. . o f  ooppqqrrsss o o o . o o ff .f  ooppqqrrsss  . o o of o o .  .f .  ooppqqrrsss . o o f o . . . o ff f  ooppqqrrsssf o o f . ff .o . o M / sss sss \  . o o . o f  f f . . . M /ooooooooooooooo\ f . o . f o ff  .f f . f M  f f f . o f o o f f . M  o o of o o .. . o f  ooppqqrrsss o o o . o o ff .f  ooppqqrrsss  . o o of o o .  .f .  ooppqqrrsss . o o f o . . . o ff f  ooppqqrrsssf o o f . ff .o . o M /ooooooooooooooo\  . o o . o f  f f . . . M f . o . f o ff  .f f . f M  f f f . o f o o f f . M  o o of o o .. . o f  \sssssssssss/ o o o . o o ff .f  ooppqqrrsss  . o o of o o .  .f .  ooppqqrrsss . o o f o . . . o ff f f o o f . ff .o . o Jin  . o o . o f  f f . . . gle f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f Bells,  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f Jin  . o o of o o .  .f . gle . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f Bells,  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f Jin  f f f . o f o o f f . gle  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f all f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f . the  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f way, f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f Oh! f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f . What  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f fun f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f . it  o o of o o .. . o f is o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o to  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f ride, o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f On o o o . o o ff .f a  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . one- f . o . f o ff  .f f . f horse  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f op  f f f . o f o o f f . en  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f . sleigh.  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff .f  . o o of o o .  .f . . o o f o . . . o ff f f o o f . ff .o . o  . o o . o f  f f . . . f . o . f o ff  .f f . f  f f f . o f o o f f .  o o of o o .. . o f o o o . o o ff f  o o of o o  . o o o   f o o     Merry Christmas  - Bert  [?4l From: LYONS 17-DEC-1982 14:32 To: TSMITH ! SENT TO $EDSHE The ultimate in electronic Christmas cards is enclosed. It requires VT100 AVO and you must put your terminal in /hardcopy mode ($ SET TERM/HARD). Alternatively, you may FILE this message, then TYPE it. Enjoy! [?5l Merry Christmas#3 Merry Christmas#4v>*< ^/o\/ \/~~ \/ )0f(B ~~ \/ ~~ \ / f ~~\ /~~ \ lqq@qqktqqnqqumqqvqqj/ ~~ \qqqqqqqwqfqwqfqfqfqx x/mqqqj\lqqqkmqqqj @`0of* |==|==|==|==|==|==||==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==||==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==| x qqnqq x  ~~~.~~.  .//af(B /aaf|(B   ~/aaaf=|(B  l/aaaaf==f(B  lk/aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  /aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  * /aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f= klk /aaaa f==f= qlk /aaaa f|=f| qlk  ./aaaajf=|f= qlkk /aaaaqf==f= llkqk/aaaaqf|=f| \lkq  ./aaaaqf=|f= jlkq/aaaamf==f= qlkl/aaaa f|=f| qlk\ ~/aaaa f=|f= qlkj/aaaa f==f= mlkq/aaaa f|=f| /lkq  ./aaaa f=|f=  lkq/aaaa f==f=  lkm/aaaa f|=f|  lk/  ~/aaaa f=|f= xlk /aaaa f==f=  lk /aaaa f|=f|  lk   ./aaaa f=|f=  lkx/aaaa f==f=  lk /aaaa f|=f|  lk    /aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk aaaa f==f=  lk aaa |=f| lk  aa |f=lk a f=k  |= ~~~.~~.  ~\a\ faa\  |faaa\k  |=f  ~aaaa\lk  f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  . aaaa\ lk  =f=|f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  ~ aaaa\ lk  =f=|f aaaa\ lk  |f=|f aaaa  lk  =f|=f   aaa lk =f=| aa lk|f= a l=f .  =qf  .qq=fqq=|qqf|  ~qq=fq=|q ~qff  .q|ff=fqqf==f  .fqfqfq=f==fqfqfq\ |f=|ffqfqa\  =f|=f  ~qfqaa\k  =f==ffqaaa\lkt |f=|fqaaaa\ lkq =f|=f  *  aaaa\ lkq =f==fmaaaa\tlkn |f=|fqaaaa\qlkq =f|=f  .qaaaa\qlkq =f==fvaaaa\nlku |f=|fqaaaa\qlk  =f|=f  ~qaaaa\qlk  =f==fjaaaa\ulk  |f=|f aaaa\ lk  =f|=f  ~ aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  . aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  ~ aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  . aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  . aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f ~ aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  . aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  ~ aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  . aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f    aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  ~ aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  ~ aaaa\ lk  =f==f aaaa lk |f=| aaa lk=f|   aa l=f a =  | ~~~.~~.  .//af(B /aaf|(B   ~/aaaf=|(B  l/aaaaf==f(B  lk/aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  /aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  * /aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk ~~~.~~. (B Fri 17-Dec-1982 14:26 GMT 10 let E$=CHR$(27) 20 PRINT E$+"[0;24r"; 30 PRINT E$+"[H" 40 PRINT E$+"[2J" 50 PRINT E$+"#6"; 60 PRINT " \" 70 PRINT E$+"#6"; 80 PRINT "Part operating failure rate model (/\ )." 90 PRINT E$+"#6"; 100 PRINT " P" 110 PRINT\PRINT\PRINT 120 PRINT E$+"[1m"; 130 PRINT "Select the required category by number"\PRINT\PRINT 140 PRINT "Monolithic Bipolar,MOS,RAMS & CCD --------------- 1"\PRINT 150 PRINT "Read-Only Memories & PROMS ---------------------- 2"\PRINT\PRINT 160 PRINT "CATEGORY ";\INPUT J\PRINT E$+"[2J";\PRINT E$+"[H";\IF J=1 THEN 180 170 IF J=2 THEN 240 180 PRINT E$+"(0"; 190 PRINT " \ l k 6" 200 PRINT " /\ = { xC .{ .{ + (C + C ){ x { ";\PRINT E$+"(A";\PRINT " Failures / 10 hours." 210 PRINT E$+"(0"; 220 PRINT " P Q m 1 T V 2 3 Ej L" 230 GO TO 290 240 PRINT E$+"(0"; 250 PRINT " \ l k 6" 260 PRINT " /\ = { xC .{ .{ .{ + (C + C ){ x { ";\PRINT E$+"(A";\PRINT " Failures / 10 hours." 270 PRINT E$+"(0"; 280 PRINT " P Q m 1 T V PT 2 3 Ej L" 290 PRINT E$+"[0m"; 300 PRINT E$+"(B"; 310 PRINT "Where:" 320 PRINT "\ 6" 330 PRINT "/\ (the device failure rate in F/10 hours)" 340 PRINT " P" 350 PRINT E$+"(0";\PRINT "{ ";\PRINT E$+"(B"; 360 PRINT " (the quality factor)" 370 PRINT " Q" 380 PRINT E$+"(0";\PRINT "{ ";\PRINT E$+"(B"; 390 PRINT " (the temperature acceleration factor)" 400 PRINT " T" 410 PRINT E$+"(0";\PRINT "{ ";\PRINT E$+"(B"; 420 PRINT " (the voltage derating stress factor)" 430 PRINT " V" 440 PRINT E$+"(0";\PRINT "{ ";\PRINT E$+"(B"; 450 PRINT " (the application environment factor)" 460 PRINT " E" 470 PRINT E$+"(0";\PRINT "C & C ";\PRINT E$+"(B"; 480 PRINT " (the circuit complexity failure rates)" 490 PRINT " 1 2" 500 PRINT E$+"(0";\PRINT "C ";\PRINT E$+"(B"; 510 PRINT " (the package complexity failure rate)" 520 PRINT " 3" 530 PRINT E$+"(0";\PRINT "{ ";\PRINT E$+"(B"; 540 PRINT " (the device learning factor)" 550 PRINT " L" 560 IF J=1 GO TO 600 570 PRINT E$+"(0";\PRINT "{ ";\PRINT E$+"(B"; 580 PRINT " (the ROM & PROM programming technique)" 590 PRINT " PT"; 600 PRINT E$+"[5;24r"; 610 PRINT E$+"[1;7m"; 620 PRINT E$+"[4;50f"; 630 PRINT " Input the parameters now " 640 PRINT E$+"[0m"+E$+"[1m"; 650 PRINT E$+"[8;50f";\PRINT "= ";\INPUT G; 660 PRINT E$+"[10;50f";\PRINT "= ";\INPUT B; 670 PRINT E$+"[12;50f";\PRINT "= ";\INPUT C; 680 PRINT E$+"[14;50f";\PRINT "= ";\INPUT F; 690 PRINT E$+"[16;50f";\PRINT "= ";\INPUT A; 700 PRINT E$+"[16;65f";\PRINT "= ";\INPUT D; 710 PRINT E$+"[18;50f";\PRINT "= ";\INPUT E; 720 PRINT E$+"[20;50f";\PRINT "= ";\INPUT H; 730 IF J=1 GO TO 760 740 PRINT E$+"[22;50f";\PRINT "= ";\INPUT I; 750 IF J=2 GO TO 780 760 LET P=((A*B*C)+((D+E)*F))*G*H 770 GO TO 790 780 LET P=((A*B*C*I)+((D+E)*F))*G*H 790 PRINT E$+"[0m";\PRINT E$+"[7;50f";\PRINT " "; 800 PRINT E$+"[4;50f";\PRINT E$+"[1;7m";\PRINT " Computation complete "; 810 PRINT E$+"[6;50f";\PRINT E$+"[5m";\PRINT "= ";\PRINT P; 820 PRINT E$+"[0m";\PRINT E$+"[0;24r";\PRINT E$+"[1B"; 830 PRINT E$+"[23;0f"; 10 LET E$=CHR$(27) 30 PRINT E$+"[2J"+E$+"[H" 50 PRINT E$+"#6"+E$+"[1mThis program calculates Mortgage figures" 70 PRINT E$+"[0m" 90 PRINT\PRINT 110 PRINT "Select one of the following"\print\print 130 PRINT "MONTHLY REPAYMENTS ----------------------------------- 1"\PRINT 150 PRINT "THE TERM OF THE MORTGAGE ----------------------------- 2"\PRINT 170 PRINT "BALANCE(given the number of years run so far) -------- 3"\PRINT 190 PRINT "BALANCE(given the number of years left to run) ------- 4"\PRINT 210 PRINT "THE TAX RELIEF --------------------------------------- 5"\PRINT 230 PRINT "EXIT PROGRAM ----------------------------------------- 6"\PRINT 250 PRINT\PRINT "Input your selection ";\INPUT S 270 IF S=1 THEN GOSUB 340\GO TO 10 290 IF S=2 THEN GOSUB 730\GO TO 10 295 IF S=3 THEN GOSUB 1150\GO TO 10 297 IF S=4 THEN GOSUB 1420\GO TO 10 298 IF S=5 THEN GOSUB 1690\GO TO 10 310 IF S=6 THEN GO TO 10000 329 REM 330 REM SUBROUTINE TO CALCULATE MONTHLY REPAYMENTS 331 REM 340 PRINT E$+"[H"+E$+"[2J" 350 PRINT "MONTHLY REPAYMENTS ROUTINE" 370 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~"\PRINT\PRINT 390 PRINT "INPUT INTEREST RATE ------------------ ";\PRINT" %" 391 PRINT E$+"[6;40H";\INPUT X\PRINT 410 PRINT "INPUT PERIOD TO RUN ------------------ ";\PRINT" yrs" 411 PRINT E$+"[8;40H";\INPUT Y\PRINT 430 PRINT "INPUT AMOUNT OF LOAN ----------------- ";\PRINT" pounds" 431 PRINT E$+"[10;40H";\INPUT Z\PRINT 450 LET A=X/100 470 LET B=(A+1)^Y 490 LET C=1/B 510 LET D=C-1 530 LET E=D/A 550 LET F=-E 570 LET G=F/Z 590 LET H=1/G 610 LET I=H/12 630 PRINT\PRINT\PRINT 650 PRINT "MONTHLY REPAYMENT = ";\PRINT I;\PRINT " pounds" 670 PRINT\PRINT\PRINT 690 PRINT " TO RETURN TO MENU ";\INPUT A$ 710 RETURN 719 REM 720 REM SUBROUTINE TO CALCULATE THE TERM OF THE MORTGAGE 721 REM 730 PRINT E$+"[H"+E$+"[2J" 740 PRINT "TERM OF MORTGAGE ROUTINE" 750 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~" \PRINT\PRINT 770 PRINT "INPUT INTEREST RATE ------------------ ";\PRINT" %" 790 PRINT E$+"[6;40H";\INPUT X\PRINT 810 PRINT "INPUT AMOUNT OF LOAN ----------------- ";\PRINT" pounds" 830 PRINT E$+"[8;40H";\INPUT Y\PRINT 850 PRINT "INPUT MONTHLY REPAYMENTS ------------- ";\PRINT" pounds" 860 PRINT E$+"[10;40H";\INPUT Z\PRINT 890 LET A=X/100 910 LET B=(A*Y)/Z 930 LET C=(B/12)-1 950 LET D=-C 970 LET E=1/D 990 LET F=LOG10(E) 1010 LET G=LOG10(A+1) 1030 LET H=F/G 1040 PRINT\PRINT\PRINT 1050 PRINT "THE MORTGAGE TERM = ";\PRINT H;\PRINT " yrs" 1070 PRINT\PRINT\PRINT 1090 PRINT " TO RETURN TO MENU ";\INPUT A$ 1110 RETURN 1120 REM 1130 REM ROUTINE TO CALCULATE BALANCE , GIVEN YRS RUN SO FAR 1140 REM 1150 PRINT E$+"[H"+E$+"[2J" 1160 PRINT "BALANCE LEFT TO PAY ROUTINE" 1170 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~"\PRINT\PRINT 1180 PRINT "INPUT INTEREST RATE ------------------ ";\PRINT" %" 1190 PRINT E$+"[6;40H";\INPUT W\PRINT 1200 PRINT "INPUT YEARS RUN SO FAR --------------- ";\PRINT" yrs" 1210 PRINT E$+"[8;40H";\INPUT X\PRINT 1220 PRINT "INPUT MONTHLY REPAYMENTS ------------- ";\PRINT" pounds" 1225 PRINT E$+"[10;40H";\INPUT Y\PRINT 1240 PRINT "INPUT AMOUNT OF LOAN ----------------- ";\PRINT" pounds" 1250 PRINT E$+"[12;40H";\INPUT Z\PRINT 1260 LET A=W/100 1270 LET B=A+1 1280 LET C=B^X 1290 LET D=(Y*12)/A 1300 LET E=-D 1310 LET F=E+Z 1320 LET G=C*F 1330 LET H=G+D 1340 PRINT\PRINT\PRINT 1350 PRINT "THE BALANCE LEFT TO PAY = ";\PRINT H;\PRINT " pounds" 1360 PRINT\PRINT\PRINT 1370 PRINT " TO RETURN TO MENU ";\INPUT A$ 1380 RETURN 1390 REM 1400 REM ROUTINE TO CALCULATE BALANCE , GIVEN YRS TO RUN 1410 REM 1420 PRINT E$+"[H"+E$+"[2J" 1430 PRINT "BALANCE LEFT TO PAY ROUTINE" 1440 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~"\PRINT\PRINT 1450 PRINT "INPUT INTEREST RATE ------------------ ";\PRINT" %" 1460 PRINT E$+"[6;40H";\INPUT W\PRINT 1470 PRINT "INPUT YEARS TO RUN ------------------- ";\PRINT" yrs" 1480 PRINT E$+"[8;40H";\INPUT X\PRINT 1490 PRINT "INPUT MONTHLY REPAYMENTS ------------- ";\PRINT" pounds" 1500 PRINT E$+"[10;40H";\INPUT Y\PRINT 1530 LET A=W/100 1540 LET B=A+1 1550 LET C=B^X 1560 LET D=1/C 1570 LET E=-D 1580 LET F=(E+1)*Y 1590 LET G=(F*12)/A 1610 PRINT\PRINT\PRINT 1620 PRINT "THE BALANCE LEFT TO PAY = ";\PRINT G;\PRINT " pounds" 1630 PRINT\PRINT\PRINT 1640 PRINT " TO RETURN TO MENU ";\INPUT A$ 1650 RETURN 1660 REM 1670 REM ROUTINE TO CALCULATE TAX RELIEF ON MORTGAGE 1680 REM 1690 PRINT E$+"[H"+E$+"[2J" 1700 PRINT "TAX RELIEF ROUTINE" 1710 PRINT "~~~~~~~~~~~~~~~~~~"\PRINT\PRINT 1720 PRINT "INPUT BALANCE OF MORTGAGE ------------- ";\PRINT" pounds" 1730 PRINT E$+"[6;40H";\INPUT W\PRINT 1740 PRINT "INPUT INTEREST RATE ------------------- ";\PRINT" %" 1750 PRINT E$+"[8;40H";\INPUT X\PRINT 1760 PRINT "INPUT STANDARD RATE OF TAX ------------ ";\PRINT" %" 1770 PRINT E$+"[10;40H";\INPUT Y\PRINT 1780 LET A=W*X 1790 LET B=A*(Y/10000) 1800 PRINT\PRINT\PRINT 1810 PRINT "THE BALANCE LEFT TO PAY = ";\PRINT B;\PRINT " pounds" 1820 PRINT\PRINT\PRINT 1830 PRINT " TO RETURN TO MENU ";\INPUT A$ 1840 RETURN 10000 PRINT E$+"[H"+E$+"[2J"\ END 1000 REM *********************************************************** 1010 REM ** SEQUENTIAL PROBABILITY RATIO TEST (SPRT) DATA PROGRAM ** 1020 REM *********************************************************** 1030 REM 1040 REM --------------------------------- 1050 REM | Set terminal to 80 columns wide | 1060 REM --------------------------------- 1070 REM 1080 PRINT CHR$(27)+"[?3l" 1090 REM 1100 REM ----------------------------------- 1110 REM | Set up the fixed SPRT theory data | 1120 REM ----------------------------------- 1130 REM 1140 DEF FNA(X)=.01*INT(100*X+.5) \ DEF FNB(X)=INT(X+.5) 1150 DIM X2(100,6), K(6), R(5), T(5), N%(6),H(20) ,M0(20),P0(20),T0(20) 1160 DATA -5., -2.5, -2.,-1.5, -1., -.7, -.4, -.2 1170 DATA 0.1, 0.2, 0.4, 0.7, 1., 1.2, 1.5, 2., 2.4,2.8, 3.2, 3.6 1180 FOR I=1 TO 20 \ READ H(I) \ NEXT I 1190 DATA 2.71, 4.61, 6.25, 7.78, 9.24, 10.6, 12.0, 13.4, 14.7, 16.0 1200 DATA 17.3, 18.5, 19.8, 21.1, 22.3, 23.5, 24.8, 26.0, 27.2, 28.4 1210 DATA 29.6, 30.8, 32.0, 33.2, 34.4, 35.6, 36.7, 37.9, 39.1, 40.3 1220 DATA 1.64, 3.22, 4.64, 5.99, 7.29 1230 DATA 8.56, 9.80, 11.0, 12.2, 13.4, 14.6, 15.8, 17.0, 18.2, 19.3 1240 DATA 20.5, 21.6, 22.8, 23.9, 25.0, 26.2, 27.3, 28.4, 29.6, 30.7 1250 DATA 31.8, 32.9, 34.0, 35.1, 36.3 1260 DATA 1.07, 2.41, 3.67, 4.88, 6.06, 7.23, 8.38, 9.52, 10.7, 11.8 1270 DATA 12.9, 14.0, 15.1, 16.2, 17.3, 18.4, 19.5, 20.6, 21.7, 22.8 1280 DATA 23.9, 24.9, 26.0, 27.1, 28.2, 29.2, 30.3, 31.4, 32.5, 33.5 1290 DATA .0158, .211, 0.584, 1.06, 1.61 1300 DATA 2.20, 2.83, 3.49, 4.17, 4.87, 5.58, 6.30, 7.04, 7.79, 8.55 1310 DATA 9.31, 10.1, 10.9, 11.7, 12.4, 13.2, 14.0, 14.8, 15.7, 16.5 1320 DATA 17.3, 18.1, 18.9, 19.8, 20.6 1330 DATA .0642, .446, 1.00, 1.65, 2.34, 3.07, 3.82, 4.59, 5.38, 6.18 1340 DATA 6.99, 7.81, 8.63, 9.47, 10.3, 11.2, 12.0, 12.9, 13.7, 14.6 1350 DATA 15.4, 16.3, 17.2, 18.1, 18.9, 19.8, 20.7, 21.6, 22.5, 23.4 1360 DATA 0.148, 0.713, 1.42, 2.19, 3.00 1370 DATA 3.83, 4.67, 5.53, 6.39, 7.27, 8.15, 9.03, 9.93, 10.8, 11.7 1380 DATA 12.6, 13.5, 14.4, 15.4, 16.3, 17.2, 18.1, 19.0, 19.9, 20.9 1390 DATA 21.8, 22.7, 23.6, 24.6, 25.5 1400 FOR J%=1% TO 6% \ FOR I%=1% TO 30% \ READ X2(I%,J%) \ NEXT I% \ NEXT J% 1410 DATA 30, 35, 40, 45, 50, 75, 100 1420 FOR I%=0% TO 6% \ READ N%(I%) \ NEXT I% 1430 DATA 46.1, 51.8, 57.5, 63.2, 91.1, 118.5 1440 DATA 41.8, 47.3, 52.7, 58.2, 85.1, 111.7 1450 DATA 38.9, 44.2, 49.5, 54.7, 80.9, 106.9 1460 DATA 24.8, 29.1, 33.4, 37.7, 59.8, 82.4 1470 DATA 27.8, 32.3, 36.9, 41.4, 64.5, 87.9 1480 DATA 30.2, 34.9, 39.6, 44.3, 68.1, 92.1 1490 FOR J%=1% TO 6% \ Y2=X2(30,J%) \ L%=0% 1500 FOR I%=31% TO 100% \ IF I%>N%(L%) THEN L%=L%+1% \ Y1=Y2 \ READ Y2 1510 D=(Y2-Y1)/(N%(L%)-N%(L%-1%)) 1520 X2(I%,J%)=Y1+D*(I%-N%(L%-1%)) 1530 NEXT I% \ NEXT J% 1540 K(1%)=1.5 \ K(2%)=2 \ K(3%)=2.5 \ K(4%)=3 1550 REM 1560 REM --------------------------------------------------------------- 1570 REM | Create a file called "SPRT.LST" in which to tabulate the data | 1580 REM --------------------------------------------------------------- 1590 REM 1600 OPEN "SPRT.LST" FOR OUTPUT AS FILE #1, RECORDSIZE 132% 1610 GO TO 1700 1620 FOR I%=1% TO 100% \ FOR J%=1% TO 6% 1630 PRINT #1, TAB(10%*J%);X2(I%,J%); 1640 NEXT J% \ PRINT #1 \ NEXT I% 1650 REM 1660 REM -------------------------------------- 1670 REM | Get input from keyboard on MTBF data | 1680 REM -------------------------------------- 1690 REM 1700 PRINT CHR$(27)+"[?3l"\ PRINT CHR$(27)+"[H"+CHR$(27)+"[2J"; 1710 PRINT \ PRINT \ PRINT CHR$(27)+"#6";\PRINT TAB(5);'SEQUENTIAL PROBABILITY RATIO TEST' \ PRINT\PRINT 1720 PRINT TAB(6);'GOAL MTBF ='; \ INPUT M \PRINT 1730 IF M<1 THEN CLOSE #1 \ STOP 1740 PRINT TAB(6);'MIN MTBF ='; \ INPUT M1 \PRINT 1750 REM 1760 REM ----------------------------------------------------------------- 1770 REM | Set up loop for Producers Risk & Consumers Risk from 0.1 to 0.3 | 1780 REM ----------------------------------------------------------------- 1790 REM 1800 FOR P%=4% TO 6% \ P=.1*(P%-3%) \ M2=1/M1-1/M 1810 FOR C%=1% TO 3% \ C=.1*C% 1820 GOSUB 1980 1830 PRINT TAB(5);R0%,H,A1,TAB(44);B1;TAB(64);C1 1840 NEXT C% 1850 NEXT P% \ PRINT #1 1860 REM 1870 REM ----------------------------------- 1880 REM | "Do you want to go again" routine | 1890 REM ----------------------------------- 1900 REM 1910 PRINT\PRINT\PRINT TAB(6);'TYPE "LIST" TO SEE RESULTS'\PRINT 1920 PRINT TAB(6);'TYPE TO GO AGAIN'\PRINT 1930 PRINT TAB(6);'TYPE "EXIT" TO EXIT' 1940 PRINT CHR$(27)+"[6C";\INPUT Q$ \IF Q$="list" THEN 2470 ELSE 1950 1950 IF Q$="LIST" THEN 2470 ELSE 1960 1960 IF Q$="EXIT" THEN 2640 ELSE 1970 1970 IF Q$="exit" THEN 2640 ELSE 1700 1980 REM 1990 REM --------------------------------------------------------- 2000 REM | Subroutine to calculate and tabulate the points to plot | 2010 REM --------------------------------------------------------- 2020 REM 2030 PRINT #1 \ PRINT #1 \ PRINT #1 \ PRINT #1 2040 PRINT #1, TAB(1);'MIN';TAB(8);'GOAL';TAB(14);'PROD';TAB(19);'CONS'; 2050 PRINT #1, TAB(67);'REM MTBF=MIN REM MTBF=S REM MTBF=GOAL' 2060 PRINT #1, TAB(1);'MTBF';TAB(8);'MTBF';TAB(14);'RISK';TAB(19);'RISK'; 2070 PRINT #1, TAB(25);'F1';TAB(31);'FMAX';TAB(38);'T2';TAB(45);'TMAX'; 2080 PRINT #1, TAB(53);'F4';TAB(61);'TMIN';TAB(70);'E(F) E(T)'; 2090 PRINT #1, TAB(85);'S E(F) E(T)';TAB(109);'E(F) E(T)' 2100 PRINT #1,M1;TAB(7);M; 2110 PRINT #1, TAB(14);P;\PRINT #1, TAB(19);C; 2120 K=M/M1 \ K1=LOG(K) 2130 A2=((K+1)*(1-C)/(2*P*K)) \ A=LOG(A2) \ B2=(C/(1-P)) \ B=LOG(B2) 2140 R%=0% 2150 FOR I%=1% TO 100% \ R1=X2(I%,P%)/X2(I%,C%) \ IF R1<1/K THEN R%=I% 2160 NEXT I% \ R%=R%+1% \ IF R%>100% THEN PRINT #1, 'SEARCH FAIL' 2170 R0%=.5*R% \ IF INT(2*R0%)<>R% THEN R0%=R0%+1% 2180 R%=2%*R0% \ IF R%>100% THEN R%=100% 2190 H=.5*M*X2(R%,P%) \ A1=B/K1 \ B1=M2/K1 \ C1=A/K1 2200 R1=FNA(C1) \ PRINT #1, TAB(23);R1;TAB(31);R0%; 2210 T2=FNB((R0%-C1)/B1) \ PRINT #1, TAB(36);T2;TAB(44);H; 2220 R4=FNA(A1+B1*H) \ PRINT #1, TAB(52);R4; 2230 T5=FNB(-A1/B1) \PRINT #1, TAB(60);T5; 2240 X=(A-C*(A-B))/(K1-M1*M2) \ PRINT #1, TAB(68);FNA(X);TAB(76);FNB(X*M1); 2250 S=K1/M2 2260 X=-A*B/K1/K1 \ PRINT #1, TAB(84);FNB(S);TAB(92);FNA(X);TAB(100);FNB(X*K1/M2); 2270 X=(A-(1-P)*(A-B))/(K1-M*M2) \ PRINT #1, TAB(108);FNA(X);TAB(116);FNB(X*M) 2280 FOR I=1 TO 20 \ A2=(1.-C)/P \A3=LOG(A2) \ M0(I)=(K**H(I)-1.)/H(I)/M2 2290 A1=A2**H(I) \ B1=B2**H(I) 2300 P0(I)=(A1-1.)/(A1-B1) 2310 T0(I)=M0(I)*(A3-P0(I)*(A3-B))/M2/(S-M0(I)) 2320 NEXT I \ PRINT #1 2330 FOR J%=0% TO 3% \ I1%=25%*J%+6% \ I2%=I1%+6% \ I3%=I2%+8% 2340 PRINT #1, TAB(I1%);'MTBF';TAB(I2%);'PR(AC)';TAB(I3%);'TOT HRS'; 2350 NEXT J% \ PRINT #1 2360 FOR I%=1% TO 5% \ FOR J%=1% TO 4% 2370 I2%=25%*(J%-1%)+5% \ I3%=I2%+8% \ I4%=I3%+6% 2380 I1%=I%+5%*(J%-1%) 2390 PRINT #1, TAB(I2%);FNB(M0(I1%));TAB(I3%);FNA(P0(I1%));TAB(I4%);FNB(T0(I1%)); 2400 NEXT J% \ PRINT #1 \ NEXT I% \ PRINT #1 \ PRINT #1 2410 RETURN 2420 REM 2430 REM ---------------------------------------------------- 2440 REM | Type the SPRT table on the screen 132 columns wide | 2450 REM ---------------------------------------------------- 2460 REM 2470 CLOSE #1 2480 PRINT CHR$(27)+"[?3h"\REM Set screen to 132 columns wide 2490 ON ERROR GOTO 2540 2500 OPEN "SPRT.LST" FOR INPUT AS FILE #2,RECORDSIZE 132% 2510 INPUT #2,A$ 2520 PRINT A$ 2530 GOTO 2510 2540 RESUME 2550 2550 CLOSE #2 2560 PRINT \ PRINT \PRINT \PRINT TAB(6);'TYPE "LIST" TO READ AGAIN'\PRINT 2570 PRINT TAB(6);'TYPE TO GO AGAIN'\PRINT 2580 PRINT TAB(6);'TYPE "EXIT" TO EXIT' 2590 PRINT TAB(6);\ INPUT Z$ \IF Z$="list" THEN 2480 ELSE 2600 2600 IF Z$="LIST" THEN 2480 ELSE 2610 2610 IF Z$="EXIT" THEN 2640 ELSE 2620 2620 IF Z$="exit" THEN 2640 ELSE 1600 2630 REM 2640 END 7350 ATZI 5265 MAX 5200 MAX 5090 STU 4925 MAX 4890 STU 4880 CHRIS' 4790 CGB 4685 CHRIS 4670 CHRIS' Z Rhuj(  "&(f &  \55& xQ   & (!k7Q@QE&:Q^&E &8&!Pe" stsuvx3 s !2 5 #P"e! ePe"Pj3h3|3z U $ u!\+?Err 59 USR not locked?Err 62 FORTRAN start failLf&AEPP@ pB`"ʊ@ҋ R F L΋ ++O  wBF Oz|   O? DW=W? A @ @)鈇& e:   낃 (   3 E`E& N U%@"wz?Err 60 stack overflowed ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 0123456789fromin routine "" line ?Err (PC=Ne* Ne*6 6 &  f 6A  v  6N\@A & &Me*CBf @ E   E `   @5e  &  @  @ CaB a@ CaB a   C B 5CA aC`B \@A & &Le*f Qf KN @@?=e  ! C D DDC D@ C @ % ` ` D@ B \  @@c@c NSXœeNU =5E33 r3 &5KK @ w X5@KU@X5K,KNɥ R  <& & & f@ w eeX5:K5@4KX5K>KW U5@CW UU 56W UX5@5J)J  B w ĉX5J J ‰ U@ X5J/J 5@5@UX5 nJtJ 5UX 5UX5‰56J:JX5&J6JX5JÉX5@5JJ&  A t tX5IÉX5IÉX@@c@c 6TXœ * 3 r3 3&5II w XD&& @  :I& eN t RD \RD ^ H& eN t  RDZ ~&$3R3~3D3Ze &VHS3`D Z~^\ f B % % e@ ( B`  ` A@^   A ^”E eBCIE `-    D E A@D D e0bb %- ҕ* V ͥ)@%@   &   e Е-eO PPPЕ-ee/:JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC U   U  `5 p U Eȋ `5w @A3 Fe*&@A& & @A& & @A& & C P \r@E dt6xE3 Dt~ XEt~3 r3 p3 X 3\ %$Et&& fAP  t\ %DtW% BC @ bb@ be K @     w  e fDd  Z@DgV`b Xw bDe* Ce*  @%  @ %   `&\\||| 1164 122316 131 10514157553=6120212223?63242526-4527312829$36,44 32!33"34%37&38'39(40)41#3530*42.46+43149/47048@64A65B66C673512500|B3d XT,T&T)aN 5K   & & EF   7w N򆉶f 7w 6DR%% $J J N ꇁ   Е `CBД  SD @` Vx(0~ &e &&& &&&P05@5#E 5m5 ҕ   mU p v  7 fGl6H # `67 : X67 67 6 L67 6 D66 :6H $ .6HH xX 6HH HzX  x5H & 5H F 5|65 r6 5-j6  5\652F6 57 J6 5B6 5:6 526#z5(6~H$j56Ae X X5-6 'J5 >Z @51 fZ)65 5-5  5-5 5H ! 55PdT,4Օ=-4  4H " 4H " 4H " 4H " 4HvHT &xX \  4H " 4I " 445 v4,5 l45$58`4 \48 R48 H4H <:47 4 24P4 (47 4 44 44 PTA4 B3  344D34 4~Hb44PTX4E3l4oH4 XwlG3 <4 3R4Z4m^4T4 3D4R47F4 z37 :4 p3704Lf34o3 41&Y P34Y F37 4 <373P2337 3 $373R33? 3 3?3T3-3 2 I  V2 3+X2-3 2I Z2-r3 2I \2-X3 2$I ^2'_2-63 z2.I | al2-3 `28I b cR2-3 F2BI H e82 2 g,222 2LI $ h2VI " 2 2Hk1H 1ZI  1H  1H n 1ZI  1H  1-x2s1^I $ 1H ~ 1 v1H  z1VI xl1 h1-22{Z1 212dI @ B111}61e1e1e1 1wXe1 1-1w 17 17 1 0-1+0101~H0t1@@e 0 >Z0  wZ1W  0H 061 021 PT,Zn0f0  ^0-1 P0-1IB0:0 0 207 0 *0@07 00m00 07 0 00w,/70 /w7 hI/,4R2 /M  /M /62U /MI Df X  /MI *~MhV t/1hV>M\/1@eUJ/ @/e w1W  ,/M b /l30 /1X>M.@0(U. .7 `1 .X1 U.M-4.@ .u .  .$1 .11>MhV.1dU |.UU r.2U"h. 0#\.e 0-0  H. 0&<.M & 0.|2 z2wF). r7`2 ./.w\,-  -|MI 8 b.--&2  -|MI  @0--2  -|MJ 2--1  -|M1J 4t--1  h-|MJJ 6R--1  F-|MiJ 80--|1  $-|MJ l :--Z1  -|MJ J t<,-81  ,|MJ ( R>,-1  ,|MJ  0@,-0  ,|MJ B,-0  z,|MK Dd,-0  X,|M)K FB,-0  6,|MBK ~ H ,-l0  ,|M[K \ J+-J0  +|M|K : dL+-(0  +|MK  BN+-0  +|MK P+-/  +|MK Rv+-/  j+|MK TT+-/  H+|ML V2+-~/  &+|M$L n X+-\/  +|M6L L vZ*-:/  *|MOL * T\*-/  *|MeL  2^*-.  *|MzL `*-.  |*|ML bf*-.  Z*|ML dD*-.  8*|ML f"*-n.  *|ML ^ h*-L.  )|MM < fj)k)/*m)|M M  :n)|MI $o),Up),>MhVqt)+dUrd)  \)MI f  B)MI ~MhV H ")/)w)|MI \V ~MhV f lx(e Z+-V+  (|MI V x :{(M L (M (7 dM(P  ~(P  r(*X^(Օ  T(  L(P Z @("P  4(PM | (PO h ((P  (,P D 'PO < f '2P $ 'PO  F 'N* 'F* '>* ' 6*' ** '8P ~' * t'BP vf' ) \'LP ^N' ) D'VP F6'P D *' ) '`P ""' ) 'jP $&(P  &P P-wp)&&W c(&W 3*&W,&F) %.&rX &.) *) &1& ) & ) x&)4l&( X5\&tP ^ P&7 ( H&m(( >&-(< 2&7 (:(&-( &7 (<&wr=&7 ~P%(V%Օ=%  %P  % b(* %P  %\( %R( Wp wH(P  % 4(-0(( v%P h% d%7 0P V%P +( D%‹w 6% Q*% ,  < @wH% .  > @wD$ A  a @ $P $ t'Z  z w $Q $- )xz$4' >'h$$'PX$'Be >Z ' B$ 8$&m'& ($-( "$ r>Z $w$$ &-&e & &-& #t(v( #7 p( #h( #)#-P(+# B( # -#-2(L/# $(0# "(w(2z#-(4l#(0& ,&Q d V#7 ' N#7 ' F#v8># ' 6#'% %Q . #%;#%P<#%Ae B&Y% "DY7% " X&@"7!l' B"eX'@ 2D"e@ *F" H"e@ J" F%-B%  <%-8% n"-'M`"Q bNR"-&&PD"&& :"Q H ."&$$"Q $ "P $T"7 ,Q ! &w( !$ !$>Q$ !$o$ Xv!B&Y$ !wY$ !e,&@ !e@ z! Sn!e@ K^!% w B$BL!w8$^Q \ ! 3Y &YZ Z%e!e! *!w   !Z Y Z ' w) 7  w  Ow~- wp/W w`1| wR3n/l G5`!7p T  L7` 7 \ 8>-R 6:0& Ϸ> < 4 . & HC 8з  Q f&  w>?Q @  7  DD sFQ Q |Q p !w^K`-p wLMN-` w:O<7 47 ,Q @ ~S $B U @ W @ YcZQ   ?  P^Q _ `QaBe >Zcxm h x f\ r>Z PhH d-`e ^ P-L &wj7 , 7 & ? m  oeee w 7 Q7 7  2m R   R  t R ` R(R H :~mjx2R 0 "-X[Jjed`Nm4 7BtQ*`@@e fZ  wDW    7 nR->s R 7*w(  p}@ [  R~@ jzL p f ^ THR b7w 4& A lʷ R e7x -p b JwmB>  -4  -(L @wt R   ,wn!w #t @ %de@ 'Rw2(H 7 w*2 R *  R & 7  7  7  R 7PwN F@&  B ɷB@R @Wpe2w RRW W J ѿ  3tR v hR j5Z  Pm F7  >96 R . 7 ;7 R ~Rrlod >Zwb fZX  S rfZ :>m<8 W W  ~u@7 pha ^Vi LD_8R F ,R . S .e -e  -~w 7 S7t flf *S  R R S(S2W e S(SW pe  \  R/&D8S$@@e fZ  wW 7 0S H  Jw >S  7 DSV\ NT  J 7 @ 8 v7 . l-"O `O T-  H <e  27 e7 $ Y 7 7 NS  7 TS F   G{bS  7 thSvS `˿ tSpSW tSW ̿ jtSpSW tSW f ̿ FtSpSW tSX B  mm7 mm7 7 zS     7   7  -O O - ~e  t7 e7 fK \YB R77 Fr7, :$ 0/A"/Z/w/wJ/w e  e w" SS SX SX ʿ jwl%`:X&H'@  8SS SX >SX 2 ʿ w*0X+,  SS "SX SX 4ʿ Y/!X01  ~SS SX S!X x ɿ R+4Jx$(X526*  "SS jSX (S(X  |87 ɰS$SS f ^ >  7 xS [ ? 2 vl lS r `7 ,SR H< >S D 2f&f&  e `e& e eBG N"Q$B(< U& * u @ 3 tPALG&eW!NG G'& f@! tF# B   ` ׮PU ׮PU, U1 0 555U U& &3 @&&5¥.  , &@ #& 5ff@ & 5 EE 爄 Mxdxd z :PTSPACE.DAT =Champion: Record: Your Score: <> }{ >< {} >a<   #(-2 P, 5: HHHHHHHHHHHdTHHHHHHHzXHHH&HHHHTHHH0HHTTH>HTTHFHTTHNHTTHVHTTH^HTTHfHTTHnHHTTTTKHUSPACE.DATSPACE.DATYOUR SCORE  INVADERS SUPER LEAGUEPlayerScore** WHAT UTTER CRAP **** I don't believe it **** RUBBBISH !! **** What can I say **** Four figures one day **** Past the magic 1000 !! **** Must try harder **!** Well I suppose you're trying ** ** Come on **** Almost there **** WOW ! over 2000 **** Are you a Novice **** Getting Better **** Keep on trying **** 3000 One of these Days **** Practise makes perfect **** OK now impress me **** You've played before **** I've seen worse **** Keep it up **** Hurrah ! 4000 bust ** ** Not bad **** Not bad at all **** Pretty fair **** Oh , close **** I'm almost impressed **** Pretty Good **** OK I like it **** You've got style **** Come on , you can do it **** OK that wasn't bad **Congratulations Champ !! !,7BMXcny)4?MMpIMzMzMMMMMzIMM:rV <> >< }{ {} >a< aaa aaaa a aaa aaaaaa a a a a a a aaaa aaaa aaaaa a aaaaa a a a a a aaaa a a a aaa aaaaa,aaa a a a a a aaaa aaaaa aaaa aaa(a aa a a a a a a a a a a a+a a a a a a aaaaa a a aaaa aaaa aaa,a a aa a a a a a a a a a a,aaa a a a a a aaaa aaaaa a a aaaESCORE 30ESCORE 20ESCORE 10 What's your name then :- B Z - Panic Button / Space Bar - Fire / < Left / > Right /PPPPPPPPVPPMVPPMVPPMVPPMVP PMVP PMPP PXYV==/a\=PPPVPVPPPP @V ,<.>AaZz | /a\  #(-2PPXVPPXVPPXXPPVPPP4FKV   #(-2GXWWWXWVQ4QZQ\QXQW W f  #(-2f@ffXXJW:W }@p~@RXXWWWRvRWWR|RWWWWWRWWWRRWWRR x}W RWRRWR#\MW *  &SW WHJ#Q#`#s####### $$8$S$p$$$$$$%(%?%W%h%v%%%%%%&'&A&[&m&&&&&&'"'2'P'`'s'''''''((0(B(X($Eq$8"&<B ~Ew@  Ae E@ XCe<ueu5(55@ ?"  j HP%5  fe ƀ& (% EeFwh>>>? ?F?J????@R@h@@@jA BVBBBBBB" r rW @,   a`&*:fR5 R R5,_z 5 ,  ,W  , j W-, r >_ _  > , W-, _ _J W-,W @,  5P >_5 _  >f,& N&# _  % =@eD B dbB bE B     e_ = $8E*_ =& * ,@ *_ & 6   0  , >_ & 6     0  ` , >_ =  ,_ =  ,_  >B <8p,_ r\WZ rVWT rP 6 > *@@,-7 # 0 - * ce<ece:`eҢ :  <  : %5,5 *_ rLWJ rF 6f*f,W> r: 6 >.  #( *!C,   B <8c ee __ =   & Ҏ <8e  ; $8ȋ _ =  `e  _ <8_ =B <8e<5 : | nf: <8_$  _ = 6 $8_ (Ba <8_ (Ba <8_CRfD& ΋?A<I N== =-C>ff& ΋ Y NU% M% D# C   D eRD>>=D>>=D>>=D>>=D??==D?D?=DF??==E??=E??= E?@=E@P@=ER@f@=Eh@@=%E@@=,E@hA=2EjA B=9E BTB=?EVBB=FEBB=MEBB=REBB=XEBB=_EBC=OPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? TAB? SYS? RCTRLO? ABORT? TTYSET? CTRLC & RCTRLC? RND? ABS? SGN? BIN? OCT? LEN? ASC? CHR$? POS? SEG$? VAL? TRM$? STR$? PI? INT? DAT$? CLK$? SPEED V01.00" &  B~T P@M@SCHwDEPC^^w| 鈸U        鈥UUPU`U EU0 w83 L ~w\w( &wU0wUw Zw   E PwZww SPEED OPTIONS: /T:n Terminal #(0,1,2,3) /S:n Baud Rate (Speed) /P Printer /M Communications line /D Parity Disabled(default) /E:n Parity enabled, n=0->ODD, n=1->EVEN /C:n Character length (5-8) The command line must name a device with the /T, /P, or /M option, and only one speed setting can be made on a command line. For example, the following command line sets cluster port 2 to 2000 baud with odd parity. */T:2/S:2000./E:1K% ` X,h\nHK=2( ?SPEED-W-Invalid option; type /H if you need help?SPEED-W-Valid /T options are 0,1,2 and 3?SPEED-W-Valid baud rates are 50, 75, 110, 134, 150, 300, 600, 1200, 2400, 3600, 4800, 7200, 9600, 19200?SPEED-W- /E option must have value, 0=ODD, 1=EVEN?SPEED-W- /C option must have value 5,6,7 or 8?SPEED-W-SPEED works only for PDT-11 processors10 DEF FNA(X)=X^2-2*X-3 20 PRINT CHR$(27)+"[2J" 30 PRINT CHR$(27)+"#3THIS PROGRAM PLOTS ANY FUNCTION." 40 PRINT CHR$(27)+"#4THIS PROGRAM PLOTS ANY FUNCTION." 50 PRINT 60 PRINT 70 PRINT 80 PRINT 90 PRINT 100 PRINT 110 PRINT 120 PRINT 130 PRINT 140 PRINT 150 PRINT 160 PRINT 170 PRINT "HAVE YOU DEFINED THE FUNCTION"; 180 INPUT Q$ 190 IF Q$="YES" THEN 230 200 PRINT "TYPE '10 DEF FNA(X)=(YOUR FUNCTION)',TYPE A RETURN KEY," 210 PRINT "THEN TYPE 'RUN',RETURN KEY" 220 STOP 230 PRINT 240 PRINT 250 PRINT "WHAT IS THE MINIMUM VALUE OF X"; 260 INPUT A 270 PRINT "WHAT IS THE MAXIMUM VALUE OF X"; 280 INPUT B 290 PRINT "HOW LONG ARE THE SUBINTERVALS ON THE X-AXIS"; 300 INPUT R 310 PRINT "WHAT IS THE MINIMUM VALUE OF Y"; 320 INPUT C 330 PRINT "WHAT IS THE MAXIMUM VALUE OF Y"; 340 INPUT D 350 L=(D-C)/50 360 C1=C-L/2 370 D1=D+L/2 380 PRINT 390 PRINT 400 PRINT 410 PRINT "Y-AXIS: FROM";C;"TO";D;"IN INTERVALS OF";L 420 PRINT TAB(10);"_____________________________________________________" 430 FOR X=A TO B STEP R 440 Y=FNA(X) 450 IF YD1 THEN 520 470 PRINT X;TAB(9);":"TAB((Y-C)/L+10.5);"." 480 NEXT X 490 PRINT 500 PRINT 510 STOP 520 PRINT X;TAB(9);":" 530 GO TO 480 540 END 10 PRINT CHR$(27)+"[2J" 20 REM --- LINE 30 SETS THE VT100 TO SMOOTH SCROLL --- 30 PRINT CHR$(27)+"[?4"+CHR$(104) 40 PRINT CHR$(27)+"[?5"+CHR$(104) 50 PRINT CHR$(27)+"[24;1"+CHR$(72) 60 PRINT CHR$(27)+"#3 THIS PROGRAM CALCULATES" 70 PRINT CHR$(27)+"#4 THIS PROGRAM CALCULATES" 80 PRINT CHR$(27)+"#3 THE DAY OF THE WEEK" 90 PRINT CHR$(27)+"#4 THE DAY OF THE WEEK" 100 PRINT CHR$(27)+"#3 FOR ANY DATE YOU NAME IN" 110 PRINT CHR$(27)+"#4 FOR ANY DATE YOU NAME IN" 120 PRINT CHR$(27)+"#3 THE" 130 PRINT CHR$(27)+"#4 THE" 140 PRINT 150 PRINT 160 PRINT CHR$(27)+'#3 " 20TH CENTURY "' 170 PRINT CHR$(27)+"#4 20TH CENTURY" 180 PRINT 190 PRINT 200 PRINT 210 PRINT 220 PRINT 230 PRINT 240 PRINT 250 PRINT 260 PRINT CHR$(27)+"[20;24"+CHR$(114) 270 PRINT CHR$(27)+"[20;1"+CHR$(72) 280 PRINT CHR$(27)+"[7"+CHR$(109) 290 DIM M$(12),N(12) 300 FOR I=1 TO 12 310 READ M$(I),N(I) 320 NEXT I 330 FOR I=0 TO 6 340 READ D$(I) 350 NEXT I 360 DATA JANUARY,31,FEBRUARY,28,MARCH,31 370 DATA APRIL,30,MAY,31,JUNE,30,JULY,31 380 DATA AUGUST,31,SEPTEMBER,30,OCTOBER,31 390 DATA NOVEMBER,30,DECEMBER,31 400 DATA SUNDAY,MONDAY,TUESDAY,WEDNESDAY 410 DATA THURSDAY,FRIDAY,SATURDAY 420 PRINT CHR$(27)+"#6PLEASE ENTER-" 430 PRINT " " 440 PRINT CHR$(27)+"#6MONTH "; 450 INPUT M$ 460 IF M$=" " THEN 910 470 PRINT CHR$(27)+"#6DAY "; 480 INPUT D 490 PRINT CHR$(27)+"#6YEAR "; 500 INPUT Y 510 Y=Y-1900 520 IF Y<0 THEN 800 530 IF Y>=100 THEN 800 540 IF Y<>INT(Y) THEN 830 550 FOR I=1 TO 12 560 IF M$=M$(I) THEN 590 570 NEXT I 580 GO TO 830 590 IF D<>INT(D) THEN 830 600 IF D<=0 THEN 830 610 IF D>N(I) THEN 850 620 PRINT 630 X=Y*365 640 Q=INT(Y/4) 650 X=X+Q 660 IF Q<>Y/4 THEN 700 670 IF Y=0 THEN 700 680 IF I>2 THEN 700 690 X=X-1 700 FOR J=1 TO I-1 710 X=X+N(J) 720 NEXT J 730 X=X+D 740 PRINT 750 Q=INT(X/7) 760 Y=X-7*Q 770 PRINT CHR$(27)+"#6THAT DATE IS A "D$(Y) 780 GO TO 820 790 PRINT 800 PRINT CHR$(27)+"#6SORRY,TWENTIETH CENTURY ONLY." 820 GO TO 420 830 PRINT CHR$(27)+"#6INCORRECT FORMAT,PLEASE RETYPE." 840 GO TO 810 850 IF I<>2 THEN 890 860 IF D<>29 THEN 890 870 IF Y=0 THEN 890 880 IF Y/4=INT(Y/4) THEN 630 890 PRINT CHR$(27)+"#6THERE IS NO SUCH DATE." 900 GO TO 810 910 PRINT CHR$(27)+CHR$(99) 920 END 10 REM - PROGRAM TO RESEQUENCE BASIC PROGRAMS 100 DIM L(500),M(500),K$(2) 110 READ D 120 DATA 500 130 READ K$(0),K$(1),K$(2) 140 DATA "GO TO ","THEN ","GOSUB " 150 PRINT "RESEQUENCE" 160 PRINT "OLD FILE"; 170 INPUT P$ 180 PRINT "NEW FILE"; \ REM - MAY HAVE SAME NAME 190 INPUT Q$ 200 PRINT "START INPUT LINE,START OUTPUT LINE,INTERVAL SIZE"; 210 INPUT L0,L1,L1 220 IF Q$<>"" THEN 230 \ LET Q$=P$ 230 LET P$=P$&".BAS" 240 LET Q$=Q$&".BAS" 260 IF L1<>0 THEN 270 \ LET L1=10 270 IF I1<>0 THEN 280 \ LET I1=10 280 OPEN P$ AS FILE #1 290 LET C=-1 300 IF END #1 THEN 410 310 INPUT #1:L$ 320 LET L2=L2+1 330 LET T=POS(L$," ",1) 340 LET S$=SEG$(L$,1,T-1) 350 LET S=VAL(S$) 360 IF LD THEN 2000 390 LET L(C)=S 400 GO TO 300 410 LET S=INT(L1) 420 FOR I=0 TO C 430 LET M(I)=S 440 IF S>65530 THEN 2010 450 LET S=S+I1 460 NEXT I 470 RESTORE #1 480 OPEN Q$ FOR OUTPUT AS FILE #2 490 OPEN "TT:" FOR OUTPUT AS FILE #3 500 FOR I=1 TO L2 510 INPUT #1:L$ 520 LET C2=POS(L$," ",1)-1 530 LET C1=1 540 GOSUB 1000 550 FOR J=0 TO 2 560 LET C1=1 570 LET C1=POS(L$,K$(J),C1) 580 IF C1=0 THEN 700 590 LET C1=C1+LEN(K$(J)) 600 LET C2=POS(L$," ",C1)-1 610 LET E=POS(L$,"\",C1) 620 IF E<>0 THEN 630 \ LET E=256 630 LET Q1=POS(L$,"'",C1) 640 LET Q2=POS(L$,'"',C1) 650 IF C2<>0 THEN 660 \ LET C2=E-1 660 IF (E-Q1)-Q1>0 THEN 570 670 IF (E-Q2)-Q2>0 THEN 570 680 GOSUB 1000 690 GO TO 570 700 NEXT J 710 PRINT #2:L$ 720 PRINT #3:L$ 730 NEXT I 740 PRINT "DONE" \ STOP 1000 LET S$=SEG$(L$,C1,C2) 1010 LET S=VAL(S$) 1020 IF S>L0 THEN 1030 \ RETURN 1030 FOR K=0 TO C 1040 IF L(K)=S THEN 1070 1050 NEXT K 1060 RETURN 1070 LET L1$=SEG$(L$,1,C1-1) 1080 LET L3$=SEG$(L$,C2+1.256) 1090 LET L2$=STR$(M(K)) 1100 LET L$=L1$&L2$&L3$ 1110 RETURN 2000 PRINT "TO MANY LINES" \ STOP 2010 PRINT "LINE NO,TOO BIG" \ STOP 2020 END 1 PRINT CHR$(27)+"[2J" \ PRINT CHR$(27)+"[0;0"+CHR$(72) 2 PRINT CHR$(27)+"[?4"+CHR$(104) \ PRINT CHR$(27)+"(A" 3 PRINT "PLEASE ENTER DATE" \ PRINT \ PRINT "MONTH "; \ INPUT D$ \ PRINT 4 PRINT "DAY "; \ INPUT E \ PRINT \ PRINT "IS DATE CORRECT "; \ INPUT E$ 5 IF E$="YES" THEN 6 \ IF E$="Y" THEN 6 \ IF E$<>"Y" THEN 1 6 PRINT CHR$(27)+"[2J" \ PRINT CHR$(27)+"[0;0"+CHR$(72) 7 PRINT CHR$(27)+"[?4"+CHR$(104) \ PRINT CHR$(27)+"(A" 8 GO TO 10500 10 PRINT "INPUT ONE OF THE FOLLOWING HEADINGS 'BY NUMBER'-" 20 PRINT 30 PRINT 40 PRINT "ACCOUNT BALLANCE _____________________________ 1" 50 PRINT 60 PRINT "BANK STATEMENT UPDATE ________________________ 2" 70 PRINT 80 PRINT "STANDARD MONTHLY BILLS _______________________ 3" 90 PRINT 100 PRINT "MONTHLY SAVINGS FOR YRLY,1/2YRLY,1/4LY BILLS _ 4" 110 PRINT 120 PRINT "WEEKLY BILLS _________________________________ 5" 130 PRINT 140 PRINT 150 PRINT "NUMBER "; 160 INPUT A 163 PRINT CHR$(27)+"[19;24"+CHR$(114) 166 PRINT CHR$(27)+"[18;1"+CHR$(72) 170 IF A=1 THEN 300 180 IF A=2 THEN 1000 190 IF A=3 THEN 7000 200 IF A=4 THEN 8000 210 IF A=5 THEN 4000 300 OPEN "MONEY" FOR INPUT AS FILE #1 \ INPUT #1,Z 305 OPEN "MONTOT" FOR INPUT AS FILE #3 \ INPUT #3,X9 310 OPEN "MONCUM" FOR INPUT AS FILE #5 \ INPUT #5,Z9 313 OPEN "AVEXP" FOR INPUT AS FILE #7 \ INPUT #7,Q7 315 LET Z7=Z-X9-Z9 317 LET Q8=Z-X9-Z9-Q7 500 PRINT 510 PRINT "GROSS BALLANCE = #";Z 520 PRINT 530 PRINT "LESS STD BILLS = #";Z7;" LESS AVERAGE EXPENDITURE = #";Q8 535 CLOSE #1,#3,#5,#7 540 PRINT 550 PRINT "DO YOU WISH TO CREDIT YOUR ACCOUNT "; 560 INPUT A$ 570 REM LINE MISSING 580 IF A$="YES" THEN 582 \ IF A$="Y" THEN 582 \ IF A$<>"Y" THEN 581 581 GO TO 3050 582 PRINT \ PRINT "ENTER AMOUNT TO BE CREDITED #"; \ INPUT S 584 PRINT CHR$(27)+"#3O.K. ACCOUNT UPDATING" 585 PRINT CHR$(27)+"#4O.K. ACCOUNT UPDATING" 586 PRINT CHR$(27)+"#3PLEASE WAIT ---------" 587 PRINT CHR$(27)+"#4PLEASE WAIT ---------" 589 OPEN "MONEY" FOR OUTPUT AS FILE #2 \ LET Z=Z+S \ PRINT #2,Z 590 CLOSE #2 \ GO TO 300 1000 PRINT 1010 PRINT "PLEASE ENTER THE DATE OF THE LAST TRANSACTION" 1015 PRINT 1020 PRINT "MONTH "; 1030 INPUT B$ 1035 PRINT 1040 PRINT "DAY "; 1050 INPUT B 1052 OPEN "MONEY" FOR INPUT AS FILE #1 1054 INPUT #1,Z 1056 REM Z=GROSS BALLANCE IN DATA FILE CALLED MONEY 1058 LET D=Z 1090 PRINT "GROSS BALLANCE ON THAT DATE = #";D 2000 PRINT 2010 PRINT "ENTER STATEMENT AMOUNT #"; 2020 INPUT C 2024 LET W=C-D 2030 IF D>C THEN 2050 2040 IF D"Y" THEN 3050 3012 GO TO 3022 3022 PRINT \ GO TO 3025 3023 PRINT \ PRINT CHR$(27)+"#3CONGRATULATIONS ACCOUNT BALLANCED" 3024 PRINT CHR$(27)+"#4CONGRATULATIONS ACCOUNT BALLANCED" \ GO TO 3027 3025 PRINT CHR$(27)+"#3O.K. ACCOUNT UPDATING" 3026 PRINT CHR$(27)+"#4O.K. ACCOUNT UPDATING" 3027 PRINT CHR$(27)+"#3PLEASE WAIT ---------" 3028 PRINT CHR$(27)+"#4PLEASE WAIT ---------" 3030 OPEN "MONEY" FOR OUTPUT AS FILE #2 \ LET Z=Z+W \ PRINT #2,Z \ CLOSE #1,#2 3032 PRINT CHR$(27)+"[2J" \ PRINT CHR$(27)+"[0;0"+CHR$(72) 3034 PRINT CHR$(27)+"[?4"+CHR$(104) \ PRINT CHR$(27)+"(A" 3040 PRINT "NEW GROSS BALLANCE IN YOUR ACCOUNT = #";Z 3050 PRINT \ PRINT "DO YOU WANT TO MAKE FURTHER ENQUIRIES"; \ INPUT U$ 3060 IF U$="YES" THEN 6 \ IF U$="Y" THEN 6 \ IF U$<>"Y" THEN 10000 4000 PRINT 4010 PRINT "INPUT THE VALUE OF CHEQUES DRAWN" 4015 PRINT "MAXIMUM NUMBER = 12 CHEQUES" 4020 PRINT "#"; \ INPUT F \ LET A1=1 \ GO TO 5050 4030 PRINT "#"; \ INPUT G \ LET A1=2 \ GO TO 5050 4040 PRINT "#"; \ INPUT H \ LET A1=3 \ GO TO 5050 4050 PRINT "#"; \ INPUT I \ LET A1=4 \ GO TO 5050 4060 PRINT "#"; \ INPUT J \ LET A1=5 \ GO TO 5050 4070 PRINT "#"; \ INPUT K \ LET A1=6 \ GO TO 5050 4080 PRINT "#"; \ INPUT L \ LET A1=7 \ GO TO 5050 4090 PRINT "#"; \ INPUT M \ LET A1=8 \ GO TO 5050 5000 PRINT "#"; \ INPUT N \ LET A1=9 \ GO TO 5050 5010 PRINT "#"; \ INPUT O \ LET A1=10 \ GO TO 5050 5020 PRINT "#"; \ INPUT P \ LET A1=11 \ GO TO 5050 5030 PRINT "#"; \ INPUT Q \ GO TO 5080 5050 PRINT "DO YOU WISH TO ENTER ANOTHER CHEQUE"; \ INPUT A1$ 5060 IF A1$="YES" THEN 5070 \ IF A1$="Y" THEN 5070 \ IF A1$<>"Y" THEN 5080 5070 ON A1 GO TO 4030,4040,4050,4060,4070,4080,4090,5000,5010,5020,5030 5080 LET R=F+G+H+I+J+K+L+M+N+O+P+Q \ PRINT \ PRINT "TOTAL AMOUNT = #";R 5090 PRINT "DO YOU WANT YOUR ACCOUNT UPDATED BY THIS AMOUNT"; \ INPUT B1$ 6000 IF B1$="YES" THEN 6020 \ IF B1$="Y" THEN 6020 \ IF B1$<>"Y" THEN 6010 6010 GO TO 3050 6020 PRINT \ PRINT CHR$(27)+"#3O.K. ACCOUNT UPDATING" 6021 PRINT CHR$(27)+"#4O.K. ACCOUNT UPDATING" 6022 PRINT CHR$(27)+"#3PLEASE WAIT ---------" 6023 PRINT CHR$(27)+"#4PLEASE WAIT ---------" 6030 OPEN "MONEY" FOR INPUT AS FILE #1 \ INPUT #1,Z 6040 OPEN "MONEY" FOR OUTPUT AS FILE #2 6050 LET Z=Z-R \ PRINT #2,Z \ CLOSE #1,#2 \ GO TO 3032 7000 PRINT \ PRINT "THIS GIVES YOU ACCESS TO THE DATA ON STANDARD MONTHLY BILLS" 7010 PRINT \ PRINT "DO YOU WISH TO INSPECT THIS DATA"; 7020 INPUT A5$ 7030 IF A5$="YES" THEN 7040 \ IF A5$="Y" THEN 7040 \ IF A5$<>"Y" THEN 3050 7040 PRINT CHR$(27)+"[2J" \ PRINT CHR$(27)+"[0;0"+CHR$(72) 7041 PRINT CHR$(27)+"[?4"+CHR$(104) \ PRINT CHR$(27)+"(A" 7050 PRINT "THE FOLLOWING DATA ARE THE CONTENTS OF THE" 7060 PRINT \ PRINT '"STANDARD MONTHLY BILLS" FILE.' 7065 PRINT \ PRINT \ PRINT "ITEM #" \ PRINT 7070 OPEN "MONBIL" FOR INPUT AS FILE #3 7080 INPUT #3,A$,A 7090 IF A$=" " THEN 7120 7100 PRINT A$,A 7110 GO TO 7080 7120 CLOSE #3 7130 GO TO 3050 8000 PRINT \ PRINT "THIS GIVES YOU ACCESS TO THE DATA ON MONTHLY SAVINGS" 8010 PRINT \ PRINT "DO YOU WISH TO INSPECT THIS DATA"; 8020 INPUT A6$ 8030 IF A6$="YES" THEN 8040 \ IF A6$="Y" THEN 8040 \ IF A6$<>"Y" THEN 3050 8040 PRINT CHR$(27)+"[2J" \ PRINT CHR$(27)+"[0;0"+CHR$(72) 8041 PRINT CHR$(27)+"[?4"+CHR$(104) \ PRINT CHR$(27)+"(A" 8042 PRINT CHR$(27)+"[0;24"+CHR$(114) \ PRINT 8043 PRINT "DO YOU WISH TO PAY A SAVINGS BILL"; \ INPUT V$ 8045 IF V$="YES" THEN 9000 \ IF V$="Y" THEN 9000 \ IF V$<>"Y" THEN 8050 8050 PRINT "THE FOLLOWING DATA ARE THE CONTENTS OF THE" 8060 PRINT \ PRINT '"MONTHLY SAVINGS FOR BILLS" FILE.' 8065 PRINT \ PRINT \ PRINT "ITEM #" \ PRINT 8070 OPEN "MONSAV" FOR INPUT AS FILE #4 8080 INPUT #4,A$,A 8090 IF A$=" " THEN 8120 8100 PRINT A$,A 8110 GO TO 8080 8120 CLOSE #4 8130 PRINT \ OPEN "MONCUM" FOR INPUT AS FILE #5 8140 INPUT #5,A 8150 PRINT "CUMULATIVE TOTAL FOR THIS MONTH = #";A 8160 CLOSE #5 8170 GO TO 3050 9000 PRINT \ PRINT \ PRINT "PLEASE ENTER THE AMOUNT OF THE BILL #"; \ INPUT V 9010 OPEN "MONCUM" FOR INPUT AS FILE #1 9015 OPEN "MONCUM" FOR OUTPUT AS FILE #2 9020 INPUT #1,Z9 \ LET Z9=Z9-V 9030 PRINT #2,Z9 9040 OPEN "MONEY" FOR INPUT AS FILE #3 9050 INPUT #3,Z \ LET Z=Z-V 9055 OPEN "MONEY" FOR OUTPUT AS FILE #4 9060 PRINT #4,Z 9070 CLOSE #1,#2,#3,#4 \ PRINT 9080 GO TO 8050 10000 PRINT CHR$(27)+"[2J" \ PRINT CHR$(27)+"[0;0"+CHR$(72) 10010 PRINT "YOU HAVE NOW EXITED THIS PROGRAM" 10020 PRINT 10030 PRINT 'IF YOU WISH TO RE-ENTER THEN TYPE "RUN "' 10040 GO TO 32700 10500 PRINT 'DO YOU WANT INFORMATION ON DATA FILES'; \ INPUT Y1$ 10510 IF Y1$="YES" THEN 20000 \ IF Y1$="Y" THEN 20000 \ IF Y1$<>"Y" THEN 10520 10520 PRINT CHR$(27)+"[2J" \ PRINT CHR$(27)+"[0;0"+CHR$(72) 10530 PRINT CHR$(27)+"[?4"+CHR$(104) \ PRINT CHR$(27)+"(A" 10540 GO TO 11000 11000 IF E=6 THEN 11010 \ IF E<>6 THEN 10 11010 GO TO 11020 11020 PRINT "TODAY IS THE 6TH OF THE MONTH,DO YOU WANT THE MAIN ACCOUNT" \ PRINT 11030 PRINT "UPDATED BY THE MONTHLY BILLS & MONTHLY SAVINGS FILES --"; \ INPUT A9$ 11040 PRINT 11050 IF A9$="YES" THEN 11090 \ IF A9$="Y" THEN 11090 \ IF A9$<>"Y" THEN 11070 11070 PRINT CHR$(27)+"[2J" \ PRINT CHR$(27)+"[0;0"+CHR$(72) 11080 PRINT CHR$(27)+"[?4"+CHR$(104) \ PRINT CHR$(27)+"(A" 11085 GO TO 10 11090 OPEN "MONCUM" FOR INPUT AS FILE #5 \ INPUT #5,Z9 11100 OPEN "MONTOT" FOR INPUT AS FILE #6 \ INPUT #6,Y9 11120 LET Z9=Z9+Y9 11140 OPEN "MONCUM" FOR OUTPUT AS FILE #8 \ PRINT #8,Z9 11150 OPEN "MONTOT" FOR OUTPUT AS FILE #9 \ PRINT #9,Y9 11160 CLOSE #5,#6,#8,#9 11170 GO TO 300 20000 PRINT CHR$(27)+"[2J" \ PRINT CHR$(27)+"[0;0"+CHR$(72) 20010 PRINT CHR$(27)+"[?4"+CHR$(104) \ PRINT CHR$(27)+"(A" 20015 PRINT CHR$(27)+"[1;24"+CHR$(114) 20020 PRINT "INFORMATION FILE" \ PRINT \ PRINT 20030 PRINT "THE FOLLOWING INFORMATION LETS YOU KNOW WHAT THE" 20040 PRINT "VARIOUS DATA FILES CONTAIN." \ PRINT 20050 PRINT 'THE FILE NAMED "MONEY" CONTAINS A NUMERIC VARIABLE' 20060 PRINT '"Z" WHICHIS THE "GROSS BALLANCE" IN THE ACCOUNT' 20070 PRINT 'THIS IS UPDATED WHEN YOU ANSWER "YES" TO PROGRAM' 20080 PRINT 'PROMPTS WHICH ASK YOU IF YOU REQUIRE THE ACCOUNT' 20090 PRINT 'TO BE UPDATED.' \ PRINT 20100 PRINT 'THE FILE NAMED "MONTHLY BILLS" CONTAINS AS MANY' 20110 PRINT 'NUMERIC VARIABLES AS THERE ARE MONTHLY BILLS.THE' 20120 PRINT 'MAIN PROGRAM RETRIEVES THESE AND ADDS THEM ALGEBRAICLY' 20130 PRINT 'AND THEN SUBTRACTS THE TOTAL FROM THE GROSS BALLANCE' 20140 PRINT '"Z" IN THE "MONEY" FILE.' 20150 PRINT \ PRINT 'THE FILE "MONTH SAV" CONTAINS NUMERIC VARIABLES' 20160 PRINT 'FOR AMOUNTS TO BE SAVED MONTHLY TO COVER 1/4 LY,' 20170 PRINT '1/2 YRLY,AND ANNUAL BILLS.THESE ARE RETRIEVED BY THE' 20180 PRINT 'MAIN PROGRAM AND USED WITH THE INFORMATION FROM OTHER' 20190 PRINT 'FILES TO GIVE A "BALLANCE LESS STANDARD BILLS".' 20200 PRINT \ PRINT \ PRINT 'FOR VARIABLE DESIGNATIONS TYPE "VARIABLES"' 20210 PRINT \ PRINT 'TO RETURN TO THE MAIN PROGRAM TYPE "RETURN"' 20220 PRINT \ INPUT X1$ \ IF X1$="VARIABLES" THEN 30000 \ IF X1$="RETURN" THEN 3050 30000 PRINT CHR$(27)+"[2J" \ PRINT CHR$(27)+"[0;0"+CHR$(72) 30010 PRINT CHR$(27)+"[?4"+CHR$(104) \ PRINT CHR$(27)+"[1;24"+CHR$(114) 30020 PRINT 'HERE IS A LIST OF THE VARIABLES USED IN THE "DATA FILES".' 30030 PRINT 'MORE CAN BE ADDED IF THE FILES ARE MODIFIED FOR INDIVIDUAL' 30040 PRINT 'REQUIREMENTS.' 30050 PRINT \ PRINT \ PRINT 31000 PRINT 'DATA FILE NAME "MONEY"' \ PRINT \ PRINT 'VARIABLES:' \ PRINT 31010 PRINT 'Z = GROSS BALLANCE IN ACCOUNT' \ PRINT \ PRINT \ PRINT 32000 PRINT 'DATA FILE NAME "MONTHLY BILLS"' \ PRINT \ PRINT 'VARIABLES:' 32010 PRINT \ 32020 PRINT \ PRINT \ PRINT 32500 PRINT 'DATA FILE NAME "MONTH SAV"' \ PRINT \ PRINT 'VARIABLES:' 32600 GO TO 20200 32700 END 92.06 87.12 190.87 GROUND RENT, 46.37 RATES, 16.1 SEWERAGE RATE, 3.55 ELECTRICITY, 20 ALS/MAG, 1.1 TOTAL, 87.12 , 0 OIL, 50 GAS, 4.4 TELEPHONE, 10 HOUSE INS, 6.5 TV LICENCE, 4.13 CAR INS, 6.5 CAR TAX, 7.33 FREEZER INS, 1.2 CAR SERVICE, 2 TOTAL, 92.06 , 0 191.12 380.02 10 LET E$=CHR$(27) 20 PRINT E$+"[2J" 30 GOSUB 200 40 PRINT E$+"[0;80H"; \ PRINT "O" 50 PRINT E$+"[0;0H"; \ PRINT "O" 60 PRINT E$+"[23;80H"; \ PRINT "O" 70 PRINT E$+"[23;0H"; \ PRINT "O" 80 GOSUB 200 90 PRINT E$+"[12;33H"; \ PRINT "HELLO" 100 GOSUB 200 110 PRINT E$+"[12;33H"; \ PRINT " " 120 PRINT E$+"[12;16H"; \ PRINT E$+"#6"; \ PRINT "HELLO" 130 GOSUB 200 140 PRINT E$+"[12;16H"; \ PRINT " " 150 PRINT E$+"[12;16H"; \ PRINT E$+"#3"; \ PRINT "HELLO" 160 PRINT E$+"[13;16H"; \ PRINT E$+"#4"; \ PRINT "HELLO" 170 FOR I=1 TO 2000 \ NEXT I 180 PRINT E$+"[2J" 190 GO TO 220 200 FOR I=1 TO 500 \ NEXT I 210 RETURN 220 END 1000 REM This is the shuttle game , Author: Patrick N. Smits 1100 REM THIS LOADS THE ALTERNATE CHARACTER SET INTO SET 1 1110 ? GON$ 1120 ? "l(a)l' '00; 1130 ? "l'a'00000000020707070707;l'b'182442424242424242C3;" 1140 ? "l'd'000000000040A0B0A898;l'e'07070707070707070707;" 1150 ? "l'g'E0E0E0E0E0E0E0E0E0E0;l'h'888888C8C8C8C8C8C8C8;" 1160 ? "l'c'0000000040E0E0E0E0E0;l'f'42424242C3C3C3424242;" 1170 ? "l'i'07070707070707070606;l'j'4242C3424242663C;" 1180 ? "l'k'E0E0E0E0E0E0E0E06060;l'm'00040C0E0E0E0D1C1A;" 1190 ? "l'n'005ADBDBDB7E42E7E7; l'o'002030707070B03858;" 10 PRINT 'THE FOLLOWING SYS. CALLS ARE USEFULL WHEN USING "BASIC"' 20 PRINT '******************************************************' 30 PRINT \ PRINT 40 PRINT 'TYPING "A=SYS(4)" EXITS YOU FROM BASIC AND RETURNS' 50 PRINT 'COMMAND TO THE MONITOR.' 60 PRINT \ PRINT 70 PRINT 'TYPING "A=SYS(7%,0%)" ENABLES THE USE OF LOWER CASE' 80 PRINT 'LETTERS FOR TEXT & ESCAPE COMMANDS.' 10 GOSUB 240 20 GOSUB 160 30 GOSUB 190 40 GOSUB 130 50 GOSUB 190 60 GOSUB 130 70 GOSUB 190 80 GOSUB 130 90 GOSUB 240 100 GOSUB 210 110 LET A=A+1 \ IF A=3 THEN 260 120 GO TO 10 130 FOR I=1 TO 100 140 NEXT I 150 RETURN 160 FOR I=1 TO 200 170 NEXT I 180 RETURN 190 PRINT CHR$(7); 200 RETURN 210 FOR I=1 TO 800 220 NEXT I 230 RETURN 240 PRINT CHR$(7);CHR$(7);CHR$(7); 250 RETURN 260 CHAIN "PD0:CHAIN.BAS" LINE 50 10 PRINT "THIS IS TO SHOW THAT CHAIN'S CAN BE USED" 20 PRINT "THE PROGRAM WILL NOW CHAIN TO SOS.BAS AND" 30 PRINT "BLEEP THE SOS SIGNAL." 40 CHAIN "PD0:SOS.BAS" LINE 10 50 PRINT "THERE YOU ARE , IT DID IT!" 60 END 10 DIM D3(20),M3(20) 20 PRINT CHR$(27)+"[2J" 30 PRINT TAB(2);"***********";TAB(25);"*";TAB(42);"*";TAB(52);"*"; 40 PRINT TAB(59);"*";TAB(69);"*" \ FOR K=1 TO 4 \ A1=25-K \ A2=25+K 50 N=42+K \ K1=69-2*K \ PRINT TAB(7);"*";TAB(A1);"*";TAB(A2);"*"; \ B=42 60 PRINT TAB(B);"*";TAB(N);"*";TAB(52);"*";TAB(59);"*";TAB(K1);"*" 70 NEXT K \ PRINT TAB(7);"*";TAB(20);"***********"; 80 PRINT TAB(42);"*";TAB(47);"*";TAB(52);"*"; 90 PRINT TAB(59);"*" \ FOR K=1 TO 4 \ A1=20-K \ A2=30+K \ N=47+K \ K1=59+2*K 100 PRINT TAB(7);"*";TAB(A1);"*";TAB(A2);"*";TAB(42);"*";TAB(N);"*"; 110 PRINT TAB(52);"*";TAB(59);"*";TAB(K1);"*" \ NEXT K 140 RANDOMIZE 150 PRINT "THIS PROGRAM SIMULATES THE RESULTS OF FIRING A FIELD" 160 H$="H" \ J$="J" \ A$="A" \ K$="K" \ C$="C" 170 C6=0 \ C7=0 180 PRINT "ARTILLERY WEAPON" 190 PRINT "YOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO THE GUN" 200 PRINT "CREW, TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE" 210 PRINT "WILL PLACE THE PROJECTILE ON TARGET. A HIT WITHIN 100" 220 PRINT "YARDS OF THE TARGET WILL DESTROY IT." 225 R1=36000 \ GO TO 240 230 PRINT 235 R1=36000*(1+(.5-RND(0))) 240 PRINT "MAXIMUM RANGE OF YOUR GUN IS ";R1;" YARDS." 245 RANDOMIZE 250 REM T=DISTANCE TO TARGET 260 REM I=DISTANCE TO SHOT 270 REM E=DISTANCE OVER(-IVE),ORUNDER(+IVE)TARGET 280 T=R1-3000-(R1-6000)*RND(X) 290 S4=-1 \ S5=-1 \ S6=-1 \ S7=-1 \ S8=-1 300 P1=-1 \ P2=-1 \ P3=-1 \ P4=-1 \ D4=-1 \ D5=-1 \ D6=-1 310 PRINT "THE PRESENT SCORE IS - - US";C6;" THEM";C7 320 S=0 330 GO TO 570 340 PRINT "MIN. ELEVATION OF GUN IS ONE DEGREE." 350 GO TO 580 360 PRINT "MAX. ELEVATION OF GUN IS 89 DEGREES." 370 GO TO 580 380 REM START OF DO 390 PRINT "OVER TARGET BY";ABS(E);"YARDS." 400 GO TO 420 410 PRINT "SHORT OF TARGET BY";ABS(E);"YARDS." 420 IF P2<0 THEN 470 430 IF RND(X)<.5 THEN 490 440 GOSUB 1990 450 IF D5>0 THEN 630 \ IF D4>0 THEN 520 460 GO TO 490 470 IF P1<0 THEN 490 480 IF RND(X)>.8 THEN 490 \ GOSUB 1820 490 GOSUB 1510 500 GO TO 580 510 PRINT CHR$(7);" ";CHR$(7);" ";CHR$(7); 520 PRINT "*** TANK DESTROYED *** ";S;"ROUNDS EXPENDED" 530 C6=C6+1 540 PRINT \ PRINT \ PRINT 550 PRINT "THE FORWARD OBSERVER HAS SIGHTED ANOTHER ENEMY TANK." 560 GO TO 235 570 PRINT "DISTANCE TO THE TARGET IS";INT(T);"YARDS." 580 PRINT 590 IF S5<0 THEN 610 \ IF S6>0 THEN 640 600 X=T*RND(X)/10 \ PRINT "TANK SHELL MISSED BY";X;" YARDS" 610 S5=-1 \ IF S8>0 THEN 620 \ GO TO 650 620 PRINT " OVER-RUN " \ PRINT \ PRINT 630 PRINT "YOU ARE NOW ANOTHER COMMANDER SOMEWHERE ELSE" \ GO TO 550 640 PRINT " TANK FIRE ACCURATE - - YOU'RE DEAD" \ PRINT \ PRINT \ GO TO 630 650 IF RND(X)<.95 THEN 720 660 PRINT "YOU HAVE JUST BEEN BOMBED BY UNHEARD, UNSEEN" 670 PRINT "HIGH ALTITUDE "; 680 IF RND(X)<.5 THEN 690 \ PRINT "FRIENDLY "; \ GO TO 700 690 PRINT "ENEMY "; 700 PRINT "BOMBER - - - YOU'RE DEAD" 710 C7=C7+1 \ PRINT \ PRINT \ GO TO 630 720 IF S4<0 THEN 870 \ PRINT "REMEMBER TANK HAS SEEN US"; 730 IF S7<0 THEN 750 \ PRINT " AND IS CLOSING RANGE" \ PRINT 740 PRINT "ESTIMATED RANGE DECREASE";T3;" NEW RANGE IS";T;"YARDS" 750 PRINT \ IF D6<0 THEN 820 760 PRINT " GUN JAMMED - TO CLEAR ENTER CORRECT DIGIT " 770 PRINT "BETWEEN";J1;" AND";J2 780 PRINT \ PRINT \ PRINT 790 INPUT Z \ IF J3=Z THEN 800 \ PRINT " STILL JAMMED - SORRY" \ GO TO 810 800 PRINT "GUN CLEARED" \ D6=-1 \ GO TO 570 810 GOSUB 1620 \ GO TO 580 820 IF RND(X)<.85 THEN 870 \ D6=1 830 J1=10*RND(X) \ J2=10*RND(X) 840 IF J110000 THEN 940 930 GOSUB 1820 940 D3(S)=B 950 IF B>89 THEN 360 960 IF B<1 THEN 340 970 B2=2*B/57.3 980 I=R1*(1+.05*(.5-RND(0)))*SIN(B2) 990 X=T-I 1000 E=INT(X) 1010 M3(S)=E 1020 GOSUB 1070 1030 PRINT 1040 IF ABS(E)<100 THEN 510 1050 IF E<-100 THEN 390 1060 GO TO 410 1070 FOR K=1 TO 100 \ PRINT CHR$(27)+"[0;0H" \ NEXT K 1080 PRINT CHR$(27)+"[2J"; 1090 PRINT CHR$(27);CHR$(28) 1100 FOR K=1 TO 16 \ PRINT CHR$(10) \ NEXT K 1110 PRINT TAB(59);"-^" 1115 REM LINE 1120 PRINT "A";TAB(58);"<000>" 1120 CHAIN "PD0:PIC.BAS" LINE 10 1130 PRINT CHR$(27)+"[A";CHR$(27)+"[A"; 1140 IF ABS(E)>100 THEN 1160 1150 R=60 \ GO TO 1200 1160 R=INT(60*I/T) 1170 IF R<60 THEN 1190 1180 IF R>63 THEN 1200 \ R=63 \ GO TO 1200 1190 IF R<56 THEN 1200 \ R=55 1200 H=B*3.14/180 1210 H=.25*R*SIN(H)/COS(H) 1220 IF H>4 THEN 1240 1230 H=4 1240 R2=R/2 1250 FOR K=1 TO 4 1260 PRINT CHR$(27)+"[A"; 1270 D2=R2*(1-SQR(1-K/H))+.5 1280 K1=INT(D2) 1290 IF K1>68 THEN 1490 1300 IF K1>0 THEN 1320 1310 K1=1 1320 PRINT TAB(K1);"*" 1330 PRINT CHR$(27)+"[A";CHR$(27)+"[A"; 1340 NEXT K 1350 PRINT CHR$(27)+"[A";CHR$(27)+"[A";CHR$(27)+"[A"; 1360 PRINT 1370 PRINT \ PRINT 1380 FOR K=3 TO 1 STEP -1 1390 D2=R2*(1+SQR(1-K/H))+.5 1400 K1=INT(D2) 1410 IF K1>70 THEN 1490 1420 PRINT TAB(K1);"*" 1430 PRINT 1440 NEXT K 1450 IF R>60 THEN 1490 1460 PRINT TAB(R);"*" 1470 IF R<>60 THEN 1490 1480 PRINT CHR$(7);CHR$(7);CHR$(7);CHR$(7) 1490 PRINT \ PRINT \ PRINT \ PRINT \ PRINT 1500 RETURN 1510 S9=1 1520 IF S<3 THEN 1540 1530 S9=S-2 1540 FOR K=S9 TO S 1550 IF M3(K)<0 THEN 1580 1560 PRINT "FOR ELEV";D3(K);"SHORT BY";ABS(M3(K)) 1570 GO TO 1590 1580 PRINT "FOR ELEV";D3(K);" OVER BY";ABS(M3(K)) 1590 NEXT K 1600 GOSUB 1620 1610 RETURN 1620 IF S4>0 THEN 1660 1630 IF RND(X)>.5 THEN 1810 1640 S4=1 \ PRINT "WARNING ** WARNING ** WARNING **" 1650 PRINT "TANK HAS SEEN US *** TURRET TURNING TOWARDS US ** " 1660 IF T<10000 THEN 1680 1670 PRINT "WE ARE BEYOND HIS RANGE" \ GO TO 1740 1680 PRINT "WE ARE INSIDE HIS RANGE NOW" 1690 IF T>900 THEN 1710 1700 PRINT " AND HE COULD OVER-RUN US" 1710 IF RND(X)>.3 THEN 1740 1720 S5=1 \ PRINT "TANK JUST FIRED AT US" 1730 IF RND(X)0 THEN 1770 \ IF S4<0 THEN 1810 1750 IF RND(X)<.4 THEN 1810 1760 S7=1 \ PRINT " TANK IS CHARGING US - RANGE IS CLOSING" 1770 T3=2000*RND(X)+T^3/1.00000E+10 \ T=T-T3 1780 PRINT "RANGE NOW";T;" YARDS" 1790 IF T>200 THEN 1810 \ PRINT "WE HAVE BEEN OVER-RUN YOU'RE DEAD" 1800 C7=C7+1 \ S8=1 1810 RETURN 1820 IF P2>0 THEN 1980 \ IF P1>0 THEN 1860 1830 PRINT "TANK TOO CLOSE FOR COMFORT" 1840 PRINT "SUGGEST YOU CALL IN AIR SUPPORT - ENTER Y OR N" 1850 N$="N" \ INPUT Z$ \ IF Z$=N$ THEN 1980 \ P1=1 1860 PRINT "MESSAGE FROM AIR SUPPORT COMMANDER" \ PRINT \ PRINT 1870 X=RND(X) \ IF X>.5 THEN 1900 \ IF X<.25 THEN 1960 1880 PRINT "REGRET AIR SUPPORT IMPOSSIBLE DUE TO ADVERSE WEATHER" 1890 PRINT " WILL TRY AGAIN LATER" \ GO TO 1980 1900 PRINT " AIR SUPPORT POSSIBLE - WEATHER CONDITIONS IMPERFECT" 1910 X1=RND(X) \ X2=INT(100*X1) 1920 PRINT "ESTIMATE";X2;" PERCENTAGE CHANCE DESTROYING YOU" 1930 PRINT " AS WELL AS ( ** OR INSTEAD OF **) ENEMY" 1940 PRINT " DO YOU WISH PROCEED - ENTER Y OR N" \ INPUT Z$ 1950 IF Z$=N$ THEN 1890 \ GO TO 1970 1960 PRINT "HIGH PROBABILITY OF EFFECTIVE AIR SUPPORT" 1970 PRINT "WILL ARRIVE AS SOON AS POSSIBLE" \ P2=1 1980 FOR K=1 TO 7 \ PRINT \ NEXT K \ RETURN 1990 PRINT CHR$(7);CHR$(7);CHR$(7);CHR$(7);CHR$(7);CHR$(7) 2000 PRINT "MESSAGE FROM AIR SUPPORT COMMANDER - - BOMBS GONE" 2010 IF RND(X)<.5 THEN 2070 2020 PRINT "WE GOT HIM - - - WHAT WOULD YOU DO WITHOUT US ???" 2030 D4=1 \ IF P3<0 THEN 2130 2040 IF RND(X)>X1 THEN 2130 2050 PRINT "OOPS SORRY - WE ALSO GOT YOU BUT WE DID WARN YOU " 2060 C7=C7+1 \ D5=1 \ GO TO 2130 2070 PRINT "SORRY WE MISSED HIM - WILL TRY AGAIN LATER" 2080 IF P3<1 THEN 2130 2090 IF RND(X)>X1 THEN 2130 2100 PRINT " CORRECTION - NO WE WONT - PHOTOGRAPHS SHOW WE" 2110 PRINT "GOT YOU INSTEAD - - DEEPEST REGRETS OF COURSE" 2120 C7=C7+1 \ D5=1 2130 RETURN 2140 END 20 PRINT " x" 30 PRINT " sssx" 40 PRINT " =====[sss]s" 50 PRINT " \OOOOOOOO/" 60 PRINT " oooooooo" 70 END 10 PRINT CHR$(27)+"(0" 10 PRINT "THIS PROGRAM WILL PRINT OUT AS MANY COPIES" 20 PRINT "OF A FILE AS YOU WISH ON A HARD COPY TERMINAL" \ PRINT 30 PRINT 40 PRINT "WHAT IS THE NAME OF THE FILE" 50 PRINT "EXAMPLE......(DX0:TEST.TXT)" 60 INPUT A$ 70 IF A$="N" THEN 260 \ IF A$="NO" THEN 260 80 IF A$=" " THEN 260 90 PRINT "HOW MANY COPIES" 100 INPUT A 110 PRINT \ PRINT \ PRINT \ PRINT 120 OPEN A$ FOR INPUT AS FILE #1 130 PRINT CHR$(12) 140 INPUT #1:B$ 150 PRINT B$ 160 IF END #1 THEN 180 170 GO TO 140 180 LET A=A-1 190 PRINT CHR$(12) 200 IF A=0 THEN 230 210 RESTORE #1 220 GO TO 140 230 PRINT "LAST COPY DONE.." 240 CLOSE #1 250 PRINT "ANY MORE ? IF SO," \ GO TO 40 260 END 0 LET $=CHR$(27) 20 PRINT $+"[2J" 30 A$=SYS(7%,0%) 40 PRINT CHR$(27)+"(0" 50 GOSUB 260 \ PRINT " x" 60 GOSUB 280 70 PRINT " sssx" 80 GOSUB 300 90 PRINT " =====[sss]s" 100 GOSUB 320 110 PRINT " \OOOOOOOO/" 120 GOSUB 340 130 GOSUB 500 140 FOR %(=1 TO 800 \ NEXT %( 145 GO TO 230 150 GOSUB 260 160 PRINT "\ /" 170 PRINT $+"#3 BANG" 180 PRINT $+"#4 BANG" 190 GOSUB 320 200 PRINT "/ \" 210 GOSUB 340 220 PRINT " " 230 PRINT CHR$(27)+"(B" 240 REM CHAIN "PD0:TANK.BAS" LINE 1130 250 GO TO 360 260 PRINT $+"[18;60H"; 270 RETURN 280 PRINT $+"[19;60H"; 290 RETURN 300 PRINT $+"[20;60H"; 310 RETURN 320 PRINT $+"[21;60H"; 330 RETURN 340 PRINT $+"[22;60H"; 350 RETURN 360 END 500 LET $=100 520 PRINT $+"[22;60H"; 530 PRINT " o o o o "; 550 FOR %(=1 TO $ \ NEXT %( 560 PRINT $+"[22;60H"; 570 PRINT " o o o o"; 590 FOR %(=1 TO $ \ NEXT %( 600 PRINT $+"[22;60H"; 610 GO TO 520 620 PRINT $+"[22;60H"; 630 RETURN 10 LET E$=CHR$(27) 20 PRINT E$+"[2J" 30 A=SYS(7%,0%) 40 PRINT CHR$(27)+"(0" 50 GOSUB 260 \ PRINT " x" 60 GOSUB 280 70 PRINT " sssx" 80 GOSUB 300 90 PRINT "[]=====[sss]s" 100 GOSUB 320 110 PRINT " \OOOOOOOO/" 120 GOSUB 340 130 GOSUB 500 150 GOSUB 260 160 PRINT "\ /" 170 PRINT E$+"#3 BANG" 180 PRINT E$+"#4 BANG" 190 GOSUB 320 200 PRINT "/ \" 210 GOSUB 340 220 PRINT " " 230 PRINT CHR$(27)+"(B" 240 REM CHAIN "PD0:TANK.BAS" LINE 1130 250 GO TO 360 260 PRINT E$+"[18;60H"; 270 RETURN 280 PRINT E$+"[19;60H"; 290 RETURN 300 PRINT E$+"[20;58H"; 310 RETURN 320 PRINT E$+"[21;60H"; 330 RETURN 340 PRINT E$+"[22;60H"; 350 RETURN 360 END 500 FOR A=1 TO 20 501 GOSUB 505 502 NEXT A 503 RETURN 505 LET X=0 520 PRINT E$+"[22;60H"; 530 PRINT " o o o o " 550 FOR I=1 TO X \ NEXT I 560 PRINT E$+"[22;60H"; 570 PRINT " o o o o"; 590 FOR I=1 TO X \ NEXT I 600 PRINT E$+"[22;60H"; 610 RETURN 10 A=SYS(7%,0%) 20 LET E$=CHR$(27) 25 PRINT E$+"[2J" 30 PRINT E$+"(0" 40 PRINT " x x" 50 PRINT " x x" 60 PRINT " ss[ooo]=====[] []=====[ooo]ss" 70 PRINT " \OOOOOOOOO/ \OOOOOOOOO/" 80 PRINT " o o o o o o o o o o" 90 GO TO 120 100 PRINT E$+"[12;0H"; 110 RETURN 120 RETURN V02-03 `  ((27<MFSPe,Zkd@nxT "(>DYhh"6J^0,9L&_0y:NXbwEAXIyi[2J  (0 x! sssx%)-[]=====[sss]s159 \OOOOOOOO/=AEIMQ\ /U#3 BANGY#4 BANG]5a/ \eAi m(Bq CHAIN "PD0:TANK.BAS" LINE 1130uy[18;60H}[19;60H)[20;58H5[21;60HA[22;60HyIB@[22;60H o o o o @[22;60H o o o o@[22;60H5 LET X=60 10 LET E$=CHR$(27) 20 PRINT E$+"[2J" 30 A=SYS(7%,0%) 40 PRINT E$+"(0" 50 PRINT TAB(X); \ PRINT " x";\PRINT E$+"B";\PRINT E$+"[K" 70 PRINT TAB(X); \ PRINT " sssx";\PRINT E$+"B"; 90 PRINT TAB(X); \ PRINT "[]=====[sss]s";\PRINT E$+"B"; 110 PRINT TAB(X); \ PRINT " \OOOOOOOO/";\PRINT E$+"B"; 120 PRINT TAB(X); \ PRINT " o o o o ";\PRINT E$+"B"; 10 PRINT CHR$(27)+"[2J" 20 PRINT CHR$(27)+"[H" 30 LET X=66 40 LET Y=1 50 FOR Q=X TO Y STEP -1 60 GOSUB 110 REM 70 PRINT "A"; 75 PRINT CHR$(27)+"[K"; 80 PRINT CHR$(27)+"[A" 90 NEXT Q 100 GO TO 150 110 GO TO 120 120 PRINT TAB(Q); 130 RETURN 150 END 10 REM SET UP 20 LET E$=CHR$(27) 30 REM CLEAR SCREEN 40 PRINT E$+"[2J" 50 PRINT E$+"[H" 60 REM VARIABLES FOR CURSOR POSITION 70 LET X=66 80 LET Y=1 90 FOR Q=X TO Y STEP -1 100 REM PICTURE TO PRINT 110 GOSUB 180 120 PRINT "A"; 130 GOSUB 210 140 GOSUB 240 150 NEXT Q 160 GO TO 260 170 REM SUBROUTINE FOR CURSOR POSITION 180 PRINT TAB(Q); 190 RETURN 200 REM SUBROUTINE FOR DELETE LINE FROM CURSOR 210 PRINT E$+"[K" 220 RETURN 230 REM SUBROUTINE FOR MOVING CURSOR UP 240 PRINT E$+"[A"; 250 RETURN 260 END 5 LET X=60 10 LET E$=CHR$(27) 20 PRINT E$+"[2J" 30 A=SYS(7%,0%) 40 PRINT E$+"(0" 50 PRINT TAB(X); \ PRINT " x";\PRINT E$+"B";\PRINT E$+"[K" 70 PRINT TAB(X); \ PRINT " sssx";\PRINT E$+"B"; 90 PRINT TAB(X); \ PRINT "[]=====[sss]s";\PRINT E$+"B"; 110 PRINT TAB(X); \ PRINT " \OOOOOOOO/";\PRINT E$+"B"; 120 PRINT TAB(X); \ PRINT " o o o o ";\PRINT E$+"B"; PROPOSED SUMMER WEEKEND CAMP 1983 PROPOSED SUMMER WEEKEND CAMP 1983 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ THE FOLLOWING INFORMATION IS TO INFORM YOU OF THE THE FOLLOWING INFORMATION IS TO INFORM YOU OF THE PROPOSED DATES FOR CAMP THIS YEAR , GOD WILLING. PROPOSED DATES FOR CAMP THIS YEAR , GOD WILLING. TO BE HELD AT: Wellington Country Park. TO BE HELD AT: Wellington Country Park. DATES: August 12th - 15th. DATES: August 12th - 15th. COST PER PERSON: 17.00 pounds. COST PER PERSON: 17.00 pounds. PLEASE INDICATE IF YOU WISH YOUR CHILD TO ATTEND PLEASE INDICATE IF YOU WISH YOUR CHILD TO ATTEND AS SOON AS POSSIBLE. AS SOON AS POSSIBLE. IF YOU WISH YOUR CHILD TO ATTEND , AN INITIAL IF YOU WISH YOUR CHILD TO ATTEND , AN INITIAL DEPOSIT OF 3.00 pounds WILL BE PAYABLE WHEN THEIR DEPOSIT OF 3.00 pounds WILL BE PAYABLE WHEN THEIR NAME IS PUT ON THE LIST.(A receipt will be given) NAME IS PUT ON THE LIST.(A receipt will be given) THE BALANCE IS TO BE PAID IN FULL ONE MONTH THE BALANCE IS TO BE PAID IN FULL ONE MONTH BEFORE THE DATE OF CAMP. BEFORE THE DATE OF CAMP. DUE TO ECONOMIC PRESSURES , WE RESERVE THE RIGHT DUE TO ECONOMIC PRESSURES , WE RESERVE THE RIGHT NOT TO HOLD THE CAMP IF THERE ARE NOT SUFFICIENT NOT TO HOLD THE CAMP IF THERE ARE NOT SUFFICIENT NUMBERS WISHING TO GO. NUMBERS WISHING TO GO. Yours sincerily, Yours sincerily, Tim Smith - CYC Leader Tim Smith - CYC Leader ------------------------------------------------- ------------------------------------------------- I WISH MY CHILD/CHILDREN TO ATTEND SUMMER WEEKEND I WISH MY CHILD/CHILDREN TO ATTEND SUMMER WEEKEND CAMP 1983 , AND ENCLOSE A DEPOSIT OF 3.00 pounds. CAMP 1983 , AND ENCLOSE A DEPOSIT OF 3.00 pounds. NAMES TO ATTEND SIGNED BY PARENT NAMES TO ATTEND SIGNED BY PARENT ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~ ------------------------------------------------- ------------------------------------------------- 10 A=SYS(7%,0%) 90 REM - Program to resequence BASIC programs 100 DIM L(500),M(500),K$(2) 110 READ D 120 DATA 500 130 READ K$(0),K$(1),K$(2) 140 DATA "GO TO ","THEN ","GOSUB " 150 PRINT "RESEQUENCE" 160 PRINT "OLD FILE"; 170 INPUT P$ 180 PRINT "NEW FILE"; \ REM - May have same name 190 INPUT Q$ 200 PRINT "START INPUT LINE,START OUTPUT LINE,INTERVAL SIZE"; 210 INPUT L0,L1,I1 220 IF Q$<>"" THEN 230 \ LET Q$=P$ 230 LET P$=P$&".BAS" 240 LET Q$=Q$&".BAS" 260 IF L1<>0 THEN 270 \ LET L1=10 270 IF I1<>0 THEN 280 \ LET I1=10 280 OPEN P$ AS FILE #1 290 LET C=-1 300 IF END #1 THEN 410 310 INPUT #1:L$ 320 LET L2=L2+1 330 LET T=POS(L$," ",1) 340 LET S$=SEG$(L$,1,T-1) 350 LET S=VAL(S$) 360 IF S=L0 THEN 300 370 LET C=C+1 380 IF C>D THEN 2000 390 LET L(C)=S 400 GO TO 300 410 LET S=INT(L1) 420 FOR I=0 TO C 430 LET M(I)=S 440 IF S>65530 THEN 2010 450 S=S+I1 460 NEXT I 470 RESTORE #1 480 OPEN Q$ FOR OUTPUT AS FILE #2 490 OPEN "LP:" FOR OUTPUT AS FILE #3 500 FOR I=1 TO L2 510 INPUT #1:L$ 520 LET C2=POS(L$," ",1)-1 530 LET C1=1 540 GOSUB 1000 550 FOR J=0 TO 2 560 LET C1=1 570 LET C1=POS(L$,K$(J),C1) 580 IF C1=0 THEN 700 590 LET C1=C1+LEN(K$()) 600 LET C2=POS(L$," ",C1)-1 610 LET E=POS(L$,"\",C1) 620 IF E<>0 THEN 630 \ LET E=256 630 LET Q1=POS(L$,"'",C1) 640 LET Q2=POS(L$,'"',C1) 650 IF C2<>0 THEN 660 \ LET C2=E-1 660 IF (E-Q)*Q1>0 THEN 570 730 NEXT I 1000 LET S$=SEG$(L$,C1,C2) 10 REM *********** Program to test arithmetic ************ 20 REM 30 REM - Set-up process comes next 40 LET E$=CHR$(27) 50 LET A$=E$+"[2J"+E$+"[10H"+E$+"#6 TRY AGAIN" 60 LET B$=E$+"[2J"+E$+"[10H"+E$+"#6 WELL DONE GILLIAN" 70 LET C$=E$+"#6 HELLO , TRY THESE SUMS" 80 A=SYS(7%,0) 90 PRINT E$+"[?8l" 100 PRINT E$+"[2J" 110 PRINT E$+"[9H"; \ GOSUB 680 120 GOSUB 600 130 REM - Questions begin here 140 PRINT " a + a = a a" 150 PRINT 160 PRINT " 1 + 1 ="; \ INPUT X 170 IF X=2 GO TO 210 180 GOSUB 700 190 IF X<>2 THEN GOSUB 640 200 GO TO 140 210 GOSUB 700 \ GOSUB 660 220 PRINT " a a + a = a a a" 230 PRINT 240 PRINT " 2 + 1 = "; \ INPUT X 250 IF X=3 GO TO 290 260 GOSUB 700 270 IF X<>3 THEN GOSUB 640 280 GO TO 220 290 GOSUB 700 \ GOSUB 660 300 PRINT " a a + a a = a a a a" 310 PRINT 320 PRINT " 2 + 2 = "; \ INPUT X 330 IF X=4 GO TO 370 340 GOSUB 700 350 IF X<>4 THEN GOSUB 640 360 GO TO 300 370 GOSUB 700 \ GOSUB 660 380 PRINT " a a a + a = a a a a" 390 PRINT 400 PRINT " 3 + 1 = "; \ INPUT X 410 IF X=4 GO TO 450 420 GOSUB 700 430 IF X<>4 THEN GOSUB 640 440 GO TO 380 450 GOSUB 700 \ GOSUB 660 460 PRINT " a a a + a a = a a a a a" 470 PRINT 480 PRINT " 3 + 2 = "; \ INPUT X 490 IF X=5 GO TO 530 500 GOSUB 700 510 IF X<>5 THEN GOSUB 640 520 GO TO 460 530 GOSUB 700 \ GOSUB 660 540 REM - Set terminal back to normal charachters 550 GOSUB 620 560 PRINT E$+"[?8h" 570 GO TO 720 580 REM ************ Subroutines start here ************** 590 REM 600 PRINT E$+"(0" \ REM - Set terminal to graphics chars 610 RETURN 620 PRINT E$+"(B" \ REM - Set terminal to US chars 630 RETURN 640 PRINT A$ \ PRINT \ PRINT \ PRINT \ REM - Print the "try again" message 650 RETURN 660 PRINT B$ \ PRINT \ PRINT \ PRINT \ REM - Print the "well done" message 670 RETURN 680 PRINT C$ \ PRINT \ PRINT \ PRINT \ REM - Print the "try these" message 690 RETURN 700 PRINT \ PRINT 710 RETURN 720 END 10 REM *********** Program to test arithmetic ************ 20 REM 30 REM - Set-up process comes next 40 LET E$=CHR$(27) 50 LET A$=E$+"[2J"+E$+"[10H"+E$+"#6 TRY AGAIN" 60 LET B$=E$+"[2J"+E$+"[10H"+E$+"#6 WELL DONE GILLIAN" 70 LET C$=E$+"#6 HELLO , TRY THESE SUMS" 80 A=SYS(7%,0) 90 PRINT E$+"[?8l" 100 PRINT E$+"[2J" 110 PRINT E$+"[9H"; \ GOSUB 1010 120 GOSUB 930 130 REM - Questions begin here 140 PRINT " a + a = a a" 150 PRINT 160 PRINT " 1 + 1 ="; \ INPUT X 170 IF X=2 GO TO 210 180 GOSUB 1030 190 IF X<>2 THEN GOSUB 970 200 GO TO 140 210 GOSUB 1030 \ GOSUB 990 220 PRINT " a a + a = a a a" 230 PRINT 240 PRINT " 2 + 1 = "; \ INPUT X 250 IF X=3 GO TO 290 260 GOSUB 1030 270 IF X<>3 THEN GOSUB 970 280 GO TO 220 290 GOSUB 1030 \ GOSUB 990 300 PRINT " a a + a a = a a a a" 310 PRINT 320 PRINT " 2 + 2 = "; \ INPUT X 330 IF X=4 GO TO 370 340 GOSUB 1030 350 IF X<>4 THEN GOSUB 970 360 GO TO 300 370 GOSUB 1030 \ GOSUB 990 380 PRINT " a a a + a = a a a a" 390 PRINT 400 PRINT " 3 + 1 = "; \ INPUT X 410 IF X=4 GO TO 450 420 GOSUB 1030 430 IF X<>4 THEN GOSUB 970 440 GO TO 380 450 GOSUB 1030 \ GOSUB 990 460 PRINT " a a a + a a = a a a a a" 470 PRINT 480 PRINT " 3 + 2 = "; \ INPUT X 490 IF X=5 GO TO 530 500 GOSUB 1030 510 IF X<>5 THEN GOSUB 970 520 GO TO 460 530 GOSUB 1030 \ GOSUB 990 540 REM ***** 550 PRINT " a a a - a a = a" 560 PRINT 570 PRINT " 3 - 2 ="; \ INPUT X 580 IF X=1 GO TO 620 590 GOSUB 1030 600 IF X<>1 THEN GOSUB 970 610 GO TO 550 620 GOSUB 1030 \ GOSUB 990 630 PRINT " a a a a - a a = a a" 640 PRINT 650 PRINT " 4 - 2 ="; \ INPUT X 660 IF X=2 GO TO 700 670 GOSUB 1030 680 IF X<>2 THEN GOSUB 970 690 GO TO 630 700 GOSUB 1030 \ GOSUB 990 710 PRINT " a a a a a - a a = a a a" 720 PRINT 730 PRINT " 5 - 2 = "; \ INPUT X 740 IF X=3 GO TO 780 750 GOSUB 1030 760 IF X<>3 THEN GOSUB 970 770 GO TO 710 780 GOSUB 1030 \ GOSUB 990 790 PRINT " a a a a a a - a a a a = a a" 800 PRINT 810 PRINT " 6 - 4 ="; \ INPUT X 820 IF X=2 GO TO 860 830 GOSUB 1030 840 IF X<>1 THEN GOSUB 970 850 GO TO 790 860 GOSUB 1030 \ GOSUB 990 870 REM - Set terminal back to normal charachters 880 GOSUB 950 890 PRINT E$+"[?8h" 900 GO TO 1050 910 REM ************ Subroutines start here ************** 920 REM 930 PRINT E$+"(0" \ REM - Set terminal to graphics chars 940 RETURN 950 PRINT E$+"(B" \ REM - Set terminal to US chars 960 RETURN 970 PRINT A$ \ PRINT \ PRINT \ PRINT \ REM - Print the "try again" message 980 RETURN 990 PRINT B$ \ PRINT \ PRINT \ PRINT \ REM - Print the "well done" message 1000 RETURN 1010 PRINT C$ \ PRINT \ PRINT \ PRINT \ REM - Print the "try these" message 1020 RETURN 1030 PRINT \ PRINT 1040 RETURN 1050 END 10 REM *********** Program to test arithmetic ************ 20 REM 30 REM - Set-up process comes next 40 LET E$=CHR$(27) 50 LET A$=E$+"[2J"+E$+"[10H"+E$+"#6 TRY AGAIN" 60 LET B$=E$+"[2J"+E$+"[10H"+E$+"#6 WELL DONE GILLIAN" 70 LET C$=E$+"#6 HELLO , TRY THESE SUMS" 80 A=SYS(7%,0) 90 PRINT E$+"[?8l" 100 PRINT E$+"[2J" 110 PRINT E$+"[9H"; \ GOSUB 1010 120 GOSUB 930 130 REM - Questions begin here 140 PRINT " a + a = a a" 150 PRINT 160 PRINT " 1 + 1 ="; \ INPUT X 170 IF X=2 GO TO 210 180 GOSUB 1030 190 IF X<>2 THEN GOSUB 970 200 GO TO 140 210 GOSUB 1030 \ GOSUB 990 220 PRINT " a a + a = a a a" 230 PRINT 240 PRINT " 2 + 1 = "; \ INPUT X 250 IF X=3 GO TO 290 260 GOSUB 1030 270 IF X<>3 THEN GOSUB 970 280 GO TO 220 290 GOSUB 1030 \ GOSUB 990 300 PRINT " a a + a a = a a a a" 310 PRINT 320 PRINT " 2 + 2 = "; \ INPUT X 330 IF X=4 GO TO 370 340 GOSUB 1030 350 IF X<>4 THEN GOSUB 970 360 GO TO 300 370 GOSUB 1030 \ GOSUB 990 380 PRINT " a a a + a = a a a a" 390 PRINT 400 PRINT " 3 + 1 = "; \ INPUT X 410 IF X=4 GO TO 450 420 GOSUB 1030 430 IF X<>4 THEN GOSUB 970 440 GO TO 380 450 GOSUB 1030 \ GOSUB 990 460 PRINT " a a a + a a = a a a a a" 470 PRINT 480 PRINT " 3 + 2 = "; \ INPUT X 490 IF X=5 GO TO 530 500 GOSUB 1030 510 IF X<>5 THEN GOSUB 970 520 GO TO 460 530 GOSUB 1030 \ GOSUB 990 540 REM ***** 550 PRINT " a a a - a a = a" 560 PRINT 570 PRINT " 3 - 2 = "; \ INPUT X 580 IF X=1 GO TO 620 590 GOSUB 1030 600 IF X<>1 THEN GOSUB 970 610 GO TO 550 620 GOSUB 1030 \ GOSUB 990 630 PRINT " a a a a - a a = a a" 640 PRINT 650 PRINT " 4 - 2 = "; \ INPUT X 660 IF X=2 GO TO 700 670 GOSUB 1030 680 IF X<>2 THEN GOSUB 970 690 GO TO 630 700 GOSUB 1030 \ GOSUB 990 710 PRINT " a a a a a - a a = a a a" 720 PRINT 730 PRINT " 5 - 2 = "; \ INPUT X 740 IF X=3 GO TO 780 750 GOSUB 1030 760 IF X<>3 THEN GOSUB 970 770 GO TO 710 780 GOSUB 1030 \ GOSUB 990 790 PRINT " a a a a a a - a a a a = a a" 800 PRINT 810 PRINT " 6 - 4 = "; \ INPUT X 820 IF X=2 GO TO 860 830 GOSUB 1030 840 IF X<>1 THEN GOSUB 970 850 GO TO 790 860 GOSUB 1030 \ GOSUB 990 870 REM - Set terminal back to normal charachters 880 GOSUB 950 890 PRINT E$+"[?8h" 900 GO TO 1050 910 REM ************ Subroutines start here ************** 920 REM 930 PRINT E$+"(0" \ REM - Set terminal to graphics chars 940 RETURN 950 PRINT E$+"(B" \ REM - Set terminal to US chars 960 RETURN 970 PRINT A$ \ PRINT \ PRINT \ PRINT \ REM - Print the "try again" message 980 RETURN 990 PRINT B$ \ PRINT \ PRINT \ PRINT \ REM - Print the "well done" message 1000 RETURN 1010 PRINT C$ \ PRINT \ PRINT \ PRINT \ REM - Print the "try these" message 1020 RETURN 1030 PRINT \ PRINT 1040 RETURN 1050 END 10 A=SYS(7%,0%) 20 LET E$=CHR$(27) 30 PRINT E$+"(0" 40 PRINT E$+"[2J"+E$+"[6H"; 50 PRINT "aaa aaa aaaaaaaaaaa aaa aaa aaaaaaaaaaa" 60 PRINT "aaa aaa aaaaaaaaaaa aaa aaa aaaaaaaaaaa" 70 PRINT "aaa aaa aaa aaa aaa aaa aaa" 80 PRINT "aaa aaa aaa aaa aaa aaa aaa" 90 PRINT "aaa aaa aaa aaa aaa aaa aaa" 100 PRINT "aaaaaaaaaaa aaaaaaaaaaa aaa aaa aaa aaa" 110 PRINT "aaaaaaaaaaa aaaaaaaaaaa aaa aaa aaa aaa" 120 PRINT "aaa aaa aaa aaa aaa aaa aaa" 130 PRINT "aaa aaa aaa aaa aaa aaa aaa" 140 PRINT "aaa aaa aaa aaa aaa aaa aaa" 150 PRINT "aaa aaa aaaaaaaaaaa aaaaaaaaaaa aaaaaaaaaaa aaaaaaaaaaa" 160 PRINT "aaa aaa aaaaaaaaaaa aaaaaaaaaaa aaaaaaaaaaa aaaaaaaaaaa" 170 LET X=500 180 FOR I=1 TO X \ NEXT I 190 PRINT E$+"[H"+E$+"[6H"; 200 FOR A=1 TO 13 210 PRINT E$+"[2K" 220 FOR B=1 TO 40 \ NEXT B 230 NEXT A 240 FOR I=1 TO X \ NEXT I 250 GO TO 40 10 A=SYS(7%,0%) 20 LET E$=CHR$(27) 30 PRINT E$+"(0" 40 PRINT E$+"[2J"+E$+"[6H"; 50 PRINT " aaa aaa aaaaaaaaaaa aaa aaa aaaaaaaaaaa" 60 PRINT " aaa aaa aaaaaaaaaaa aaa aaa aaaaaaaaaaa" 70 PRINT " aaa aaa aaa aaa aaa aaa aaa" 80 PRINT " aaa aaa aaa aaa aaa aaa aaa" 90 PRINT " aaa aaa aaa aaa aaa aaa aaa" 100 PRINT " aaaaaaaaaaa aaaaaaaaaaa aaa aaa aaa aaa" 110 PRINT " aaaaaaaaaaa aaaaaaaaaaa aaa aaa aaa aaa" 120 PRINT " aaa aaa aaa aaa aaa aaa aaa" 130 PRINT " aaa aaa aaa aaa aaa aaa aaa" 140 PRINT " aaa aaa aaa aaa aaa aaa aaa" 150 PRINT " aaa aaa aaaaaaaaaaa aaaaaaaaaaa aaaaaaaaaaa aaaaaaaaaaa" 160 PRINT " aaa aaa aaaaaaaaaaa aaaaaaaaaaa aaaaaaaaaaa aaaaaaaaaaa" 170 LET X=500 180 FOR I=1 TO X \ NEXT I 190 PRINT E$+"[H"+E$+"[6H"; 200 FOR A=1 TO 13 210 PRINT E$+"[2K" 220 FOR B=1 TO 40 \ NEXT B 230 NEXT A 240 FOR I=1 TO X \ NEXT I 250 GO TO 40 5 LET X=60 10 LET E$=CHR$(27) 20 PRINT E$+"[2J" 30 A=SYS(7%,0%) 40 PRINT E$+"(0" 50 PRINT TAB(X); \ PRINT " x";\PRINT E$+"B";\PRINT E$+"[K" 70 PRINT TAB(X); \ PRINT " sssx";\PRINT E$+"B"; 90 PRINT TAB(X); \ PRINT "[]=====[sss]s";\PRINT E$+"B"; 110 PRINT TAB(X); \ PRINT " \OOOOOOOO/";\PRINT E$+"B"; 120 PRINT TAB(X); \ PRINT " o o o o ";\PRINT E$+"B"; PROPOSED SUMMER WEEKEND CAMP 1983 PROPOSED SUMMER WEEKEND CAMP 1983 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ THE FOLLOWING INFORMATION IS TO INFORM YOU OF THE THE FOLLOWING INFORMATION IS TO INFORM YOU OF THE PROPOSED DATES FOR CAMP THIS YEAR , GOD WILLING. PROPOSED DATES FOR CAMP THIS YEAR , GOD WILLING. TO BE HELD AT: Wellington Country Park. TO BE HELD AT: Wellington Country Park. DATES: August 12th - 15th. DATES: August 12th - 15th. COST PER PERSON: 17.00 pounds. COST PER PERSON: 17.00 pounds. PLEASE INDICATE IF YOU WISH YOUR CHILD TO ATTEND PLEASE INDICATE IF YOU WISH YOUR CHILD TO ATTEND AS SOON AS POSSIBLE. AS SOON AS POSSIBLE. IF YOU WISH YOUR CHILD TO ATTEND , AN INITIAL IF YOU WISH YOUR CHILD TO ATTEND , AN INITIAL DEPOSIT OF 3.00 pounds WILL BE PAYABLE WHEN THEIR DEPOSIT OF 3.00 pounds WILL BE PAYABLE WHEN THEIR NAME IS PUT ON THE LIST.(A receipt will be given) NAME IS PUT ON THE LIST.(A receipt will be given) THE BALANCE IS TO BE PAID IN FULL ONE MONTH THE BALANCE IS TO BE PAID IN FULL ONE MONTH BEFORE THE DATE OF CAMP. BEFORE THE DATE OF CAMP. DUE TO ECONOMIC PRESSURES , WE RESERVE THE RIGHT DUE TO ECONOMIC PRESSURES , WE RESERVE THE RIGHT NOT TO HOLD THE CAMP IF THERE ARE NOT SUFFICIENT NOT TO HOLD THE CAMP IF THERE ARE NOT SUFFICIENT NUMBERS WISHING TO GO. NUMBERS WISHING TO GO. Yours sincerily, Yours sincerily, Tim Smith - CYC Leader Tim Smith - CYC Leader ------------------------------------------------- ------------------------------------------------- I WISH MY CHILD/CHILDREN TO ATTEND SUMMER WEEKEND I WISH MY CHILD/CHILDREN TO ATTEND SUMMER WEEKEND CAMP 1983 , AND ENCLOSE A DEPOSIT OF 3.00 pounds. CAMP 1983 , AND ENCLOSE A DEPOSIT OF 3.00 pounds. NAMES TO ATTEND SIGNED BY PARENT NAMES TO ATTEND SIGNED BY PARENT ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~ ------------------------------------------------- ------------------------------------------------- Z Rhuj(  "&(f &  \55& xQ   & (!k7Q@QE&:Q^&E &8&!Pe" stsuvx3 s !2 5 #P"e! ePe"Pj3h3|3z U $ u!\+?Err 59 USR not locked?Err 62 FORTRAN start failLf&AEPP@ pB`"ʊ@ҋ R F L΋ ++O  wBF Oz|   O? DW=W? A @ @)鈇& e:   낃 (   3 E`E& N U%@"wz?Err 60 stack overflowed ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 0123456789fromin routine "" line ?Err (PC=Ne* Ne*6 6 &  f 6A  v  6N\@A & &Me*CBf @ E   E `   @5e  &  @  @ CaB a@ CaB a   C B 5CA aC`B \@A & &Le*f Qf KN @@?=e  ! C D DDC D@ C @ % ` ` D@ B \  @@c@c NSXœeNU =5E33 r3 &5KK @ w X5@KU@X5K,KNɥ R  <& & & f@ w eeX5:K5@4KX5K>KW U5@CW UU 56W UX5@5J)J  B w ĉX5J J ‰ U@ X5J/J 5@5@UX5 nJtJ 5UX 5UX5‰56J:JX5&J6JX5JÉX5@5JJ&  A t tX5IÉX5IÉX@@c@c 6TXœ * 3 r3 3&5II w XD&& @  :I& eN t RD \RD ^ H& eN t  RDZ ~&$3R3~3D3Ze &VHS3`D Z~^\ f B % % e@ ( B`  ` A@^   A ^”E eBCIE `-    D E A@D D e0bb %- ҕ* V ͥ)@%@   &   e Е-eO PPPЕ-ee/:JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC U   U  `5 p U Eȋ `5w @A3 Fe*&@A& & @A& & @A& & C P \r@E dt6xE3 Dt~ XEt~3 r3 p3 X 3\ %$Et&& fAP  t\ %DtW% BC @ bb@ be K @     w  e fDd  Z@DgV`b Xw bDe* Ce*  @%  @ %   `&\\||| 1164 122316 131 10514157553=6120212223?63242526-4527312829$36,44 32!33"34%37&38'39(40)41#3530*42.46+43149/47048@64A65B66C673512500|B3d XT,T&T)aN 5K   & & EF   7w N򆉶f 7w 6DR%% $J J N ꇁ   Е `CBД  SD @` Vx(0~ &e &&& &&&P05@5#E 5m5 ҕ   mU p v  7 fGl6H # `67 : X67 67 6 L67 6 D66 :6H $ .6HH xX 6HH HzX  x5H & 5H F 5|65 r6 5-j6  5\652F6 57 J6 5B6 5:6 526#z5(6~H$j56Ae X X5-6 'J5 >Z @51 fZ)65 5-5  5-5 5H ! 55PdT,4Օ=-4  4H " 4H " 4H " 4H " 4HvHT &xX \  4H " 4I " 445 v4,5 l45$58`4 \48 R48 H4H <:47 4 24P4 (47 4 44 44 PTA4 B3  344D34 4~Hb44PTX4E3l4oH4 XwlG3 <4 3R4Z4m^4T4 3D4R47F4 z37 :4 p3704Lf34o3 41&Y P34Y F37 4 <373P2337 3 $373R33? 3 3?3T3-3 2 I  V2 3+X2-3 2I Z2-r3 2I \2-X3 2$I ^2'_2-63 z2.I | al2-3 `28I b cR2-3 F2BI H e82 2 g,222 2LI $ h2VI " 2 2Hk1H 1ZI  1H  1H n 1ZI  1H  1-x2s1^I $ 1H ~ 1 v1H  z1VI xl1 h1-22{Z1 212dI @ B111}61e1e1e1 1wXe1 1-1w 17 17 1 0-1+0101~H0t1@@e 0 >Z0  wZ1W  0H 061 021 PT,Zn0f0  ^0-1 P0-1IB0:0 0 207 0 *0@07 00m00 07 0 00w,/70 /w7 hI/,4R2 /M  /M /62U /MI Df X  /MI *~MhV t/1hV>M\/1@eUJ/ @/e w1W  ,/M b /l30 /1X>M.@0(U. .7 `1 .X1 U.M-4.@ .u .  .$1 .11>MhV.1dU |.UU r.2U"h. 0#\.e 0-0  H. 0&<.M & 0.|2 z2wF). r7`2 ./.w\,-  -|MI 8 b.--&2  -|MI  @0--2  -|MJ 2--1  -|M1J 4t--1  h-|MJJ 6R--1  F-|MiJ 80--|1  $-|MJ l :--Z1  -|MJ J t<,-81  ,|MJ ( R>,-1  ,|MJ  0@,-0  ,|MJ B,-0  z,|MK Dd,-0  X,|M)K FB,-0  6,|MBK ~ H ,-l0  ,|M[K \ J+-J0  +|M|K : dL+-(0  +|MK  BN+-0  +|MK P+-/  +|MK Rv+-/  j+|MK TT+-/  H+|ML V2+-~/  &+|M$L n X+-\/  +|M6L L vZ*-:/  *|MOL * T\*-/  *|MeL  2^*-.  *|MzL `*-.  |*|ML bf*-.  Z*|ML dD*-.  8*|ML f"*-n.  *|ML ^ h*-L.  )|MM < fj)k)/*m)|M M  :n)|MI $o),Up),>MhVqt)+dUrd)  \)MI f  B)MI ~MhV H ")/)w)|MI \V ~MhV f lx(e Z+-V+  (|MI V x :{(M L (M (7 dM(P  ~(P  r(*X^(Օ  T(  L(P Z @("P  4(PM | (PO h ((P  (,P D 'PO < f '2P $ 'PO  F 'N* 'F* '>* ' 6*' ** '8P ~' * t'BP vf' ) \'LP ^N' ) D'VP F6'P D *' ) '`P ""' ) 'jP $&(P  &P P-wp)&&W c(&W 3*&W,&F) %.&rX &.) *) &1& ) & ) x&)4l&( X5\&tP ^ P&7 ( H&m(( >&-(< 2&7 (:(&-( &7 (<&wr=&7 ~P%(V%Օ=%  %P  % b(* %P  %\( %R( Wp wH(P  % 4(-0(( v%P h% d%7 0P V%P +( D%‹w 6% Q*% ,  < @wH% .  > @wD$ A  a @ $P $ t'Z  z w $Q $- )xz$4' >'h$$'PX$'Be >Z ' B$ 8$&m'& ($-( "$ r>Z $w$$ &-&e & &-& #t(v( #7 p( #h( #)#-P(+# B( # -#-2(L/# $(0# "(w(2z#-(4l#(0& ,&Q d V#7 ' N#7 ' F#v8># ' 6#'% %Q . #%;#%P<#%Ae B&Y% "DY7% " X&@"7!l' B"eX'@ 2D"e@ *F" H"e@ J" F%-B%  <%-8% n"-'M`"Q bNR"-&&PD"&& :"Q H ."&$$"Q $ "P $T"7 ,Q ! &w( !$ !$>Q$ !$o$ Xv!B&Y$ !wY$ !e,&@ !e@ z! Sn!e@ K^!% w B$BL!w8$^Q \ ! 3Y &YZ Z%e!e! *!w   !Z Y Z ' w) 7  w  Ow~- wp/W w`1| wR3n/l G5`!7p T  L7` 7 \ 8>-R 6:0& Ϸ> < 4 . & HC 8з  Q f&  w>?Q @  7  DD sFQ Q |Q p !w^K`-p wLMN-` w:O<7 47 ,Q @ ~S $B U @ W @ YcZQ   ?  P^Q _ `QaBe >Zcxm h x f\ r>Z PhH d-`e ^ P-L &wj7 , 7 & ? m  oeee w 7 Q7 7  2m R   R  t R ` R(R H :~mjx2R 0 "-X[Jjed`Nm4 7BtQ*`@@e fZ  wDW    7 nR->s R 7*w(  p}@ [  R~@ jzL p f ^ THR b7w 4& A lʷ R e7x -p b JwmB>  -4  -(L @wt R   ,wn!w #t @ %de@ 'Rw2(H 7 w*2 R *  R & 7  7  7  R 7PwN F@&  B ɷB@R @Wpe2w RRW W J ѿ  3tR v hR j5Z  Pm F7  >96 R . 7 ;7 R ~Rrlod >Zwb fZX  S rfZ :>m<8 W W  ~u@7 pha ^Vi LD_8R F ,R . S .e -e  -~w 7 S7t flf *S  R R S(S2W e S(SW pe  \  R/&D8S$@@e fZ  wW 7 0S H  Jw >S  7 DSV\ NT  J 7 @ 8 v7 . l-"O `O T-  H <e  27 e7 $ Y 7 7 NS  7 TS F   G{bS  7 thSvS `˿ tSpSW tSW ̿ jtSpSW tSW f ̿ FtSpSW tSX B  mm7 mm7 7 zS     7   7  -O O - ~e  t7 e7 fK \YB R77 Fr7, :$ 0/A"/Z/w/wJ/w e  e w" SS SX SX ʿ jwl%`:X&H'@  8SS SX >SX 2 ʿ w*0X+,  SS "SX SX 4ʿ Y/!X01  ~SS SX S!X x ɿ R+4Jx$(X526*  "SS jSX (S(X  |87 ɰS$SS f ^ >  7 xS [ ? 2 vl lS r `7 ,SR H< >S D 2f&f&  e `e& e eBG N"Q$B(< U& * u @ 3 tPALG&eW!NG G'& f@! tF# B   ` ׮PU ׮PU, U1 0 555U U& &3 @&&5¥.  , &@ #& 5ff@ & 5 EE 爄 Mxdxd z :PTSPACE.DAT =Champion: Record: Your Score: <> }{ >< {} >a<   #(-2 P, 5: HHHHHHHHHHHdTHHHHHHHzXHHH&HHHHTHHH0HHTTH>HTTHFHTTHNHTTHVHTTH^HTTHfHTTHnHHTTTTKHUSPACE.DATSPACE.DATYOUR SCORE  INVADERS SUPER LEAGUEPlayerScore** WHAT UTTER CRAP **** I don't believe it **** RUBBBISH !! **** What can I say **** Four figures one day **** Past the magic 1000 !! **** Must try harder **!** Well I suppose you're trying ** ** Come on **** Almost there **** WOW ! over 2000 **** Are you a Novice **** Getting Better **** Keep on trying **** 3000 One of these Days **** Practise makes perfect **** OK now impress me **** You've played before **** I've seen worse **** Keep it up **** Hurrah ! 4000 bust ** ** Not bad **** Not bad at all **** Pretty fair **** Oh , close **** I'm almost impressed **** Pretty Good **** OK I like it **** You've got style **** Come on , you can do it **** OK that wasn't bad **Congratulations Champ !! !,7BMXcny)4?MMpIMzMzMMMMMzIMM:rV <> >< }{ {} >a< aaa aaaa a aaa aaaaaa a a a a a a aaaa aaaa aaaaa a aaaaa a a a a a aaaa a a a aaa aaaaa,aaa a a a a a aaaa aaaaa aaaa aaa(a aa a a a a a a a a a a a+a a a a a a aaaaa a a aaaa aaaa aaa,a a aa a a a a a a a a a a,aaa a a a a a aaaa aaaaa a a aaaESCORE 30ESCORE 20ESCORE 10 What's your name then :- B Z - Panic Button / Space Bar - Fire / < Left / > Right /PPPPPPPPVPPMVPPMVPPMVPPMVP PMVP PMPP PXYV==/a\=PPPVPVPPPP @V ,<.>AaZz | /a\  #(-2PPXVPPXVPPXXPPVPPP4FKV   #(-2GXWWWXWVQ4QZQ\QXQW W f  #(-2f@ffXXJW:W }@p~@RXXWWWRvRWWR|RWWWWWRWWWRRWWRR x}W RWRRWR#\MW *  &SW WHJ*< ^/o\/ \/~~ \/ )0f(B ~~ \/ ~~ \ / f ~~\ /~~ \ lqq@qqktqqnqqumqqvqqj/ ~~ \qqqqqqqwqfqwqfqfqfqx x/mqqqj\lqqqkmqqqj @`0of* |==|==|==|==|==|==||==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==||==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==|==| x qqnqq x  ~~~.~~.  .//af(B /aaf|(B   ~/aaaf=|(B  l/aaaaf==f(B  lk/aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  /aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  * /aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f= klk /aaaa f==f= qlk /aaaa f|=f| qlk  ./aaaajf=|f= qlkk /aaaaqf==f= llkqk/aaaaqf|=f| \lkq  ./aaaaqf=|f= jlkq/aaaamf==f= qlkl/aaaa f|=f| qlk\ ~/aaaa f=|f= qlkj/aaaa f==f= mlkq/aaaa f|=f| /lkq  ./aaaa f=|f=  lkq/aaaa f==f=  lkm/aaaa f|=f|  lk/  ~/aaaa f=|f= xlk /aaaa f==f=  lk /aaaa f|=f|  lk   ./aaaa f=|f=  lkx/aaaa f==f=  lk /aaaa f|=f|  lk    /aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk aaaa f==f=  lk aaa |=f| lk  aa |f=lk a f=k  |= ~~~.~~.  ~\a\ faa\  |faaa\k  |=f  ~aaaa\lk  f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  . aaaa\ lk  =f=|f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  ~ aaaa\ lk  =f=|f aaaa\ lk  |f=|f aaaa  lk  =f|=f   aaa lk =f=| aa lk|f= a l=f .  =qf  .qq=fqq=|qqf|  ~qq=fq=|q ~qff  .q|ff=fqqf==f  .fqfqfq=f==fqfqfq\ |f=|ffqfqa\  =f|=f  ~qfqaa\k  =f==ffqaaa\lkt |f=|fqaaaa\ lkq =f|=f  *  aaaa\ lkq =f==fmaaaa\tlkn |f=|fqaaaa\qlkq =f|=f  .qaaaa\qlkq =f==fvaaaa\nlku |f=|fqaaaa\qlk  =f|=f  ~qaaaa\qlk  =f==fjaaaa\ulk  |f=|f aaaa\ lk  =f|=f  ~ aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  . aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  ~ aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  . aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  . aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f ~ aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  . aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  ~ aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  . aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f    aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  ~ aaaa\ lk  =f==f aaaa\ lk  |f=|f aaaa\ lk  =f|=f  ~ aaaa\ lk  =f==f aaaa lk |f=| aaa lk=f|   aa l=f a =  | ~~~.~~.  .//af(B /aaf|(B   ~/aaaf=|(B  l/aaaaf==f(B  lk/aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  /aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  * /aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ./aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk  ~/aaaa f=|f=  lk /aaaa f==f=  lk /aaaa f|=f|  lk ~~~.~~. (B 10 REM *********** Program to test arithmetic ************ 20 REM 30 REM - Set-up process comes next 40 LET E$=CHR$(27) 50 LET A$=E$+"[2J"+E$+"[10H"+E$+"#6 TRY AGAIN" 60 LET B$=E$+"[2J"+E$+"[10H"+E$+"#6 WELL DONE GILLIAN" 70 LET C$=E$+"#6 HELLO , TRY THESE SUMS" 80 A=SYS(7%,0) 90 PRINT E$+"[?8l" 100 PRINT E$+"[2J" 110 PRINT E$+"[9H"; \ GOSUB 680 120 GOSUB 600 130 REM - Questions begin here 140 PRINT " a + a = a a" 150 PRINT 160 PRINT " 1 + 1 ="; \ INPUT X 170 IF X=2 GO TO 210 180 GOSUB 700 190 IF X<>2 THEN GOSUB 640 200 GO TO 140 210 GOSUB 700 \ GOSUB 660 220 PRINT " a a + a = a a a" 230 PRINT 240 PRINT " 2 + 1 = "; \ INPUT X 250 IF X=3 GO TO 290 260 GOSUB 700 270 IF X<>3 THEN GOSUB 640 280 GO TO 220 290 GOSUB 700 \ GOSUB 660 300 PRINT " a a + a a = a a a a" 310 PRINT 320 PRINT " 2 + 2 = "; \ INPUT X 330 IF X=4 GO TO 370 340 GOSUB 700 350 IF X<>4 THEN GOSUB 640 360 GO TO 300 370 GOSUB 700 \ GOSUB 660 380 PRINT " a a a + a = a a a a" 390 PRINT 400 PRINT " 3 + 1 = "; \ INPUT X 410 IF X=4 GO TO 450 420 GOSUB 700 430 IF X<>4 THEN GOSUB 640 440 GO TO 380 450 GOSUB 700 \ GOSUB 660 460 PRINT " a a a + a a = a a a a a" 470 PRINT 480 PRINT " 3 + 2 = "; \ INPUT X 490 IF X=5 GO TO 530 500 GOSUB 700 510 IF X<>5 THEN GOSUB 640 520 GO TO 460 530 GOSUB 700 \ GOSUB 660 540 REM - Set terminal back to normal charachters 550 GOSUB 620 560 PRINT E$+"[?8h" 570 GO TO 720 = "; \ INPUT X 580 IF X=1 GO TO 620 590 GOSUB 1030 600 IF X<>1 THEN GOSUB 970 610 GO TO 550 620 GOSUB 1030 \ GOSUB 990 630 PRINT " a a a a - a a = a a" 640 PRINT 650 PRINT " 4 - 2 = "; \ INPUT X 660 IF X=2 GO TO 700 670 GOSUB 1030 680 IF X<>2 THEN GOSUB 970 690 GO TO 630 700 GOSUB 1030 \ GOSUB 990 710 PRINT " a a a a a - a a = a a a" 720 PRINT 730 PRINT " 5 - 2 = "; \ INPUT X 740 IF X=3 GO TO 780 750 GOSUB 1030 760 IF X<>3 THEN GOSUB 970 770 GO TO 710 780 GOSUB 1030 \ GOSUB 990 790 PRINT " a a a a a a - a a a a = a a" 800 PRINT 810 PRINT " 6 - 4 = "; \ INPUT X 820 IF X=2 GO TO 860 830 GOSUB 1030 840 IF X<>1 THEN GOSUB 970 850 GO TO 790 860 GOSUB 1030 \ GOSUB 990 870 REM - Set terminal back to normal charachters 880 GOSUB 950 890 PRINT E$+"[?8h" 900 GO TO 1050 910 REM ************ Subroutines start here ************** 920 REM 930 PRINT E$+"(0" \ REM - Set terminal to graphics cha[*$CMS020.Cs fR SER.CMS]CMSV2SHROB3.OBJ;1NR"CMS$$CON_FIND_ELEMENT0UCMS$$CON_GET_ELEMENTh iiT ЏpԮt}dpЏxԮ|Џ|||l|||~8tUgPVVVPhUhRV CMS$_NOTFOUND1pTTtP1ЏcԣЏ(Ԯ,(S STR$COPY_DX$SlUԮ$$<Ү$$Ѯ$$Ю$$S$$$$ܟ䟭ԞȮ0000d00ݬUR88PVS STR$FREE1_DXRpT pݬSTR$COMPARE_EQLP|~8tUgPVhUh1Џ CMS$_NORMALP d /   } | { z y x w v u t s r  f-,DESCENDANT_CHECK}QPSСUТW> ƽ CMS$$SHOW_GROUPPgroupPU# CMS$_MSGPOST CMS$_MSGPOSTIP| LIB$SIGNALVЏ CMS$_MSGPOSTUT^dR4ݬݬCMS$$PAR_ARG_BLOCK_INITP~Uf4CMS$$PAR_GROUP_NAMEPY $ ݬ ݬRPSS CMS$_EXCLUDERS CMS$_STOPPEDSS~ݏ CMS$_USERERR~UfPS4CMS$$PAR_ARG_BLOCK_CLEANUPݬݏ CMS$_NOGRP ݬCMS$$SHO_NO_OBJECT  L; . - + FCMS$$SHOW_GROUP_MEMBER# CMS$$SHOW_GROUP_MEMBERB^լ RЬR8 9Џ@ԮDЏH|L<|Tn ЏԮ ЏԮЏԮЏ Ԯ$(ȏ~Ԯ,|0^8{t,L1 [@eNcVE郗L+ÕLMmc@ll#1 ,˨6z#5bLbHOf/doBXh\}%=5nnP@d_ m@F0Y:ED)F{Ϙo/{&/5T q&;~@ iGnqѓۂ!^4LLV NCPsz;3R3p@ux"yV%3y(C+p 3D !蹘`G:n@^Ohg9G m5;'b깬n6U4iR_|vV䠊ս~kme=H98i#uBgyUk*+\GϰmN`Gu #G_ok-pBK&Bs5cdL/:O/j$ 7B٢BE߁I>Y g4ao I̝+KqNO.r e<ǟbU/I <Y6E@)ߑ#șb/h  [FEQܧrw͆>5R& pq?'ݹbb]p䙓^+|30X[ -e^8gfdAܷJSeZ9]b',j6|Gh%e0jP ~:2;@}m>gY35Jog)Q+K/!Cڥ>: bz#Ty.װ|=72^.TlD0M3曃 VHI,̸L9P#dYa^6,+ϒc8)=3J*yLhѵдo1ܨmXxx*Ak{2%jҪ49"#C1#̔kēo$C Rhy-q{QLW*0; YgMs7YJ0 ?vr,$Yqie(yr-8(ä+>a=V`6&BMag YbPJw4܈aR(?gmܸ-<cBt2]tıw\SԧB$ܽcE 7ՈbZpiLK.iI˭ D/:jp[Qr$dxHh܌3 v}'G[ ԮpQbsǸI-/.~0b5/z=b ЁXL9i9MKLI;+%O\>+އ%rF= vFOcỉS[V/xeO{ .,9rX'Fl.dӮ,e i;d>B?șrITR ڝL[cwHU-2UF P_T"`ÃN/ז4ށRIUߍ.QNb̏kQڻutN߽yܛn}扨 ?zȟ4d˧ʛ_A_ՏEWÖXDU@!; SqA=y8YVogARMjna#4us4* uV%=b*=+쫪ocq>{HG$ MGի/kL\d`YtHF^MO+ѨVڇ0ΊpAN CudEA΋^2ٷ&DiaT^E n_Y#bFXnp|Ǫak6=WdvְE@cqגo1zD,ZN<7PWb@ݓS0'w{Vx-q16ILpv B Z tb+2=)Tæӗ$U(6O1/"H/ѢѝH57u?]Ws u4݁.Áf$+Rմz39h1E@Z;Ǝ-h ^ n3~ʇFv2  Yƅ 詿b6Ϲ5WŽ Ҫ3c~PւﬓQjͿǏJ|$8XNx38QpMle]Vm>,9&|53 1x=?aG*?x6@n *dVARj}t/2j}tFku]]k܌dAʱw/Q lj?.NuDP?7ÏMoaW+Oaf0 ;g<%cMIdvn7A*_;ӤRfлVt G*!d-a3H= _j`` 4)RvoKݴy0{?rP ~PxonF;Qz bc 8I/Fd5 Khybܽ]*-/nĘv3$O~FVH$cfk nz- f k~!Lءbl߮ԈR#UliOu tQݍ$9"‡N)HvA"˕vQXqm߮5٩ C VqOFIa*a}ytϼ÷n@}iO4̘(;My gYa{-q"}G*Lηq$"VÁ)nkI4<*Uc0;X0F~I$p|};A1Z/Wrox\@%9KD \5 !ZZ6VK_OxtUc 1bH{m] k~J`B 졑R"-&n>lC,R"TM/7Tݱx"CRj:4Jpcـ -RG+.IH.lb 5g9> "r*[:*vVVHXK(n]wN^_*KYGadINc#Q,s lRP;<3zxh J>Qo\ypdJ[uŠ]΁Ġj o Pigx+ cc~2NgHn Lc@,v40dGV?dګ(Wk.KilgVRD6 :Yn4i-T!䍶[~<#P3DKFK:vz~P吝kNy%A)[NQCH.G=S.\yNXF+umj\[fF"61Ⱥ.>`xZ[TW!݁A꽧Ghܗ=z@qJ-(c%TO9q{;tb#r*<=sHK&Mz lpB]5VC%Z[pj`fd@#_&c>?zE IéFc`uxW:E^f+&Gs i]E.qiյTbcA=abӼ.2 6ŜLࡎO_UֲMAFKs= }f2?ɣk8^]O׊W,CA7%Wt~r(|}Br?|_ ^ H*?sG&#٫^ u۶g! JEݎ]G: e{Ag<5Mb> bRC\T! %Գu]a(H `TsmyWdb![vvץᬽkX_oR:qؾ }WOpPuBzǭwL[m]A=C`&"MэwgjItZD}5ԭT Z*>LlIbDڠĻtSӺxuZɮXdOTx;)+q(7ȝ$ nǎdr^Oq?ĂAKAA/M֥[/W1ƚ ڿc3f._^tWY/pIm&&NMR2+ ;fdJs(Sa 1"'}p]>:Utl~VR}8xK{9*q|nՏ 8U$ ֬ǧyTz H;#ZlZu"Rx߷[^L2?Ie;Vt뚝^-L` fȵLx숢P+4v-5GdLz(FK3\.t(:evI~%0g(|Qpms[p'Ya@ WavZ@tK$o ~Z\wD9Uu8yZ NG#H\9 l8#} e:^3Fd:,Xʂ};1o={>o).[Y<N6^(塬zdEOfcv3DJT ־ 3y% vik6/`"zJJ"CqyCh' &AkC$7j!=ngwsw+mD`xP M=<=ap 6LaGlA >3xFz`"z eԈ3/Z ui$OJ+(5+jq,9W_Djl>/3a9+Wݰ,KT7Օ$ υ[z_> e*1?|7: dvY gx=jb4T<)*L0G)FW#.%] zb^,CeEp>Pfon(bĨݯM;͜㳔$}r~ ~O$q3Cva%هAKVr2Å YSlYwQNb_"0yLQH~U78~hc1>o[KG,[kń 85ΣZNvwRDc߿o<|&2\9=M>~99[{ e@^1t]j^2qard+K0)ʿ/Pr+W `k p2uX?j]<bﰞhAmKH[-NUp zS :QIS FE41$HީvUd9&r醽 %-Avk! ' HZ|F|Ka52MjB؟+ +SɿT#`a5eWPSB2E27@Z۟M`r\f|eʿ 7PG-*&(BV?HwKe->lmIg}y{rU2aN{x2C8;Ikn%mKxAfy?먢[3l*V?`LUME8}niP_B*@]{7鉗CQ܅\@ƒϊq%m6%93ՠ`5Gp1ݫXľn*fVkN!Tb՗ ֐G#L2Y0`'Ӫ|h.E YbRہ*ŕyzu}~nSfWMB"1Ni֗x n3vI #R2Лc?L뾤 E X2 (n„ǯcHEFNlZmLt#&؍q6_q$|AR`֞u-E]:oD<(aGUNR:D8>NwNT׆3ܞ!uU~AGIo֛ aF'É<{eV|j _N}Ҍ4B=0j.:B.,9abKZWLebaiwkr+Kbj֩X֩\оݮ:ݬݮ Y~оRݮW CMS$$MEM_FREERP  w#    v5$CMS020.Cs fR SER.CMS]CMSV2SHROB3.OBJ;1w!". Z^x[ޟX CMS$$RB_OPENPTThݏ CMS$_OPENIN~ݏ CMS$_MSGPOST1{HZ(~ݏCMS$_USEREPAIR~ݏCMS$_HISNOTSTM~ݏ CMS$_NOSINCE~ݏ CMS$_MSGPOST LIB$SIGNALЏCMS$_HISNOTSTMTT~T~ݏCMS$_MSGCONTINUE LIB$SIGNALZW\ X~ CMS$$IO_GETPTT1VCMS$$F_CONTROL_C1)$+ zVOCMS$$SHO_NO_GENTLPgenerationpP # CMS$_MSGPOST CMS$_MSGPOSTOP OCMS$$SHO_NO_GENЏ CMS$_MSGPOSTRЬP<ݬ Ltpݏ CMS$_NOTFOUNDݬݬ ݏCMS$_GENNOTFOUND~R LIB$SIGNAL- O !JI LIB$SIGNALx$OWN$$OWN$xX$PLIT$$PLIT$X$CODE$$CODE$5 CMS$STRUTLV226-Oct-1984 02:1426-Oct-1984 02:14VAX-11 Bliss-32 T4.1-745 CMS$STRUTL CMS$$MEM_GET CMS$$MEM_FREE CMS$_NORMALCMS$_TRUNCATEDCMS$_INVSTRDESCMS$_ILLSTRCLACMS$_WRONUMARG . ABS .5 CMS$SYSUTLV226-Oct-1984 02:1426-Oct-1984 02:14VAX-11 Bliss-32 T4.1-745+ CMS$SYSUTLCMS$$SYS_BATCHB CMS$_NOGETJPICMS$_USNAMFAIL SYS$GETJPICMS$_BUGP CMS$$SYS_BATCH^ЏnԮ |~~|~~ SYS$GETJPIPP~ݏ CMS$_NOGETJPI78~ݏCMS$_BUG78 LIB$SIGNALP@  k+KKCMS$$SYS_GETACT8 SYS$GETJPICMS$_BUG KCMS$$SYS_GETACTR^Џ n |~~|~~ SYS$GETJPIPP~ݏCMS$_USNAMFAIL78~ݏCMS$_BUG78 LIB$SIGNAL  CMS$$TST_VIRT_END3CMS$_MSGCONTINUE CMS$$TST_VIRT_ENDRCMS$$MEM_PURGER LIB$STAT_VMbâb~ݏ CMS$_MEMINUSE~ݏCMS$_MSGCONTINUE LIB$SIGNAL C   ?CMS$$TST_VM_BEG$ CMS$$TST_VM_BEG5  GCMS$$TST_VM_END CMS$$TST_VM_ENDM7  JTRANSLATE_LOGICALD# PLNM$PROCESS_TABLE,P SYS$TRNLNM~P^ЏPЭnԀ~ݬ 0,~ SYS$TRNLNMPnݬ STR$COPY_DX3  M8 a LIB$SIGNAL4$OWN$$OWN$4$GLOBAL$$GLOBAL$4$PLIT$$PLIT$4 Y$CODE$$CODE$YB Q5 CMS$UNRMAIV226-Oct-1984 02:1726-Oct-1984 02:17VAX-11 Bliss-32 T4.1-745* CMS$UNRMAI CMS$UNRESERVEGPCMS$UNRESERVEelement expressionP QQCMS$$CFM_CONFIRM_ACTIONCMS$$CFM_CONFIRM_RESREPCMS$$CON_FIND_GENERATIONCMS$$CON_GET_GENERATION CMS$$HIS_LOGCMS$$HIS_LOG_CLEANUPCMS$$HIS_LOG_INITCMS$$INT_INTERLOCKCMS$$FIL_DELETE_VRSCMS$$LOK_LOCK_LIBRARYCMS$$LOK_UNLOCK_LIBRARYCMS$$MSG_SUMMARYCMS$$PAR_ARG_BLOCK_CLEANUPCMS$$RES_MARK_REPLACEDCMS$$RES_REPORT_RESERVATIONS CMS$$RES_WILDCMS$$RES_WILD_INITCMS$$SYS_GETACTCMS$$TRA_BEGIN_TRANSACTIONCMS$$TRA_END_TRANSACTION STR$FREE1_DX CMS$_CONFIRMCMS$_ERRUNRESERVES CMS$_NOREF CMS$_NOTFOUND CMS$_NOUNLOCKCMS$_NOUNRESERVE CMS$_NULLSTR CMS$_STOPPEDCMS$_UNRESERVED CMS$_ZEROADDCMS$_UNRESERVESCMS$$K_WRITE_TRANSACTIONCMS$$EXC_HANDLER_2CMS$$PAR_CHECK_ARG_COUNT CMS$_NULLARG CMS$_BADCALLCMS$$PAR_CHECK_LIB_DBCMS$$PAR_CHECK_DESCRIPTORCMS$$PAR_CHECK_DESCRIPTOR CMS$_ACCVIORD CMS$_ACCVIOWT B_USER_MODE CMS$_BADCALL CMS$_ACCVIORD CMS$_ACCVIOWT B_USER_MODE CMS$_BADCALLCMS$$PAR_CHECK_DESCRIPTOR CMS$_INVLIBDBAeCMS$_INVLENGTH CMS$_BADCALL CMS$_BADCALL CMS$_MSGPOST CMS$_MSGPOSTCMS$_BUGLP_  CMS$UNRESERVECMS$$PAR_CHECK_DESCRIPTOR[Z LIB$SIGNALY4^Ԯ~mlRЬRlUЬUlXЬ XlWЬWlTЬTlVЬVjSSl~CMS$$PAR_CHECK_ARG_COUNTU~ݏ CMS$_NULLARG78Sݏ CMS$_BADCALL78iSRCMS$$PAR_CHECK_LIB_DBS UkPnQP Џ,Ԯ0.P,Q0S Wk PЮQP ЏԮ PQ T! B_USER_MODEdTݏ CMS$_ACCVIORD78Sݏ$ CMS$_BADCALL78iTWdWV! B_USER_MODEfVݏ CMS$_ACCVIORD78Sݏ CMS$_BADCALL78iSXkPЮQP Џ$Ԯ(&P$Q(b.~ݏCMS$_INVLENGTH78~ݏ CMS$_INVLIBDB78SݏA CMS$_BADCALL78iԢԢ0Ԣ4Ԣ8<ԢXԢ\V8R~ݏ CMS$_ZEROADD78Sݏ CMS$_BADCALL78i,2 ݏ CMS$_NULLSTRݏCMS$_NOUNRESERVE~ݏ CMS$_MSGPOSTiݏCMS$$K_WRITE_TRANSACTIONRCMS$$LOK_LOCK_LIBRARYPݏ CMS$_NOREF~ݏ CMS$_MSGPOSTi$W4RPSRCMS$$LOK_UNLOCK_LIBRARYP~PP~~ݏ CMS$_NOUNLOCK78~ݏCMS$_BUG78iSPЬPРP^}~CMS$$EXC_HANDLER_2M  ]@  ,S$CMS020.Cs fR SER.CMS]CMSV2SHROB3.OBJ;1^"a    UNRESERVEk[$PUNRESERVE!AS(!AS)Unreserve element !AS? [Y/N] (N): P QQ"Tg CMS$_MSGPOST CMS$_MSGPOST CMS$_MSGPOST CMS$_MSGPOST CMS$_MSGPOST CMS$_MSGPOST_PCMS$$HIS_LOG_CLEANUP[CMS$$PAR_ARG_BLOCK_CLEANUPZ0Y LIB$SIGNALXЏCMS$_NOUNRESERVEW$VЏ CMS$_MSGPOSTU ^ЬRCMS$$SYS_GETACTPTȟhTݬRhCMS$$RES_WILD_INITP*ݬ|~~ifRCMS$$HIS_LOG_INITPSSjݬW~UhP CMS$$RES_WILDPSS1VОRCMS$$CFM_CONFIRM_ACTIONPSS CMS$_STOPPEDS CMS$_CONFIRM ЏԮЏԮЏ< |$|,|4 |H|@d|~RCMS$$CON_FIND_GENERATIONRCMS$$CON_GET_GENERATION^TRCMS$$RES_REPORT_RESERVATIONSn~RCMS$$CFM_CONFIRM_RESREPP12RCMS$$TRA_BEGIN_TRANSACTIONP W~UhPSjRkSPݮݮ ݬTx~$R CMS$$RES_MARK_REPLACEDݬ~R CMS$$HIS_LOGP W$RCMS$$TRA_END_TRANSACTION ~CMS$$FIL_DELETE_VRSݏCMS$_UNRESERVED~Uh1RkjS CMS$_NOTFOUNDݬW~Uhݏ_ECMS$_ERRUNRESERVESݏCMS$_UNRESERVESRCMS$$MSG_SUMMARYE  & V g f       %= LIB$SIGNAL0$OWN$$OWN$0\$PLIT$$PLIT$\$CODE$$CODE$ QsD5 CMS$USRUTLV226-Oct-1984 02:1826-Oct-1984 02:18VAX-11 Bliss-32 T4.1-745+ CMS$USRUTLCMS$GET_STRINGO CMS$$D_PUT_DATAPK CMS$$F_USR_PUT STR$COPY_DX CMS$_NORMAL CMS$_MULTCALLRP1 CMS$GET_STRINGCݼݬ STR$COPY_DX6  [ 2CMS$PUT_STRING CMS$PUT_STRING'ݬ STR$COPY_DX$  $ $GLOBAL$$GLOBAL$ )$CODE$$CODE$)5 CMS$VEREDFV226-Oct-1984 02:1826-Oct-1984 02:18VAX-11 Bliss-32 T4.1-7458 CMS$VEREDF"CMS$$VER_ELEMENT_DATA_FILESUPVERIFY /REPAIR!AS;*00CMSPQQQ *.*;*CMS$$K_REPAIR_TRANSACTION CMS$_BADCRCCMS$_BADCRETIME CMS$_DUPEDF CMS$_EDFMISS CMS$_ERRCLOSE CMS$_NODELETE CMS$_NOELEENT CMS$_NORMAL CMS$_NOTBYCMS CMS$_NOTFOUND CMS$_OPENIN CMS$_REPEDF CMS$_REPDEL CMS$_NOREPEDF CMS$_VEREDFCMS$_VEREDFERRCMS$$CON_FIND_ELEMENTCMS$$CON_GET_ELEMENT CMS$$CRC_CALCCMS$$FIL_DELETE_VRS CMS$$FIL_FINDCMS$$FIL_VERSIONCMS$$FIX_CHECKSUMCMS$$FIX_DATA_FILE CMS$$HIS_LOGCMS$$HIS_LOG_INITCMS$$HIS_LOG_CLEANUPCMS$$IO_IOB_PURGECMS$$IO_READ_ELEMENT_RECORDCMS$$PAR_ARG_BLOCK_INITCMS$$PAR_ELE_EXPCMS$$PAR_ARG_BLOCK_CLEANUP CMS$$TIM_LEQCMS$$TRA_BEGIN_TRANSACTIONCMS$$TRA_END_TRANSACTIONCMS$$TRA_TRANSACTION_TIME STR$CONCAT STR$FREE1_DX CMS$_MSGBUILD CMS$_MSGBUILDCMS$_MSGCONTINUECMS$_MSGCANCEL CMS$_MSGPOST_m CMS$_MSGPOST CMS$_MSGPOSTCMS$$IO_DELETECMS$_MSGCONTINUE CMS$_MSGPOST CMS$_MSGPOSTKP_( CMS$$VER_ELEMENT_DATA_FILESL^ЬVЦ Pݏ CMS$_NORMALЏ CMS$_NORMALY0ݬVCMS$$PAR_ARG_BLOCK_INITPWWQZjCMS$$K_REPAIR_TRANSACTIONEݬ |~~ VCMS$$HIS_LOG_INITPWW RCMS$$PAR_ARG_BLOCK_CLEANUP1`VCMS$$TRA_TRANSACTION_TIMECMS$$PAR_ELE_EXPP[[1GЏԮ Џ CMS$_NORMALYVCMS$$TRA_BEGIN_TRANSACTIONPWW4 STR$CONCAT,nh)hjn΋Xh CMS$$FIL_FINDPWX~htVPWWWYծ3XЏ CMS$_DUPEDFYjCMS$$K_REPAIR_TRANSACTIONxݏ CMS$_DUPEDF~ݏ CMS$_MSGBUILD LIB$SIGNALX0ݏ CMS$_EDFMISS~ݏ CMS$_MSGBUILD LIB$SIGNALPYhCMS$$IO_IOB_PURGEjCMS$$K_REPAIR_TRANSACTIONbѮXWծRY CMS$_EDFMISSI,nh)hjn΋h CMS$$FIL_FINDPhtVݟhCMS$$IO_IOB_PURGEU STR$FREE1_DXY0ݏ CMS$_VEREDF~ݏCMS$_MSGCONTINUE LIB$SIGNALTjCMS$$K_REPAIR_TRANSACTIONqѮV~ݏCMS$_MSGCANCEL LIB$SIGNAL0ݏ CMS$_REPEDF~ݏ CMS$_MSGPOST LIB$SIGNALݬ 4V CMS$$HIS_LOGPWWVCMS$$TRA_END_TRANSACTIONPWW6WP0ݏ CMS$_NOREPEDF~ݏ CMS$_MSGPOST0ݏCMS$_VEREDFERR~ݏ CMS$_MSGPOST LIB$SIGNALPnjCMS$$K_REPAIR_TRANSACTIONѮX4CMS$$FIL_DELETE_VRS1jCMS$$K_REPAIR_TRANSACTION VCMS$$HIS_LOG_CLEANUPCMS$$PAR_ARG_BLOCK_CLEANUP[ CMS$_NOTFOUND[P,nh)hЏ jn΋h CMS$$FIL_FINDP1PР(T;P-PL( );P! command tables. It will be used during installation with ! the following command:!s! $SET COMMAND CMS!OA! When the user activates CMS by entering a command, this entrywE! in the system command table directs control to the CMS.EXE image.!O! ENVIRONMENT: User mode.!O! AUTHOR: Marie McLane!E!--sdefine verb CMS$ image cms+ parameter P1, value(type=$rest_of_line),o label=commandt!!ELUDOM End of module CMS.CLDt*[USER.CMS]CMSSHR.OPT;2+,u ./ 4\-R 0123KPO56%27(U ?89GHJUNIVERSAL=CMS$_ABSTIM UNIVERSAL=CMS$_ACCVIORD UNIVERSAL=CMS$_ACCVIOWT UNIVERSAL=CMS$_ALL UNIVERSAL=CMS$_ALPHACHAR UNIVERSAL=CMS$_ALRDYEXISTS UNIVERSAL=CMS$_ALRDYINCLS UNIVERSAL=CMS$_ALRDYINGRP UNIVERSAL=CMS$_ANNOTATED UNIVERSAL=CMS$_ANNOTATIONS UNIVERSAL=CMS$_ARGCONFLICT UNIVERSAL=CMS$_ARGCOUNTERR UNIVERSAL=CMS$_BADBUG UNIVERSAL=CMS$_BADCALL UNIVERSAL=CMS$_BADCRC UNIVERSAL=CMS$_BADLIB UNIVERSAL=CMS$_BADCRETIME UNIVERSAL=CMS$_BADLENSTR UNIVERSAL=CMS$_BADLSTSTR UNIVERSAL=CMS$_BADORDSTR UNIVERSAL=CMS$_BADPTR UNIVERSAL=CMS$_BADTYPSTR UNIVERSAL=CMS$_BADVERSTR UNIVERSAL=CMS$_BCKPTRSTR UNIVERSAL=CMS$_CNTSTR UNIVERSAL=CMS$_BADSTRING UNIVERSAL=CMS$_BADVERSION UNIVERSAL=CMS$_BUG UNIVERSAL=CMS$_CLASSGENEXP UNIVERSAL=CMS$_CMPSIGNAL UNIVERSAL=CMS$_COMPARED UNIVERSAL=CMS$_CONCLS UNIVERSAL=CMS$_CONCURRENT UNIVERSAL=CMS$_CONELE UNIVERSAL=CMS$_CONFIRM UNIVERSAL=CMS$_CONFLICTS UNIVERSAL=CMS$_CONGRP UNIVERSAL=CMS$_CONHIS UNIVERSAL=CMS$_CONRES UNIVERSAL=CMS$_CONVERTED UNIVERSAL=CMS$_CONVERTLIB UNIVERSAL=CMS$_COPIED UNIVERSAL=CMS$_COPIES UNIVERSAL=CMS$_CREATED UNIVERSAL=CMS$_CREATES UNIVERSAL=CMS$_DEFAULTDIR UNIVERSAL=CMS$_DELETED UNIVERSAL=CMS$_DELETIONS UNIVERSAL=CMS$_DIFFERENT UNIVERSAL=CMS$_DUPEDF UNIVERSAL=CMS$_EDFMISS UNIVERSAL=CMS$_ELEEXISTS UNIVERSAL=CMS$_ELEEXP UNIVERSAL=CMS$_ELEXPIGN UNIVERSAL=CMS$_ENDOFLIST UNIVERSAL=CMS$_ENDPTRSTR UNIVERSAL=CMS$_EOF UNIVERSAL=CMS$_ERRANNOTATIONS UNIVERSAL=CMS$_ERRCLOSE UNIVERSAL=CMS$_ERRCOPIES UNIVERSAL=CMS$_ERRCREATES UNIVERSAL=CMS$_ERRDELETIONS UNIVERSAL=CMS$_ERRFETCHES UNIVERSAL=CMS$_ERRINSERTIONS UNIVERSAL=CMS$_ERRMODIFIES UNIVERSAL=CMS$_ERREMOVALS UNIVERSAL=CMS$_ERREPLACEMENTS UNIVERSAL=CMS$_ERRESERVATIONS UNIVERSAL=CMS$_ERRELEHIS UNIVERSAL=CMS$_ERRUNRESERVES UNIVERSAL=CMS$_ERRVER2 UNIVERSAL=CMS$_ERRVERARC UNIVERSAL=CMS$_ERRVERCLS UNIVERSAL=CMS$_ERRVERCON UNIVERSAL=CMS$_ERRVEREDFS UNIVERSAL=CMS$_ERRVERELE UNIVERSAL=CMS$_ERRVERFRE UNIVERSAL=CMS$_ERRVERGRP UNIVERSAL=CMS$_ERRVERRES UNIVERSAL=CMS$_ERRVERSTR UNIVERSAL=CMS$_EXCLUDE UNIVERSAL=CMS$_EXIT UNIVERSAL=CMS$_FETCHED UNIVERSAL=CMS$_FETCHES UNIVERSAL=CMS$_FILEXISTS UNIVERSAL=CMS$_FILINUSE UNIVERSAL=CMS$_FIXCRC UNIVERSAL=CMS$_FIXHDR UNIVERSAL=CMS$_GENCREATED UNIVERSAL=CMS$_GENEXISTS UNIVERSAL=CMS$_GENINSERTED UNIVERSAL=CMS$_GENNOINSERT UNIVERSAL=CMS$_GENNOREMOVE UNIVERSAL=CMS$_GENNOTFOUND UNIVERSAL=CMS$_GENREMOVED UNIVERSAL=CMS$_GROUPEXP UNIVERSAL=CMS$_HASFILES UNIVERSAL=CMS$_HASMEMBERS UNIVERSAL=CMS$_HISNOTSTM UNIVERSAL=CMS$_HISTDEL UNIVERSAL=CMS$_IDENTICAL UNIVERSAL=CMS$_ILLCHAR UNIVERSAL=CMS$_ILLCLSNAM UNIVERSAL=CMS$_ILLCONREC UNIVERSAL=CMS$_ILLDATREC UNIVERSAL=CMS$_ILLEGALDEV UNIVERSAL=CMS$_ILLELENAM UNIVERSAL=CMS$_ILLELEXP UNIVERSAL=CMS$_ILLFORMAT UNIVERSAL=CMS$_ILLGEN UNIVERSAL=CMS$_ILLGRPNAM UNIVERSAL=CMS$_ILLHIST UNIVERSAL=CMS$_ILLNAME UNIVERSAL=CMS$_ILLNOTE UNIVERSAL=CMS$_ILLPAR UNIVERSAL=CMS$_ILLPOSVAL UNIVERSAL=CMS$_ILLREFDIR UNIVERSAL=CMS$_ILLRMK UNIVERSAL=CMS$_ILLSEQ UNIVERSAL=CMS$_ILLVAR UNIVERSAL=CMS$_INSERTED UNIVERSAL=CMS$_INSERTIONS UNIVERSAL=CMS$_INUSE UNIVERSAL=CMS$_INVFETDB UNIVERSAL=CMS$_INVLENGTH UNIVERSAL=CMS$_INVLIBDB UNIVERSAL=CMS$_INVOKERBK UNIVERSAL=CMS$_INVSTRDES UNIVERSAL=CMS$_ISMEMBER UNIVERSAL=CMS$_ISRESERVED UNIVERSAL=CMS$_LIBIS UNIVERSAL=CMS$_LIBSET UNIVERSAL=CMS$_MAXARG UNIVERSAL=CMS$_MERGECONFLICT UNIVERSAL=CMS$_MERGECOUNT UNIVERSAL=CMS$_MERGED UNIVERSAL=CMS$_MINARG UNIVERSAL=CMS$_MISBLKSTR UNIVERSAL=CMS$_MISMATCON UNIVERSAL=CMS$_MODIFIED UNIVERSAL=CMS$_MODIFICATIONS UNIVERSAL=CMS$_MSGBUILD UNIVERSAL=CMS$_MSGCANCEL UNIVERSAL=CMS$_MSGCONTINUE UNIVERSAL=CMS$_MSGPOST UNIVERSAL=CMS$_MSSBLKSTR UNIVERSAL=CMS$_MULTCALL UNIVERSAL=CMS$_MULTPAR UNIVERSAL=CMS$_MUSTBEDIR UNIVERSAL=CMS$_MUSTBEFIL UNIVERSAL=CMS$_MUSTBEPOS UNIVERSAL=CMS$_MUTEXC UNIVERSAL=CMS$_NEEDNUMBER UNIVERSAL=CMS$_NEEDPERIOD UNIVERSAL=CMS$_NETNOTALL UNIVERSAL=CMS$_NOALTDELETE UNIVERSAL=CMS$_NOANNOTATE UNIVERSAL=CMS$_NOBACKUP UNIVERSAL=CMS$_NOCHANGES UNIVERSAL=CMS$_NOCLOSE UNIVERSAL=CMS$_NOCLS UNIVERSAL=CMS$_NOCOMPARE UNIVERSAL=CMS$_NOCONCUR UNIVERSAL=CMS$_NOCONFIRM UNIVERSAL=CMS$_NOCONRES UNIVERSAL=CMS$_NOCONVERT UNIVERSAL=CMS$_NOCOPY UNIVERSAL=CMS$_NOCREATE UNIVERSAL=CMS$_NODELETE UNIVERSAL=CMS$_NODELFUTURE UNIVERSAL=CMS$_NOELE UNIVERSAL=CMS$_NOELEENT UNIVERSAL=CMS$_NOERRLOG UNIVERSAL=CMS$_NOFETCH UNIVERSAL=CMS$_NOFILE UNIVERSAL=CMS$_NOGRP UNIVERSAL=CMS$_NOHIS UNIVERSAL=CMS$_NOHISPAR UNIVERSAL=CMS$_NOINSERT UNIVERSAL=CMS$_NOINPUT UNIVERSAL=CMS$_NOMATCH UNIVERSAL=CMS$_NOMODARG UNIVERSAL=CMS$_NOMODIFY UNIVERSAL=CMS$_NOMOREPARAM UNIVERSAL=CMS$_NORECOVER UNIVERSAL=CMS$_NOREF UNIVERSAL=CMS$_NOREMARK UNIVERSAL=CMS$_NOREMOVAL UNIVERSAL=CMS$_NOREPAIR UNIVERSAL=CMS$_NOREPEDF UNIVERSAL=CMS$_NOREPLACE UNIVERSAL=CMS$_NOREPRO UNIVERSAL=CMS$_NORES UNIVERSAL=CMS$_NORESERVATION UNIVERSAL=CMS$_NORESNOCON UNIVERSAL=CMS$_NORESRO UNIVERSAL=CMS$_NORMAL UNIVERSAL=CMS$_NOSINCE UNIVERSAL=CMS$_NOSRCHLST UNIVERSAL=CMS$_NOSUPERSEDE UNIVERSAL=CMS$_NOTBYCMS UNIVERSAL=CMS$_NOTCOMPLETED UNIVERSAL=CMS$_NOTCMSLIB UNIVERSAL=CMS$_NOTCRELIB UNIVERSAL=CMS$_NOTESVALREQ UNIVERSAL=CMS$_NOTFOUND UNIVERSAL=CMS$_NOTLOGGED UNIVERSAL=CMS$_NOTRESBYOU UNIVERSAL=CMS$_NOTSET UNIVERSAL=CMS$_NOTTHERE UNIVERSAL=CMS$_NOTWILD UNIVERSAL=CMS$_NOUNRESERVE UNIVERSAL=CMS$_NOVERIFY UNIVERSAL=CMS$_NOWLDCARD UNIVERSAL=CMS$_NULLARG UNIVERSAL=CMS$_NULLSTR UNIVERSAL=CMS$_NUMGENEXP UNIVERSAL=CMS$_OLDSYNTAX UNIVERSAL=CMS$_ONEPERIOD UNIVERSAL=CMS$_OPENIN UNIVERSAL=CMS$_OPENIN1 UNIVERSAL=CMS$_OPENIN2 UNIVERSAL=CMS$_OPENOUT UNIVERSAL=CMS$_OVERDRAFT UNIVERSAL=CMS$_POSVALREQ UNIVERSAL=CMS$_PROCEEDING UNIVERSAL=CMS$_QUALCONFLICT UNIVERSAL=CMS$_READERR UNIVERSAL=CMS$_READIN UNIVERSAL=CMS$_READONLY UNIVERSAL=CMS$_RECGRP UNIVERSAL=CMS$_RECNOTNEC UNIVERSAL=CMS$_RECOVERED UNIVERSAL=CMS$_REMARK UNIVERSAL=CMS$_REMOVALS UNIVERSAL=CMS$_REMOVED UNIVERSAL=CMS$_REPAIRED UNIVERSAL=CMS$_REPDEL UNIVERSAL=CMS$_REPEDF UNIVERSAL=CMS$_REPLACEMENTS UNIVERSAL=CMS$_RESERVATIONS UNIVERSAL=CMS$_RESERVED UNIVERSAL=CMS$_RESERVEDBYYOU UNIVERSAL=CMS$_SAMELINE UNIVERSAL=CM!9$CMS020.Cu R [USER.CMS]CMSSHR.OPT;2OBJ;1C"S$_SEQFAIL UNIVERSAL=CMS$_SEQUENCED UNIVERSAL=CMS$_STARTHIS UNIVERSAL=CMS$_STOPPED UNIVERSAL=CMS$_SYSTIMERR UNIVERSAL=CMS$_SYSTIMDIF UNIVERSAL=CMS$_TIMEORDER UNIVERSAL=CMS$_TOOLONG UNIVERSAL=CMS$_TRYAGNLAT UNIVERSAL=CMS$_UNDEFLIB UNIVERSAL=CMS$_UNFOUT UNIVERSAL=CMS$_UNRECTYPE UNIVERSAL=CMS$_UNRESERVED UNIVERSAL=CMS$_UNRESERVES UNIVERSAL=CMS$_UNSUPFRMT UNIVERSAL=CMS$_USERECOVER UNIVERSAL=CMS$_USEREPAIR UNIVERSAL=CMS$_USERERR UNIVERSAL=CMS$_USESETLIB UNIVERSAL=CMS$_VARLETTER UNIVERSAL=CMS$_VER2 UNIVERSAL=CMS$_VERARC UNIVERSAL=CMS$_VERCLS UNIVERSAL=CMS$_VERCON UNIVERSAL=CMS$_VEREDF UNIVERSAL=CMS$_VEREDFERR UNIVERSAL=CMS$_VEREDFS UNIVERSAL=CMS$_VERELE UNIVERSAL=CMS$_VERFRE UNIVERSAL=CMS$_VERGRP UNIVERSAL=CMS$_VERIFIED UNIVERSAL=CMS$_VERLMTERR UNIVERSAL=CMS$_VERRES UNIVERSAL=CMS$_VERSTR UNIVERSAL=CMS$_WAITING UNIVERSAL=CMS$_WILDCONFLICT UNIVERSAL=CMS$_WILDMATCH UNIVERSAL=CMS$_WILDNOMATCH UNIVERSAL=CMS$_WILDVER UNIVERSAL=CMS$_WRITEERR UNIVERSAL=CMS$_ZEROADD UNIVERSAL=CMS$_ZLENBLK *[USER.CMS]CMSSHR.OBJ;1+,v ../ 4Z-R 0123KPO56bX27 | ?89GHJ0CMSSHR226-OCT-1984 15:40 VAX/VMS Macro V04-00MACRO CMSSHRtransfer vector for cmsCMS$$CFM_INIT_CONFIRMCMS$$CNC_CONTROLC_CLEANUPCMS$$CNC_CONTROLC_INITCMS$$CNC_CONTROLC_SETUPCMS$$CNC_SAVE_CTRL_C_STATUSCMS$$CNV_ASCDECCMS$$CON_FIND_ELEMENTCMS$$CON_FIND_GENERATIONCMS$$CON_GET_ELEMENTCMS$$CON_GET_GENERATION CMS$$DIR_FINDCMS$$ELE_CMP_GENCMS$$ERL_LOG_INITCMS$$EXC_HANDLER_1CMS$$EXC_INIT_LOGCMS$$EXI_CANCEL_HANDLERCMS$$EXI_DECLARE_HANDLERCMS$$IO_IOB_PURGECMS$$LNM_CREATE_LOGICALCMS$$LNM_DELETE_LOGICAL CMS$$OUTPUTCMS$$RBK_CLEANUP_1 CMS$$RB_CLOSE CMS$$RB_OPEN CMS$$RB_PUT CMS$$SETLIBCMS$$SHOW_GENERATIONCMS$$SHOW_GROUP_MEMBERCMS$$SHO_DECODE_REC_ATTRIBUTESCMS$$SHO_DECODE_REC_FORMATCMS$$SHO_FILE_RECORD_DATACMS$$TIM_ASC_TO_BIN CMS$$TIM_LEQCMS$$TRM_GET_WIDTHCMS$$TST_INIT_VECTOR CMS$ANNOTATECMS$COPY_ELEMENTCMS$CREATE_CLASSCMS$CREATE_ELEMENTCMS$CREATE_GROUPCMS$CREATE_LIBRARYCMS$DELETE_CLASSCMS$DELETE_ELEMENTCMS$DELETE_GROUPCMS$DELETE_HISTORYCMS$DIFFERENCES CMS$FETCHCMS$FETCH_CLOSE CMS$FETCH_GETCMS$FETCH_OPENCMS$GET_STRINGCMS$INSERT_ELEMENTCMS$INSERT_GENERATIONCMS$INSERT_GROUPCMS$MODIFY_CLASSCMS$MODIFY_ELEMENTCMS$MODIFY_GROUPCMS$MODIFY_LIBRARYCMS$PUT_STRING CMS$REMARKCMS$REMOVE_ELEMENTCMS$REMOVE_GENERATIONCMS$REMOVE_GROUP CMS$REPLACECMS$SET_LIBRARYCMS$SHOW_CLASSCMS$SHOW_ELEMENTCMS$SHOW_GENERATIONCMS$SHOW_GROUPCMS$SHOW_HISTORYCMS$SHOW_LIBRARYCMS$SHOW_RESERVATIONSCMS$SHOW_VERSION CMS$UNRESERVE CMS$VERIFY . ABS .PX$TRANSPA CMS$ANNOTATE CMS$ANNOTATE& CMS$ANNOTATE3ACMS$COPY_ELEMENT CMS$COPY_ELEMENT&CMS$COPY_ELEMENT3ACMS$CREATE_CLASS CMS$CREATE_CLASS&CMS$CREATE_CLASS3ACMS$CREATE_ELEMENT CMS$CREATE_ELEMENT&CMS$CREATE_ELEMENT3ACMS$CREATE_GROUP CMS$CREATE_GROUP&CMS$CREATE_GROUP3ACMS$CREATE_LIBRARY CMS$CREATE_LIBRARY&CMS$CREATE_LIBRARY3ACMS$DELETE_CLASS CMS$DELETE_CLASS&CMS$DELETE_CLASS3ACMS$DELETE_ELEMENT CMS$DELETE_ELEMENT&CMS$DELETE_ELEMENT3ACMS$DELETE_GROUP CMS$DELETE_GROUP&CMS$DELETE_GROUP3ACMS$DELETE_HISTORY CMS$DELETE_HISTORY&CMS$DELETE_HISTORY3ACMS$DIFFERENCES CMS$DIFFERENCES&CMS$DIFFERENCES3A CMS$FETCH CMS$FETCH& CMS$FETCH3ACMS$INSERT_ELEMENT CMS$INSERT_ELEMENT&CMS$INSERT_ELEMENT3ACMS$INSERT_GENERATION CMS$INSERT_GENERATION&CMS$INSERT_GENERATION3ACMS$INSERT_GROUP CMS$INSERT_GROUP&CMS$INSERT_GROUP3ACMS$MODIFY_CLASS CMS$MODIFY_CLASS&CMS$MODIFY_CLASS3ACMS$MODIFY_ELEMENT CMS$MODIFY_ELEMENT&CMS$MODIFY_ELEMENT3ACMS$MODIFY_GROUP CMS$MODIFY_GROUP&CMS$MODIFY_GROUP3A CMS$REMARK CMS$REMARK& CMS$REMARK3ACMS$REMOVE_ELEMENT CMS$REMOVE_ELEMENT&CMS$REMOVE_ELEMENT3ACMS$REMOVE_GENERATION CMS$REMOVE_GENERATION&CMS$REMOVE_GENERATION3ACMS$REMOVE_GROUP CMS$REMOVE_GROUP&CMS$REMOVE_GROUP3A CMS$REPLACE CMS$REPLACE& CMS$REPLACE3ACMS$SET_LIBRARY CMS$SET_LIBRARY&CMS$SET_LIBRARY3ACMS$SHOW_CLASS CMS$SHOW_CLASS&CMS$SHOW_CLASS3ACMS$SHOW_ELEMENT CMS$SHOW_ELEMENT&CMS$SHOW_ELEMENT3ACMS$SHOW_GENERATION CMS$SHOW_GENERATION&CMS$SHOW_GENERATION3ACMS$SHOW_GROUP CMS$SHOW_GROUP&CMS$SHOW_GROUP3ACMS$SHOW_HISTORY CMS$SHOW_HISTORY&CMS$SHOW_HISTORY3ACMS$SHOW_RESERVATIONS CMS$SHOW_RESERVATIONS&CMS$SHOW_RESERVATIONS3ACMS$SHOW_VERSION CMS$SHOW_VERSION&CMS$SHOW_VERSION3A CMS$UNRESERVE CMS$UNRESERVE& CMS$UNRESERVE3A CMS$VERIFY CMS$VERIFY& CMS$VERIFY3ACMS$GET_STRING CMS$GET_STRING&CMS$GET_STRING3ACMS$PUT_STRING CMS$PUT_STRING&CMS$PUT_STRING3ACMS$$CFM_INIT_CONFIRM CMS$$CFM_INIT_CONFIRM&CMS$$CFM_INIT_CONFIRM3ACMS$$CNC_SAVE_CTRL_C_STATUS CMS$$CNC_SAVE_CTRL_C_STATUS&CMS$$CNC_SAVE_CTRL_C_STATUS3ACMS$$CNV_ASCDEC CMS$$CNV_ASCDEC&CMS$$CNV_ASCDEC3A CMS$$DIR_FIND CMS$$DIR_FIND& CMS$$DIR_FIND3ACMS$$ERL_LOG_INIT CMS$$ERL_LOG_INIT&CMS$$ERL_LOG_INIT3ACMS$$EXC_HANDLER_1 CMS$$EXC_HANDLER_1&CMS$$EXC_HANDLER_13ACMS$$EXC_INIT_LOG CMS$$EXC_INIT_LOG&CMS$$EXC_INIT_LOG3ACMS$$EXI_CANCEL_HANDLER CMS$$EXI_CANCEL_HANDLER&CMS$$EXI_CANCEL_HANDLER3ACMS$$EXI_DECLARE_HANDLER CMS$$EXI_DECLARE_HANDLER&CMS$$EXI_DECLARE_HANDLER3ACMS$$IO_IOB_PURGE CMS$$IO_IOB_PURGE&CMS$$IO_IOB_PURGE3A CMS$$OUTPUT CMS$$OUTPUT& CMS$$OUTPUT3A CMS$$RB_CLOSE CMS$$RB_CLOSE& CMS$$RB_CLOSE3A CMS$$RB_OPEN CMS$$RB_OPEN& CMS$$RB_OPEN3A CMS$$RB_PUT CMS$$RB_PUT& CMS$$RB_PUT3ACMS$$RBK_CLEANUP_1 CMS$$RBK_CLEANUP_1&CMS$$RBK_CLEANUP_13A CMS$$SETLIB CMS$$SETLIB& CMS$$SETLIB3ACMS$$SHO_DECODE_REC_ATTRIBUTES CMS$$SHO_DECODE_REC_ATTRIBUTES&CMS$$SHO_DECODE_REC_ATTRIBUTES3ACMS$$SHO_DECODE_REC_FORMAT CMS$$SHO_DECODE_REC_FORMAT&CMS$$SHO_DECODE_REC_FORMAT3ACMS$$SHOW_GENERATION CMS$$SHOW_GENERATION&CMS$$SHOW_GENERATION3ACMS$$SHOW_GROUP_MEMBER CMS$$SHOW_GROUP_MEMBER&CMS$$SHOW_GROUP_MEMBER3ACMS$$TIM_ASC_TO_BIN CMS$$TIM_ASC_TO_BIN&CMS$$TIM_ASC_TO_BIN3A CMS$$TIM_LEQ CMS$$TIM_LEQ& CMS$$TIM_LEQ3ACMS$$TRM_GET_WIDTH CMS$$TRM_GET_WIDTH&CMS$$TRM_GET_WIDTH3ACMS$$CON_FIND_ELEMENT CMS$$CON_FIND_ELEMENT&CMS$$CON_FIND_ELEMENT3ACMS$$CON_GET_ELEMENT CMS$$CON_GET_ELEMENT&CMS$$CON_GET_ELEMENT3ACMS$$CON_FIND_GENERATION CMS$$CON_FIND_GENERATION&CMS$$CON_FIND_GENERATION3ACMS$$CON_GET_GENERATION CMS$$CON_GET_GENERATION&CMS$$CON_GET_GENERATION3ACMS$$ELE_CMP_GEN CMS$$ELE_CMP_GEN&CMS$$ELE_CMP_GEN3ACMS$$TST_INIT_VECTOR CMS$$TST_INIT_VECTOR&CMS$$TST_INIT_VECTOR3ACMS$$LNM_CREATE_LOGICAL CMS$$LNM_CREATE_LOGICAL&CMS$$LNM_CREATE_LOGICAL3ACMS$$LNM_DELETE_LOGICAL CMS$$LNM_DELETE_LOGICAL&CMS$$LNM_DELETE_LOGICAL3ACMS$$SHO_FILE_RECORD_DATA CMS$$SHO_FILE_RECORD_DATA&CMS$$SHO_FILE_RECORD_DATA3ACMS$FETCH_OPEN CMS$FETCH_OPEN&CMS$FETCH_OPEN3A CMS$FETCH_GET CMS$FETCH_GET& CMS$FETCH_GET3ACMS$FETCH_CLOSE CMS$FETCH_CLOSE&CMS$FETCH_CLOSE3ACMS$MODIFY_LIBRARY CMS$MODIFY_LIBRARY\&CMS$MODIFY_LIBRARY3ACMS$SHOW_LIBRARY "?:$CMS020.Cv .R [USER.CMS]CMSSHR.OBJ;1OBJ;1]8CMS$SHOW_LIBRARY&CMS$SHOW_LIBRARY3ACMS$$CNC_CONTROLC_SETUP CMS$$CNC_CONTROLC_SETUP&CMS$$CNC_CONTROLC_SETUP3ACMS$$CNC_CONTROLC_INIT CMS$$CNC_CONTROLC_INIT&CMS$$CNC_CONTROLC_INIT3ACMS$$CNC_CONTROLC_CLEANUP CMS$$CNC_CONTROLC_CLEANUP&CMS$$CNC_CONTROLC_CLEANUP3 CMSSHR$TRANSX*[USER.CMS]PROSHR.OBJ;2+,x ./ 4V-R 0123KPO56,27 ?89GHJ5 CMS$PROSHRV226-OCT-1984 15:03 VAX/VMS Macro V04-00MACRO PROSHR.MAR*Protected Sharable Image system service } CMS$$SYS_DEQ CMS$$SYS_ENQCMS$$SYS_RUNDOWN CMS$RUNDOWN EXEC_DISPATCH  KERNEL_DISPATCH . ABS .P$ABS$ PPPCMS$KERNEL_NARGP CMS$EXEC_NARGP $$$TRANSFER_VECTOR5PA CMS$$SYS_ENQ CMS$$SYS_ENQ& A3&P CMS$EXEC_DISP1nP CMS$$SYS_ENQ3 <4&PQA CMS$$SYS_DEQ CMS$$SYS_DEQ& A3&PP CMS$$SYS_DEQ3 <4&  CMS$SERVICES<P 4  4 4>CMS$KERNEL_DISP0PP< P<PQQAQAQ QlՑl4@]^PCMS$KERNEL_DISP2P<CMS$EXEC_DISP0N P< P<PQQAQAQ QlՑl A4@]^P ACMS$EXEC_DISP2 P CMS$CODE$ PRCMS$$SYS_RUNDOWNЎR CMS$PROSHRCMS$KERNEL_NARG CMS$EXEC_NARG$$$TRANSFER_VECTORCMS$EXEC_DISP1 CMS$SERVICES CMS$KERNEL_DISP0>CMS$KERNEL_DISP2 CMS$EXEC_DISP0< CMS$EXEC_DISP2 CMS$CODE *[USER.CMS]SYSENQ.OBJ;1+,y './ 4X -R 0123KPO56>27 H ?89GHJ5 CMS$SYSENQV226-Oct-1984 02:1426-Oct-1984 02:14VAX-11 Bliss-32 T4.1-745) CMS$SYSENQ CMS$$SYS_ENQSYS$DEQSYS$ENQP  CMS$$SYS_ENQ"Ь RlSYS$ENQPТ>  Q2 CMS$$SYS_DEQ  CMS$$SYS_DEQlSYS$DEQX  ( RCMS$$SYS_RUNDOWN#JUST_IN_CASE_HANDLER SYS$UNWIND|~ SYS$UNWIND #  5SYS$DEQSYS$DEQ / CMS$$SYS_RUNDOWNC SSYS$DEQRm~cb}~~cb~^}~, / *  :$OWN$$OWN$i$CODE$$$CODE$iRS/S#862xq ilO?D S["ďcY~IT mY ?chmS\{&!&.[ /30kg>N/\KޕtSfʊËbDh:mtBEɭ_>}!tx JIφk,xX#P7dkÐgi*c> nڪ'B169qG4NwuE/iQ (1WQl/DnPSmrf Cq[?y "M52^2T.Wtcˠݧ . %5} P\XKB5CR'MV#1 M T#)p>09Mz|?by9HUQmW.ǕNo) e' {2ٓ4__Crv+yMϣeRU3Eٲp<6vg>}qٚy4F !~q 7] yC>1#:‚K:ŗbp_۬%p ha MTV0۾p|t?1rkk"I< NsMj+|eYϒЊP989n^WGRr;KbXgYy9 `v㧰- DJ e#KA_Y;Y]^P^)}/jx4 ~$L"Ї!=ً'9 JǶXr/1eg)#@h,Ǡ<Գ=-lzJ{cY*) a]#=q|FlKMwc1@令  `8]Y_iL'1^Ws=ykH0rX|iY Ngp<s2w@U!,X#yo$O>3ltno2+ Z T j"pJhݲ,ukJN ]l2 g4/_6?w[1>_r`.QYcuFs.mY_N%#Cb\ =$f\h[gu#>~.cVQ'8@If n5f|t!mq6};ڤGνڧbRR6>65$KD,;sӧo,_25O+IڍqZAf!D9 {:ox43V_eB|3rj+ {0t#8:9LA=: G5[c$ex*0 >帟mzbZ~!|{qj&&)L2u˛ Y-ouwSf^'*;<MS*INvbڐwQŢl.|1,Y Zx˜ rFr C+4:䆴[UCB]3ii|2#x'99Kiϙmޅ1$$<ԇ)V>~=\Fj2g1Pf{N{,v4rh:o+K~ !&dlu..'+a@MO3z^BSwpژ6lA6(H;%W֠Oa+ %(锞%h6.n&U[dYdb|=q&:X-2v3azqMfzl ^!|h4VĝB;[Ko M2֌[Q$KAN`vpYɇ.|$8@BgEFT+8Ix^;.Mzm&0bxQ::qʶtk簮(i$RB{Uy-Z X˧%ZvS]:V{G 6S2ɢ;~-K+^>u AhL2S=՗uVl=E8LftDl'&l=9CIT2n}T B? WH[ Lq4 Nomof(1ad<_YD [Bi0ThArQyfś!T8GaU~z͐XhPSc ,j'9,.& `

tSggJaV?6MJ04^XFxituQZsŋ޴ pR@&^ iUT"+bK$f "3bJ`X@NWR KWJnFR!ib?N;&&ac"GIfP r0oN4 PMMS8s`X#6bSOC`3j (4=}Q/Q<}GPd\>((-ylr9 oC}E#T/U1i`~p̕g{;]UxcNN!KKsM&? !UU'Hw&+)6ijQYqf4pt! UCE~|)GVmψg:E#sf>1 wI42dj[VJ1b $ *wH)bsB-7Ё|/=e%;G;.=3!C7UXN TS9/N" VeR_AșUe D\ @9$o#YWEM;Cl#C &dx s%u| 1;Bm``j|\U8UWkH'#͋>NȘGR l4F]+OHpqUU۳kGVT=YqED>xٚsD u! i~?~F\#a9rW\x`Cu%h \zSܽ]-yɵ,P_xjULx&)9|dQ9?xWqMNFuG^r`#{ >ɧrƁrs h2E2_GK#U9/"`puh@GUuWˈ #.ݎ5l-t$Q8Dé 1{=ݣN.Bj_zK&w@(F_Y@Υ1nMX@ㅔ5Y4_1H,r-ק )@C覜a!afӟB "m4tswNvAz' !!-[Q(&qXKw=:k!E 4y,VXB w`SuRٵ=E,2Kl"eG;KtjcY0-?DwgܷEmT59Vjjp1\S ]4@57;GVw,%j s:&}:C|=Esh7a^$XD{d0?kgŘIJq/A0ʐa6 0Z2 6L,kroJ̐zչvWT# p%CW1 l)w@DM^4dc$$jLD3cn [ +۲z?ŶZq]HcZX 0,A\FUKeC=lhP̛֟a#F(ރd볿s+\ux2GI@^ps>f^ظֽYIs_(N.LgY 3d*k;vd-.佧˱\u'V%53W,֐Q  ^,0Fr*{IӤ X#CTb,Y SKieY^B& 9{H2P@VǞ꺍\0f&{<Ȳ !PZ(+a|>6f1IV#I ~#Z0I Ij`\ek=wJf\jIlqG\nAwieVFd=5>٦l)y&ШEHZ)!uؽǠXQ_'XqVl|/yE^e[E\-1aVl*+a U讽px vg;XE]Kl7CNg[[gq*! MY.%<ۑ'˅ˁ^ݘWAQkS,T0brxp:y^>WW̅E"}7L5\UcԏGP19ix39` 2/O*e2=i2 `zQm=%BaJKuUiQ G#pr3ԋjdO1[NHA\ZM?cȶ)ʷ h2rDTt]O՟ZidSoWcЭY-U\SYD:~V`Yyd&[%x#ع)iO7)JL\%ٺ'Ed=#,h86k OnԱE9MoURbSCIa里S\\_]:e{$6Kpk.x(jď,*6QIcju3PAh, /@ƍo&#&}mφilA?*Ic ~6<` DI@DG(<&F E]A8=M~e [Ph{]L@g~ 67TC_ &:_4LanVw-LoKO!MBy`ބKRw}{Sz@+3?jc}ƯJrU«;5j[<=\:`e#4mY[@Ω42L 0> }RоTjSCIٶ.t`k_xVTJ}uKea$f%imaix`˦İuҖ=P~=suEpaKk߶XsD0sSQ?5rRxfhU1 "R@iN[}bC]!U5n}.uKt4z%ov silc@NNxkJpttC9oFwyC@Z=[+4]Rn;f,3(U/aBΓlQ;1Ug߶_ `byik+*+7LzCM#}T茣H9J HLŽն'+J r O<*+:,?EP2-'Zs )'R~W醲F 2<5¿72wx{`+ǒڪr͡VCfpߩ;^6\"}9c3Um)/Fug/qs4-jv8\.}T!KM.wQy툆&\z74V\Y,LEHOg~ _/DET 0uFT&9#Y;HFN3uR=tE;UPl"ڃXM @[~Ы\A41ѢgH҈B>9B`J;V-_uΖ&L FwmsiRbeSaoĮB\onsUHy٣KT `z2TLQU՜٥$OGW^JE+ EߐL'}$7wI='I$m YR,T1p>;P?s|h)aZ \p6cjS Fvaq|yqvkQE Gw 9@E*B2wWL7<]\kHE=8?Av%'zɩr+Y?Iqm]} x'BN;K,Fہqfm",ff5l"$ 5fsBc_5m*=CJmpzqd/ ^ ,6nSJ)T0RԕJя´k>gKḀk!Lr⏋Q :HNis,1wٴCJ rL??PMjӚ`1=%%6ZvH]\167W#AA"dQyq '{9(=6[dBrS.A^%Hא܆\$]lDdX8Hd ?jDC"d'$&eR`؉κJRZ2bʏ5VGXtp!A$.3AXSƗGRSI2Qm_|LV{l-u+#A I+@_V;=];DWBPS+}9 APBO-}Z崺Ye*;,y]@VW4#C>&4ew,Tʤu[ø5"yK4_%"v$%ܧGg+,3՞BpW ߩ*hELIP0܇;e2- ;^Jk]]Lk bDBfT<靏\ᷙoͺ4Ah74ٮ9`ϝ1ǰ wᇗG'l K ?6#Yp~̟\Af;V\WUQl>1Ecq ]Z]3ܓZVL>sT2q@W`RmFTYUX_ Pkz z d5_FL"svRs*?^:ZEHhSP,2FIc;D9xz;,ESrmO