Notes

Disk info for Softdisk_017_March_1983_Side_A.dsk:

File Name: riag_007_Softdisk_017_March_1983_Side_A/Softdisk_017_March_1983_Side_A.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 7680
Used Space (bytes): 135680
Physical Size (KB): 140
Free Space (KB): 7
Used Space (KB): 132
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 30
Used Sectors: 530
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for Softdisk_017_March_1983_Side_A.dsk:

riag_007_Softdisk_017_March_1983_Side_A/Softdisk_017_March_1983_Side_A.dsk DISK VOLUME #254
A 005 KICK.IT.OFF
A 008 MAR 83.COVER
B 027 COVER.MAR.PCKD
B 002 COVER.UNPACK
A 007 MY NAME IS APPLE
B 018 MY NAME IS APPLE 5
A 024 ABOUT.SOFTDISK
A 011 SOFTWARE.POLL
T 003 POLL.TITLES
T 002 POLL.RATINGS
A 008 SOFT.PALS
A 004 PAL.MENU
A 005 PAL.06413.MILNES.JAN.83.A
A 009 PAL.07666.BLOOM.JAN.83.A
A 009 PAL.08081.JENNINGS.JAN.83.A
A 006 PAL.10573.PIAZZA.FEB.83.A
A 004 PAL.12801.POSPISIL.FEB.83.A
A 008 PAL.77007.MARCHAND.JAN.83.A
A 006 PAL.94547.CHIANG.FEB.83.A
A 006 PAL.98005.STEVES.DEC.82.B
A 008 PAL.99352.GRIFFIN.MAR.83.A
A 006 SOFT.ADS
A 014 FROM.GAMES
A 009 INTRO.TO.GAME
A 019 GAME1
A 018 GAME2
A 019 GAME3
A 020 GAME4
B 012 PICDRAWF
B 003 SST/ML
B 003 UFO TABLE.SST
B 003 CHAIN
B 022 GROUP1
T 002 VERBS
T 003 PLACES
T 014 NOUNS
T 002 ITEMS
A 004 MUSIC
B 002 PLAYER.MODULE
B 030 M.TOCCATA & FUGUE
A 018 SOFTDISK.PROG
T 063 SOFTDISK.TEXT
DOS 3.3 format; 7,680 bytes free; 135,680 bytes used.

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

5 REM ABOUT.SOFTDISK
10 TEXT : HOME : SPEED= 255
100 VTAB 2: HTAB 12: PRINT "SOFTDISK MAGAZETTE"
110 HTAB 13: PRINT "3811 ST. VINCENT"
120 HTAB 7: PRINT "SHREVEPORT, LOUISIANA 71108"
130 VTAB 6: HTAB 6: PRINT "$10 TO START $5 PER MONTH"
140 VTAB 10: HTAB 11: PRINT "A SOFTALK PUBLICATION"
141 VTAB 11: HTAB 11: PRINT "---------------------"
160 VTAB 15: PRINT " PUBLISHER AL TOMMERVIK"
170 VTAB 17: PRINT " EDITOR JIM MANGHAM"
185 VTAB 19: PRINT "CIRCULATION MANAGER JUDI MANGHAM"
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 " & $5 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 $5 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 : 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 = NONE OF THE ABOVE"
2060 VTAB 20: 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
2130 IF R$ = "5" THEN PRINT CHR$(4);"RUN KICK.IT.OFF"
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 DISKETTE)"
3030 PRINT : PRINT " THE FIRST AVAILABLE ISSUE IS OCT 81"
3035 PRINT : PRINT " THERE WAS NO APRIL 82 ISSUE"
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 $5."
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 "THE DISK. NOTHING TO RETURN."
9180 PRINT : HTAB 5: PRINT "IF ON ON OCCASION YOU WANT TO SUBMIT"
9190 PRINT : 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 FOR THE TIME BEING."
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_017_March_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_017_March_1983_Side_A.dsk/KICK.IT.OFF.bas:

