Notes

Disk info for Softdisk_021_July_1983_Side_A.dsk:

File Name: riag_007_Softdisk_021_July_1983_Side_A/Softdisk_021_July_1983_Side_A.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 4864
Used Space (bytes): 138496
Physical Size (KB): 140
Free Space (KB): 4
Used Space (KB): 135
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 19
Used Sectors: 541
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for Softdisk_021_July_1983_Side_A.dsk:

riag_007_Softdisk_021_July_1983_Side_A/Softdisk_021_July_1983_Side_A.dsk DISK VOLUME #254
A 003 HELLO
A 005 KICK.IT.OFF
B 002 COVER.UNPACK
B 025 COVER.JUL83.PCKD
A 007 JUL 83.COVER
A 025 ABOUT.SOFTDISK
A 014 SOFTDISK.Q&A
A 013 FROM.GAMES
A 020 DONKEY.OR.ELEPHANT
A 005 SOFTDISK.EVALUATOR
A 006 ABOUT.EVALUATOR
A 011 EVAL.BOOK.REVIEW
A 007 EVAL.CLAS.REVIEW
A 009 EVAL.GAME.REVIEW
A 009 EVAL.BUSS.REVIEW
A 003 SILAS.SAYS
B 003 @EXCIT
I 002 APPLESOFT
B 006 DOS PATCH
B 008 HIRES SHIPPER
B 005 HIRES RECEIVER
T 021 HIRES DOC
T 002 EXEC FILE
T 007 PATCH DOC
A 008 SOFT.PALS
A 007 PAL.MENU
A 004 PAL.13308.CLEMENS.JUN.83.A
A 016 PAL.14615.CURTIN.JUN.83.A
A 008 PAL.14615.CURTIN.JUN.83.B
A 004 PAL.21045.DODGE.JUN.83.A
A 004 PAL.33542.MONTGOMERY.JUN.83.A
A 009 PAL.33542.MONTGOMERY.JUN.83.B
A 004 PAL.43061.BOUIC.JUL.83.A
A 003 PAL.49127.BURNS.JUN.83.A
A 006 PAL.68108.PRITCHARD.JUN.A
A 011 PAL.76067.RAINES.MAY.83.A
T 002 TYPE FIX.EXEC
T 002 TEXT ANALYZER FIX.EXEC
B 002 DIVE.STRAFING (CALL 5334)
A 005 PAL.77007.MARCHAND.MAY.83.A
A 004 PAL.77007.MARCHAND.MAY.83.B
A 013 PAL.94062.LEPISTO.JUN.83.A
B 010 TUTITLE
A 022 TUTOR
B 040 ART2
B 008 TUTORAMP
A 018 SOFTDISK.PROG
T 056 SOFTDISK.TEXT
A 004 PRICE.INCREASE
DOS 3.3 format; 4,864 bytes free; 138,496 bytes used.

Text found in Softdisk_021_July_1983_Side_A.dsk/ABOUT.EVALUATOR.bas:

10 TEXT : HOME :D$ = CHR$(4)
20 HTAB (10): PRINT "ABOUT TTY HGR
10547 : HTAB (5): PRINT "HI, OUT THERE. I'M THE EVALUATOR,": PRINT "AND EACH MONTH I'LL BE COMING AT YOU"
40 PRINT "WITH FOUR DIFFERENT REVIEWS IF": PRINT "AT ALL POSSIBLE. THE AREAS I'LL TRY": PRINT "TO COVER WILL BE ONE BOOK, ONE CLASSIC"
50 PRINT "GAME, ONE NEW GAME, AND ONE": PRINT "BUSINESS PACKAGE": PRINT : PRINT " IF YOU HAVE COMMENTS OR QUESTIONS,"
60 PRINT "YOU CAN SEND THEM DIRECTLY TO ME AT": PRINT "THE FOLLOWING ADDRESS:": PRINT " EVALUATOR": PRINT " P.O. BOX 8086": PRINT " BOSSIER CITY, LA 71113-8086"
70 PRINT "I

Text found in Softdisk_021_July_1983_Side_A.dsk/ABOUT.SOFTDISK.bas:

5 REM ABOUT.SOFTDISK
10 TEXT : HOME : SPEED= 255
100 HTAB 12: PRINT "SOFTDISK MAGAZETTE"
110 HTAB 13: PRINT "3811 ST. VINCENT"
120 HTAB 7: PRINT "SHREVEPORT, LOUISIANA 71108"
130 PRINT : HTAB 6: PRINT "$10 TO START $7 PER MONTH"
135 PRINT : HTAB 12: PRINT "(OR $55 PER YEAR)"
140 PRINT : PRINT : HTAB 10: PRINT "A SOFTALK PUBLICATION"
141 HTAB 10: PRINT "---------------------"
160 PRINT : HTAB 9: PRINT "PUBLISHER: AL TOMMERVIK"
170 PRINT : HTAB 11: PRINT "EDITORS: JIM MANGHAM"
175 HTAB 20: PRINT "AL VEKOVIUS"
185 PRINT : HTAB 7: PRINT "CIRCULATION: JUDI MANGHAM"
187 HTAB 20: PRINT "MARY JORDAN"
188 PRINT : HTAB 2: PRINT "STAFF PROGRAMMER: JIM WEILER"
190 GOSUB 8000
195 GOTO 2000
200 HOME
210 VTAB 2: HTAB 12: PRINT "MAILING PROCEDURE"
220 GOSUB 8050
230 VTAB 7: PRINT " SENDS $10 STARTUP FEE"
240 GOSUB 8000
250 GOSUB 8200
260 GOSUB 8100
270 VTAB 7: HTAB 20: PRINT "RECEIVES STARTUP FEE"
280 GOSUB 8000
290 VTAB 9: HTAB 20: PRINT "SENDS INITIAL ISSUE": HTAB 20: PRINT "IN REUSABLE MAILER"
300 GOSUB 8000
310 GOSUB 8200
320 GOSUB 8050
330 VTAB 7: PRINT " RECEIVES INITIAL ISSUE"
340 PRINT " IN REUSABLE MAILER"
350 GOSUB 8000
360 VTAB 10: PRINT " IMMEDIATELY SEND BACK MAILER"
370 PRINT " & $7 PAYMENT FOR NEXT ISSUE"
375 PRINT " (RETAIN DISKETTE)"
470 GOSUB 8000
480 GOSUB 8200
490 GOSUB 8100
500 VTAB 7: HTAB 21: PRINT "RECEIVES MAILER &"
510 HTAB 21: PRINT "PAYMENT FOR NEXT"
520 HTAB 21: PRINT "ISSUE"
530 GOSUB 8000
540 VTAB 11: HTAB 21: PRINT "SENDS MAILER & NEW"
550 HTAB 21: PRINT "ISSUE"
560 GOSUB 8000
570 GOSUB 8200
580 GOSUB 8050
590 VTAB 7: PRINT " RECEIVES MAILER &"
600 PRINT " NEW ISSUE"
610 GOSUB 8000
620 VTAB 10: PRINT " IMMEDIATELY SEND BACK"
630 PRINT " OLD DISKETTE IN MAILER"
640 PRINT " WITH $7 PAYMENT FOR"
650 PRINT " NEXT ISSUE"
655 PRINT " (RETAIN NEW DISKETTE)"
700 GOSUB 8000
710 GOSUB 8200
720 GOSUB 8100
730 VTAB 7: HTAB 21: PRINT "RECEIVES MAILER WITH";
740 HTAB 21: PRINT "OLD DISKETTE &"
750 HTAB 21: PRINT "PAYMENT FOR NEXT"
760 HTAB 21: PRINT "ISSUE"
770 GOSUB 8000
780 VTAB 12: HTAB 21: PRINT "SENDS MAILER & YET"
790 HTAB 21: PRINT "ANOTHER ISSUE"
800 GOSUB 8000
810 GOSUB 8200
820 VTAB 8: HTAB 8: PRINT "-- AND THE ";: FLASH : PRINT "BEAT";: NORMAL : PRINT " GOES ON --"
830 VTAB 12: PRINT " PLEASE SEND RETURNS BACK THE SAME DAY"
840 PRINT " YOU RECEIVE A MAILER."
870 PRINT : PRINT " BE A GROOVER AND GET IN THE SOFTDISK"
875 PRINT " GROOVE."
880 GOSUB 8000
882 VTAB 5: CALL -868
885 GOSUB 8200
890 VTAB 4: PRINT " OUR ADDRESS & PREPAID POSTAGE PERMIT"
900 PRINT " IS ON THE FLIP SIDE OF YOUR ADDRESS"
910 PRINT " CARD."
920 PRINT " (PLASTIC BAG OPENS AT RED LINE)"
930 PRINT : PRINT " THE FIRST THING YOU SHOULD DO UPON"
940 PRINT " RECEIVING A NEW MAGAZETTE IS MAKE A"
950 PRINT " PERSONAL COPY OF IT FOR YOUR KEEPING."
960 PRINT : PRINT " THEN YOU HAVE A MONTH TO PLAY WITH"
970 PRINT " OUR DISKETTE & PLACE FEEDBACK"
980 PRINT " COMMENTS ON IT."
990 PRINT : PRINT " WHEN YOU GET A NEW ONE,"
1000 PRINT " SEND BACK THE OLD ONE,"
1010 PRINT " WITH PAYMENT FOR THE NEXT ONE."
1015 PRINT " ALWAYS KEEP A DISK TO RUN."
1017 PRINT " THAT'S THE WAY TO HAVE SOME FUN."
1020 GOSUB 8000
1030 GOTO 2000
2000 HOME : VTAB 5: HTAB 12: PRINT "INFORMATION ABOUT"
2010 VTAB 10: HTAB 10: PRINT "1 = BACK ISSUES"
2030 VTAB 12: HTAB 10: PRINT "2 = MAILING PROCEDURE"
2040 VTAB 14: HTAB 10: PRINT "3 = FEEDBACK PROCESS"
2050 VTAB 16: HTAB 10: PRINT "4 = ANNUAL SUBSCRIPTIONS"
2055 VTAB 18: HTAB 10: PRINT "5 = FOR NEW SUBSCRIBERS"
2057 VTAB 20: HTAB 10: PRINT "6 = NONE OF THE ABOVE"
2060 VTAB 22: HTAB 3: PRINT "WHICH? ";: GET R$
2070 PRINT
2080 IF R$ = "1" GOTO 3000
2100 IF R$ = "2" GOTO 200
2110 IF R$ = "3" GOTO 5000
2120 IF R$ = "4" THEN GOTO 9000
2128 IF R$ = "5" THEN PRINT CHR$(4);"RUN SOFTDISK.Q&A"
2130 IF R$ = "6" THEN PRINT CHR$(4);"RUN KICK.IT.OFF"
2140 GOTO 2000
3000 HOME : VTAB 6: HTAB 14: PRINT "BACK ISSUES"
3010 VTAB 10: PRINT " WE ARE OFFERING BACK ISSUES FOR $8"
3020 PRINT : HTAB 8: PRINT "(YOU KEEP THE DISKETTES)"
3030 PRINT : PRINT " THE FIRST AVAILABLE ISSUE IS OCT 81"
3033 PRINT : PRINT " THERE WAS NO APRIL 82 ISSUE"
3035 PRINT : PRINT "NOTE...BEGINNING APRIL 83 EACH ISSUE": PRINT : PRINT " CONSISTED OF TWO DISKETTES."
3040 GOSUB 8000: GOTO 2000
5000 HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
5010 PRINT : PRINT "YOU ARRIVED AT THIS SCREEN BY FIRST"
5020 PRINT : PRINT "SELECTING 'ABOUT SOFTDISK' AND THEN"
5030 PRINT : PRINT "'FEEDBACK PROCESS'.
5040 PRINT : PRINT : PRINT "AFTER YOU EXIT 'ABOUT SOFTDISK' YOU"
5050 PRINT : PRINT "WILL BE GIVEN AN OPPORTUNITY TO SELECT"
5060 PRINT : PRINT "'ON WITH THE SHOW'.
5070 PRINT : PRINT : PRINT "'ON WITH THE SHOW' TAKES YOU INTO A"
5080 PRINT : PRINT "PRESENTATION OF THE MAIN BODY OF"
5090 PRINT : PRINT "SOFTDISK TEXT DATA."
5100 GOSUB 8000
5110 HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
5120 PRINT : PRINT "ONCE YOU ARE VIEWING THE MAIN BODY OF"
5130 PRINT : PRINT "TEXT DATA YOU WILL NOTICE THAT THE"
5140 PRINT : PRINT "BOTTOM OF THE SCREEN PRESENTS YOU WITH"
5150 PRINT : PRINT "SOME OPTIONS."
5160 PRINT : PRINT "ONE OF THEM IS THE V OPTION."
5180 PRINT : PRINT "THE V OPTION ALLOWS YOU TO ENTER"
5190 PRINT : PRINT "COMMENTS. YOUR COMMENTS WILL BE"
5200 PRINT : PRINT "WRITTEN TO THE DISK AND PROVIDE US WITH"
5210 PRINT : PRINT "FEEDBACK WHEN YOU RETURN YOUR DISKETTE"
5220 PRINT : PRINT "FOR ANOTHER ISSUE OF SOFTDISK."
5230 GOSUB 8000
5240 HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
5250 PRINT : PRINT "YOU SHOULD ENTER YOUR COMMENTS ONE LINE"
5260 PRINT : PRINT "AT A TIME."
5270 PRINT : PRINT "HIT THE RETURN KEY AFTER EACH LINE YOU"
5280 PRINT : PRINT "ENTER."
5290 PRINT : PRINT "WHEN YOU FINISH YOUR REPLY AND WANT TO"
5300 PRINT : PRINT "CONTINUE READING THE MAGAZETTE JUST"
5310 PRINT : PRINT "HIT RETURN WITHOUT ENTERING ANY DATA."
5320 PRINT : PRINT "THEN ENTER G FOR GOBACK."
5330 PRINT : PRINT "THAT WILL TAKE YOU BACK TO THE"
5340 PRINT : PRINT "MAGAZETTE TEXT."
5350 GOSUB 8000: GOTO 2000
8000 FOR I = 1 TO 250: NEXT : VTAB 23: CALL -868: HTAB 14: FLASH : PRINT "*";: NORMAL : PRINT " HIT RETURN ";: FLASH : PRINT "*";: NORMAL : INPUT " ";R$: RETURN
8050 VTAB 5: HTAB 6: INVERSE : PRINT "SUBSCRIBER";: NORMAL : HTAB 27: PRINT "SOFTDISK": RETURN
8100 VTAB 5: HTAB 6: PRINT "SUBSCRIBER";: HTAB 27: INVERSE : PRINT "SOFTDISK": NORMAL : RETURN
8200 FOR I = 7 TO 20: VTAB (I): CALL -868: NEXT : RETURN
9000 HOME : HTAB 6: PRINT "-- ANNUAL SUBSCRIPTIONS --"
9005 PRINT
9010 PRINT : PRINT " TWO TYPES OF ANNUAL SUBSCRIPTION"
9020 PRINT : PRINT "ARE AVAILABLE TO YOU."
9025 PRINT
9030 HTAB 5: PRINT "A ";: INVERSE : PRINT "REGULAR ANNUAL SUBSCRIPTION";: NORMAL : PRINT " IS"
9040 PRINT : PRINT "FOR THOSE WHO WANT TO PAY ONCE A YEAR,"
9050 PRINT : PRINT "AND WANT TO INTERACT WITH US REGULARLY."
9060 PRINT : PRINT "YOU RECEIVE AND RETURN OUR DISKETTE"
9070 PRINT : PRINT "EACH MONTH. THE ANNUAL RATE IS $55."
9080 PRINT : PRINT "YOU SAVE $29."
9090 PRINT : INVERSE : HTAB 13: PRINT "HIT SPACE BAR": GET R$
9100 NORMAL : HOME : HTAB 6: PRINT "-- ANNUAL SUBSCRIPTIONS --"
9101 PRINT
9110 PRINT : HTAB 5: PRINT "FOR THOSE ON THE GO SO MUCH THAT"
9120 PRINT : PRINT "THEY FIND RETURNING THE DISKETTE TO US"
9130 PRINT : PRINT "EACH MONTH INCONVENIENT, THERE IS A"
9140 PRINT : INVERSE : PRINT "ONE-WAY ANNUAL SUBSCRIPTION";: NORMAL : PRINT " AVAILABLE."
9150 PRINT : HTAB 5: PRINT "FOR 12 MONTHS WE SEND YOU THE"
9160 PRINT : PRINT "CURRENT ISSUE OF SOFTDISK. YOU KEEP"
9170 PRINT : PRINT "BOTH DISKS. NOTHING TO RETURN."
9180 PRINT : HTAB 5: PRINT "IF ON ON OCCASION YOU WANT TO SUBMIT"
9190 PRINT "A PROGRAM OR SEND US A COMMENT, SEND IT"
9200 PRINT : INVERSE : HTAB 13: PRINT "HIT SPACE BAR": GET R$
9205 NORMAL
9210 HOME : HTAB 6: PRINT "-- ANNUAL SUBSCRIPTIONS --"
9211 PRINT
9220 PRINT : PRINT "ON A DISK ALONG WITH A NOTE AND WE"
9230 PRINT : PRINT "WILL SEND IT BACK TO YOU WITH YOUR"
9240 PRINT : PRINT "NEXT REGULAR ISSUE. WE WILL EXTEND"
9250 PRINT : PRINT "YOUR SUBSCRIPTION BY A MONTH IF WE USE"
9260 PRINT : PRINT "YOUR PROGRAM."
9270 PRINT : HTAB 5: PRINT "THIS IS THE ONLY TYPE OF SOFTDISK"
9280 PRINT : PRINT "SUBSCRIPTION AVAILABLE TO THOSE IN"
9290 PRINT : PRINT "FOREIGN COUNTRIES."
9295 PRINT : PRINT "$ 85(US) IN THE US AND CANADA."
9296 PRINT "$100(US) IN ALL OTHER COUNTRIES.
9300 PRINT : HTAB 13: INVERSE : PRINT "HIT SPACE BAR": GET R$: NORMAL : GOTO 2000

Text found in Softdisk_021_July_1983_Side_A.dsk/APPLESOFT.int:

5 PRINT "MON C,I,O"
10 TEXT :CALL -936:VTAB 3
40 PRINT "EXEC EXEC FILE":END

