When I was a kid, I spent a lot of time writing and not enough time working my Applesoft.
It was February 26th, 1986, Third Period Computer Basic Class. This was the day I would write my greatest Applesoft program ever. What it lacks in actual program content, it more than makes up for in setting the stage for the antagonistic relationship I was developing with the instructor. I only had to print it a few times for debugging purposes to seal the deal for the rest of the semester. 1 REM ********************************************************* 2 REM * * 3 REM * Copyright (c) 1986 * 4 REM * Xanith Diskette Company and/or its affiliates. * 5 REM * All rights reserved. * 6 REM * * 7 REM * Redistribution and use in source and binary forms, * 8 REM * with or withoutmodification, are permitted provided * 9 REM * that the following conditions are met: * 10 REM * * 11 REM * -Redistributions of source code must retain the above * 12 REM * copyright notice, this list of conditions and the * 13 REM * following disclaimer. * 14 REM * * 15 REM * -Redistributions in binary form must reproduce the * 16 REM * above copyright notice, this list of conditions and * 17 REM * the following disclaimer in the documentation and/o * 18 REM * other materials provided with the distribution. * 19 REM * * 20 REM * -Neither the name of Xanith Diskette Company or the * 21 REM * names of its contributors may be used to endorse * 22 REM * or promote products derived from this software * 23 REM * without specific prior written permission. * 24 REM * * 25 REM * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND* 26 REM * CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED * 27 REM * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED* 28 REM * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A * 29 REM * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL * 30 REM * THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY * 31 REM * DIRECT, INDIRECT, *INCIDENTAL, SPECIAL, EXEMPLARY, OR * 32 REM * CONSEQUENTIAL DAMAGES (INCLUDING,BUT NOT LIMITED TO, * 33 REM * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF * 34 REM * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOW- * 35 REM * EVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN* 36 REM * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING * 37 REM * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE* 38 REM * USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSS- * 39 REM * IBILITY OF SUCH DAMAGE. * 40 REM * * 41 REM * The SUMS program impliments an application that simply* 42 REM * allows a third party (hereby referred to as "user") to* 43 REM * assign numeric values to variables, which are held in * 44 REM * memory, called upon, and used to calculate a total * 45 REM * sum. No claim of ownership will be brought against * 46 REM * the user values and such intent is neither implied or * 47 REM * expressed for the term in which the user values are * 48 REM * contained in memory. * 49 REM * * 50 REM * * 51 REM * SUMS * 52 REM * * 53 REM * by * 54 REM * Daniel McLaughlin * 55 REM * Third Period * 56 REM * February 26, 1986 * 57 REM * * 58 REM * STARRING * 59 REM * The * 60 REM * DECLARED VARIABLES * 61 REM * A$ as User Numeric Input No. 1 * 62 REM * B$ as User Numeric Input No. 2 * 63 REM * * 64 REM ********************************************************* 65 INPUT "INPUT THE FIRST NUMBER => ";A 66 INPUT "INPUT THE SECOND NUMBER => ";B 67 C = A + B 68 PRINT 69 PRINT A;" + ";B;" = ";C 70 FOR I = 1 TO 2500 : NEXT I 71 TEXT : HOME 72 END