10 REM KICK.IT.OFF
15 D$ = CHR$(4)
20 TEXT : HOME
30 HTAB 6: PRINT "SOFTDISK MAGAZETTE MAR 83"
35 PRINT : HTAB 10: PRINT "A = COVER PAGE"
37 PRINT : HTAB 10: PRINT "B = HOWDY...."
40 PRINT : HTAB 10: PRINT "C = ABOUT SOFTDISK"
60 PRINT : HTAB 10: PRINT "D = SOFTWARE POLL"
70 PRINT : HTAB 10: PRINT "E = SOFT PALS"
80 PRINT : HTAB 10: PRINT "F = SOFT ADS"
85 PRINT : HTAB 10: PRINT "G = FROM GAMES"
86 PRINT : HTAB 10: PRINT "H = BOWDEN'S ADVENTURE"
87 PRINT : HTAB 10: PRINT "I = FEHRMANN'S MUSIC"
88 PRINT : HTAB 10: PRINT "J = ON WITH THE SHOW"
89 PRINT : HTAB 10: PRINT "K = QUIT"
90 VTAB 24: HTAB 3: PRINT "WHICH? ";: GET R$: PRINT R$;
95 IF R$ = "A" GOTO 1000
100 IF R$ = "B" GOTO 1500
110 IF R$ = "C" GOTO 2000
120 IF R$ = "D" GOTO 3000
130 IF R$ = "E" GOTO 4000
135 IF R$ = "F" GOTO 5000
140 IF R$ = "G" GOTO 6000
150 IF R$ = "H" GOTO 7000
160 IF R$ = "I" GOTO 7500
170 IF R$ = "J" GOTO 8000
175 IF R$ = "K" GOTO 9000
200 GOTO 90
1000 PRINT D$;"RUN MAR 83.COVER"
1500 PRINT D$;"RUN MY NAME IS APPLE"
2000 PRINT D$;"RUN ABOUT.SOFTDISK"
3000 PRINT D$;"RUN SOFTWARE.POLL"
4000 PRINT D$;"RUN SOFT.PALS"
5000 PRINT D$;"RUN SOFT.ADS"
6000 PRINT D$;"RUN FROM.GAMES"
7000 PRINT D$;"RUN INTRO.TO.GAME"
7500 PRINT D$;"RUN MUSIC"
8000 PRINT D$;"RUN SOFTDISK.PROG"
9000 TEXT : HOME : VTAB 12: HTAB 1: PRINT "DON'T FORGET TO BOOT OTHER SIDE OF DISK."

Text found in Softdisk_017_March_1983_Side_A.dsk/MAR 83.COVER.bas:

100 REM ***********************
110 REM * SOFTDISK COVER PAGE *
120 REM * V2 #7 MARCH 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.MAR.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 3: INVERSE : FOR X = 0 TO 11: 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 4:X = 8
470 HTAB X: PRINT CHR$(34)"(THE JAPANESE HAVE NOT) PROVED"
480 HTAB X: PRINT "A THREAT TO AMERICAN MAKERS. WHY"
490 HTAB X: PRINT "NOT? IN A WORD SOFTWARE, OR LACK"
500 HTAB X: PRINT "THEREOF... A COMPUTER WITHOUT"
505 HTAB X: PRINT "GOOD SOFTWARE MIGHT AS WELL BE A"
525 HTAB X: PRINT "BOAT ANCHOR. NOT MANY JAPANESE"
526 HTAB X: PRINT "COMPUTERS HAVE WOUND UP AS BOAT"
527 HTAB X: PRINT "ANCHORS, BUT NOT MANY HAVE BEEN"
528 HTAB X: PRINT "SOLD IN THE U.S. EITHER. HOW-"
529 HTAB X: PRINT "EVER, THAT IS ABOUT TO CHANGE..." CHR$(34)
530 NORMAL : VTAB 16
540 PRINT "* DAVID AHL IN 'DATELINE: TOMORROW,' CREATIVE COMPUTING, OCT. 1982."
550 VTAB 19: HTAB 12: PRINT "COVER BY JIM GANZ"
560 RETURN

Text found in Softdisk_017_March_1983_Side_A.dsk/MY NAME IS APPLE.bas:

10 REM ***********************
15 REM ** A PROGRAM FROM **
25 REM ** CREATIVE COMPUTING**
27 REM ** MAGAZINE **
31 REM ** VOICE AND PROGRAM **
35 REM ** ADAPTED BY **
45 REM ** J.C. GOBINS JR. **
55 REM ** JANUARY 1983 **
65 REM ***********************
80 ONERR GOTO 445
90 FOR M = 768 TO 899: READ D: POKE M,D: NEXT M
100 DATA 141,16,192,160,0,132,255,173
110 DATA 96,192,41,128,197,255,240,5
120 DATA 174,48,192,133,255,173,0,192
130 DATA 16,237,32,51,3,177,253,37
140 DATA 8,174,96,192,16,2,5,250
150 DATA 145,253,32,76,3,32,70,3
160 DATA 76,29,3,160,0,162,1,134
170 DATA 250,162,254,134,8,166,6,134
180 DATA 253,166,7,134,254,96,166,251
190 DATA 202,208,253,96,200,208,23,230
200 DATA 254,165,254,197,252,208,15,165
210 DATA 250,10,176,11,133,250,73,255
220 DATA 133,8,166,7,134,254,96,104
230 DATA 104,96,32,51,3,177,253,37
240 DATA 250,197,255,240,3,174,48,192
250 DATA 133,255,32,76,3,32,70,3
260 DATA 234,76,109,3
405 PRINT CHR$(4);"BLOAD MY NAME IS APPLE 5,A24576"
410 POKE 6,0: POKE 7,96: POKE 252,112
425 HOME : PRINT "J.C. GOBINS, JR.": PRINT "1326 E. VERDE LANE": PRINT "PHOENIX, ARIZONA 85014"
426 PRINT : PRINT "ADAPTED FROM CREATIVE COMPUTING": PRINT : PRINT "FOR SOFTDISK MAGAZETTE"
427 X = 5
430 POKE 251,X
435 CALL 874
440 VTAB 10: PRINT : HTAB 10: PRINT "1 = NEW YORK": PRINT : HTAB 10: PRINT "2 = DENVER": PRINT : HTAB 10: PRINT "3 = SHREVEPORT": PRINT : HTAB 10: PRINT "4 = BACK TO SOFTDISK"
450 VTAB 20: HTAB 3: PRINT "WHICH? ";: GET R$: PRINT R$
460 IF R$ = "1" THEN X = 1: GOTO 430
470 IF R$ = "2" THEN X = 5: GOTO 430
480 IF R$ = "3" THEN X = 9: GOTO 430
490 IF R$ < >"4" GOTO 450
500 PRINT CHR$(4)"RUN KICK.IT.OFF"

Text found in Softdisk_017_March_1983_Side_A.dsk/PAL.06413.MILNES.JAN.83.A.bas:

10 REM PAL.06413.MILNES FEB 83
20 HOME : TEXT : NORMAL
30 PRINT "SUBJECT: HELP!"
35 PRINT
40 PRINT TAB( 4)"I AM NEW INTO COMPUTING AND HAVE ": PRINT "TWO QUESTIONS IF ANYONE CAN HELP."
45 PRINT
50 PRINT TAB( 4)"I HAVE HEARD OF A LIBRARY ": PRINT "OF PUBLIC DOMAIN PROGRAMS IN NEW ": PRINT "YORK. SUPPOSEDLY THEY WILL ": PRINT "SEND A CATALOG AND THEN COPY ": PRINT "A PROGRAM UNTO YOUR DISK. ": PRINT "DOES ANYONE HAVE ANY INFO ABOUT THIS?"
55 PRINT : PRINT : HTAB 12: INVERSE : PRINT " HIT ANY KEY ";: NORMAL : GET R$: PRINT R$
60 PRINT TAB( 4)"MY OTHER QUESTION CONCERNS APPLE'S ": PRINT "RENUMBER PROGRAM."
70 PRINT "IT CHANGES VALUES ON ME IN LONG ": PRINT "PROGRAMS CONTAINING MULTIPLICATION."
75 PRINT
80 PRINT "DOES ANYONE ELSE HAVE THIS PROBLEM?": PRINT : PRINT "CAN ANYONE SUGGEST A SOLUTION?"
85 PRINT : PRINT "DON MILNES": PRINT "43 LIBERTY STREET,CLINTON CT. 06413"
90 PRINT : PRINT : HTAB 12: INVERSE : PRINT " HIT ANY KEY ";: NORMAL : GET R$: PRINT R$
100 PRINT : PRINT CHR$(4);"RUN PAL.MENU"