Text found in Softdisk_021_July_1983_Side_A.dsk/COVER.UNPACK.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 AD 00 40 85 04 A9 01 85 02 A9 40 85 03 A9 00 AA -.@..).. .)@..).*
$000010 85 05 A9 20 85 01 A5 05 85 00 A1 02 30 3A E6 02 ..) ..%. ..!.0:f.
$000020 D0 02 E6 03 A8 C8 A1 02 81 00 48 A5 00 18 65 04 P.f.(H!. ..H%..e.
$000030 85 00 90 08 E6 01 A5 01 C9 40 F0 0C 68 88 D0 E8 ....f.%. I@p.h.Ph
$000040 E6 02 D0 D6 E6 03 D0 D2 68 E6 02 D0 02 E6 03 E6 f.PVf.PR hf.P.f.f
$000050 05 A5 05 C5 04 D0 BB 60 49 80 A8 C8 E6 02 D0 02 .%.E.P;` I.(Hf.P.
$000060 E6 03 A1 02 81 00 E6 02 D0 02 E6 03 A5 00 18 65 f.!...f. P.f.%..e
$000070 04 85 00 90 08 E6 01 A5 01 C9 40 F0 D2 88 D0 E2 .....f.% .I@pR.Pb
$000080 F0 98 .. .. .. .. .. .. .. .. .. .. .. .. .. .. p.
** END **

Text found in Softdisk_021_July_1983_Side_A.dsk/DONKEY.OR.ELEPHANT.bas:

10 TEXT : HOME : CLEAR : SPEED= 255
20 HTAB 10: PRINT "A NOTE FROM SOFTY"
30 PRINT : PRINT " PAUL RAYMER TRIED TO CONCEAL THE"
40 PRINT : PRINT "AUTHORSHIP OF THIS PROGRAM. SUE HIM,"
50 PRINT : PRINT "NOT US."
60 PRINT : PRINT : PRINT " HEY PAUL, I'LL RUN A FREE SOFT AD"
70 PRINT : PRINT "FOR SOME OF YOUR STUFF. THAT MAY HELP"
80 PRINT : PRINT "PAY COURT COSTS."
90 PRINT : HTAB 20: PRINT "SOFTY"
100 PRINT : HTAB 10: INVERSE : PRINT "HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$: HOME
110 REM
120 REM POLITICS
130 REM
140 REM ==================== PAUL RAYMER = 3464 TOWNHOUSE DR =LAS VEGAS NV 89121 = = V/VII/MCMLXXXIII =====================
150 Q$ = CHR$(34)
160 PRINT "THIS HIGHLY SCIENTIFIC STUDY IS BASED ON AN ESSAY BY ANDREW A. ROONEY, PRINTED": PRINT
170 PRINT "IN THE BOOK ";Q$;"A FEW MINUTES WITH ANDY ROONEY";Q$;" AND PUBLISHED BY WARNER BOOKS,": PRINT
180 PRINT "P.O. BOX 690, NEW YORK, NY 10019. SINCE I HAVE MADE NO EFFORT TO GET": PRINT
190 PRINT "PERMISSION TO WRITE THIS PROGRAM, YOU HAD BETTER RUN IT QUICKLY BEFORE I GET": PRINT
200 PRINT "SUED, JAILED, PILLORIED, HOLLERED AT OR HAVE THE DOS REMOVED FROM MY APPLE.": PRINT
210 HTAB 30: PRINT "THE AUTHOR"
220 GOSUB 720
230 VTAB 3: HTAB 15: INVERSE : PRINT " ": HTAB 15: PRINT " POLITICS ": HTAB 15: PRINT " ": NORMAL
240 PRINT : PRINT : PRINT "THIS EXAMINATION WILL DETERMINE IF YOU ARE A REPUBLICAN OR A DEMOCRAT.": PRINT : PRINT
250 PRINT "IF YOU KNOW WHICH PARTY YOU PREFER OR IF YOU FAVOR A THIRD PARTY (OR ANOTHER": PRINT
260 PRINT "COUNTRY), THEN SAY SO RIGHT NOW SO THAT WE WON'T BE WASTING EACH OTHER'S TIME.": PRINT : PRINT
270 PRINT : PRINT "DO YOU WANT TO QUIT NOW? ";: GET A$
280 IF A$ = "Y" THEN HOME : GOTO 810
290 REM START HERE
300 REM OR HERE, IF YOU WISH
310 HOME : VTAB 3: PRINT "DID OUR PRESENT PROBLEMS START WITH:": PRINT : HTAB 5: PRINT "1) HERBERT HOOVER": PRINT : HTAB 5: PRINT "2) FRANKLIN ROOSEVELT"
320 GOSUB 740
330 HOME : VTAB 3: PRINT "OUR COUNTRY WAS AT ITS WORST DURING THE ADMINISTRATION OF": PRINT : HTAB 5: PRINT "1) RICHARD NIXON": PRINT : HTAB 5: PRINT "2) JIMMY CARTER"
340 GOSUB 740
350 HOME : VTAB 3: PRINT "AFTER DOING THE DISHES, DO YOU": PRINT : HTAB 5: PRINT "1) LEAVE DISHES IN RACK OVERNIGHT": PRINT : HTAB 5: PRINT "2) PUT DISHES AWAY PROMPTLY"
360 GOSUB 740
370 HOME : VTAB 3: PRINT "WHICH SPORT DO YOU PREFER": PRINT : HTAB 5: PRINT "1) BOWLING": PRINT : HTAB 5: PRINT "2) TENNIS"
380 GOSUB 740
390 HOME : VTAB 3: PRINT "TELEVISION VIEWING HABITS": PRINT : HTAB 5: PRINT "1) YOU LOVE TELEVISION": PRINT : HTAB 5: PRINT "2) YOU HATE TELEVISION"
400 GOSUB 740
410 HOME : VTAB 3: PRINT "AS A SPORTS FAN YOU LIKE TO WATCH": PRINT : HTAB 5: PRINT "1) BASEBALL": PRINT : HTAB 5: PRINT "2) COLLEGE FOOTBALL"
420 GOSUB 740
430 HOME : VTAB 3: PRINT "SHOPPING HABITS": PRINT : HTAB 5: PRINT "1) SHOP ONE A WEEK (ON PAYDAYS)": PRINT : HTAB 5: PRINT "2) SHOP DAILY"
440 GOSUB 740
450 HOME : VTAB 3: PRINT "YOU PREFER TO WRITE WITH": PRINT : HTAB 5: PRINT "1) A PENCIL": PRINT : HTAB 5: PRINT "2) A PEN"
460 GOSUB 740
470 HOME : VTAB 3: PRINT "BEVERAGE PREFERRED IN SUMMER": PRINT : HTAB 5: PRINT "1) BEER": PRINT : HTAB 5: PRINT "2) GIN AND TONIC"
480 GOSUB 740
490 HOME : VTAB 3: PRINT "BEVERAGE PREFERRED IN WINTER": PRINT : HTAB 5: PRINT "1) BEER": PRINT : HTAB 5: PRINT "2) SCOTCH AND SODA"
500 GOSUB 740
510 HOME : VTAB 3: PRINT "REASON FOR HIGH TAXES": PRINT : HTAB 5: PRINT "1) REPUBLICANS": PRINT : HTAB 5: PRINT "2) DEMOCRATS"
520 GOSUB 740
530 HOME : VTAB 3: PRINT "DINING HABITS": PRINT : HTAB 5: PRINT "1) EVENING MEAL IS CALLED SUPPER": PRINT : HTAB 5: PRINT "2) EVENING MEAL IS CALLED DINNER"
540 GOSUB 740
550 REM ALL EDITING DONEWITH "GALE" BY SANDY MOSSBERG
560 VTAB 3: PRINT "DO YOU WISH TO SEE THE RESULTS OF THIS EXAMINATION?": PRINT : HTAB 5: PRINT "1) YES": PRINT : HTAB 5: PRINT "2) NO"
570 PRINT : HTAB 5: GET A$
580 IF A$ = "N" THEN HOME : GOTO 810
590 GOSUB 720
600 IF D >R AND D >N THEN 640
610 IF R >D AND R >N THEN 660
620 IF R = D THEN 680
630 IF N >R AND N >D THEN 710
640 HOME : VTAB 3: PRINT "RESULTS OF YOUR ANSWERS INDICATE THAT YOU BELIEVE PEOPLE ARE BASICALLY GOOD"
650 PRINT : PRINT "BUT MUST BE SAVED FROM THEMSELVES BY THEIR GOVERNMENT. YOU ARE A DEMOCRAT.": GOTO 810
660 HOME : VTAB 3: PRINT "RESULTS OF YOUR ANSWERS INDICATE THAT YOU BELIEVE PEOPLE ARE BASICALLY BAD": PRINT
670 PRINT "BUT THEY'LL BE OKAY IF THEY'RE LEFT ALONE. YOU ARE A REPUBLICAN.": GOTO 810
680 HOME : VTAB 3: PRINT "RESULTS OF YOUR ANSWERS INDICATE THAT YOU BELIEVE THAT REPUBLICANS ARE MORE": PRINT
690 PRINT "LIKE DEMOCRATS USED TO BE AND THAT THE DEMOCRATS ARE MORE LIKE REPUBLICANS": PRINT
700 PRINT "USED TO BE. YOU ARE AN INDEPENDENT.": GOTO 810
710 REM IND
720 VTAB 24: HTAB 1: PRINT "PLEASE PRESS TO CONTINUE ";: GET AN$
730 HOME : RETURN
740 PRINT : HTAB 5: PRINT "3) NEITHER OF ABOVE"
750 VTAB PEEK(37) +3: PRINT "SELECT BY NUMBER ";: GET P$:P = VAL(P$)
760 IF P = 1 THEN D = D +1
770 IF P = 2 THEN R = R +1
780 IF P = 0 THEN N = N +1
790 HOME
800 RETURN
810 VTAB 23: HTAB 10: INVERSE : PRINT "HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$: PRINT CHR$(4)"RUN KICK.IT.OFF"
820 REM THIS INFORMATION IS(C) BY WARNER COMMUNICATIONS CO.(MAKERS OF THE ATARI COMPUTER)IF YOU WANT TO BUY THIS NEATBOOK, WRITE TO: WARNER BOOKS INC 75 ROCKEFELLER PLAZA NEW YORK NY 10019
830 REM YARIFYOUARENOTGETTINGSOFTDISKREGULARLY, JOIN TODAY!TELL THEM PAUL RAYMER 89121SENT YOU!

Text found in Softdisk_021_July_1983_Side_A.dsk/DOS PATCH.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 20 39 FB 20 58 FC 20 E3 03 84 16 85 17 20 58 FC 9{ X| c ..... X|
$000010 20 35 0E A0 A0 A0 A0 A0 C4 CF D3 A0 B3 AE B3 A0 5. DOS 3.3
$000020 CC C1 CE C7 D5 C1 C7 C5 A0 D0 D2 C5 D3 C5 D2 D6 LANGUAGE PRESERV
$000030 C5 D2 8D 8D A0 A0 A0 D4 C8 C9 D3 A0 D0 D2 CF C7 ER.. T HIS PROG
$000040 D2 C1 CD A0 C1 CC D4 C5 D2 D3 A0 C4 CF D3 A0 B3 RAM ALTE RS DOS 3
$000050 AE B3 A0 C4 C9 D3 CB D3 8D D4 CF A0 D0 D2 C5 D6 .3 DISKS .TO PREV
$000060 C5 CE D4 A0 D4 C8 C5 CD A0 A0 C6 D2 CF CD A0 C4 ENT THEM FROM D
$000070 C5 D3 D4 D2 CF D9 C9 CE C7 A0 D4 C8 C5 8D C3 CF ESTROYIN G THE.CO
$000080 CE D4 C5 CE D4 D3 A0 CF C6 A0 D4 C8 C5 A0 CC C1 NTENTS O F THE LA
$000090 CE C7 D5 C1 C7 C5 A0 C3 C1 D2 C4 A0 C4 D5 D2 C9 NGUAGE C ARD DURI
$0000A0 CE C7 8D C2 CF CF D4 C9 CE C7 AE 8D 8D 8D C9 CE NG.BOOTI NG....IN
$0000B0 D3 C5 D2 D4 A0 C4 CF D3 A0 B3 AE B3 A0 C4 C9 D3 SERT DOS 3.3 DIS
$0000C0 CB A0 C1 CE C4 A0 D0 D2 C5 D3 D3 A0 D2 C5 D4 D5 K AND PR ESS RETU
$0000D0 D2 CE AE 8D A0 A0 A0 A0 A0 A0 A8 D0 D2 C5 D3 D3 RN.. (PRESS
$0000E0 A0 C3 D4 D2 CC AD C3 A0 D4 CF A0 D1 D5 C9 D4 AE CTRL-C TO QUIT.
$0000F0 A9 00 20 0C FD C9 8D F0 07 C9 83 D0 F5 4C F4 0B ). .}I.p .I.PuLt.
$000100 A0 03 A9 00 91 16 C8 91 16 C8 A9 08 91 16 20 35 .)...H. .H)... 5
$000110 0E 8D A0 A0 A0 A0 A0 A0 A0 A0 A0 C3 C8 C5 C3 CB .. CHECK
$000120 C9 CE C7 AE AE AE 00 A0 05 B1 16 18 69 01 91 16 ING.... .1..i...
$000130 A0 08 A9 00 91 16 C8 A9 09 91 16 A0 0C A9 01 91 .)...H) ... .)..
$000140 16 20 E3 03 20 D9 03 B0 03 4C FD 0B 20 35 0E 8D . c. Y.0 .L}. 5..
$000150 8D D4 C8 C9 D3 A0 C4 C9 D3 CB A0 C4 CF C5 D3 A0 .THIS DI SK DOES
$000160 CE CF D4 A0 C8 C1 D6 C5 A0 D3 D4 C1 CE C4 C1 D2 NOT HAVE STANDAR
$000170 C4 A0 C4 CF D3 AE 8D D4 C8 C5 A0 D0 D2 CF C7 D2 D DOS..T HE PROGR
$000180 C1 CD A0 C3 C1 CE CE CF D4 A0 C6 C9 CE C4 A0 D4 AM CANNO T FIND T
$000190 C8 C5 A0 D0 CC C1 C3 C5 A0 C9 D4 8D C9 D3 A0 D3 HE PLACE IT.IS S
$0001A0 D5 D0 D0 CF D3 C5 C4 A0 D4 CF A0 D0 C1 D4 C3 C8 UPPOSED TO PATCH
$0001B0 AE 8D 8D A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 D0 D2 C5 ... PRE
$0001C0 D3 D3 A0 D2 C5 D4 D5 D2 CE AE 8D A0 A0 A0 A0 A0 SS RETUR N..
$0001D0 A0 A8 D0 D2 C5 D3 D3 A0 C3 D4 D2 CC AD C3 A0 D4 (PRESS CTRL-C T
$0001E0 CF A0 D1 D5 C9 D4 AE A9 00 20 0C FD C9 8D F0 0A O QUIT.) . .}I.p.
$0001F0 C9 83 D0 F5 20 58 FC 4C D0 03 4C 0D 0A A0 C8 B9 I.Pu X|L P.L.. H9
$000200 00 09 C9 20 D0 10 C8 B9 00 09 C9 93 D0 08 C8 B9 ..I P.H9 ..I.P.H9
$000210 00 09 C9 FE F0 03 4C 0E 0B C8 B9 00 09 C9 EA D0 ..I~p.L. .H9..IjP
$000220 03 4C AE 0D A9 EA 99 00 09 C8 C0 D6 90 F6 20 35 .L..)j.. .H@V.v 5
$000230 0E 8D 8D D4 C8 C9 D3 A0 C4 C9 D3 CB A0 D7 C9 CC ...THIS DISK WIL
$000240 CC A0 C4 C5 D3 D4 D2 CF D9 A0 D4 C8 C5 A0 C3 CF L DESTRO Y THE CO
$000250 CE D4 C5 CE D4 D3 8D CF C6 A0 A0 D4 C8 C5 A0 CC NTENTS.O F THE L
$000260 C1 CE C7 D5 C1 C7 C5 A0 C3 C1 D2 C4 A0 A0 D7 C8 ANGUAGE CARD WH
$000270 C5 CE A0 C2 CF CF D4 C5 C4 AE 8D 8D A0 D0 D2 C5 EN BOOTE D... PRE
$000280 D3 D3 A0 D2 C5 D4 D5 D2 CE A0 D4 CF A0 D0 C1 D4 SS RETUR N TO PAT
$000290 C3 C8 A0 D4 C8 C9 D3 A0 C4 C9 D3 CB AE 8D D0 D2 CH THIS DISK..PR
$0002A0 C5 D3 D3 A0 C5 D3 C3 A0 D4 CF A0 CC C5 C1 D6 C5 ESS ESC TO LEAVE
$0002B0 A0 D4 C8 C5 A0 C4 C9 D3 CB A0 C1 CC CF CE C5 AE THE DIS K ALONE.
$0002C0 8D A0 A0 A0 A0 A0 A0 A8 D0 D2 C5 D3 D3 A0 C3 D4 . ( PRESS CT
$0002D0 D2 CC AD C3 A0 D4 CF A0 D1 D5 C9 D4 AE A9 00 20 RL-C TO QUIT.).
$0002E0 0C FD C9 8D F0 0E C9 9B D0 03 4C 0D 0A C9 93 D0 .}I.p.I. P.L..I.P
$0002F0 EE 4C F4 0B 20 35 0E 8D 8D A0 A0 A0 A0 A0 A0 A0 nLt. 5.. .
$000300 D0 C1 D4 C3 C8 C9 CE C7 AE AE AE 00 A0 0C A9 02 PATCHING .... .).
$000310 91 16 20 E3 03 20 D9 03 B0 69 20 35 0E 8D 8D A0 .. c. Y. 0i 5...
$000320 A0 A0 A0 A0 D0 C1 D4 C3 C8 A0 D3 D5 C3 C3 C5 D3 PATC H SUCCES
$000330 D3 C6 D5 CC A1 00 20 35 0E 8D A0 A0 A0 A0 A0 A0 SFUL!. 5 ..
$000340 A0 A0 A0 A0 A0 A0 D0 D2 C5 D3 D3 A0 D2 C5 D4 D5 PR ESS RETU
$000350 D2 CE AE 8D A0 A0 A0 A0 A0 A0 A8 D0 D2 C5 D3 D3 RN.. (PRESS
$000360 A0 C3 D4 D2 CC AD C3 A0 D4 CF A0 D1 D5 C9 D4 AE CTRL-C TO QUIT.
$000370 A9 00 20 0C FD C9 8D F0 07 C9 83 D0 F5 4C F4 0B ). .}I.p .I.PuLt.
$000380 4C 0D 0A 20 35 0E 8D A0 A0 C4 C9 D3 CB A0 D7 D2 L.. 5.. DISK WR
$000390 C9 D4 C5 A0 C5 D2 D2 CF D2 A0 C4 D5 D2 C9 CE C7 ITE ERRO R DURING
$0003A0 A0 D0 C1 D4 C3 C8 AE 87 87 87 00 4C 36 0D 20 35 PATCH.. ...L6. 5
$0003B0 0E 8D 8D D4 C8 C9 D3 A0 C4 C9 D3 CB A0 C8 C1 D3 ...THIS DISK HAS
$0003C0 A0 C1 CC D2 C5 C1 C4 D9 A0 C2 C5 C5 CE A0 D0 C1 ALREADY BEEN PA
$0003D0 D4 C3 C8 C5 C4 AE 8D C9 D4 A0 D7 C9 CC CC A0 CE TCHED..I T WILL N
$0003E0 CF D4 A0 C4 C5 D3 D4 D2 CF D9 A0 D4 C8 C5 A0 C3 OT DESTR OY THE C
$0003F0 CF CE D4 C5 CE D4 D3 A0 CF C6 8D D4 C8 C5 A0 CC ONTENTS OF.THE L
$000400 C1 CE C7 D5 C1 C7 C5 A0 C3 C1 D2 C4 A0 D7 C8 C5 ANGUAGE CARD WHE
$000410 CE A0 C2 CF CF D4 C5 C4 AE 00 4C 36 0D A9 8D 20 N BOOTED ..L6.).
$000420 ED FD A9 84 20 ED FD 20 71 0E C9 00 D0 01 60 20 m}). m} q.I.P.`
$000430 ED FD 4C 27 0E 20 71 0E C9 00 D0 01 60 20 F0 FD m}L'. q. I.P.` p}
$000440 4C 35 0E 20 4D 0E 85 25 84 24 4C 22 FC BA BD 03 L5. M..% .$L"|:=.
$000450 01 18 69 01 8D 84 0E BD 04 01 69 00 8D 85 0E 20 ..i....= ..i....
$000460 83 0E 48 EE 84 0E D0 03 EE 85 0E 20 83 0E A8 68 ..Hn..P. n.. ..(h
$000470 60 BA BD 03 01 18 69 01 8D 84 0E BD 04 01 69 00 `:=...i. ...=..i.
$000480 8D 85 0E AD 71 0E FE 03 01 D0 03 FE 04 01 60 .. ...-q.~. .P.~..`
** END **

Text found in Softdisk_021_July_1983_Side_A.dsk/EVAL.BOOK.REVIEW.bas:

10 TEXT : HOME :D$ = CHR$(4): GOTO 20
15 PRINT : PRINT "PRESS ANY LETTER TO CONTINUE": GET A$: PRINT : RETURN
20 PRINT " PROGRAMMING THE APPLE"
30 PRINT " A STRUCTURED APPROACH": PRINT
40 PRINT " THIS MONTH'S BOOK FOR REVIEW IS": PRINT
50 PRINT "PROGRAMMING THE APPLE - A STRUCTURED": PRINT
60 PRINT "APPROACH BY J. L. CAMPBELL AND LANCE": PRINT
70 PRINT "ZIMMERMAN. THIS BOOK IS PUBLISHED BY": PRINT
80 PRINT "ROBERT J. BRADY CO., AND I PICKED UP": PRINT
90 PRINT "A COPY AT THE LOCAL B. DALTON BOOKSTORE."
100 PRINT " THE ORGANIZATION OF THIS BOOK IS": PRINT
110 PRINT "LOGICAL ENOUGH, BUT I AM NOT SURE I": RESUME 2d RESUME >_SIPX<>ECOMMEND IT TO A BEGINNER.": GOSUB 15
130 PRINT "J#AFOJFUF#WKBW#BMZWKJMD#LMF#@BM#OEARN": PRINT
140 PRINT "ABOUT THE WAY THE COMPUTER WORKS IS": PRINT
660 DEF C"RNWQ."@WV"QMOGUJGPG"KL"VJE MIDDLE OF": PRINT
160 PRINT "CHAPTER 3 I GOT LOST. THAT'S GETTING A": PRINT
170 PRINT "BIT AHEAD. THE BOOK BEGINS WITH A VERY": PRINT
180 PRINT "GOOD HISTORICAL LOOK AT HOW WE GOT TO": PRINT
190 PRINT "THE POINT WHERE WE ARE NOW. THE NEXT": PRINT
200 PRINT "CHAPTER INTRODUCES STRUCTURE VERY WELL": PRINT
210 PRINT "AND BEGINS TO TEACH SOME BASIC COMMANDS.": GOSUB 15
220 PRINT "CHAPTER 3 IS WHERE I GOT INTO TROUBLE.": PRINT
230 PRINT "THIS CHAPTER DEALT WITH INPUT/OUTPUT,": PRINT
240 PRINT "AND THE SECTION ON PERIPHERAL": PRINT
250 PRINT "CONSIDERATIONS IS WHERE I GOT LOST.": PRINT
260 PRINT "MAYBE IT'S BECAUSE I DON'T KNOW A DIODE": PRINT
270 PRINT "FROM AN EXCLUSIVE OR GATE, BUT I": PRINT
280 PRINT "REALLY GOT CONFUSED. EVENTUALLY I JUST": PRINT
290 PRINT "SKIPPED THE SECTION; POSSIBLY SOMEDAY": PRINT
300 PRINT "I'LL GET THIS STUFF THROUGH MY THICK": PRINT
310 PRINT "SKULL. THE NEXT CHAPTER GETS HEAVILY": PRINT
320 PRINT "INTO HOW TO STURCTURE A BASIC PROGRAM.": GOSUB 15
330 PRINT "THIS CHAPTER IS ONE OF THE BEST IN THE": PRINT
340 PRINT "BOOK. FOLLOWING CHAPTERS DEAL WITH SUCH": PRINT
350 PRINT "TOPICS AS TESTING, ERROR HANDLING,": PRINT
360 PRINT "OPERATING SYSTEMS, GRAPHICS, SORTS, AND": PRINT
370 PRINT "DOCUMENTATION. TTY& RESUME POP z GET g ^Q ^S#LLECTION OF UTILITY PROGRAMS": PRINT
390 PRINT "USED TO EXEMPLIFY THE TECHNIQUES": PRINT
400 PRINT "ESPOUSED IN THE PREVIOUS CHAPTERS.": PRINT
410 PRINT "THE LAST CHAPTER REVIEWS THE ENTIRE": PRINT
420 PRINT "PROCESS USED TO SOLVE PROBLEMS USING": PRINT
430 PRINT "THE C#MPUTER FROM THE BEGINNING.": GOSUB 15
440 PRINT " THIS BOOK IS WELL WRITTEN AND THE": PRINT
450 PRINT "EXAMPLES IN IT ARE GOOD. I WOULD ": PRINT
460 PRINT "RECOMMEND THIS BOOK TO SOMEONE WHO": PRINT
470 PRINT "WANTS TO LEARN HOW TO STRUCTURE A": PRINT
480 PRINT "PROGRAM IN BASIC. IF YOU AREN'T INTO": PRINT
490 PRINT "SOME OF THE TECHNICAL DETAILS, SKIP": PRINT
500 PRINT "THOSE SECTIONS. IT WOULD ALSO HELP HGR RJ *pFa HLIN q *R)?%P81&5P#?=5P#<9[(T KNOWLEDGE OF SOME": PRINT
520 PRINT "BASIC COMMAMGR/!NO!UID!VIOLE, THIS IS": PRINT
530 PRINT "A GOOD BOOK."
950 PRINT : PRINT "PRESS ANY KEY TO RETURN TO MDLT, 8 LIST C& GOSUB POKE PRINT CHR$(13)
960 PRINT D$;"RUN SOFTDISK.EVALUATOR"

Text found in Softdisk_021_July_1983_Side_A.dsk/EVAL.BUSS.REVIEW.bas:

10 TEXT : HOME :D$ = CHR$(4): GOTO 20
15 PRINT : PRINT "PRESS ANY LETTER TO CONTINUE": GET A$: PRINT : RETURN
20 PRINT " THE REPORT CARD": PRINT
30 PRINT " THIS MONTH'S BUSINESS PACKAGE FOR": PRINT
40 PRINT "REVIEW IS THE REPORT CARD BY MARC": PRINT
50 PRINT "RINGUETTE FOR SENSIBLE SOFTWARE. I": PRINT
60 PRINT "PURCHASED THIS PACKAGE TO HELP MY WIFE": PRINT
70 PRINT "AVERAGE GRADES FOR HER WORK AND ENDED": PRINT
80 PRINT "UP DOING A BIT OF WORK WITH IT MYSELF.": PRINT
90 PRINT " THIS IS A GOOD SYSTEM AND THE ": PRINT
100 PRINT "DOCUMENTATION IS ADEQUATE. THE SYSTEM": PRINT
110 PRINT "IS EASY TO LEARN TO USE. FOR THE MOST": GOSUB 15
120 PRINT "PART AFTER A BIT OF TIME WITH THE": PRINT
130 PRINT "MANUAL, ONE CAN ACCOMPLISH MOST OF": PRINT
140 PRINT "THE ROUTINE TASKS FAIRLY QUICKLY, AND": PRINT
150 PRINT "WITH A PEEK BACK AT THE MANUAL, THE": PRINT
160 PRINT "OUT OF THE ORDINARY TASKS CAN BE": PRINT
170 PRINT "HANDLED. THE SYSTEM ALLOWS THE USER": PRINT
180 PRINT "TO WEIGHT TESTS DIFFERENTLY AND TO": PRINT
190 PRINT "OMIT GRADES FOR STUDENTS NOT TAKING": PRINT
200 PRINT "PART IN A GIVEN ACTIVITY. ACTIVITIES": PRINT
210 PRINT "ARE TITLED AND GRADES CAN BE LISTED": PRINT
220 PRINT "BY ACTIVITY, BY STUDENT, OR BY CLASS.": GOSUB 15
230 PRINT " THE ABILITY TO UTILIZE THE AVERAGE": PRINT
240 PRINT "OF A SET OF GRADES AS A GRADE ITSELF": PRINT
250 PRINT "IS ONE THAT WOULD BE USEFUL TO ADD.": PRINT
260 PRINT "THE ONLY OTHER FEATURE WHICH IS NOT": PRINT
270 PRINT "INCLUDED THAT WOULD BE NICE IS THE": PRINT
280 PRINT "ABILITY TO ADD BONUS POINTS TO AN": PRINT
290 PRINT "OVERALL AVERAGE. THE LIMITS OF THE": PRINT
300 PRINT "SYSTEMS ARE PER DATA DISK USED 300": PRINT
310 PRINT "STUDENTS, UP TO 12 CLASSES, 40 STUDENTS": PRINT
320 PRINT "PER CLASS, AND 50 GRADED ACTIVITIES": PRINT
330 PRINT "PER CLASS.": GOSUB 15
340 PRINT " THIS SYSTEM IS A VERY HANDY TOOL": PRINT
350 PRINT "FOR CALCULATING GRADES. IF YOU ARE": PRINT
360 PRINT "A TEACHER WHO NEEDS HELP AT REPORTING": PRINT
370 PRINT "TIME, I ADVISE THAT YOU LOOK INTO THIS": PRINT
380 PRINT "PACKAGE. FOR WHAT IT DOES IT IS A VERY": PRINT
390 PRINT "SLICK LITTLE SYSTEM."
950 PRINT : PRINT "PRESS ANY KEY TO RETURN TO MENU.": GET A$
955 PRINT CHR$(13)
960 PRINT D$;"RUN SOFTDISK.EVALUATOR"

Text found in Softdisk_021_July_1983_Side_A.dsk/EVAL.CLAS.REVIEW.bas:

10 TEXT : HOME :D$ = CHR$(4): GOTO 20
15 PRINT : PRINT "PRESS ANY LETTER TO CONTINUE.": GET A$: PRINT : RETURN
20 PRINT " SWASHBUCKLER": PRINT
30 PRINT " THIS MONTH'S CLASSIC GAME FOR": PRINT
40 PRINT "REVIEW IS SWASHBUCKLER BY PAUL": PRINT
50 PRINT "STEPHENSON FOR DATAMOST. AT EACH LEVEL": PRINT
60 PRINT "OF THIS HI-RES GAME, THE PLAYER IS": PRINT
70 PRINT "ASSAULTED BY TWO DIFFERENT SWORDSMEN": PRINT
80 PRINT "AND VARIOUS OTHER CREATURES. ALL CONTROL"
85 PRINT
90 PRINT "IN THE GAME IS STRICTLY KEYBOARD, SO": PRINT
100 PRINT "IF YOU'RE A JOYSTICK PERSON, YOU'LL": PRINT
110 PRINT "LEARN SOMETHING ABOUT KEYBOARD OR DIE": GOSUB 15
120 PRINT "TRYING. YOU CAN MOVE LEFT (A), OR": PRINT
130 PRINT "RIGHT (D), OR SPIN (S). AS FOR YOUR": PRINT
140 PRINT "SWORD, CONTROL IS WITH THE RIGHT HAND.": PRINT
150 PRINT "YOU CAN HIGH PARRY (I), THRUST (J),": PRINT
160 PRINT "GUARD (K), LUNGE (L), OR LOW PARRY (M).": PRINT
170 PRINT "AS THE LEVELS INCREASE, THE OPPONENTS": PRINT
180 PRINT "GET MEANER AND MORE COORDINATED. THE": PRINT
190 PRINT "CREATURES CAN KILL OR MERELY INJURE": PRINT
200 PRINT "YOU (TAKING AWAY YOUR ABILITY TO LUNGE.)": GOSUB 15
210 PRINT "THE GAME RETAINS THE HIGHEST SCORE, BUT": PRINT
220 PRINT "UNLIKE SOME NEWER GAMES NOT THE INITIALS": PRINT
230 PRINT "OF THE PERSON WHO MADE IT. THE ACTION": PRINT
240 PRINT "IS ,HOWEVER, FAST-PACED IN THIS VERY": PRINT
250 PRINT "ENJOYABLE PACKAGE. TRULY AN OLDIE, BUT": PRINT
260 PRINT "A GOODIE.": PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
910 PRINT : PRINT "PRESS ANY KEY TO RETURN TO MENU"
950 GET A$: PRINT A$
960 PRINT D$;"RUN SOFTDISK.EVALUATOR"

Text found in Softdisk_021_July_1983_Side_A.dsk/EVAL.GAME.REVIEW.bas:

10 TEXT : HOME :D$ = CHR$(4): GOTO 20
15 PRINT : PRINT "PRESS ANY LETTER TO CONTINUE": GET A$: PRINT : RETURN
20 PRINT " LUNAR LEEPERS": PRINT
30 PRINT " THIS MONTH'S NEW GAME FOR REVIEW": PRINT
40 PRINT "IS LUNAR LEEPERS FROM SIERRA ONLINE.": PRINT
50 PRINT "IF YOU ARE AFRAID OF GETTING HOOKED ON": PRINT
60 PRINT "A GAME, DON'T BUY THIS DISK. I CAN'T": PRINT
70 PRINT "STOP PLAYING THIS GAME. THE GRAPHICS": PRINT
80 PRINT "ARE EXCELLENT, AND THE BASIC THEME IS": PRINT
90 PRINT "A GOOD ONE. YOU CONTROL A SPACESHIP": PRINT
100 PRINT "WITH KEYBOARD OR JOYSTICK. YOUR": PRINT
110 PRINT "MISSION IS TO SAVE HUMANS FROM THE": GOSUB 15
120 PRINT "LEEPERS. MANEUVERING DIRECTLY OVER A": PRINT
130 PRINT "HUMAN, YOU DESCEND AND PICK HIM UP.": PRINT
140 PRINT "HE THEN MUST BE CARRIED TO SAFETY,": PRINT
150 PRINT "BUT WATCH OUT OR THE LEEPERS WILL EAT": PRINT
160 PRINT "HIM OR YOU OR BOTH. AFTER ALL MEN ON": PRINT
170 PRINT "THE SURFACE ARE RESCUED (OR EATEN BY": PRINT
180 PRINT "LEEPERS), THE ACTION MOVES UNDERGROUND": PRINT
190 PRINT "TO A CAVERN WHERE YOU MUST BLAST YOUR": PRINT
200 PRINT "WAY THROUGH THE TRABANTS TO DESTROY": PRINT
210 PRINT "A GIANT EYEBALL. AFTER DESTROYING THE": PRINT
220 PRINT "EYE, YOU RETURN TO THE SURFACE.": GOSUB 15
230 PRINT "EACH LEVEL BACK AND FORTH BECOMES MORE": PRINT
240 PRINT "DIFFICULT ON THE SURFACE AND IN THE": PRINT
250 PRINT "CAVE. THE GAME RETAINS THE TEN HIGHEST": PRINT
260 PRINT "SCORES ALONG WITH THE INITIALS OF THE": PRINT
270 PRINT "PLAYER MAKING THE SCORE.": PRINT
280 PRINT " ONE POINT, WHICH I MENTIONED LAST": PRINT
290 PRINT "MONTH IN MY BUSINESS REVIEW, FOR OWNERS": PRINT
300 PRINT "OF THE //E IS THAT THERE ARE SOME OLDER": PRINT
310 PRINT "VERSIONS WHICH WILL NOT BOOT ON YOUR": PRINT
320 PRINT "MACHINE, SO CHECK BEFORE YOU BUY.": GOSUB 15
330 PRINT "ON THE BRIGHT SIDE SIERRA ONLINE WAS": PRINT
340 PRINT "MOST CONGENIAL AND SENT ME A NEW COPY": PRINT
350 PRINT "IMMEDIATELY AFTER I RETURNED MY": PRINT
360 PRINT "ORIGINAL. THIS TYPE OF CUSTOMER": PRINT
370 PRINT "SERVICE IS INDICATIVE OF TRUE": PRINT
380 PRINT "PROFESSIONALISM. THIS GAME IS A BLAST,": PRINT
390 PRINT "AND AS I STATED EARLIER, IT IS": PRINT
400 PRINT "ADDICTIVE WITH A CAPITAL A. I HIGHLY": PRINT
410 PRINT "RECOMMEND IT.": PRINT : PRINT : PRINT : PRINT
950 PRINT : PRINT "PRESS ANY KEY TO RETURN TO MENU.": GET A$
955 PRINT CHR$(13)
960 PRINT D$;"RUN SOFTDISK.EVALUATOR"

Text found in Softdisk_021_July_1983_Side_A.dsk/EXEC FILE.txt:

BRUN @EXCIT
TEXT
READ PATCH DOC
RUN KICK.IT.OFF

Text found in Softdisk_021_July_1983_Side_A.dsk/FROM.GAMES.bas:

10 REM FROM.GAMES
20 TEXT : SPEED= 255
22 DIM CL$(20),AN$(20)
24 FOR I = 1 TO 20: READ CL$(I),AN$(I): NEXT
30 HOME : HTAB 12: PRINT "SOFTDISK MAGAZETTE": HTAB 13: PRINT "3811 ST. VINCENT": HTAB 10: PRINT "SHREVEPORT, LOUISIANA 71108"
40 PRINT : PRINT " 'GAMES' IS A NON COMPUTER MAGAZINE"
50 PRINT : PRINT "THAT WILL STIMULATE YOUR MIND. A ONE"
60 PRINT : PRINT "YEAR SUBSCRIPTION IS $14.97. THE"
70 PRINT : PRINT "ADDRESS IS: GAMES": HTAB 15: PRINT "P.O. BOX 10145": HTAB 15: PRINT "DES MOINES, IOWA 50340"
80 PRINT : PRINT : PRINT : PRINT " THE FOLLOWING QUIZ WAS TAKEN FROM"
90 PRINT : PRINT "PAGE 29 OF AUGUST 83 'GAMES'."
100 GOSUB 8000: GOSUB 7000
110 PRINT : PRINT " THE ANSWER TO EACH CLUE IN THIS"
120 PRINT : PRINT "PUZZLE IS A WORD, PHRASE OR TITLE THAT"
130 PRINT : PRINT "CONTAINS THE ELEMENTS HOT OR COLD."
140 PRINT : PRINT "FOR EXAMPLE, 'IN TROUBLE' WOULD BE"
150 PRINT : PRINT "ANSWERED 'IN HOT WATER', WHILE 'FUR"
160 PRINT : PRINT "VAULT' WOULD BE 'COLD STORAGE'."
170 PRINT : PRINT "SCORING, OF COURSE, IS A MATTER OF"
180 PRINT : PRINT "DEGREE, BUT HOTSHOTS WILL GET AT LEAST"
190 PRINT : PRINT "16 RIGHT."
210 GOSUB 8000: GOSUB 7000
220 PRINT : HTAB 13: PRINT "-- NOTE --"
230 PRINT : PRINT " YOU DO NOT TYPE IN YOUR ANSWERS."
240 PRINT : PRINT "FORMULATE YOUR ANSWER IN YOUR HEAD."
250 PRINT : PRINT "THEN HIT THE 'A' KEY FOR THE ANSWER."
260 PRINT : PRINT "NEXT YOU WILL BE ASKED IF YOU GOT IT"
270 PRINT : PRINT "CORRECT. BE HONEST."
280 PRINT : PRINT " IF YOU WISH TO SKIP A CLUE YOU MAY"
290 PRINT : PRINT "TYPE IN AN 'S'."
300 PRINT : PRINT : HTAB 15: PRINT "GOOD LUCK!"
310 GOSUB 8000
390 GOSUB 7000:I = 0:RT = 0:WR = 0:SK = 0
400 I = I +1: IF I >20 GOTO 1000
410 GOSUB 7000: VTAB 4: INVERSE : PRINT "CLUE NUMBER ";I: NORMAL
420 PRINT : PRINT CL$(I)
425 PRINT : INVERSE : PRINT "REMEMBER, JUST THINK OF THE ANSWER.": NORMAL : PRINT
430 INVERSE : PRINT "A";: NORMAL : PRINT " = ANSWER ";: INVERSE : PRINT "S";: NORMAL : PRINT " = SKIP ";: GET R$: PRINT R$
440 IF R$ = "S" THEN SK = SK +1: GOTO 400
450 IF R$ < >"A" THEN VTAB ( PEEK(37)): CALL -868: GOTO 430
460 VTAB ( PEEK(37)): CALL -868
470 INVERSE : PRINT "ANSWER": NORMAL
480 PRINT : PRINT AN$(I): PRINT
490 INVERSE : PRINT "DID YOU GET IT RIGHT? (Y OR N) ";: NORMAL : GET R$: PRINT R$
500 IF R$ = "Y" THEN RT = RT +1: GOTO 400
510 IF R$ < >"N" THEN VTAB ( PEEK(37)): CALL -868: GOTO 490
520 WR = WR +1: GOTO 400
1000 GOSUB 7000: PRINT : PRINT : HTAB 10: PRINT "HERE'S YOUR SCORE": PRINT : PRINT
1010 HTAB 14: PRINT "RIGHT ";:RT$ = STR$(RT): IF LEN(RT$) = 1 THEN PRINT " ";
1020 PRINT RT$: PRINT : HTAB 14: PRINT "WRONG ";:WR$ = STR$(WR): IF LEN(WR$) = 1 THEN PRINT " ";
1030 PRINT WR$: PRINT : HTAB 12: PRINT "SKIPPED ";:SK$ = STR$(SK): IF LEN(SK$) = 1 THEN PRINT " ";
1040 PRINT SK$: HTAB 21: PRINT "---": HTAB 14: PRINT "TOTAL ";: PRINT RT +WR +SK
1050 PRINT : PRINT : HTAB 5: PRINT "WANT TO DO IT AGAIN? (Y OR N) ";: GET R$: PRINT R$: IF R$ = "Y" GOTO 390
1060 PRINT CHR$(4)"RUN KICK.IT.OFF"
7000 HOME : HTAB 11: PRINT "HOT OR COLD": HTAB 16: PRINT "BY ROBERT GOLDBERG": RETURN
8000 VTAB 24: HTAB 12: INVERSE : PRINT " HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$: RETURN
10000 DATA "1959 MARILYN MONROE MOVIE","SOME LIKE IT HOT"
10010 DATA "OPPOSITE OF DETENTE","COLD WAR"
10020 DATA "FRANKFURTER","HOT DOG"
10030 DATA "WASHINGTON/MOSCOW LINK","HOT LINE"
10040 DATA "TRUMAN CAPOTE BEST SELLER","IN COLD BLOOD"
10050 DATA "SKIN CLEANSER","COLD CREAM"
10060 DATA "MAXIM REGARDING READINESS","STRIKE WHILE THE IRON IS HOT"
10070 DATA "LOSS OF COURAGE","COLD FEET"
10080 DATA "M*A*S*H CHARACTER","HOT LIPS"
10090 DATA "POLITICALLY SENSITIVE ISSUE","HOT POTATO"
10100 DATA "A SNUB","COLD SHOULDER"
10110 DATA "EMPTY TALK","HOT AIR"
10120 DATA "TENNESSEE WILLIAMS PLAY","CAT ON A HOT TIN ROOF"
10130 DATA "SANDWICH FILLER","COLD CUTS"
10140 DATA "ABBREVIATED FEMALE APPAREL","HOT PANTS"
10150 DATA "HOW POPULAR ITEMS SELL","LIKE HOT CAKES"
10160 DATA "SOUPED UP CAR","HOT ROD"
10170 DATA "ONE WAY TO QUIT SMOKING","COLD TURKEY"
10180 DATA "READY FOR ROMANCE","HOT TO TROT"
10190 DATA "JOHN LE CARRE NOVEL","THE SPY WHO CAME IN FROM THE COLD"

Text found in Softdisk_021_July_1983_Side_A.dsk/HELLO.bas:

10 REM HELLO
20 TEXT : SPEED= 255
30 HOME
40 HTAB 16: PRINT "JULY 1983"
50 PRINT : HTAB 6: PRINT "2 DISKETTES - 4 SIDES OF STUFF"
60 PRINT : HTAB 10: PRINT "UNPROTECTED PROGRAMS"
70 PRINT : HTAB 14: PRINT "RUNNING DEMOS"
80 PRINT : HTAB 11: PRINT "SUBSCRIBER BULLETINS"
120 PRINT : HTAB 12: PRINT "SOFTDISK MAGAZETTE"
130 HTAB 14: PRINT "3811 ST. VINCENT"
140 HTAB 9: PRINT "SHREVEPORT, LOUISIANA 71108"
150 PRINT : HTAB 14: PRINT "(318) 868-7247"
160 PRINT : PRINT "$10 TO START";: HTAB 28: PRINT "$7 PER MONTH"
165 PRINT : HTAB 12: PRINT "(OR $55 PER YEAR)"
170 PRINT : HTAB 13: INVERSE : PRINT " HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$: PRINT CHR$(4)"RUN KICK.IT.OFF"

Text found in Softdisk_021_July_1983_Side_A.dsk/JUL 83.COVER.bas:

100 REM ***********************
110 REM * SOFTDISK COVER PAGE *
120 REM * V2 #11 JULY 1983 *
130 REM * *
140 REM * BY JIM GANZ *
150 REM * 82 SPRING LANE *
160 REM * WEST HARTFORD, CT. *
170 REM * 06107 *
180 REM * *
190 REM * TEXT GENERATED WITH *
200 REM * "HIGHER TEXT" *
210 REM * *
220 REM * PICTURE PACKING AND *
230 REM * UNPACKING BY *
240 REM * DAVID LUBAR FROM *
250 REM *"CREATIVE COMPUTING,"*
260 REM * JUNE 1981 PP.128-38 *
270 REM ***********************
280 REM
290 POKE 230,32: HCOLOR= 0: HPLOT 0,0: CALL 62454: TEXT : HOME :D$ = CHR$(4)
300 GOSUB 400: IF PEEK(4096) < >173 OR PEEK(4097) THEN PRINT D$;"BLOAD COVER.UNPACK"
310 PRINT D$;"BLOAD COVER.JUL83.PCKD"
320 VTAB 22: HTAB 7: PRINT "PRESS ANY KEY TO VIEW COVER"
330 VTAB 24: HTAB 7: PRINT "(THEN PRESS AGAIN TO EXIT)";
340 POKE -16368,0: CALL -756
350 POKE 33,1: FOR X = 0 TO 19: POKE 32,X: HOME : POKE 32,39 -X: HOME : NEXT : TEXT
360 POKE -16300,0: POKE -16302,0: POKE -16297,0: POKE -16304,0
370 CALL 4096: POKE -16368,0
380 CALL -756: PRINT
390 PRINT D$;"RUN KICK.IT.OFF"
400 VTAB 4: INVERSE : FOR X = 0 TO 8: HTAB 7: PRINT SPC( 34): NEXT
410 NORMAL
420 VTAB 1: HTAB 3: PRINT "S O F T D I S K M A G A Z E T T E"
430 VTAB 5: PRINT "QUOTE": PRINT "OF": PRINT "THE": PRINT "MONTH"
440 PRINT : PRINT "--->"
450 INVERSE
460 VTAB 5:X = 8
470 HTAB X: PRINT CHR$(34)"THE ADVENT OF THE PERSONAL"
480 HTAB X: PRINT "COMPUTER IS BRINGING THE INFOR-"
490 HTAB X: PRINT "MATION EXPLOSION CLOSER & CLOSER"
500 HTAB X: PRINT "TO OUR HOMES AND BUSINESSES..."
510 HTAB X: PRINT "LIKE A TEENAGER, ONCE AN APPLE"
520 HTAB X: PRINT "DISCOVERS THE PHONE, IT'S HARD"
525 HTAB X: PRINT "TO GET IT OFF." CHR$(34)
530 NORMAL : VTAB 15
540 PRINT "* DALE ARCHIBALD IN 'APPLE ON THE PHONE' SOFTALK, JANUARY, 1983."
545 PRINT " ON THE COVER... NOVATION'S CAT"
550 VTAB 19: HTAB 12: PRINT "COVER BY JIM GANZ"
560 RETURN

Text found in Softdisk_021_July_1983_Side_A.dsk/KICK.IT.OFF.bas:

10 REM KICK.IT.OFF
15 D$ = CHR$(4)
20 TEXT : SPEED= 255: HOME
30 HTAB 6: PRINT "SOFTDISK MAGAZETTE JULY 83"
35 PRINT : HTAB 10: PRINT "A = COVER PAGE"
40 PRINT : HTAB 10: PRINT "B = ABOUT SOFTDISK"
60 PRINT : HTAB 10: PRINT "C = FROM GAMES"
65 PRINT : HTAB 10: PRINT "D = DONKEY OR ELEPHANT"
70 PRINT : HTAB 10: PRINT "E = BRIAN HALL'S EVALUATIONS"
75 PRINT : HTAB 10: PRINT "F = SILAS SAYS"
80 PRINT : HTAB 10: PRINT "G = SOFT PALS"
85 PRINT : HTAB 10: PRINT "H = BASIC TUTORIAL (PART 2)"
87 PRINT : HTAB 10: PRINT "I = ON WITH THE SHOW"
88 PRINT : HTAB 10: PRINT "J = ";: INVERSE : PRINT " PRICE INCREASE ": NORMAL
89 PRINT : HTAB 10: PRINT "K = QUIT"
90 HTAB 3: PRINT "WHICH? ";: GET R$: PRINT R$;
95 IF R$ = "A" GOTO 1000
110 IF R$ = "B" GOTO 2000
120 IF R$ = "C" GOTO 3000
130 IF R$ = "D" GOTO 4000
135 IF R$ = "E" GOTO 5000
140 IF R$ = "F" GOTO 6000
150 IF R$ = "G" GOTO 7000
160 IF R$ = "H" GOTO 7500
170 IF R$ = "I" GOTO 8000
172 IF R$ = "J" GOTO 8500
175 IF R$ = "K" GOTO 9000
200 GOTO 20
1000 PRINT D$;"RUN JUL 83.COVER"
2000 PRINT D$;"RUN ABOUT.SOFTDISK"
3000 PRINT D$;"RUN FROM.GAMES"
4000 PRINT D$;"RUN DONKEY.OR.ELEPHANT"
5000 PRINT D$;"RUN SOFTDISK.EVALUATOR"
6000 PRINT D$;"RUN SILAS.SAYS"
7000 PRINT D$;"RUN SOFT.PALS"
7500 PRINT D$;"BRUN TUTITLE"
8000 PRINT D$;"RUN SOFTDISK.PROG"
8500 PRINT D$;"RUN PRICE.INCREASE"
9000 TEXT : HOME : VTAB 12: HTAB 1: PRINT "DON'T FORGET TO BOOT OTHER SIDE OF DISK."

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.13308.CLEMENS.JUN.83.A.bas:

10 TEXT : HOME
20 INVERSE : PRINT "IN ANS.TO JIM MURPHY'S SOFTPAL PROG. ": NORMAL
30 PRINT : PRINT " THE AMOUNT OF MEMORY CAN BE FOUND BY ENTERING THEN FOLLOWING:"
40 PRINT : HTAB 10: PRINT "PRINT(PEEK(978)+35)/4;'K'"
50 PRINT : PRINT "(USE DOUBLE QUOTES INSTEAD OF SINGLE)"
70 VTAB 22: INVERSE : PRINT "[ESC] TO BASIC [RETURN] TO PAL.MENU": NORMAL
80 POKE -16384,0
90 IF PEEK( -16368) <128 THEN 90
100 GET A$:A = ASC(A$): IF A < >27 AND A < >13 THEN PRINT "": GOTO 70
110 IF A = 13 THEN PRINT : PRINT CHR$(13) + CHR$(4)"RUN PAL.MENU": END
120 VTAB 22: HTAB 1: CALL -868: END
130 REM SUBMITTED BYCLARK CLEMENSRD#1BLOSSVALE NY 13308
140 REM FOUND ON BEAGLE BROS PEEKS,POKES AND POINTERS

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.14615.CURTIN.JUN.83.A.bas:

10 TEXT : HOME : CLEAR
20 PRINT " I JUST BOUGHT WHAT HAS TO BE THE MOSTCOMPREHENSIVE BOOK ABOUT OUR COMMON FRI-END, ";: INVERSE : PRINT "THE APPLE";: NORMAL : PRINT ", ON THE MARKET."
30 VTAB 5: FOR X = 1 TO 3: READ A$: GOSUB 1000: NEXT
40 PRINT : PRINT : PRINT
50 PRINT " WITH A LITTLE MORE ZEST, IT MIGHT HAVE BEEN BETTER NAMED....
60 VTAB 14: FOR X = 4 TO 6: READ A$: GOSUB 1000: NEXT
70 NORMAL
80 PRINT : PRINT " ....BUT THAT'S ABOUT ALL ONE WOULD EVER BE ABLE TO FAULT IT FOR.
90 A$ = " FOR MORE": GOSUB 2000
100 VTAB 2
110 PRINT " THIS IS AN IMPRESSIVELY ENLARGED VER-SION OVER THE PREVIOUS EDITION. KNOWN ONLY BY THE 'WHAT'S WHERE...' PORTION OF THE NAME (WITHOUT THE 'GUIDE'), IT
120 PRINT "TOLD YOU WHERE THIS OR THAT MEMORY LOCA-TION WAS, BUT TOLD YOU PRECIOUS LITTLE ABOUT HOW TO USE IT....OR WHY! NOT THIS BOOK, THOUGH!"
130 PRINT
140 PRINT : PRINT " THIS IS A WHOLE 'NOTHER BALL GAME!!"
150 PRINT
160 PRINT : PRINT " AND, FOR THOSE OF YOU WHO ALREADY OWNTHE 'WHAT'S WHERE...' PART, THE GUIDE PORTION IS AVAILABLE SEPERATELY AT A VERY REASONABLE COST."
170 GOSUB 2000
180 VTAB 2
190 PRINT " THE PUBLISHER'S SUGGESTED PRICE FOR THIS BOOK IS $24.95 (THE 'GUIDE'-ONLY PORTION IS $9.95). THIS MIGHT SEEM, AT"
200 PRINT "FIRST BLUSH, A TRIFLE HIGH FOR A SOFT- COVER, SPIR-O-BOUND BOOK....BUT WHEN THECONTENTS ARE TAKEN INTO ACCOUNT IT TURNSINTO A BARGAIN!
210 PRINT : PRINT : PRINT " AND IF YOU THINK YOU'LL SAVE A BUCK BYBUYING THE GUIDE, ONLY, EVEN THOUGH YOU DON'T ALREADY OWN 'WHAT'S WHERE...', YOUWILL BE MAKING A POOR BARGAIN. THE SUM OF THE PARTS, IN THIS CASE, IS FAR FROM THE WHOLE!!"
220 GOSUB 2000
230 VTAB 1
240 PRINT " THIS IS ";: INVERSE : PRINT "NOT";: NORMAL : PRINT " A BOOK FOR THE GAME PLAY-";
250 PRINT "ERS, OR FOR ANYONE WHO USES ONLY COMMER-CIAL SOFTWARE, WHETHER FOR BUSINESS OR PLEASURE. IT IS FOR THE HOBBYIST, BOTH NEWCOMER AND OLD TROOPER, ALIKE, WHO IS SERIOUS ABOUT IMPROVING HIS SKILL AS A"
260 PRINT "PROGRAMMER. BY THAT, I DO NOT MEAN THAT IT IS ANOTHER HOW-TO-WRITE-IN-APPLESOFT BOOK. LANGUAGE, ITS MEANING AND THE MOSTEFFICIENT USE OF IT, IS ONLY PART OF THEKNOWLEDGE A PROGRAMMER NEEDS, AFTER ALL.";
270 PRINT "THIS IS THE BITS (OR BYTES, IF YOU WISH)AND PIECES PART: WHERE YOUR PROGRAM IS STORED IN MEMORY, HOW TO CALL MACHINE LANGUAGE SUBROUTINES....AND HOW TO PUT THEM WHERE YOU CAN GET AT THEM...WHY YOU";
280 PRINT "CAN EITHER PEEK OR POKE HERE BUT ONLY PEEK THERE, HOW TO FIT A HUMUNGOUS PRO- GRAM IN YOUR COMPUTER WITHOUT BOMBING HI-RES."
290 GOSUB 2000
300 VTAB 8
310 PRINT " IN SHORT, IT'S ABOUT ALL THE THINGS MEMORY DOES INSIDE THE APPLE.......AND THAT'S A CONSIDERABLE ACHIEVEMENT IN IT-SELF. BUT CONSIDER THIS, TOO..."
315 FOR X = 1 TO 2000: NEXT
320 SPEED= 50: PRINT : PRINT "....IT DOES IT IN A STYLE EVEN I CAN UN-DERSTAND!"
330 SPEED= 255
340 FOR X = 1 TO 2000: NEXT
350 GOSUB 2000
360 VTAB 3
370 PRINT " IF YOUR LOCAL FRIENDLY BOOKSTORE DOESNOT HAVE THIS BOOK, YOU WILL GET PROMPT ATTENTION FROM THE PUBLISHER THROUGH THEMAIL. THE ADDRESS IS......"
380 POKE 32,7: PRINT : PRINT
390 PRINT "MICRO INK"
400 PRINT "P. O. BOX 6502"
410 PRINT "10 NORTHERN BLVD."
420 PRINT "NORTHWOOD EXECUTIVE PARK"
430 PRINT "AMHERST, NH 03031"
440 PRINT : PRINT "(PLASTIC MONEY ACCEPTED.)"
450 V = PEEK(37)
460 TEXT
470 VTAB V +3: HTAB 1
480 PRINT " I GOT MINE WITHIN A WEEK."
490 GOSUB 2000
500 VTAB 5
510 PRINT " I SHOULD ADD, FOR THE SAKE OF YOU 2-EUSERS, THAT YOUR MACHINE ISN'T MENTIONEDIN THIS BOOK. IT WAS PUBLISHED BEFORE THE 2-E CAME OUT."
520 POKE 32,18
530 VTAB 15: PRINT "BOB CURTIN"
540 PRINT "387 BLACK WALNUT DR."
550 PRINT "ROCHESTER, NY 14615"
560 POKE 32,0
570 A$ = " FOR PAL.MENU": GOSUB 2000
580 PRINT CHR$(4)"RUN PAL.MENU"
999 END
1000 L = INT(20 - LEN(A$)/2):F = 40 -L - LEN(A$)
1010 IF X = 3 THEN 1030
1020 INVERSE
1030 PRINT SPC( L);A$; SPC( F);
1040 NORMAL : RETURN
2000 VTAB 21: FOR X = 1 TO 40: PRINT "-";: NEXT
2010 VTAB 23: HTAB 20 - LEN(A$)/2: PRINT A$;: CALL -678
2020 FOR X = 1 TO 25: FOR Y = 1 TO 25: NEXT : PRINT : NEXT
2030 RETURN
4000 DATA "WHAT'S WHERE IN THE APPLE","A COMPLETE GUIDE TO THE APPLE COMPUTER","BY WILLIAM F. LUEBBERT"
4010 DATA "EVERYTHING YOU EVER WANTED TO KNOW","ABOUT THE APPLE COMPUTER","(BUT WERE AFRAID TO PEEK)"

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.14615.CURTIN.JUN.83.B.bas:

10 TEXT : HOME : CLEAR
20 VTAB 8
21 PRINT " WITH ALL THE DISCUSSION, RECENTLY, IN";
30 INVERSE : PRINT "SOFT.PALS";: NORMAL : PRINT " ABOUT THE (IN)FAMOUS BUG THAT"
40 PRINT "INFESTS THE 'RENUMBER' PROGRAM, I'M SUR-PRISED THAT NOBODY MENTIONED WHAT IS PRO-BABLY THE BEST SOLUTION TO HAVE COME ALONG IN AGES........";
50 FOR X = 1 TO 10000: NEXT
60 FOR X = 1 TO 24: HTAB 21: PRINT ".": FOR Y = 1 TO 75: NEXT : NEXT
70 FOR X = 1 TO 13: HTAB 21: PRINT " ": FOR Y = 1 TO 35: NEXT : NEXT
80 VTAB 11
85 HTAB 22
90 SPEED= 255
100 INVERSE : PRINT " REPLACE IT! "
105 FOR X = 1 TO 2000: NEXT : SPEED= 50
110 NORMAL : PRINT : PRINT : PRINT ".....WITH BEAGLE BROS.' ";: INVERSE : PRINT "DOUBLE-TAKE"
120 NORMAL : SPEED= 255
130 A$ = " FOR NEXT PAGE"
140 GOSUB 2000
150 VTAB 1
160 PRINT " NOT ONLY DO YOU GET A BUG-FREE PRO- GRAM, BUT IT'S BETTER, TOO. THIS ONE, FOR INSTANCE, CAN CO-RESIDE WITH ";: INVERSE : PRINT "GPLE": NORMAL
170 PRINT "IN YOUR APPLE'S MEMORY, AND BOTH WILL BEHAVE THEMSELVES IN THE STYLE TO WHICH YOU ARE ACCUSTOMED, READY TO DO THEIR THING AT THE TOUCH OF A KEY."
180 PRINT : PRINT : PRINT " THE 'HIDE-AND-MERGE' FEATURE WORKS BETTER, TOO."
190 PRINT : PRINT : PRINT " AND ON TOP OF THAT, YOU GET A BUNCH OF OTHER USEFUL PROGRAMMER'S AID UTILIT-IES, 23 IN ALL (GO AHEAD, COUNT 'EM!!), WAITING TO SERVE YOU AT A FLICK OF YOUR FINGER."
200 GOSUB 2000
210 VTAB 5
220 PRINT " AND BESIDES, BERT KERSEY (MR. BEAGLE)IS THE KIND OF A GUY (HE THINKS HIS DISKDRIVE TALKS TO HIM!!) WHO NEEDS ALL THE HELP HE CAN GET.
230 POKE 33,22: POKE 32,18
235 VTAB 17
240 PRINT "BOB CURTIN"
250 PRINT "387 BLACK WALNUT DR."
260 PRINT "ROCHESTER, NY 14615"
270 TEXT
280 A$ = " FOR PAL.MENU"
290 GOSUB 2000
300 PRINT CHR$(4);"RUN PAL.MENU"
999 END
1000 L = INT(20 - LEN(A$)/2):F = 40 - LEN(A$) -L: INVERSE : PRINT SPC( L);A$; SPC( F);: NORMAL : RETURN
2000 VTAB 21: FOR X = 1 TO 40: PRINT "-";: NEXT
2010 VTAB 23: HTAB 20 - LEN(A$)/2: PRINT A$;: CALL -678
2020 FOR X = 1 TO 25: FOR Y = 1 TO 25: NEXT : PRINT : NEXT
2030 RETURN

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.21045.DODGE.JUN.83.A.bas:

1 HOME : REM PAL.21045.DODGE.JUN.83.A
5 VTAB 3: PRINT "TO: PAL.52136.MURPHY.MAR.83.A"
10 VTAB 5: PRINT "DEAR JIM": PRINT : PRINT "CONCERNING COPYRIGHTS SEE NIBBLE VOL3.4 PAGE 69-''LEGAL BITS'' FOR INFO BY"
15 PRINT : PRINT TAB( 5);"THORNE HARRIS, ESQ.": PRINT TAB( 5);"4312 ARIZONA AVE.": PRINT TAB( 5);"KENNER, LA. 70062"
20 PRINT : PRINT "FROM READING HIS CONTINUING ARTICLE, IT SOUNDS LIKE YOUR INQUIRY MIGHT BE RIGHT DOWN HIS ALLEY.": PRINT
25 PRINT "COURTESY: LEO C. DODGE": PRINT " 8727 HAYSHED LANE, #33 COLUMBIA, MARYLAND 21045"
100 VTAB 23: HTAB 12: FLASH : PRINT "HIT ANY KEY";: NORMAL
110 GET A$
120 PRINT CHR$(13) + CHR$(4);"RUN PAL.MENU"

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.33542.MONTGOMERY.JUN.83.A.bas:

10 HOME
20 HTAB 8: INVERSE : PRINT "TO CHECK A MICROWAVE OVEN.": NORMAL : PRINT : PRINT
30 HTAB 4: PRINT "IF YOU HAVE A 700 WATT MICROWAVE"
40 HTAB 4: PRINT "OVEN (MOST OF THEM ARE 700 WATT NOW)"
50 HTAB 4: PRINT "PUT 2 CUPS OF TAP WATER IN A PYREX"
60 HTAB 4: PRINT "MEASURING CUP. TAKE ITS TEMPERATURE"
70 HTAB 4: PRINT "AND MAKE A NOTE OF IT. THEN PLACE"
80 HTAB 4: PRINT "THE CUP IN THE CENTER OF THE OVEN."
90 HTAB 4: PRINT "RUN THE OVEN ON 'HIGH' FOR 2 MINUTES."
100 HTAB 4: PRINT "WHEN 'DONE' TAKE ITS TEMPERATURE"
110 HTAB 4: PRINT "AGAIN. IF THE OVEN IS COOKING AS"
120 HTAB 4: PRINT "IT SHOULD, THE TEMPERATURE SHOULD"
130 HTAB 4: PRINT "HAVE INCREASED 55 DEGREES.": PRINT
140 HTAB 4: PRINT "IF YOURS IS A 600 WATT OVEN, THE"
150 HTAB 4: PRINT "RISE SHOULD BE ABOUT 47 DEGREES."
160 PRINT : PRINT "HIT SPACE BAR ";: GET R$: PRINT R$: PRINT CHR$(4)"RUN PAL.MENU"

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.33542.MONTGOMERY.JUN.83.B.bas:

5 HOME : PRINT : PRINT : PRINT : PRINT
20 HTAB 4: INVERSE : PRINT "USING YOUR TV FOR TORNADO WARNING": NORMAL : PRINT : PRINT
25 HTAB 3: PRINT "PRESS ANY KEY TO SEE HOW IT WORKS."
30 GET A$: HOME : PRINT : PRINT : PRINT
40 HTAB 3: PRINT "1. TURN YOUR TV ON AND DIAL CHANNEL"
50 HTAB 3: PRINT " 12 OR 13. USE THE CHANNEL NOT USED"
60 HTAB 3: PRINT " IN YOUR AREA.": PRINT
70 HTAB 3: PRINT "2. TURN THE BRIGHTNESS CONTROL DOWN"
80 HTAB 3: PRINT " UNTIL PICTURE JUST DISAPPEARS OR"
90 HTAB 3: PRINT " SCREEN IS ALMOST DARK.": PRINT
100 HTAB 3: PRINT "3. NOW TURN TV DIAL TO CHANNEL 2.": PRINT
110 HTAB 3: PRINT "4. IF SCREEN IS STILL DARK, AS IT"
120 HTAB 3: PRINT " WAS ON CHANNEL 12 OR 13, ALL IS"
130 HTAB 3: PRINT " WELL.": PRINT : PRINT
135 HTAB 8: PRINT "PRESS ANY KEY TO CONTINUE.": GET A$: HOME : PRINT
140 HTAB 3: PRINT "5. IF YOU SEE WHITE FLASHES ACROSS"
150 HTAB 3: PRINT " THE SCREEN, THIS IS LIGHTNING"
160 HTAB 3: PRINT " FROM A THUNDERSTORM IN YOUR AREA.": PRINT
170 HTAB 3: PRINT "6. IF WHITE FLASHES LINGER, IN THE"
180 HTAB 3: PRINT " FORM OF HORIZONTAL BARS ACROSS"
190 HTAB 3: PRINT " THE SCREEN, THIS INDICATES A"
200 HTAB 3: PRINT " DANGEROUS STORM IN THE AREA. THE"
210 HTAB 3: PRINT " WIDER THESE BARS, THE MORE"
220 HTAB 3: PRINT " INTENSE THE STORM IS BECOMING.": PRINT
230 HTAB 3: PRINT "7. IF YOUR SCREEN SUDDENLY LIGHTS"
240 HTAB 3: PRINT " UP ON CHANNEL 2, AND BECOMES VERY"
250 HTAB 3: PRINT " WHITE, A TORNADO IS IN YOUR AREA"
260 HTAB 3: PRINT " AND YOU SHOULD TAKE NECESSARY"
270 HTAB 3: PRINT " PRECAUTIONS.": PRINT
280 HTAB 3: PRINT "8. THE FUNNEL OR TORNADO WILL COME"
290 HTAB 3: PRINT " FROM THE BACK SOUTHWEST CORNER"
300 HTAB 3: PRINT " OF THE CLOUD.": PRINT
310 HTAB 8: PRINT "PRESS ANY KEY TO CONTINUE.": GET A$: HOME : PRINT : PRINT
320 HTAB 3: PRINT "9. THIS METHOD WILL PICK UP A TORNADO"
330 HTAB 3: PRINT " AS FAR AS 20 MILES AWAY, DEPENDING"
340 HTAB 3: PRINT " ON GOOD RECEPTION, BUT AVERAGE"
350 HTAB 3: PRINT " IS ABOUT 5 MILES. IT IS EQUALLY"
360 HTAB 3: PRINT " EFFECTIVE WITH AN ANTENNA OR CABLE.": PRINT
370 HTAB 2: PRINT "10. IN ORDER TO USE THIS METHOD OF"
380 HTAB 3: PRINT " TORNADO WATCHING, CHECK YOUR TV"
390 HTAB 3: PRINT " DURING GOOD WEATHER TO MAKE SURE"
400 HTAB 3: PRINT " YOUR BRIGHTNESS CONTROL IS WORKING"
410 HTAB 3: PRINT " PROPERLY AND WILL TURN THE"
420 HTAB 3: PRINT " INTENSITY DOWN ON YOUR SCREEN.": PRINT
500 PRINT : PRINT "HIT SPACE BAR ";: GET R$: PRINT R$: PRINT CHR$(4)"RUN PAL.MENU"

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.43061.BOUIC.JUL.83.A.bas:

50 HOME
55 PRINT : PRINT : PRINT
60 PRINT " DOES ANYONE KNOW OF (A) PROGRAM(S)"
70 PRINT "THAT WILL PRODUCE A CROSS-REFERENCED"
80 PRINT "LIST OF VARIABLES AND PERHAPS CONSTANTS"
90 PRINT "FOR APPLE /// BUSINESS BASIC PROGRAMS."
95 PRINT
100 PRINT " I WOULD LIKE SOMETHING SIMILIAR TO"
105 PRINT "WHAT WAS SHOWN FOR APPLESOFT IN THE"
110 PRINT "'APPLE DOC' DEMO ON THE MAY 83 SOFTDISK?"
130 PRINT : PRINT : PRINT
150 PRINT SPC( 10)"FRANK ALLEN BOUIC"
160 PRINT SPC( 10)"9361 HINTON MILL RD."
170 PRINT SPC( 10)"OSTRANDER, OHIO 43061"
180 PRINT : PRINT : PRINT : PRINT
300 PRINT " PRESS ANY KEY FOR PAL MENU";
310 GET T$
320 IF T$ = CHR$(3) THEN STOP
330 PRINT
350 PRINT CHR$(4);"RUN PAL.MENU"

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.49127.BURNS.JUN.83.A.bas:

5 D$ = CHR$(13) + CHR$(4)
10 TEXT : HOME : SPEED= 255
20 VTAB 9
30 PRINT "I AM LOOKING FOR THE DOCUMENTATION TO": PRINT
40 PRINT TAB( 5);"APPLEWRITER 1.1 (CIRCA. 1979)
45 VTAB 15
50 PRINT : PRINT TAB( 12)"THOMAS E. BURNS"
60 PRINT TAB( 9)"2809 W. MARQUETTE WDS."
70 PRINT TAB( 9)"STEVENSVILLE, MI. 49127"
109 VTAB 24: INVERSE
110 PRINT " PRESS ANY KEY FOR 'PAL.MENU' "
120 IF PEEK( -16384) <128 THEN 120
121 POKE -16368,0
122 NORMAL
130 PRINT D$;"RUN PAL.MENU"

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.68108.PRITCHARD.JUN.A.bas:

10 HOME : PRINT : PRINT "ANNOUNCING:": PRINT : GOSUB 1000: INVERSE : PRINT "THE HIGH RESOLUTION PICTURE LIBRARY": PRINT : GOSUB 1000
20 HTAB 4: PRINT "HRPL";: NORMAL : PRINT " WILL BE A COLLECTION OF HIGH": PRINT "QUALITY PICTURES AND PROGRAMS FOR": PRINT "DRAWING THEM. THE GOAL IS TO EVENTUALLY";: PRINT "DEVELOP AN INTEGRATED GRAPHICS SYSTEM": PRINT "AS WELL AS CREATE A LIBRARY OF HI-RES": PRINT "PICTURES."
30 PRINT : PRINT " ALL PICTURES AND PROGRAMS WILL BE IN": PRINT "THE PUBLIC DOMAIN. IF YOU ARE INTEREST-";: PRINT "ED IN DONATING OR COPYING FROM THE HRP": PRINT "LIBRARY, SEND YOUR DISKS TOGETHER WITH": PRINT "RETURN POSTAGE TO:"
40 PRINT : PRINT " H. R. P. L.": PRINT " 2353 S. 8TH ST.": PRINT " OMAHA, NE 68108": PRINT : GOSUB 2000
50 HOME : PRINT : PRINT "TO START THINGS OFF, THE LIBRARY": PRINT "CONTAINS:": PRINT : PRINT "PICTURES FROM APPLE CONTRIBUTED SOFTWARE";: PRINT "VOL 4 (DOES SOMEBODY HAVE VOL 2?)": PRINT : PRINT "SOFTDISK COVERS 4/83-6/83": PRINT
60 PRINT "PACKER UTILITY": PRINT : PRINT "HI-RESOLUTION CHARACTER GENERATOR": PRINT : PRINT "FONT EDITOR": PRINT : PRINT "FONT WRITER": PRINT : PRINT "CAT-GRAPHICS"
70 PRINT : PRINT "SO, ALL YOU PIXEL ARTISTS AND": PRINT "PROGRAMMERS, LET'S GO!!": PRINT : GOSUB 2000
80 PRINT : PRINT "RUN PAL.MENU"
1000 FOR X = 1 TO 1500: NEXT : RETURN
2000 PRINT "PRESS A KEY TO CONTINUE": WAIT -16384,128: GET A$: RETURN
3000 REM PAUL PRITCHARD
3020 REM 2353 S. 8TH ST.
3030 REM OMAHA, NE 68108

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.76067.RAINES.MAY.83.A.bas:

100 REM * SOFTPAL PROGRAM BY DARREL RAINES *
110 TEXT : HOME : SPEED= 255
115 PRINT CHR$(4);"BLOAD DIVE.STRAFING (CALL 5334)"
120 HGR : HCOLOR= 3
130 FOR I = 1 TO 7
140 HPLOT 49 +I,50 TO 49 +I,100
150 HPLOT 50,49 +I TO 75,49 +I
160 HPLOT 75,49 +I TO 85,59 +I
170 HPLOT 78 +I,60 TO 78 +I,70
180 HPLOT 85,63 +I TO 75,73 +I
190 HPLOT 75,73 +I TO 50,73 +I
200 NEXT I
210 HPLOT 115,100 TO 115,75
220 HPLOT 115,77 TO 95,77 TO 90,80 TO 90,97 TO 95,100 TO 110,100 TO 115,95
230 HPLOT 130,50 TO 130,100
235 FOR I = 1 TO 1000: NEXT I
240 CALL 5334
250 HCOLOR= 0
260 HPLOT 55,70: HPLOT 53,73: HPLOT 53,60: HPLOT 55,57: HPLOT 63,53: HPLOT 66,55
270 HPLOT 57,54: HPLOT 52,52: HPLOT 54,64: HPLOT 78,55: HPLOT 83,65: HPLOT 80,68
280 HPLOT 74,76: HPLOT 60,76: HPLOT 57,78: HPLOT 53,91
290 HPLOT 130,50 TO 130,80: HCOLOR= 3: HPLOT 130,80 TO 160,100
300 FOR I = 1 TO 5000: NEXT I
310 TEXT : HOME :L$ = "****************************************"
320 PRINT L$: PRINT L$: VTAB 2: PRINT "FROM SOFTPAL: DARREL RAINES 06/30/83": POKE 34,3
330 FOR J = 1 TO 4
340 FOR I = 1 TO 9: READ A$: PRINT : PRINT A$: NEXT I: GOSUB 4000: HOME
350 NEXT J
360 VTAB 13: PRINT "THIS PAL PROGRAM BY:": PRINT TAB( 8);"DARREL RAINES"
370 PRINT TAB( 8);"RT. 3 208A SUMMIT DR.": PRINT TAB( 8);"MINERAL WELLS, TX 76067": VTAB 23: PRINT "PRESS TO REVIEW": PRINT "PRESS FOR PAL MENU ";: GET A$
375 TEXT
380 IF A$ = " " THEN PRINT : PRINT CHR$(4);"RUN PAL.MENU"
390 IF A$ = "R" THEN RESTORE : HOME : GOTO 120
400 GET A$: GOTO 380
4000 REM * PAUSE UNTIL SPACE BAR IS PRESSED *
4010 VTAB 24: HTAB 12: INVERSE : PRINT "";: NORMAL : GET A$
4020 IF A$ < >" " THEN GET A$: GOTO 4020
4030 RETURN
5000 DATA " THIS PAL PROGRAM IS INTENDED TO HELP",CLEAR UP A PROBLEM WITH TWO OF THE,PROGRAMS IN THE MAY '83 SOFTDISK,HARVEST. YOU MAY HAVE NOTICED THAT THE
5010 DATA TYPING DEVELOPMENT SYSTEM PROGRAM,WRITTEN BY JEFF WINKLER DOES NOT GIVE,AN ACCURATE TIME/LETTER AT THE END OF,THE TEST. THIS CAN BE MADE MUCH MORE
5020 DATA REASONABLE BY USING THE FIX I HAVE,"PROVIDED, ALTHOUGH IT IS STILL NOT VERY",ACCURATE FOR MORE THAN JUST PRACTICE.," THE TEXT ANALYSIS PROGRAM BY DALE"
5030 DATA SALYER HAS A VERY SMALL BUG IN IT THAT,PRODUCES BIG ERRORS IN THE FINAL,PRINTED RESULTS. THE PROGRAM COUNTS,ONLY VOWELS THAT ARE CAPITALIZED. MY,FIX WILL CORRECT THAT ERROR AND WILL
5040 DATA MAKE THE FINAL RESULTS REFLECT THE TRUE,NUMBER OF VOWELS IN THE TEXT.," I HAVE NOT CONSULTED WITH EITHER OF",THE AUTHORS OF THESE PROGRAMS BUT I AM,SURE THAT THESE FIXES ARE ALONG THE
5050 DATA LINES OF THE ORIGINAL INTENTIONS OF,BOTH OF THEM. MY COMPLIMENTS TO THEM,ON A COUPLE OF FINE JOBS OF PROGRAMMING,FOR PUBLIC USE.
5060 DATA " "," TO CORRECT EACH OF THE PROGRAMS, LOAD",THEM ONE AT A TIME INTO MAIN MEMORY AND,EXECUTE THE APPROPRIATE .EXEC FILE FROM,THIS DISK. THE PROGRAMS SHOULD THEN BE
5070 DATA SAVED BACK TO THE ORIGINAL DISK.," THE .EXEC FILES ON THIS DISK ARE:"," TYPE FIX.EXEC"," TEXT ANALYZER FIX.EXEC"," "

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.77007.MARCHAND.MAY.83.A.bas:

5 TEXT : HOME : SPEED= 255
10 PRINT "THERE IS A PROBLEM WITH 'TEXT FILE ": PRINT : PRINT "ANALYZER' PROGRAM ON THE MAY 'HARVEST'": PRINT : PRINT "DISKETTE.": PRINT : PRINT : PRINT "IN LINE NUMBER 570 THE SEARCH FOR": PRINT : PRINT "CAPITAL A,E,I,O,U IS REPEATED. YOU"
20 PRINT : PRINT "COULD USE THE 'APPLESOFT-TEXT CONVERTER": PRINT : PRINT "PROGRAM ON THAT SAME DISKETTE TO ": PRINT : PRINT "CONVERT THE ENTIRE PROGRAM TO A TEXT": PRINT : PRINT "FILE, CORRECT LINE NO. 570 WITH A WORD"
25 PRINT : PRINT "PROCESSOR THEN 'EXEC' IT BACK TO"
30 GOSUB 1000
40 PRINT : PRINT " AN APPLESOFT PROGRAM BUT THERE IS A": PRINT : PRINT "BETTER WAY.
50 PRINT : PRINT : PRINT "USE ANY WORD PROCESSOR THAT STORES ITS": PRINT : PRINT "FILES AS A STANDARD DOS SEQUENTIAL TEXT": PRINT : PRINT "FILE AND WRITE LINE 570 USING LOWER CASE": PRINT "LETTERS FOR THE VOWELS THEN SAVE THIS"
60 PRINT : PRINT "TO DISK AS SAY, LINE NO. 570. THEN LOAD": PRINT : PRINT "THE 'TEXT ANALYZER' FILE INTO MEMORY."
70 PRINT : PRINT "YOU NEXT 'EXEC' YOUR LINE NO. 570 FROM": PRINT : PRINT "ITS DISK AND THE PROGRAM IS FIXED"
80 GOSUB 1000
90 PRINT : PRINT : PRINT "EARL E. MARCHAND"
100 PRINT "410 EAST COWAN DRIVE"
110 PRINT "HOUSTON, TEXAS 77007
900 GOSUB 1000: PRINT CHR$(4)"RUN PAL.MENU"
1000 PRINT : HTAB 12: INVERSE : PRINT " HIT ANY KEY ";: NORMAL : GET R$: PRINT R$: RETURN

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.77007.MARCHAND.MAY.83.B.bas:

5 TEXT : HOME : SPEED= 255
10 PRINT TAB( 6)"A HINT ON USING 'COPYA'"
20 PRINT : PRINT : PRINT "IF YOU ARE USING 'COPYA' TO COPY": PRINT : PRINT "SEVERAL PROGRAMS AND NEED TO GET OUT OF": PRINT : PRINT "IT TO CHECK THE CATALOG, RERUNNING WILL": PRINT : PRINT "GIVE A 'FILE NOT FOUND' ERROR MESSAGE"
30 PRINT : PRINT "WHEN LINE 70 TRIES TO BLOAD 'COPY.OBJ0'.": PRINT "YOU COULD DELETE LINE 70 BUT WHY NOT"
40 PRINT : PRINT "LET THE SOFTWARE DO IT FOR YOU BY": PRINT : PRINT "ADDING THE FOLLOWING LINE TO THE PROGRAM"
50 PRINT : PRINT TAB( 10)"305 DEL 70,70 : END"
80 GOSUB 1000
90 PRINT : PRINT : PRINT "EARL E. MARCHAND"
100 PRINT "410 EAST COWAN DRIVE"
110 PRINT "HOUSTON, TEXAS 77007
900 GOSUB 1000: PRINT CHR$(4)"RUN PAL.MENU"
1000 PRINT : HTAB 12: INVERSE : PRINT " HIT ANY KEY ";: NORMAL : GET R$: PRINT R$: RETURN

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.94062.LEPISTO.JUN.83.A.bas:

10 TEXT : HOME : PRINT
15 PRINT " ABOUT THE MUSIC SOFTY GIVES US EVERY": PRINT
20 PRINT "ISSUE: YEEEEAAAAA!!!": PRINT
30 PRINT "ONE PROBLEM THOUGH. IN THE MAY ISSUE": PRINT
35 PRINT "THE APPLESOFT PROGRAM THAT PLAYED THE": PRINT
40 PRINT "MUSIC HAD A FEATURE WHERE IT WAS": PRINT
45 PRINT "POSSIBLE TO OUTPUT THE MUSIC THROUGH": PRINT
50 PRINT "THE CASSETTE OUTPUT JACK OF THE APPLE": PRINT
55 PRINT "AND THEREBY ALLOWING ONE TO USE AN": PRINT
60 PRINT "AMPLIFIER. THIS TENDS TO MAKE THE ": PRINT
65 PRINT "MUSIC SOUND FULLER, RICHER. IT EVEN": PRINT
67 GOSUB 2000
70 PRINT "GIVES THE ABILITY TO TAPE THE MUSIC.": PRINT
75 PRINT "UNFORTUNATELY, THE APRIL AND JUNE IS-": PRINT
80 PRINT "SUES DID NOT HAVE THIS FEATURE AND I": PRINT
85 PRINT "SORELY MISSED IT. SO I HAVE WORKED OUT": PRINT
90 PRINT "A PATCH TO CORRECT THIS MINOR OVER-": PRINT
95 PRINT "SIGHT. THE PATCH IS FAIRLY SIMPLE BUT": PRINT
100 PRINT "IT DOES REQUIRE MODIFYING THE APPLESOFT": PRINT
105 PRINT "PROGRAM THAT PLAYS THE MUSIC SO MAKE": PRINT
110 PRINT "SURE YOU HAVE A COPY OF THAT PROGRAM": PRINT
115 PRINT "BEFORE MAKING ANY CHANGES, JUST IN CASE."
117 GOSUB 2000
120 PRINT " TO APPLY THE PATCH, GET INTO BASIC": PRINT
125 PRINT "AND DO THE FOLLOWING STEPS:": PRINT
130 PRINT : PRINT "1) PUT THE COPY OF THE LATEST ISSUE OF"
135 PRINT " SOFTDISK INTO A DRIVE AND ENTER"
140 PRINT " 'BLOAD PLAYER,A768' (MAKE SURE YOU"
145 PRINT " ACCESS THE DRIVE WITH THE SOFTDISK)": PRINT
150 PRINT "2) ENTER THE FOLLOWING POKES:"
155 PRINT " POKE 867,32": PRINT " POKE 877,32": PRINT " POKE 919,32": PRINT " POKE 932,32": PRINT
160 PRINT "3) ENTER 'BSAVE TAPE.PLAYER,A768,L208'": PRINT
165 PRINT "4) LOAD IN THE APPLESOFT MUSIC PLAYER.": PRINT
167 GOSUB 2000
170 PRINT "5) LOCATE THE LINE WHICH BLOAD'S THE"
175 PRINT " 'PLAYER' ROUTINE (SHOULD BE NEAR THE"
180 PRINT " START OF THE APPLESOFT PROGRAM).": PRINT
185 PRINT "6) DELETE THAT LINE AND ENTER (WITH THE"
190 PRINT " SAME LINE NUMBER) 'GOSUB 34500'.": PRINT
195 PRINT "7) NOW ENTER THE FOLLOWING ROUTINE:"
200 LIST 34500,34525: PRINT
202 GOSUB 2000
205 PRINT "8) SAVE THE APPLESOFT PROGRAM UNDER ITS"
210 PRINT " ORIGINAL NAME OR ONE OF YOUR OWN.": PRINT
215 PRINT "9) ENTER 'RUN' AND ENJOY!": PRINT
220 PRINT " I AM SUGGESTING TO SOFTY TO MAKE": PRINT
225 PRINT "THIS OR SOMETHING LIKE IT A PERMANENT": PRINT
230 PRINT "ADDITION TO THE MUSIC PROGRAMS. HOPE": PRINT
235 PRINT "HE LIKES THE SUGGESTION.": PRINT
240 PRINT " NOTE: I HAVE INCLUDED THE BLOAD": PRINT
245 PRINT "ROUTINE AT THE END OF THIS PROGRAM FOR": PRINT
250 PRINT "THOSE WHO WISH TO SEE IT IN THAT FORM."
1000 GOSUB 2000
1005 PRINT : PRINT "I AM:": PRINT
1010 PRINT " STEPHEN P. LEPISTO": PRINT
1015 PRINT " 1709 JEFFERSON AVE.": PRINT
1020 PRINT " REDWOOD CITY, CA. 94062": PRINT
1025 GOSUB 2000
1030 PRINT CHR$(4);"RUNPAL.MENU"
1035 END
2000 VTAB 22: HTAB 5: PRINT "PRESS THE SPACE BAR TO CONTINUE": HTAB 11: PRINT "PRESS 'ESC' TO EXIT"
2005 S(0) = 1744:S(1) = 1872:LN = 39
2010 T1 = INT( RND(1) *40):T2 = INT( RND(1) *2)
2015 T = PEEK(S(T2) +T1): IF T <161 THEN 2010
2020 IF PEEK( -16384) >127 THEN 2030
2025 POKE S(T2) +T1,T -128 *(T <192) -192 *(T > = 192): FOR I = 1 TO 50: NEXT : POKE S(T2) +T1,T: GOTO 2010
2030 X = PEEK( -16384): POKE -16368,0
2035 IF X = 155 THEN POP : GOTO 1030
2040 HOME : PRINT : RETURN
34500 REM LOAD IN PLAYER
34505 PRINT "DO YOU WISH TO SEND THE MUSIC OUT": PRINT "THROUGH THE CASSETTE OUT JACK (Y OR N)?";
34510 GET AA$: PRINT AA$
34515 ZZ$ = "PLAYER": IF AA$ = "Y" THEN ZZ$ = "TAPE.PLAYER"
34520 PRINT CHR$(4)"BLOAD"ZZ$
34525 RETURN

Text found in Softdisk_021_July_1983_Side_A.dsk/PAL.MENU.bas:

10 REM PAL.MENU
11 REM READ NEXT PAL ADDED BY CHAD ADAMSAPRIL 19,1983
15 DIM A$(10):D$ = CHR$(4)
16 X = 0
17 IF PEEK(X) < >20 OR PEEK(X +2) >9 OR PEEK(X +1) < >40 THEN POKE X,20: POKE X +1,40: POKE X +2,1: POKE X +3,1
18 NP = PEEK(X +2):NF = PEEK(X +3)
19 GOSUB 4000
20 TEXT : HOME : SPEED= 255
30 HTAB 14: INVERSE : PRINT " PAL.MENU ";: NORMAL : PRINT " PAGE ";NP
1000 I = 0
1010 I = I +1: IF I >9 GOTO 1200
1020 READ A$(I): IF A$(I) = "END" GOTO 1200
1030 PRINT : HTAB 01: PRINT I;" = ";A$(I): GOTO 1010
1200 VTAB 22: INVERSE : PRINT "G=GOBACK S=START OVER "
1210 IF A$(I) < >"END" THEN HTAB 25: VTAB 22: PRINT "M=MORE ";
1211 HTAB 1
1212 VTAB 23: PRINT "N=READ NEXT PAL ("NP","NF") ";: HTAB 22: PRINT " ";
1220 NORMAL : VTAB 21: HTAB 1: GET R$: PRINT R$
1225 IF R$ = "M" AND A$(I) < >"END" THEN NP = NP +1:NF = 1: GOTO 20
1230 IF R$ = "S" THEN RESTORE :NP = 1:NF = 1: GOTO 20
1240 IF R$ = "G" THEN POKE X,0: POKE X +1,0: PRINT D$"RUN SOFT.PALS"
1242 IF R$ = "N" THEN 2010
1250 R = INT( VAL(R$)): IF R >0 AND R 9 THEN NF = 1:NP = NP +1
3010 POKE X +2,NP: POKE X +3,NF: RETURN
4000 K = 9 *(NP -1): IF K = 0 THEN RETURN
4010 FOR L = 1 TO K: READ Z$: NEXT
4020 RETURN
5010 DATA "13308.CLEMENS.JUN.83.A"
5030 DATA "14615.CURTIN.JUN.83.A"
5040 DATA "14615.CURTIN.JUN.83.B"
5050 DATA "21045.DODGE.JUN.83.A"
5070 DATA "33542.MONTGOMERY.JUN.83.A"
5080 DATA "33542.MONTGOMERY.JUN.83.B"
5090 DATA "43061.BOUIC.JUL.83.A"
5100 DATA "49127.BURNS.JUN.83.A"
5110 DATA "68108.PRITCHARD.JUN.A"
5120 DATA "76067.RAINES.MAY.83.A"
5130 DATA "77007.MARCHAND.MAY.83.A"
5140 DATA "77007.MARCHAND.MAY.83.B"
5150 DATA "94062.LEPISTO.JUN.83.A"
9999 DATA "END"

Text found in Softdisk_021_July_1983_Side_A.dsk/PRICE.INCREASE.bas:

10 REM PRICE.INCREASE
20 TEXT : HOME : SPEED= 255
40 PRINT " THE MONTHLY CHARGE FOR SOFTDISK IS"
50 PRINT : PRINT "NOW $7."
60 PRINT : PRINT " PLEASE NOTE THAT THE ANNUAL RATE IS"
70 PRINT : PRINT "STILL ONLY $55 FOR TWELVE TWIN DISK"
80 PRINT : PRINT "ISSUES."
83 PRINT " ";: INVERSE : PRINT " ": NORMAL
85 PRINT " (";: INVERSE : PRINT "THAT'S LESS THAN $5 PER ISSUE!";: NORMAL : PRINT ")"
86 PRINT " ";: INVERSE : PRINT " ": NORMAL
90 PRINT " WE HOPE THIS PRICING CHANGE WILL"
100 PRINT : PRINT "ENCOURAGE MORE ANNUAL SUBSCRIPTIONS."
110 PRINT : PRINT " A STABLE SUBSCRIBER BASE WILL ALLOW"
120 PRINT : PRINT "SOFTDIS#H<'H!%8$-%-& MID$ h SGNR SGNJ&-?H.-)<=:-;FJh ASC STR$h PDLZXXXh TO PRINT h SGN VLIN @\AJ:=&H#!+K.IU/NFF"
2000 VTAB 23: HTAB 12: INVERSE : PRINT " HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$: RETURN

Text found in Softdisk_021_July_1983_Side_A.dsk/SILAS.SAYS.bas:

1 REM SILAS.SAYS
2 HOME : PRINT " SILAS WARNER OF MUSE SOFTWARE HAS": PRINT : PRINT "BEEN ON SOFTY'S CASE TO PATCH DOS SO"
3 PRINT : PRINT "THAT SOFTDISK WILL WORK BETTER WITH THE"
4 PRINT : PRINT "LANGUAGE CARD.": PRINT : PRINT " NOT ONLY IS SOFTDISK PATHCED BUT"
5 PRINT : PRINT "NOW YOU CAN PATCH YOUR DISKETTES ALSO."
6 PRINT : PRINT "AT LEAST THAT IS WHAT SILAS SAYS...."
7 PRINT : HTAB 12: INVERSE : PRINT "HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$
8 PRINT CHR$(4)"MON C,I,O"
10 TEXT : CALL -936: VTAB 3
40 PRINT CHR$(4)"EXEC EXEC FILE": END

Text found in Softdisk_021_July_1983_Side_A.dsk/SOFT.PALS.bas:

10 REM SOFT.PALS
20 TEXT : HOME : SPEED= 255
30 VTAB 3: HTAB 14: INVERSE : PRINT " ": HTAB 14: PRINT " SOFT PALS ": HTAB 14: PRINT " ": NORMAL
40 PRINT : PRINT : HTAB 8: PRINT "1 = PURPOSE OF SOFT PALS"
50 PRINT : PRINT : HTAB 8: PRINT "2 = EXAMPLE SOFT PAL TOPICS"
60 PRINT : PRINT : HTAB 8: PRINT "3 = WHAT DO MY SOFT PALS SAY?"
70 PRINT : PRINT : HTAB 8: PRINT "4 = HOW TO SUBMIT TO SOFT PALS"
80 PRINT : PRINT : HTAB 8: PRINT "5 = BACK TO MAIN MENU"
90 PRINT : PRINT " WHICH ";: GET R$: PRINT R$
100 IF R$ = "1" GOTO 1000
110 IF R$ = "2" GOTO 2000
120 IF R$ = "3" GOTO 3000
130 IF R$ = "4" GOTO 4000
140 IF R$ = "5" THEN PRINT CHR$(4);"RUN KICK.IT.OFF"
150 GOTO 20
1000 HOME : VTAB 3
1010 PRINT " THE PURPOSE OF SOFT PALS IS TO GIVE"
1020 PRINT : PRINT "SUBSCRIBERS DIRECT INPUT INTO THE"
1030 PRINT : PRINT "SOFTDISK NETWORK."
1040 PRINT : PRINT : PRINT "(AND TO TAKE SOME WORK LOAD OFF SOFTY)"
1050 GOTO 9999
2000 HOME : VTAB 3
2010 PRINT " THE FOLLOWING ARE EXAMPLES OF THE"
2020 PRINT : PRINT "KINDS OF TOPICS THAT WOULD BE"
2030 PRINT : PRINT "APPROPRIATE FOR SOFT PAL PROGRAMS:"
2040 PRINT : PRINT : HTAB 12: PRINT "PROGRAMMING TIPS"
2050 PRINT : PRINT " PLEAS FOR HELP WITH COMPUTER PROBLEMS"
2060 PRINT : HTAB 8: PRINT "APPLE RELATED ANNOUNCEMENTS"
2070 PRINT : PRINT : PRINT "GENERAL INTEREST ITEMS ARE PREFERED."
2080 PRINT : PRINT "BUT SEE WHAT YOU CAN RUN BY SOFTY..."
2090 PRINT : PRINT "SOFTDISK IS NOT RIGID."
2500 GOTO 9999
3000 PRINT CHR$(4)"RUN PAL.MENU"
4000 HOME : VTAB 2
4001 PRINT "SUBMIT SOFT PAL PROGRAMS IN THE SAME": PRINT
4002 PRINT "MANNER THAT HARVEST PROGRAMS ARE": PRINT
4004 PRINT "SUBMITTED.": PRINT
4020 PRINT : PRINT "THERE ARE NO RIGID RULES FOR SOFT PAL": PRINT
4030 PRINT "PROGRAMS BUT IN GENERAL THEY SHOULD BE"
4040 PRINT : PRINT "SHORT AND END BY RUNNING A PROGRAM"
4050 PRINT : PRINT "NAMED 'PAL.MENU'."
4060 GOSUB 9000
4070 HOME : VTAB 2
4080 PRINT "SOFT PAL PROGRAMS SHOULD BE NAMED IN": PRINT
4090 PRINT "THE FOLLOWING WAY......": PRINT
4100 PRINT "PAL.ZIP.LASTNAME.MONTH.YEAR.LETTER": PRINT
4110 PRINT "FOR EXAMPLE.....": PRINT
4120 PRINT "PAL.71108.SOFTY.OCT.82.A"
4130 PRINT "PAL.71108.SOFTY.OCT.82.B"
4140 PRINT "PAL.06107.GANZ.NOV.82.A"
4150 PRINT : PRINT "WOULD BE VALID SOFT PAL PROGRAM NAMES."
4500 GOTO 9999
9000 VTAB 23: HTAB 14: INVERSE : PRINT " HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$: RETURN
9999 GOSUB 9000: GOTO 20

Text found in Softdisk_021_July_1983_Side_A.dsk/SOFTDISK.EVALUATOR.bas:

10 TEXT : HOME :D$ = CHR$(4)
20 VTAB (12): HTAB (8): FLASH : PRINT "* * * ";: NORMAL : INVERSE : PRINT "THE EVALUATOR";: NORMAL : FLASH : PRINT " * * *": NORMAL
30 VTAB (20): PRINT "PRESS X TO EXIT": PRINT "PRESS ANY OTHER LETTER TO CONTINUE": GET A$: IF A$ = "X" THEN GOTO 10000
40 HOME : VTAB (4)
50 HTAB (5): PRINT "A = ABOUT THE EVALUATOR"
60 VTAB (6): HTAB (5): PRINT "B = BOOK REVIEW"
70 VTAB (8): HTAB (5): PRINT "C = CLASSIC SOFTWARE REVIEW"
80 VTAB (10): HTAB (5): PRINT "D = NEW GAME REVIEW"
90 VTAB (12): HTAB (5): PRINT "E = BUSINESS REVIEW"
100 VTAB (14): HTAB (5): PRINT "F = BACK TO SOFTIE"
110 VTAB (17): HTAB (8): PRINT "PLEASE MAKE YOUR SELECTION? ";:: GET A$: PRINT A$;
120 IF A$ = "A" THEN GOTO 1000
130 IF A$ = "B" THEN GOTO 2000
140 IF A$ = "C" THEN GOTO 3000
150 IF A$ = "D" THEN GOTO 4000
160 IF A$ = "E" THEN GOTO 5000
170 IF A$ = "F" THEN GOTO 10000
180 GOTO 110
1000 PRINT D$;"RUN ABOUT.EVALUATOR"
2000 PRINT D$;"RUN EVAL.BOOK.REVIEW"
3000 PRINT D$;"RUN EVAL.CLAS.REVIEW"
4000 PRINT D$;"RUN EVAL.GAME.REVIEW"
5000 PRINT D$;"RUN EVAL.BUSS.REVIEW"
10000 REM
10005 PRINT CHR$(13)
10010 PRINT D$;"RUN KICK.IT.OFF"

Text found in Softdisk_021_July_1983_Side_A.dsk/SOFTDISK.PROG.bas:

2 REM SOFTDISK.PROG BY DAN TOBIAS
5 TEXT : HOME
10 POKE 1013,76: POKE 1014,0: POKE 1015,3: FOR X1 = 768 TO 818: READ Y1: POKE X1,Y1: NEXT
20 D$ = CHR$(4):OP$ = D$ +"OPEN SOFTDISK.TEXT,L47"
30 RD$ = D$ +"READ SOFTDISK.TEXT,R"
35 WR$ = D$ +"WRITE SOFTDISK.TEXT,R"
40 CL$ = D$ +"CLOSE SOFTDISK.TEXT"
50 DIM L$(30),L(30)
60 DIM VL$(500),S%(500),C%(500)
90 PRINT OP$
100 PRINT RD$;0: INPUT LF: INPUT VN: & GET DT$
110 PRINT D$
120 RN = 1
130 GOTO 1000
200 REM NUMBERINPUT
210 PRINT D$
220 INVERSE : PRINT "Q=QUIT H=HARDCOPY V=VERBAL OR 1-"T;
225 NORMAL
230 GET I$
240 IF I$ = "Q" THEN 9000
250 IF I$ = "H" THEN GOSUB 5000: RETURN
260 IF I$ = "V" THEN GOSUB 2000: RETURN
270 I = VAL(I$)
280 IF (I >T) OR I <1 OR I < > INT(I) THEN PRINT "";: GOTO 230
290 RN = RN(I): RETURN
400 REM MINPUT
410 PRINT D$
420 INVERSE : PRINT "Q=QUIT H=HARDCOPY G=GOBACK M=MORE ";: NORMAL
430 GET I$
440 IF I$ = "Q" THEN 9000
450 IF I$ = "H" THEN GOSUB 5000: RETURN
460 IF I$ = "G" THEN RN = 1: RETURN
480 RN = RN(1): RETURN
600 REM INPUT
610 HTAB 1
620 I$ = ""
630 GET II$
640 IF II$ = CHR$(13) THEN RETURN
650 IF II$ = CHR$(8) AND LEN(I$) = 0 THEN PRINT "";: GOTO 630
655 IF II$ = CHR$(8) THEN PRINT II$;: CALL -868: IF LEN(I$) = 1 THEN I$ = "": GOTO 630
660 IF II$ = CHR$(8) THEN I$ = LEFT$(I$, LEN(I$) -1): GOTO 630
665 IF LEN(I$) >38 THEN PRINT "";: GOTO 630
667 IF ASC(II$) <32 THEN INVERSE : PRINT CHR$( ASC(II$) +64);: NORMAL
670 I$ = I$ +II$: PRINT II$;: GOTO 630
1000 REM GET PAGE
1005 NN = RN
1010 PRINT RD$;NN
1020 & GET T$
1023 IF T$ < >"D" THEN 1200
1026 & GET T$
1030 IF T$ = "H" THEN HOME : INVERSE : PRINT "SOFTDISK MAGAZETTE - ";DT$;" - FRAME ";RN: NORMAL : PRINT
1035 IF T$ = "H" THEN NL = 0
1040 & GET T$
1050 T = VAL(T$)
1060 & GET T$: PRINT T$
1065 NL = NL +1:L$(NL) = T$
1067 L(NL) = T
1070 IF T >0 THEN PRINT :T = T -1: GOTO 1070
1075 PRINT D$
1080 NN = NN +1: GOTO 1010
1200 REM END OF PAGE
1220 & GET T1$: INPUT FV: & GET T$
1240 T = VAL(T$)
1250 FOR A = 1 TO T: & GET A$:RN(A) = VAL(A$)
1256 NEXT
1260 IF T = 1 THEN GOSUB 400: GOTO 1300
1270 GOSUB 200
1300 REM CONTINUE
1305 PRINT
1310 GOTO 1000
2000 REM VERBAL
2010 HOME : PRINT
2015 N = 1
2017 V = FV
2018 IF V = 0 THEN N = 0: GOTO 2100
2020 PRINT RD$;V
2030 INPUT NA: & GET VL$(N)
2040 S%(N) = V:C%(N) = 0
2050 IF NA = 0 THEN 2100
2060 N = N +1:V = NA: GOTO 2020
2100 REM FINISHED READING
2105 PRINT D$
2120 VTAB 21: INVERSE : PRINT "ARROWS MOVE CURSOR. I=INSERT, D=DELETE,C=CHANGE, G=GO BACK, H=HARDCOPY ";: NORMAL
2130 POKE 35,20: HOME : PRINT
2135 IF N = 0 THEN A = 0:TA = 1: GOTO 2150
2140 A = 1:TA = 1:AA = 1: GOSUB 3000
2150 REM
2155 HTAB 40: PRINT "*"; CHR$(8);: GET I$: PRINT " "; CHR$(8);
2160 OA = A
2165 IF N = 0 THEN 2250
2170 IF I$ = CHR$(8) THEN A = A -1
2180 IF I$ = CHR$(21) THEN A = A +1
2190 IF A <1 OR A >N THEN A = OA: PRINT "";: GOTO 2150
2200 IF (A OA) THEN PRINT : IF PEEK(37) = 19 THEN TA = A:AA = A: GOSUB 3000: GOTO 2150
2230 IF (A < >OA) THEN 2150
2240 IF I$ = "C" THEN GOSUB 2300: GOTO 2150
2250 IF I$ = "I" THEN GOSUB 2500: GOTO 2150
2255 IF N = 0 THEN 2270
2260 IF I$ = "D" THEN GOSUB 2700: GOTO 2150
2270 IF I$ = "G" THEN 2900
2275 IF I$ = "H" THEN GOSUB 2800:A2 = A:A = TA:AA = A: GOSUB 3000:A = A2: VTAB 2 +(A -TA): GOTO 2150
2280 PRINT "";: GOTO 2150
2300 REM CHANGE
2310 HTAB 1: CALL -868
2320 GOSUB 600
2330 IF I$ = "" THEN HTAB 1: PRINT VL$(A);: RETURN
2340 VL$(A) = I$:C%(A) = 1: RETURN
2500 REM INSERT
2502 IF N = 0 THEN A = 2: GOTO 2540
2504 IF N > = 500 THEN PRINT "";: RETURN
2505 AA = A +1:A = A +2
2510 IF A -TA <18 THEN GOSUB 3000: GOTO 2540
2520 IF A -TA = 18 THEN PRINT : GOTO 2540
2530 TA = A -1: GOSUB 3000
2540 A = A -1: HTAB 1: VTAB 2 +(A -TA): CALL -868
2550 GOSUB 600
2560 IF I$ = "" THEN HTAB 1: CALL -868: GOSUB 3900: RETURN
2570 IF A >N THEN N = N +1:C%(A) = 1:C%(A -1) = 1:S%(A) = 0:VL$(A) = I$: GOTO 2500
2580 FOR B = N TO A STEP -1:VL$(B +1) = VL$(B):S%(B +1) = S%(B):C%(B +1) = C%(B): NEXT
2585 N = N +1
2590 VL$(A) = I$:S%(A) = 0:C%(A) = 1:C%(A -1) = 1: GOTO 2500
2700 REM DELETE
2702 IF S%(N) = VN THEN VN = VN -1
2705 IF N = 1 THEN N = 0: HOME : PRINT : RETURN
2710 IF A = N THEN N = N -1:A = A -1:C%(A) = 1: HTAB 1: CALL -868: VTAB PEEK(37): IF (A N THEN VTAB 2 +(A -TA): RETURN
3030 PRINT VL$(A1):A1 = A1 +1: GOTO 3020
3900 REM REPLACE LINES
3910 A = A -1:AA = A
3920 IF (A > = TA) THEN GOSUB 3000: RETURN
3925 A2 = A:TA = TA -18:A = TA:AA = TA
3927 IF TA <1 THEN TA = 1:A = 1:AA = 1
3930 GOSUB 3000:A = A2: VTAB 2 +(A -TA): RETURN
5000 REM PRINTOUT
5010 HOME : PRINT : PRINT D$"PR#1"
5015 PRINT "SOFTDISK MAGAZETTE - "DT$" - FRAME "RN
5017 PRINT
5020 FOR A = 1 TO NL
5030 PRINT L$(A)
5033 TT = L(A)
5036 IF TT >0 THEN PRINT :TT = TT -1: GOTO 5036
5038 NEXT
5040 PRINT
5060 IF T = 1 THEN PRINT "Q=QUIT H=HARDCOPY G=GOBACK M=MORE": GOTO 5080
5070 PRINT "Q=QUIT H=HARDCOPY V=VERBAL OR 1-"T
5080 PRINT D$"PR#0": RETURN
9000 REM QUIT
9005 PRINT
9007 PRINT CL$
9010 HOME : PRINT D$"RUN KICK.IT.OFF"
15000 DATA 201,190,240,3,76,201,222,32,177,0,32,227,223,32,44,213,232,189,0,2,208,250,134,157,138,32,82,228,160,0,145,131,200,165,113,145,131,200,165,114,145,131,160,2,162,0,165,157,76,226,229

Text found in Softdisk_021_July_1983_Side_A.dsk/SOFTDISK.Q&A.bas:

10 REM SOFTDISK.Q&A
20 TEXT : SPEED= 255
100 FOR I = 1 TO 1000: GOSUB 5000: NEXT
5000 READ Q$: IF Q$ = "END" THEN PRINT CHR$(4)"RUN ABOUT.SOFTDISK"
5010 READ A$
6000 HOME : VTAB 2: HTAB 13: INVERSE : PRINT " QUESTION ": NORMAL : PRINT : PRINT Q$: VTAB 10
6010 HTAB 3: INVERSE : PRINT " A = ANSWER N = NEXT Q = QUIT ";: NORMAL : GET R$: PRINT R$
6020 IF R$ = "N" THEN RETURN
6030 IF R$ = "Q" THEN PRINT CHR$(4)"RUN KICK.IT.OFF"
6040 IF R$ < >"A" GOTO 6000
6045 VTAB 10: CALL -868: HTAB 14: INVERSE : PRINT " ANSWER ": NORMAL
6050 VTAB 12: PRINT A$
6060 VTAB 23: HTAB 11: INVERSE : PRINT " HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$: RETURN
10000 DATA "THIS IS MY FIRST ISSUE.L HOW DO I GET THE NEXT ISSUE OF SOFTDISK?"
10005 DATA "KEEP BOTH DISKS THIS TIME. SEND BACK THE MAILER AND $7 PAYMENT FOR THE NEXT ISSUE."
10010 DATA "DO I PAY RETURN POSTAGE?"
10015 DATA "N0! FLIP THE ADDRESS CARD OVER. THE BACK HAS OUR ADDRESS AND PREPAID MAILING PERMIT ON IT."
10020 DATA "WHAT ABOUT NEXT MONTH?"
10025 DATA "AFTER YOUR FIRST MONTH YOU SHOULD SEND BACK ONE DISK AND $7 FOR THE NEXT ISSUE."
10030 DATA "WHY SEND BACK A DISK?"
10035 DATA "ONE WORD....FEEDBACK. THAT IS WHAT MAKES SOFTDISK SO GOOD."
10040 DATA "BUT I WANT TO KEEP THE PROGRAMS ON THE DISK."
10045 DATA "THAT'S UNDERSTANDABLE. SOFTDISK IS NOT PROTECTED. YOU CAN COPY WHAT YOU WANT TO KEEP FROM EITHER SIDE."
10050 DATA "HOW DO I DO THAT?"
10055 DATA "THERE ARE TWO WAYS. COPYA AND FID. COPYA COPIES A WHOLE SIDE. FID COPIES INDIVIDUAL FILES."
10060 DATA "WHERE DO I FIND COPYA AND FID?"
10065 DATA "ON YOUR DOS 3.3 SYSTEM MASTER DISK THAT CAME WITH YOUR DISK DRIVE."
10070 DATA "BUT I ONLY HAVE ONE DISK DRIVE."
10075 DATA "THAT'S OK! BOTH COPY PROGRAMS WILL WORK WITH A SINGLE DISK DRIVE, BUT IT TAKES SOME DISKETTE SWAPPING."
10080 DATA "ABOUT FEEDBACK...HOW DO I DO THAT?"
10085 DATA "THREE WAYS... 1. CONTRIBUTE HARVEST PROGRAMS 2. SOFT PAL PROGRAMS 3. KEY COMMENTS DIRECTLY ONTO THE DISK USING THE 'V' OPTION."
10090 DATA "DO I EVER WRITE A PAPER NOTE?"
10095 DATA "YES! FOR THINGS THAT NEED IMMEDIATE ATTENTION."
10100 DATA "LIKE WHAT?"
10105 DATA "CHANGE OF ADDRESS, REQUEST FOR BACK ISSUES, RETURN OF A BAD DISK"
10110 DATA "WHAT IF I GET A BAD DISK?"
10115 DATA "SOFTDISK REPLACES BAD COPIES FOR FREE. JUST RETURN THE BAD DISK WITH A NOTE REQUESTING ANOTHER."
10120 DATA "WHEN DO I SEND BACK THE MAILER FOR MY NEXT ISSUE?"
10125 DATA "THE SAME DAY YOU RECEIVE IT IS A GOOD TIME. THAT WAY YOU WILL NOT FORGET. YOU SHOULD HAVE LAST MONTH'S DISKETTE ALREADY COPIED AND READY TO GO."
10130 DATA "BY THE WAY..."
10135 DATA "IT IS A GOOD IDEA TO COPY A NEW ISSUE OF SOFTDISK WHEN YOU FIRST GET IT. THEN IF YOU ZAP IT, ALL IS NOT LOST."
10140 DATA "WHY ARE THERE TWO NOTCHES IN THE PRIMARY DISKETTE?"
10145 DATA "THERE ARE PROGRAMS ON THE BACK OF THE DISK. DON'T MISS THE BEST PART. BOOT THE BACK TOO."
10150 DATA "WHAT ABOUT THE DISK MARKED KEEPER?"
10155 DATA "IT HAS STUFF ON BOTH SIDES TOO. YOU CANTHANK ADVERTISERS FOR THE SECOND DISK. IT IS YOURS TO KEEP."
10160 DATA "WHAT IF I FORGET TO SEND MY MAILER BACK IN TIME FOR THE NEXT ISSUE?"
10165 DATA "WE SEND YOU THE NEXT ISSUE THAT COMES OUT AFTER WE RECEIVE YOUR MAILER. THE ISSUES YOU MISS ARE AVAILABLE AS BACK- ISSUES FOR $8 EACH."
10170 DATA "THIS IS ALL VERY CONFUSING..."
10175 DATA "AMEN. YOU SAID IT BROTHER (OR SISTER)! LET SOFTDISK KNOW JUST WHAT IS NOT CLEAR TO YOU. IT WILL HELP THE NEXT GUY. BYE NOW!"
50000 DATA "END"

Text found in Softdisk_021_July_1983_Side_A.dsk/SOFTDISK.TEXT.txt:

1
299
JULY 83
D
H
1
-- MAIN MENU --
D
N
1
1 = NAME & ZIP
D
N
1
2 = SOFTGAB
D
N
1
3 = HARVEST
D
N
1
4 = SUGGESTION BOX
D
N
1
5 = POLL RESULTS
D
N
1
6 = SOFT REWARD
D
N
1
7 = MORE
R
0
0
7
10
20
32
42
50
57
69
D
H
1
-- NAME & ZIP --
D
N
1
IF YOU KEY IN COMMENTS FOR SOFTY,
D
N
1
PLEASE PUT YOUR NAME AND ZIP HERE AS
D
N
1
A MAGNETIC ID.
D
N
1
NAME AND ZIP ARE NOT NEEDED IF YOU DO
D
N
2
NOT KEY IN ANY FEEDBACK.
D
N
1
TAKE THE V OPTION TO ENTER YOUR NAME
D
N
2
AND ZIP.
D
N
1
1 = PREV MENU 2 = SOFTGAB
R
0
0
2
1
20
D
H
1
-- SOFTGAB --
D
N
1
SOFTDISK WELCOMES THREE NEW STAFF
D
N
1
MEMBERS ON BOARD THIS MONTH.
D
N
1
AL VEKOVIUS WILL PRIMARILY FUNCTION
D
N
1
AS BUSINESS MANAGER BUT WILL ALSO HAVE
D
N
1
A HAND IN THE SELECTION OF MAGAZETTE
D
N
1
CONTENT.
D
N
1
JIM WEILER WILL SUPPLY SOME MUCH
D
N
1
NEEDED TECHNICAL KNOWLEDGE. YOU SHOULD
D
N
1
BEGIN TO SEE HIS MARK ON THE MAGAZETTE
D
N
1
IN THE COMING MONTHS.
R
0
0
1
78
D
H
1
-- ABOUT HARVEST --
D
N
1
SOFTDISK HAS INFORMATION ON BOTH SIDES
D
N
1
OF THE DISKETTE.
D
N
1
PROGRAMS WHICH HAVE BEEN CONTRIBUTED BY
D
N
1
SUBSCRIBERS APPEAR ON THE BACK.
D
N
1
SOFTDISK IS NOT PROTECTED. YOU MAY COPY
D
N
1
BOTH SIDES IF YOU WISH.
D
N
1
THE COPYA PROGRAM ON YOUR DOS 3.3
D
N
1
SYSTEM MASTER WILL COPY AN ENTIRE SIDE.
R
0
0
1
90
D
H
1
-- SUGGESTION BOX --
D
N
1
THIS IS WHERE YOU TALK BACK TO SOFTY.
D
N
1
PLEASE REMEMBER THAT MATTERS REQUIRING
D
N
1
IMMEDIATE ACTION SHOULD BE WRITTEN ON
D
N
1
A PAPER NOTE. (BACK ISSUES, ADDRESS
D
N
1
CHANGES, BAD DISK COPIES AND STUFF LIKE
D
N
2
THAT)
R
0
0
1
98
D
H
1
-- POLL RESULTS --
D
N
1
HERE ARE THE RESULTS FROM THE
D
N
1
APRIL 83 SOFTWARE POLL. THE SOFTWARE
D
N
1
CAME FROM THE SOFTALK BEST SELLER LIST.
D
N
1
SOFTDISK SUBSCRIBERS GAVE RATINGS ON A
D
N
2
SCALE FROM 1 TO 10.
R
0
0
1
106
D
H
1
-- SOFT REWARD --
D
N
1
SOFTY HOPES THAT EVERY SOFT PERSON
D
N
1
FEELS THAT HE OR SHE IS A PART OF AN
D
N
1
EXTENDED SOFT FAMILY. THE MORE SOFT
D
N
1
PERSONS IN THE SOFT FAMILY THE LESS
D
N
1
SOFTDISK MUST MAKE OFF OF EACH ONE.
D
N
1
DO YOUR PART. GIVE A COPY OF
D
N
1
SOFTDISK TO AN APPLE FRIEND. FOR EACH
D
N
1
NEW SUBSCRIBER THAT GIVES US YOUR NAME
D
N
1
AND ZIP, SOFTY WILL SEND YOU A COUPON
D
N
1
GOOD FOR A FREE ISSUE OF SOFTDISK.
R
0
0
1
69
D
H
1
-- MORE --
D
N
1
1 = SOFTDEAL
D
N
1
2 = TRAVEL TRUNK
D
N
1
3 = WHERE IS MY QUEST?
D
N
1
4 = WHAT IS A SYSTEM?
D
N
1
5 = HOW TO BE RICH & FAMOUS
D
N
1
6 = PREVIEW
D
N
1
7 = PREVIOUS MENU
R
0
0
7
121
131
141
153
163
172
1
D
H
1
-- SOFTGAB --
D
N
1
JIM WEILER IS THE GUY THAT WROTE THE
D
N
1
GOODIES THAT APPEARED ON THE BACK OF
D
N
1
JIM GANZ'S COOKBOOK DISK.
D
N
1
ONE OF THE DUTIES THAT SOFTY HAS IN
D
N
1
MIND FOR JIM IS FOR HIM TO BE....
D
N
1
'MR. ANSWER MAN'.
D
N
1
MR. ANSWER MAN WILL BROADCAST THE
D
N
1
ANSWERS TO YOUR APPLE QUESTIONS SO
D
N
1
THAT THE WHOLE SOFTDISK NETWORK CAN
D
N
1
LEARN FROM INDIVIDUAL PROBLEMS.
R
0
0
1
180
D
H
1
-- ABOUT HARVEST --
D
N
1
THE FID PROGRAM FROM YOUR DOS 3.3
D
N
2
SYSTEM MASTER WILL COPY SELECTED FILES.
D
N
1
YOU ARE ENCOURAGED TO CONTRIBUTE
D
N
1
PROGRAMS. WE AWARD COUPONS GOOD FOR
D
N
1
FREE ISSUES OF SOFTDISK IF WE USE YOUR
D
N
1
CONTRIBUTED PROGRAM.
R
0
0
1
190
D
H
1
-- SUGGESTION BOX --
D
N
1
SOFTY WANTS YOU TO TALK TO OTHER SOFT
D
N
1
PEOPLE THROUGH SOFT PALS BUT THIS IS
D
N
2
WHERE YOU LET SOFTY HAVE THE BUSINESS.
D
N
1
TO MAKE A SUGGESTION,
D
N
2
TAKE THE V OPTION AND START KEYING.
D
N
1
1 = PREV MENU 2 = POLL RESULTS
R
0
0
2
1
50
D
H
1
-- POLL RESULTS --
D
N
N
VOTES AVG SOFTWARE
D
N
N
----- --- --------
D
N
N
51 7.9 ASCII EXPRESS; PRO
D
N
N
26 7.8 THE ACCOUNTANT
D
N
N
30 7.6 TAX MANAGER
D
N
N
21 7.0 TAX ADVANTAGE
D
N
N
200 6.9 HOME ACCOUNTANT
D
N
N
63 6.8 TAX PREPARER
D
N
N
54 6.8 HAYES TERM PROG
D
N
N
52 6.6 VISITERM
D
N
N
46 6.6 TRANSEND 1
D
N
2
23 5.7 CHEQUEMATE
D
N
1
1 = PREV MENU 2 = SOFT REWARD
R
0
0
2
1
57
D
H
1
-- SOFTDEAL --
D
N
1
THE OPUS DISKETTES ARE SELLING LIKE
D
N
1
HOTCAKES. THE PRICE OF $1.50 PER DISK
D
N
1
WILL HOLD ON ORDERS PLACED BEFORE
D
N
1
31 JULY 83. AFTER THAT THE PRICE WILL
D
N
1
GO BACK UP TO 1.60.
D
N
1
THE USUAL MINIMUM ORDER OF FIFTY AND
D
N
1
MULTIPLES OF FIFTY WILL HOLD. SOFTDISK
D
N
2
WILL PAY SHIPPING COSTS IN THE U.S.
R
0
0
1
199
D
H
1
-- TRAVEL TRUNK --
D
N
1
THE SAME SOFTDISK DISKETTE ENVELOPE
D
N
1
THAT WENT TO CALIFORNIA LAST MONTH MAY
D
N
1
GO TO NEW YORK THIS MONTH. LEAVE YOUR
D
N
1
MARK AS IT PASSES YOUR WAY. WRITE YOUR
D
N
1
NAME, DATE AND CITY ON THE RETURNING
D
N
1
ENVELOPE. PRETTY SOON THE ENVELOPES
D
N
1
WILL LOOK LIKE OLD TRAVEL TRUNKS.
D
N
1
1 = PREV MENU 2 = QUEST?
R
0
0
2
69
141
D
H
1
-- WHERE IS MY QUEST --
D
N
1
AT LONG LAST SOFTDISK RECEIVED AND
D
N
1
SHIPPED 140 COPIES OF THE QUEST ON THE
D
N
1
20TH OF JULY. THAT WAS ALL BUT A FEW
D
N
1
OF THE MOST RECENT ORDERS. THANK YOU
D
N
1
FOR YOUR PATIENCE IN THIS MATTER.
D
N
1
IT SEEMS IT IS NOT UNCOMMON IN THE
D
N
1
INDUSTRY FOR SOFTWARE PUBLISHERS TO
D
N
1
ADVERTISE IN ADVANCE OF RELEASE DATES.
D
N
1
WE HOPE YOU ENJOY YOUR QUEST.
D
N
1
1 = PREV MENU 2 = WHAT'S A SYSTEM?
R
0
0
2
69
153
D
H
1
-- WHAT IS A SYSTEM --
D
N
1
A SYSTEM IS A SET OF PROGRAMS THAT
D
N
1
WORK WITH A SET OF FILES. (AT LEAST
D
N
1
THAT IS SOFTY'S DEFINITION OF A SYSTEM)
D
N
1
SYSTEMS TEND TO REMEMBER WHAT
D
N
1
HAPPENED TO THEM THE LAST TIME THEY
D
N
1
WERE USED. STAND ALONE PROGRAMS WAKE UP
D
N
1
IN A NEW WORLD EVERY TIME YOU TURN ON
D
N
2
THE POWER TO YOUR APPLE.
R
0
0
1
208
D
H
1
-- HOW TO BE RICH & FAMOUS --
D
N
1
SIMPLE, JUST FILL UP TWO SIDES OF A
D
N
1
DISK WITH GOOD PROGRAMS THAT YOU HAVE
D
N
1
WRITTEN AND LET SOFTDISK MARKET YOUR
D
N
1
MASTERPIECE.
D
N
1
LOOK ON THE AD DISK THIS MONTH FOR
D
N
1
DETAILS ABOUT THE FIRST SUCH DISKS THAT
D
N
2
SOFTDISK IS OFFERING.
R
0
0
1
219
D
H
1
-- PREVIEW --
D
N
1
THOSE OF YOU WHO HAVE BEEN WITH
D
N
1
SOFTDISK SINCE OCTOBER 1981 HAVE SEEN
D
N
1
A SLOW EVOLUTION. LOOK FOR MORE
D
N
1
IMPROVEMENTS IN THE MONTHS TO COME.
D
N
1
NEW BLOOD ON THE STAFF SHOULD MEAN A
D
N
2
FRESH NEW OUTLOOK.
R
0
0
1
231
D
H
1
-- SOFTGAB --
D
N
1
MARY JORDAN WILL BE WORKING IN
D
N
1
CIRCULATION. SOFTY'S WIFE (JUDI) WILL
D
N
1
BE TAKING A COUPLE OF DAYS OFF IN EARLY
D
N
1
SEPTEMBER TO HAVE A SOFT BABY.
D
N
1
JUDI AND MARY ARE THE ONES THAT TEND
D
N
1
TO THE DETAILS OF SOFTDISK. SOFTY
D
N
1
THINKS THEY DO A GOOD JOB OF KEEPING
D
N
2
SOFTDISK PERSONAL.
R
0
0
1
242
D
H
1
-- HOW TO CONTRIBUTE TO HARVEST --
D
N
1
1. MAKE A COPY OF THE BACK OF
D
N
1
SOFTDISK FOR YOUR KEEPING.
D
N
1
2. INITIALIZE THE BACK SIDE OF SOFTDISK
D
N
1
SO YOU CAN BE SURE THERE IS ROOM
D
N
1
FOR YOUR CONTRIBUTED PROGRAM.
D
N
1
3. SAVE YOUR CONTRIBUTION TO HARVEST ON
D
N
1
THE BACK OF SOFTDISK.
R
0
0
1
255
D
H
1
-- SOFTDEAL --
D
N
1
THE DISKETTES ARE SINGLE SIDE, SINGLE
D
N
1
DENSITY AND COME TEN TO A BOX WITH
D
N
1
LABELS, WRITE PROTECT TABS, SLEEVES,
D
N
1
AND HUB REINFORCEMENT RINGS.
D
N
1
SOFTDISK HAS HAD GOOD LUCK USING BOTH
D
N
2
SIDES OF THE DISKS.
D
N
1
1 = PREV MENU 2 = TRAVEL TRUNK
R
0
0
2
69
131
D
H
1
-- WHAT IS A SYSTEM --
D
N
1
ERNIE MERLO OF BELMONT, CALIFORNIA
D
N
1
SENT SOFTDISK A REAL NICE INVOICE
D
N
1
SYSTEM WRITTEN IN APPLESOFT.
D
N
1
FIRST WE ARE GOING TO SELL THE
D
N
1
INVOICE SYSTEM ON AN UNPROTECTED DISK
D
N
1
FOR $9.95 (4 BUCKS GOES TO ERNIE).
D
N
1
NEXT SOFTY IS GOING TO START A SERIES
D
N
1
OF ARTICLES THAT WILL TRACE THE STEPS
D
N
2
REQUIRED TO WRITE THE INVOICE SYSTEM.
R
0
0
1
263
D
H
1
-- HOW TO BE RICH & FAMOUS --
D
N
1
SOFTDISK INSISTS THAT ALL OF ITS
D
N
1
PUBLICATIONS BE UNPROTECTED.
D
N
1
THAT PERMITS YOU TO BACKUP, MODIFY,
D
N
1
AND LEARN FROM FELLOW SOFT PERSONS.
D
N
1
WE PLAN TO PRICE 'RICH & FAMOUS'
D
N
1
DISKS AT $9.95, (FOUR DOLLARS OF THAT
D
N
1
WILL GO TO THE GUY/GAL WHO IS BECOMING
D
N
1
RICH & FAMOUS).
D
N
1

D
N
1

R
0
0
1
275
D
H
1
-- PREVIEW --
D
N
1
YOU CAN EXPECT SOME SUPER GRAPHICS
D
N
1
ON THE DEMO NEXT MONTH.
D
N
1
THE PROGRAM THAT IS DISPLAYING THIS
D
N
1
SCREEN MAY BE ON ITS WAY OUT. JIM
D
N
1
WEILER IS FULL OF NEW IDEAS. GIVE HIM
D
N
1
A COUPLE OF MONTHS AND YOU SHOULD SEE
D
N
1
SOME PIZZAZZ.
D
N
1
STAY TUNED. SAME POSTMAN.
D
N
2
ABOUT THE SAME TIME OF THE MONTH....
R
0
0
1
69
D
H
1
-- SOFTGAB --
D
N
1
LET US KNOW HOW YOU LIKE 'MACHINE
D
N
1
MAGIC' AND 'APPLESOFT FROM THE GROUND
D
N
1
UP'.
D
N
1
SOFTDISK IS PAYING REAL MONEY FOR
D
N
1
THEM. IF YOU WOULD LIKE TO DO A
D
N
1
REGULAR FEATURE FOR SOFTDISK, WORK UP
D
N
1
THE FIRST THREE INSTALLMENTS OF YOUR
D
N
1
PROPOSED ARTICLE AND SEND THEM TO
D
N
1
SOFTDISK. WE WILL EVALUATE YOUR WORK
D
N
1
AND MAKE A PROPOSAL IF WE CHOOSE TO
D
N
1
PUBLISH IT.
R
0
0
1
282
D
H
1
-- HOW TO CONTRIBUTE TO HARVEST --
D
N
1
4. COME BACK TO THIS SCREEN AND TAKE
D
N
1
THE V OPTION. THEN DESCRIBE
D
N
1
YOUR CONTRIBUTION, WHAT IT DOES,
D
N
1
HOW TO RUN IT...ETC.
D
N
1
1 = PREVIOUS MENU
D
N
1
2 = SUGGESTION BOX
R
0
0
2
1
42
D
H
1
-- WHAT IS A SYSTEM? --
D
N
1
EVEN IF YOU HAVE NO BURNING NEED FOR
D
N
1
AN INVOICE SYSTEM, YOU MAY WANT TO
D
N
1
FOLLOW THIS SERIES OF ARTICLES.
D
N
1
SOFTY FEELS THERE ARE A LOT OF FOLKS
D
N
1
OUT THERE WHO HAVE LEARNED HOW TO
D
N
1
PROGRAM IN APPLESOFT BUT DON'T KNOW HOW
D
N
1
TO GO ABOUT DESIGNING A USEFUL SYSTEM.
D
N
1
LOOK FOR THE FIRST INSTALLMENT OF THE
D
N
1
SERIES TO APPEAR NEXT MONTH.
D
N
1
1 = PREV MENU 2 = RICH & FAMOUS
R
0
0
2
69
163
D
H
1
-- HOW TO BE RICH & FAMOUS --
D
N
1
PLEASE RESPECT OUR POLICY OF OPEN
D
N
1
SOFTWARE. WE ASK THAT YOU NOT ALLOW
D
N
1
'RICH & FAMOUS' DISKETTES TO BE COPIED.
D
N
2

D
N
2
1 = PREV MENU 2 = PREVIEW
R
0
0
2
69
172
D
H
1
-- SOFTGAB --
D
N
1
ANOTHER WAY TO BE PUBLISHED BY
D
N
1
SOFTDISK IS TO PRODUCE A 'RICH &
D
N
1
FAMOUS' DISK LIKE THE ONES BEING
D
N
1
OFFERED ON THE AD DISK THIS MONTH.
D
N
1
DON'T MISS THE SUPER DEMO FROM THE
D
N
1
BEAGLE BROTHERS THIS MONTH. IT IS ON
D
N
2
THE BACK OF THE AD DISK.
R
0
0
1
291
D
H
1
-- SOFTGAB --
D
N
1
THE RESPONSE TO OUR GENTLE PUSH
D
N
1
TOWARD ANNUAL SUBSCRIPTIONS HAS BEEN
D
N
1
BETTER THAN EXPECTED.
D
N
1
WE WOULD LIKE TO THANK YOU FOR YOUR
D
N
2
VOTE OF CONFIDENCE.
D
N
3
HOPE YOU ENJOY THIS ISSUE.....
D
N
1
1 = PREV MENU 2 = HARVEST
R
0
0
2
1
32

Text found in Softdisk_021_July_1983_Side_A.dsk/TEXT ANALYZER FIX.EXEC.txt:

570 IF C$="a" OR C$="e" OR C$="i" OR C$="o" OR C$="u" THEN ISVWL=TRUE

Text found in Softdisk_021_July_1983_Side_A.dsk/TUTOR.bas:

0 REM APPLESOFT TUTORIAL PART II - BY DALLAS
5 PRINT CHR$(4)"MAXFILES 1": HIMEM: 39290:D$ = CHR$(4)
10 PRINT D$"BRUN TUTORAMP": PRINT D$"BLOAD ART2,A$803"
11 DE = 8001:EX = 8002:CO = 8003:H1 = 8101:H2 = 8102:H3 = 8103:C = 10000:PR = 9000:Q$ = CHR$(34)
15 TEXT : HOME : DIM W%(3,3):W%(1,0) = 0:W%(2,0) = 0:W%(3,0) = 0:W%(1,1) = 1:W%(2,1) = 9:W%(3,1) = 17:W%(1,2) = 0:W%(2,2) = 0:W%(3,2) = 0:W%(1,3) = 1:W%(2,3) = 9:W%(3,3) = 17
20 & PRINT 5,40,30: & GET : HOME
25 & PRINT 6,40,30: & GET : HOME
100 POKE 33,1: VTAB 2: PRINT "!!!!!!>!!!!!!!>!!!!!!!";: POKE 32,39: VTAB 2: PRINT "!!!!!!"LIST" THEN PRINT CHR$(7): GOTO 137
138 & GOSUB DE: HOME : PRINT "10 PRINT "Q$"SAMPLE SENTENCE"Q$: PRINT : PRINT "]";: FLASH : PRINT " ": NORMAL : & GOSUB CO: HOME :T = 35: & GOSUB PR: & GOSUB DE: HOME : & GOSUB CO: HOME : PRINT "(TYPE 'RUN' AND PRESS RETURN)": & GOSUB EX
140 HOME : PRINT "]";: & INPUT A$: IF A$ < >"RUN" THEN PRINT CHR$(7): GOTO 140
142 & GOSUB DE: HOME : PRINT "SAMPLE SENTENCE": PRINT : PRINT "]";: FLASH : PRINT " ": NORMAL : & GOSUB CO: HOME :T = 36: & GOSUB PR
145 HOME :T = 40: & GOSUB PR: & GOSUB DE: HOME : & GOSUB CO: HOME : PRINT "(ENTER 'NEW' THEN ENTER 'LIST')": & GOSUB EX
146 HOME : PRINT "]";: & INPUT A$: IF A$ < >"NEW" THEN PRINT CHR$(7): GOTO 146
147 PRINT : VTAB 12: CALL -958: PRINT "]";: & INPUT A$: IF A$ < >"LIST" THEN PRINT CHR$(7): GOTO 147
148 & GOSUB DE: PRINT : PRINT "]";: FLASH : PRINT " ": NORMAL
150 & GOSUB CO: HOME :T = 45: & GOSUB PR: & GOSUB DE: HOME : & GOSUB EX: HOME : PRINT "10 VAR = 5": PRINT "20 PRINT VAR": PRINT "30 PRINT VAR * 10": & GOSUB CO: HOME :T = 50: & GOSUB PR
152 HOME :T = 55: & GOSUB PR: & GOSUB DE: PRINT 5: & GOSUB CO:T = 60: & GOSUB PR: & GOSUB DE: PRINT 50: & GOSUB CO:T = 65: & GOSUB PR
155 & GOSUB DE: HOME : & GOSUB EX: HOME : & GOSUB CO: HOME :T = 70: & GOSUB PR
160 HOME :T = 75: & GOSUB PR: & GOSUB EX: PRINT "15 PRINT "Q$"BLIND"Q$: PRINT "20 PRINT "Q$"MICE"Q$: PRINT "10 PRINT "Q$"THREE"Q$: & GOSUB CO: HOME :T = 80: & GOSUB PR
165 HOME :T = 85: & GOSUB PR: & GOSUB EX: PRINT : PRINT "LIST": & GOSUB DE: PRINT "10 PRINT "Q$"THREE"Q$: PRINT "15 PRINT "Q$"BLIND"Q$: PRINT "20 PRINT "Q$"MICE"Q$
170 & GOSUB CO: HOME :T = 90: & GOSUB PR: & GOSUB EX: PRINT : PRINT "RUN": & GOSUB DE: HOME : PRINT "THREE": PRINT "BLIND": PRINT "MICE": & GOSUB CO: HOME :T = 95: & GOSUB PR: & GOSUB EX: PRINT : PRINT "12 PRINT "Q$"LARGE"Q$: PRINT : PRINT "LIST"
172 & GOSUB DE: HOME : PRINT "10 PRINT "Q$"THREE"Q$: PRINT "12 PRINT "Q$"LARGE"Q$: PRINT "15 PRINT "Q$"BLIND"Q$: PRINT "20 PRINT "Q$"MICE"Q$
175 & GOSUB CO: HOME :T = 105: & GOSUB PR: & GOSUB EX: PRINT : PRINT "RUN": & GOSUB DE: HOME : PRINT "THREE": PRINT "LARGE": PRINT "BLIND": PRINT "MICE"
180 & GOSUB CO: HOME :T = 110: & GOSUB PR:T = 115: & GOSUB PR: & GOSUB EX: PRINT : PRINT "LIST": & GOSUB DE: HOME : PRINT "10 PRINT "Q$"THREE"Q$: PRINT "12 PRINT "Q$"LARGE"Q$: PRINT "15 PRINT "Q$"BLIND"Q$: PRINT "20 PRINT "Q$"MICE"Q$: & GOSUB CO: HOME :T = 120: & GOSUB PR
185 & GOSUB EX: PRINT : PRINT "DEL 12,15": PRINT : PRINT "LIST": & GOSUB DE: HOME : PRINT "10 PRINT "Q$"THREE"Q$: PRINT "20 PRINT "Q$"MICE"Q$: & GOSUB CO: HOME :T = 125: & GOSUB PR
190 & GOSUB DE: HOME : PRINT "THREE": PRINT "MICE": & GOSUB EX: PRINT : PRINT "RUN": & GOSUB CO: HOME :T = 130: & GOSUB PR
195 HOME :T = 135: & GOSUB PR: HOME : PRINT "(ENTER THE COMMAND TO CLEAR THE SCREEN)": & GOSUB EX
196 HOME : PRINT "]";: & INPUT A$: IF A$ = "HOME" THEN 201
197 IF A$ = CHR$(0) THEN & GOSUB CO: HOME : PRINT "MY, AREN'T WE FANCY!": GOTO 202
198 ER = ER +1: IF ER = 1 THEN & GOSUB CO: HOME : PRINT CHR$(7)"NOPE. GIVE IT ANOTHER TRY.": & GOSUB EX: GOTO 196
199 IF ER = 2 THEN & GOSUB CO: HOME : PRINT CHR$(7)"THAT'S NOT RIGHT EITHER. ONE MORE TIME.": & GOSUB EX: GOTO 196
200 & GOSUB CO: HOME : PRINT CHR$(7)"ALRIGHT, ALRIGHT! THE WORD IS 'HOME'! REMEMBER THE PHRASE 'HOMING THE CURSOR.'": GOTO 202
201 & GOSUB CO: HOME : PRINT "EXCELLENT! I CAN SEE YOU'RE GOING TO MAKE A FINE PROGRAMMER!"
202 & GOSUB DE: HOME : & GOSUB EX: HOME : & GET : & GOSUB CO: HOME :T = 140: & GOSUB PR:T = 150: & GOSUB PR:T = 155: & GOSUB PR
205 HOME : PRINT "(ENTER YOUR NAME AND PRESS RETURN)": PRINT : PRINT "->";: & INPUT N$: IF N$ = "" THEN PRINT CHR$(7): GOTO 205
210 & GOSUB EX: HOME : PRINT "10 PRINT "Q$N$Q$: PRINT "20 PRINT "Q$"IS LEARNING"Q$: PRINT "30 PRINT "Q$"PROGRAMMING"Q$: PRINT "40 PRINT": PRINT "50 GOTO 10";: & GOSUB CO: HOME :T = 160: & GOSUB PR: HOME : PRINT "(TYPE 'RUN')": & GOSUB EX: PRINT : PRINT :CV = PEEK(37)
215 VTAB CV: PRINT "]";: & INPUT A$: IF A$ < >"RUN" THEN PRINT CHR$(7): GOTO 215
220 & GOSUB CO: HOME : PRINT "PRESS CTRL-C TO BREAK OUT OF THE LOOP (PRESS THE 'CTRL' KEY AND THE 'C' KEY AT THE SAME TIME).": & GOSUB DE: HOME : SPEED= 200: ONERR GOTO 230
225 PRINT N$: PRINT "IS LEARNING": PRINT "PROGRAMMING": PRINT : GOTO 225
230 & ONERR : POKE 216,0: ONERR GOTO 1000
231 SPEED= 255: & GOSUB CO: HOME :T = 165: & GOSUB PR:T = 170: & GOSUB PR
235 HOME : PRINT "(PRESS CTRL-C TO BREAK OUT)": & GOSUB DE: SPEED= 200: ONERR GOTO 243
236 PRINT N$
237 PRINT "IS LEARNING"
238 PRINT "PROGRAMMING"
239 PRINT
240 GOTO 236
243 ONERR GOTO 1000
244 & ONERR : POKE 216,0: SPEED= 255:EL = PEEK(218) + PEEK(219) *256: ON EL -235 GOTO 245,246,247,248,249
245 PRINT : PRINT "BREAK IN 10": GOTO 250
246 PRINT : PRINT "BREAK IN 20": GOTO 250
247 PRINT : PRINT "BREAK IN 30": GOTO 250
248 PRINT : PRINT "BREAK IN 40": GOTO 250
249 PRINT : PRINT "BREAK IN 50"
250 & GOSUB CO: HOME : PRINT "(TYPE 'CONT' AND PRESS RETURN TO RESUME PROGRAM EXECUTION)": & GOSUB EX
255 HOME : PRINT "]";: & INPUT A$: IF A$ < >"CONT" THEN PRINT CHR$(7): GOTO 255
257 ONERR GOTO 269
260 & GOSUB CO: HOME : PRINT "(PRESS CTRL-C TO BREAK OUT)": & GOSUB DE: SPEED= 200: ON EL -235 GOTO 261,262,263,264,265
261 PRINT N$
262 PRINT "IS LEARNING"
263 PRINT "PROGRAMMING"
264 PRINT
265 GOTO 261
269 ONERR GOTO 1000
270 & ONERR : POKE 216,0: SPEED= 255: HOME : & GOSUB EX: HOME : PRINT "]RUN 30": & GOSUB CO: HOME :T = 175: & GOSUB PR: & GOSUB EX: HOME : PRINT "]LIST 20": PRINT "]LIST 20,40": PRINT "]LIST 30,": PRINT "]LIST -40": & GOSUB CO:T = 180: & GOSUB PR
350 TEXT : HOME : & PRINT 185,40,40: & GET : HOME : & PRINT 190,40,30
351 PRINT : PRINT : PRINT " PLEASANT PROGRAMMING"
352 & GET
355 HOME : VTAB 8: PRINT "1. REPEAT ARTICLE": PRINT : PRINT "2. EXIT"
360 VTAB 14: PRINT "WHICH =>";: GET A$: IF A$ < >"1" AND A$ < >"2" THEN PRINT : GOTO 360
370 IF A$ = "1" THEN CLEAR : GOTO 11
380 TEXT : HOME : PRINT : PRINT CHR$(4)"RUN KICK.IT.OFF"
1000 & ONERR : RESUME
8001 W% = 1: GOTO 8004
8002 W% = 2: GOTO 8004
8003 W% = 3
8004 W%(W1%,0) = PEEK(36):W%(W1%,1) = PEEK(37): HTAB W%(W%,0) +1: VTAB W%(W%,1) +1:W1% = W%: ON W% GOTO 8005,8010,8015
8005 POKE 34,2: POKE 35,7: RETURN
8010 POKE 34,9: POKE 35,14: RETURN
8015 POKE 34,17: POKE 35,23: RETURN
8101 W% = 1: GOTO 8104
8102 W% = 2: GOTO 8104
8103 W% = 2: GOTO 8104
8104 W%(W1%,0) = PEEK(36):W%(W1%,1) = PEEK(37): HTAB W%(W%,2) +1: VTAB W%(W%,3) +1:W1% = W%: ON W% GOTO 8005,8010,8015
9000 & PRINT T,38,5: IF PEEK(37) = 17 AND NOT PEEK(36) THEN RETURN
9001 & GET : RETURN
10000 ST% = 1:D% = 2:L1$ = L$
10005 IF LEFT$(L$,1) >"9" THEN L$ = " " +L$: GOTO 10020
10010 PRINT LEFT$(L$,1);:L$ = RIGHT$(L$, LEN(L$) -1): GOTO 10005
10020 NORMAL : IF NOT S% OR S% = ST% THEN INVERSE
10030 POKE 255,0:D1% = USR(":")L$,D%: IF D1% THEN S$ = MID$ (L$,2,D1% -2):L$ = RIGHT$(L$, LEN(L$) -D1% +1): PRINT S$;: NORMAL : PRINT ":";:ST% = ST% +1: GOTO 10020
10040 PRINT RIGHT$(L$, LEN(L$) -1): NORMAL : RETURN

Text found in Softdisk_021_July_1983_Side_A.dsk/TYPE FIX.EXEC.txt:

205 SC=INT(T/A*10)/100