Text found in Softdisk_017_March_1983_Side_A.dsk/PAL.07666.BLOOM.JAN.83.A.bas:

10 REM SOFT PALS COMMENTS
20 REM A REVIEW OF MASTERING VISICALC
24 GOTO 30
26 VTAB 23: PRINT "PRESS RETURN TO CONTINUE.";: GET A$: PRINT A$: RETURN
30 TEXT : HOME
40 PRINT "I HAVE JUST READ 'MASTERING VISICALC'": PRINT
50 PRINT "BY DOUGLAS HERGERT. IT'S EXCELLENT.": PRINT
60 PRINT "THE BOOK IS PUBLISHED BY SYBEX INC. OF": PRINT
70 PRINT "2344 SIXTH STREET, BERKLEY, CA. 94710.": PRINT
80 PRINT "THE EXPLANATION OF THE MORE COMPLEX": PRINT
90 PRINT "FUNCTIONS ESPECIALLY LOGIC FUNCTIONS": PRINT
100 PRINT "IS CLEAR, CONCISE, AND COGENT. IT IS": PRINT
110 PRINT "FAR SUPERIOR TO THE VISICALC MANUAL IN": PRINT
120 PRINT "THIS RESPECT. THE DESCRIPTION OF DIF": PRINT
140 PRINT "FILES, ALWAYS A DIFFICULT SUBJECT, IS ": PRINT
145 GOSUB 26: HOME
150 PRINT "HANDLED MASTERFULLY. THERE IS A CLEAR": PRINT
160 PRINT "EXPLANATION OF WHAT IS HAPPENING WHEN": PRINT
170 PRINT "THE DIF FILE IS CONSTRUCTED, HOW": PRINT
180 PRINT "TO WRITE BASIC PROGRAMS TO UTILIZE DATA": PRINT
190 PRINT "FROM THE SPREADSHEETS AND HOW TO WRITE": PRINT
200 PRINT "PROGRAMS TO GET THE DATA BACK TO THE": PRINT
210 PRINT "SPREADSHEET. USING THESE MANEUVERS,": PRINT
220 PRINT "YOU HAVE ALMOST ENDLESS OPPORTUNITIES": PRINT
230 PRINT "TO MANIPULATE THE DATA FOR WHATEVER": PRINT
240 PRINT "NEED YOU MAY HAVE.": PRINT
250 GOSUB 26: HOME
260 PRINT "THERE IS A COMPANION VOLUME ENTITLED": PRINT
270 PRINT " 'DOING BUSINESS WITH VISICALC' BY": PRINT
280 PRINT "STANLEY TROST. THIS VOLUME USES MORE": PRINT
290 PRINT "OF A COOKBOOK APPROACH TO VISICALC": PRINT
300 PRINT "APPLICATIONS. WHILE THE 'RECIPES' GIVEN": PRINT
310 PRINT "ARE MORE ADVANCED THAN SEVERAL OTHER": PRINT
320 PRINT "COOKBOOKS ON THE MARKET NEVERTHELESS": PRINT
330 PRINT "THE VOLUME GIVES ONLY LIMITED INSIGHT": PRINT
340 PRINT "INTO EITHER VISICALC OR BUSINESS. TAKEN": PRINT
350 GOSUB 26: HOME
360 PRINT "TOGETHER WITH'MASTERING VISICALC'": PRINT
370 PRINT "DOES MINIMIZE THE FIRST DEFICIENCY.": PRINT
375 PRINT
380 PRINT "IN SHORT, 'MASTERING VISICALC' IS": PRINT
390 PRINT "WORTH MASTERING, BUT I WOULD DO LESS": PRINT
400 PRINT "BUSINESS WITH 'DOING BUSINESSWITH": PRINT
410 PRINT "VISICALC'.": PRINT : PRINT
420 PRINT "ALAN BLOOM": PRINT "489 NORTHUMBERLAND RD.": PRINT "TEANECK NJ 07666": PRINT
430 GOSUB 26
440 PRINT CHR$(4);"RUN PAL.MENU"

Text found in Softdisk_017_March_1983_Side_A.dsk/PAL.08081.JENNINGS.JAN.83.A.bas:

10 REM : WANG INTERFACE HELP REQUEST
20 GOTO 40
30 VTAB 23: PRINT "PRESS RETURN TO CONTINUE.";: GET A$: RETURN
40 TEXT : HOME
50 REM : INTRODUCTORY "TELETYPER" ROUTINE FROM "TIP DISK #1" BY BEAGLE BROTHERS.
60 CURSR$ = "+>": SPEED= 210
70 FOR I = 1 TO LEN(CURSR$):CURSR$ = CURSR$ + CHR$(8): NEXT
80 HOME : GOSUB 140
90 A$ = "TO: HELPFUL HARDWARE HACKER SOFTDISK PAL FROM: PUBLIC VOCATIONAL SCHOOL LIBRARIAN SUBJECT: REQUEST FOR INTERFACING INFO.": GOSUB 110
100 PRINT : GOSUB 140: SPEED= 255: GOTO 150
110 FOR I = 1 TO LEN(A$): INVERSE : PRINT CURSR$;: NORMAL :M$ = MID$ (A$,I,1): PRINT M$;: IF M$ = " " OR M$ = "." THEN FOR J = 1 TO 25 +150 *(M$ = "."): NEXT
120 IF M$ < >" " THEN FOR J = 1 TO 2:S = PEEK( -16336): NEXT
130 NEXT : CALL -868: PRINT : RETURN
140 A$ = "": FOR I = 1 TO 40:A$ = A$ +"-": NEXT : GOSUB 110: RETURN
150 PRINT " OUR DISTRICT IS JUST NOW LOOKING INTOTHE POSSIBILITY OF INTRODUCING COMPUTERSFOR ADMINISTRATION AND INSTRUCTION."
160 PRINT : PRINT " TO SAVE A BIT OF THE TAXPAYER'S BUCK,I WOULD LIKE TO USE A COUPLE OF DONATED WANG MODEL 601 AND 701 PRINTERS WITH APPLE AND/OR TRS-80 MICROCOMPUTERS."
170 GOSUB 30: HOME
180 PRINT : PRINT " THE WANG 601 AND 701 UNITS WERE USED WITH THE OLD WANG MODELS 600 AND 700 PROGRAMMABLE CALCULATORS. THEY ARE IBM SELECTRIC TYPEWRITERS MODIFIED BY WANG."
190 PRINT : PRINT " THESE UNITS ARE SAID TO HAVE RS-232 COMPATIBLE INPUTS. I HAVE CONTACTED WANGBUT THEY WILL NOT PROVIDE SPECIFICATIONSOR PINOUT INFORMATION."
200 PRINT : PRINT " LETTERS TO MANUFACTURERS OF INTERFACECARDS EXPLAINING OUR PROBLEM HAVE ONLY BROUGHT LITERATURE...NO REAL HELP!"
210 GOSUB 30: HOME
220 PRINT : PRINT " IF ANYONE OUT THERE IN SOFTDISKLAND HAS BEEN SUCCESSFUL IN INTERFACING THESEWANG PRINTERS WITH APPLE, FRANKLIN, OR EVEN RADIO SHACK COMPUTERS, PLEASE SHAREYOUR EXPERIENCES WITH US."
230 PRINT : PRINT " YOU MAY RESPOND THROUGH SOFTDISK OR DIRECTLY TO:"
240 PRINT : HTAB 9: PRINT "J. EVANS JENNINGS JR."
250 HTAB 4: PRINT "LIBRARIAN/MULTIMEDIA SPECIALIST"
260 HTAB 5: PRINT "CAMDEN COUNTY VO-TECH SCHOOLS"
270 HTAB 14: PRINT "P.O. BOX 566"
280 HTAB 4: PRINT "SICKLERVILLE, NEW JERSEY 08081"
290 PRINT : HTAB 10: PRINT "THANKS FOR YOUR HELP !"
300 PRINT : VTAB 23: PRINT " EVIEW REQUEST ACK TO PAL.MENU ";: GET C$: PRINT C$: IF C$ = "R" THEN 10
310 IF C$ = "B" THEN PRINT : PRINT CHR$(4);"RUN PAL.MENU"
320 GOTO 300
330 END

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

10 REM PAL.MENU
15 DIM A$(10):D$ = CHR$(4)
20 TEXT : HOME : SPEED= 255
30 HTAB 14: INVERSE : PRINT " PAL.MENU ": NORMAL
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 23: INVERSE : PRINT "G=GOBACK S=START OVER ";
1210 IF A$(I) < >"END" THEN PRINT "M=MORE ";
1220 NORMAL : VTAB 21: HTAB 1: GET R$: PRINT R$
1225 IF R$ = "M" AND A$(I) < >"END" THEN 20
1230 IF R$ = "S" THEN RESTORE : GOTO 20
1240 IF R$ = "G" THEN PRINT D$"RUN SOFT.PALS"
1250 R = INT( VAL(R$)): IF R >0 AND R

Text found in Softdisk_017_March_1983_Side_A.dsk/POLL.RATINGS.txt:

MAR 83
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

Text found in Softdisk_017_March_1983_Side_A.dsk/POLL.TITLES.txt:

MAR 83
30
CHOPLIFTER
VISICALC
MINER 2049ER
HOME ACCOUNTANT
WIZARDRY
PFS FILE
FROGGER
ULTIMA II
AZTEC
SCREEN WRITER II
APPLE WRITER IIE
APPLE WRITER II
MULTIPLAN
ARCADE MACHINE
MASTER TYPE
KNIGHT OF DIAMONDS
CASTLE WOLFENSTEIN
PINBALL CONSTR SET
MIX & MATCH
CRISIS MOUNTAIN
SNACK ATTACK
ZORK I
VISI FILE
WORD STAR
TRANSEND 2
GAMES FOR CHILDREN
MASK OF THE SUN
DB MASTER
STORY MACHINE
GENERAL LEDGER

Text found in Softdisk_017_March_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_017_March_1983_Side_A.dsk/SOFTWARE.POLL.bas:

10 REM SOFTWARE.POLL
20 D$ = CHR$(4)
30 TEXT : PRINT D$"NOMON C,I,O": SPEED= 255
100 PRINT D$;"OPEN POLL.TITLES"
110 PRINT D$;"READ POLL.TITLES"
120 INPUT PD$: INPUT NI
125 DIM TI$(NI),RT(NI)
130 FOR I = 1 TO NI: INPUT TI$(I): NEXT
140 PRINT D$;"CLOSE POLL.TITLES"
150 PRINT D$;"OPEN POLL.RATINGS"
160 PRINT D$;"READ POLL.RATINGS"
170 INPUT PD$: INPUT RF
180 FOR I = 1 TO NI: INPUT RT(I): NEXT
190 PRINT D$
500 GOSUB 6000
510 VTAB 3: PRINT "THIS POLL IS INTENDED TO MEASURE"
520 VTAB 5: PRINT "SOFTWARE SATISFACTION."
530 VTAB 8: PRINT "PLEASE VOTE ONLY FOR THAT SOFTWARE"
540 VTAB 10: PRINT "WHICH YOU OWN."
550 VTAB 13: PRINT "RATE SOFTWARE ON A SCALE FROM 1 TO 10.
560 VTAB 15: PRINT "1=BAD";: HTAB 17: PRINT "5=OK";: HTAB 27: PRINT "10=EXCELLENT"
570 VTAB 18: PRINT "SOFTWARE COMES FROM THE SOFTALK"
580 VTAB 20: PRINT "BEST SELLER LIST."
590 GOSUB 7000
600 GOSUB 6000
610 VTAB 3: PRINT "USE THE I,J,K & M KEYS TO MOVE ABOUT"
620 VTAB 5: PRINT "AND CAST YOUR VOTES."
630 VTAB 6: HTAB 21: INVERSE : PRINT "UP";: NORMAL
640 VTAB 8: HTAB 21: PRINT "I";
650 VTAB 9: HTAB 15: INVERSE : PRINT "LEFT";: NORMAL : PRINT " J K ";: INVERSE : PRINT "RIGHT";: NORMAL
660 VTAB 10: HTAB 21: PRINT "M";
670 VTAB 12: HTAB 20: INVERSE : PRINT "DOWN": NORMAL
680 VTAB 14: PRINT "TO WITHDRAW A VOTE, MOVE OFF THE SCALE"
690 VTAB 16: PRINT "ON EITHER END."
700 VTAB 19: PRINT "WHEN YOU ARE READY TO REGISTER YOUR"
710 VTAB 21: PRINT "VOTES HIT THE RETURN KEY."
720 GOSUB 7000
730 I = 1
1000 GOSUB 5000
1020 VTAB ( PEEK(37) +1): HTAB 40: GET R$: PRINT D$
1030 IF R$ = CHR$(13) GOTO 2500
1040 IF R$ = "I" GOTO 2300
1050 IF R$ = "M" GOTO 2200
1060 IF R$ = "J" GOTO 2100
1070 IF R$ = "K" GOTO 2000
1080 IF R$ = "H" GOTO 600
1090 VTAB ( PEEK(37)): GOTO 1020
2000 L = RT(I): VTAB (3 +2 *K): HTAB 20: PRINT "1 2 3 4 5 6 7 8 9 10";
2010 L = L +1: IF L >10 THEN L = 0
2020 RT(I) = L
2030 IF L < >0 THEN HTAB (18 +2 *L): INVERSE : PRINT L;: NORMAL
2040 GOTO 1020
2100 L = RT(I): VTAB (3 +2 *K): HTAB 20: PRINT "1 2 3 4 5 6 7 8 9 10";
2110 L = L -1: IF L <0 THEN L = 10
2120 RT(I) = L
2130 IF L < >0 THEN HTAB (18 +2 *L): INVERSE : PRINT L;: NORMAL
2140 GOTO 1020
2200 I = I +1:K = K +1:L = 0
2210 IF I >NI THEN I = 1:K = 11
2220 IF K >10 THEN GOSUB 5000: GOTO 1020
2230 VTAB (1 +2 *K): HTAB 1: PRINT TI$(I -1);
2240 VTAB (3 +2 *K): HTAB 1: INVERSE : PRINT TI$(I);: NORMAL
2250 GOTO 1020
2300 I = I -1:K = K -1:L = 0
2310 IF I <1 THEN I = NI
2320 IF K <1 THEN I = INT(I/10) *10 -9: GOSUB 5000: GOTO 1020
2330 VTAB (5 +2 *K): HTAB 1: PRINT TI$(I +1);
2340 VTAB (3 +2 *K): HTAB 1: INVERSE : PRINT TI$(I);: NORMAL
2350 GOTO 1020
2500 PRINT D$;"CLOSE POLL.RATINGS"
2510 PRINT D$;"DELETE POLL.RATINGS"
2520 PRINT D$;"OPEN POLL.RATINGS"
2530 PRINT D$;"WRITE POLL.RATINGS"
2535 RF = 0: FOR I = 1 TO NI: IF RT(I) < >0 THEN RF = 1: NEXT
2540 PRINT PD$: PRINT RF
2550 FOR I = 1 TO NI: PRINT RT(I): NEXT
2560 PRINT D$;"CLOSE POLL.RATINGS"
2570 HOME : PRINT D$;"RUN KICK.IT.OFF"
5000 GOSUB 6000
5010 VTAB 3: HTAB 20: PRINT "BAD";: HTAB 36: PRINT "GOOD"
5020 J = I:K = 1
5055 VTAB (3 +2 *K): HTAB 1
5060 PRINT TI$(J);: HTAB 20: PRINT "1 2 3 4 5 6 7 8 9 10";
5065 IF RT(J) < >0 THEN HTAB (18 +2 *RT(J)): INVERSE : PRINT RT(J);: NORMAL
5070 J = J +1:K = K +1
5080 IF J >NI OR K >10 GOTO 5100
5090 GOTO 5055
5100 VTAB 24: HTAB 2: INVERSE : PRINT "H = HELP";: HTAB 16: PRINT "RETURN = REGISTER VOTES";: NORMAL
5110 VTAB 5: HTAB 1: INVERSE : PRINT TI$(I);: NORMAL :K = 1:L = 0
5115 RETURN
6000 HOME : HTAB 14: INVERSE : PRINT "SOFTWARE POLL": NORMAL : RETURN
7000 VTAB 24: HTAB 14: INVERSE : PRINT "HIT SPACE BAR";: NORMAL : GET R$: PRINT D$: RETURN