💾 Archived View for mirrors.apple2.org.za › archive › ground.icaen.uiowa.edu › Collections › apple8 … captured on 2024-06-20 at 12:37:55.
View Raw
More Information
-=-=-=-=-=-=-
Hello all.......
here is an old program that I wrote a while ago (!@#$ almost 15 years ago),
but here is the problem. I now run on a Macintosh (and a quite fine unit I
might add) :) ......
I'm using Bernie ][ to emulate a ][gs. I've re-figured out quite a bit in
the last couple of days (thanks to TOM cturley2). The ole' brain cells
started firing again on AppleSoft. I was even thinking about staying up
into the wee hours of the morning wacking away on the keyboard. (geese!
I'm getting too old for this!)
anyway, I digress..... I have attempted many different ways of porting this
program over to the IIgs emulator, but the file types that arrive never seem
to let me do anything with it. I've tried changing the Macintosh file type
and creator to TEXT pdos, but that does not seem to want to work.
Here is my request..... could someone take this listed program below and put
it on a FD image that Bernie ][ can recognize, and have the file that is on
the FD image be recognized as a BASIC program by ProDOS? Oh, yea, then
e-mail me the image......
Also, if this is possible, please send a note on the method that you used to
do this, so that in the future I will have this knowledge and I won't have
to bother anyone (again) for this function.
I Bow to Cupertino and give 3 Hail Wozes!
TIA,
Kos Semonski (TheRhino)
- ************************ BEGIN PROGRAM LISTING *************************
1 HOME: PRINT CHR$(4); "OPEN MESSAGE": PRINT CHR$(4); "READ MESSAGE"
2 ONERR GOTO 5
3 INPUT A$: PRINT A$: GOTO 3
5 FOR X = 1 TO 5000: NEXT X
9 PRINT "PRESS RETURN TO CONTINUE..."; : INPUT A$
10 HOME
30 CLEAR
50 D$ = CHR$ (4)
70 PRINT D$;"PR#3"
90 FOR X = 1 TO 80
110 PRINT CHR$(254); : NEXT
130 PRINT
150 PRINT " TRIGONOMETRY CALCULATOR "
170 PRINT " BY"
190 PRINT " KOS SEMONSKI"
210 PRINT
230 FOR X = 1 TO 80
250 PRINT CHR$(254); : NEXT
270 PRINT "ANGLE THATA ="
290 PRINT "HYPOT. ="
310 PRINT "AJACENT ="
330 PRINT "OPPOSITE ="
350 PRINT "SIN <0 ="
370 PRINT "COS <0 ="
390 PRINT "TAN <0 ="
400 PRINT "AREA ="
410 V = 8: H = 14: VTAB V: HTAB H
430 VTAB V: HTAB H
450 GET IN$
470 IF IN$ = CHR$ (10) AND V < 14 THEN V = V + 1: GOTO 430
490 IF IN$ = CHR$(11) AND V > 8 THEN V = V - 1: GOTO 430
510 IF IN$ = CHR$(13) THEN 550
530 GOTO 430
550 REM INPUT INFO
570 VTAB V: HTAB H: INPUT " VALUE "; VA$(V - 7)
590 VA(V - 7) = VAL(VA$(V - 7))
610 IF VA(1) > 360 THEN VA(1) = VA(1) / 360 : VA = INT(VA(1)): VA(1) =
VA(1) - VA: VA(1) = INT(VA(1) * 360 + .5): VTAB 8: HTAB 22: PRINT VA(1); "
"
630 IF VA(1) > 90 THEN VA(1) = VA(1) - 90: VTAB 8: HTAB 22: PRINT VA(1); "
": GOTO 630
650 IF VA(5) <> 0 AND VA(6) <> 0 OR VA(5) <> 0 AND VA(7) <> 0 OR VA(6) <>
0 AND VA(7) <> 0 THEN GOTO 10
670 IF VA(1) <> 0 AND VA(5) <> 0 OR VA(1) <> 0 AND VA(6) <> 0 OR VA(1) <>
0 AND VA(7) <> 0 THEN 10
690 FOR X = 1 TO 8 710 IF VA(X) < > 0 THEN C = C + 1
730 NEXT
750 IF VA(2) = 0 AND VA(3) = 0 AND VA(4) = 0 THEN C = 0: GOTO 430
770 IF C > 1 THEN 830
790 C = 0
810 GOTO 430
830 REM ENOUGH INFO TO CALCULATE
850 IF VA(1) <> 0 AND VA(5) = 0 THEN VA(5) = (VA(1) * 3.14159266# / 180):
VA(5) = SIN(VA(5)): VA(5) = INT(VA(5) * 1000): VA(5) = VA(5) / 1000
870 IF VA(1) <> 0 AND VA(6) = 0 THEN VA(6) = (VA(1) * 3.14159266# / 180):
VA(6) = COS(VA(6)): VA(6) = INT(VA(6) * 1000): VA(6) = VA(6) / 1000
890 IF VA(1) <> 0 AND VA(7) = 0 THEN VA(7) = (VA(1) * 3.14159266# / 180):
VA(7) = TAN(VA(7)): VA(7) = INT(VA(7) * 1000): VA(7) = VA(7) / 1000
910 IF VA(1) <> 0 THEN FOR X = 5 TO 7: VTAB (7 + X): HTAB 22: PRINT VA(X):
NEXT
930 IF VA(2) <> 0 AND VA(3) = 0 AND VA(6) <> 0 THEN VA(3) = VA(2) * VA(6):
VTAB (10): HTAB 22: PRINT VA(3)
950 IF VA(2) <> 0 AND VA(4) <> 0 AND VA(5) = 0 THEN VA(5) = VA(4) / VA(2):
VA(5) = INT(VA(5) * 1000): VA(5) = VA(5) / 1000: VTAB (12): HTAB 22: PRINT
VA(5)
970 IF VA(2) <> 0 AND VA(3) <> 0 AND VA(6) = 0 THEN VA(6) = VA(3) / VA(2):
VA(6) = INT(VA(6) * 1000): VA(6) = VA(6) / 1000: VTAB (13): HTAB 22: PRINT
VA(6)
990 IF VA(3) <> 0 AND VA(6) <> 0 AND VA(2) = 0 THEN VA(2) = VA(3) / VA(6):
VA(2) = INT(VA(2) * 1000): VA(2) = VA(2) / 1000: VTAB 9: HTAB 22: PRINT
VA(2)
1010 IF VA(3) <> 0 AND VA(7) <> 0 AND VA(4) = 0 THEN VA(4) = VA(3) *
VA(7): VA(4) = INT(VA(4) * 1000): VA(4) = VA(4) / 1000: HTAB 22: VTAB 11:
PRINT VA(4)
1030 IF VA(3) <> 0 AND VA(2) <> 0 AND VA(6) = 0 THEN VA(6) = VA(3) /
VA(2): VA(6) = INT(VA(6) * 1000): VA(6) = VA(6) / 1000: HTAB 22: VTAB 13:
PRINT VA(6)
1050 IF VA(3) <> 0 AND VA(4) <> 0 AND VA(7) = 0 THEN VA(7) = VA(4) /
VA(3): VA(7) = INT(VA(7) * 1000): VA(7) = VA(7) / 1000: VTAB 14: HTAB 22:
PRINT VA(7)
1070 IF VA(4) <> 0 AND VA(5) <> 0 AND VA(2) = 0 THEN VA(2) = VA(4) /
VA(5): VA(2) = INT(VA(2) * 1000): VA(2) = VA(2) / 1000: VTAB 9: HTAB 22:
PRINT VA(2)
1090 IF VA(4) <> 0 AND VA(7) <> 0 AND VA(3) = 0 THEN VA(3) = VA(4) /
VA(7): VA(3) = INT(VA(3) * 1000): VA(3) = VA(3) / 1000: VTAB 10: HTAB 22:
PRINT VA(3)
1110 IF VA(4) <> 0 AND VA(2) <> 0 AND VA(5) = 0 THEN VA(5) = VA(4) /
VA(2): VA(5) = INT(VA(5) * 1000): VA(5) = VA(5) / 1000: VTAB 12: HTAB 22:
PRINT VA(5)
1130 IF VA(4) <> 0 AND VA(3) <> 0 AND VA(7) = 0 THEN VA(7) = VA(4) /
VA(3): VA(7) = INT(VA(7) * 1000): VA(7) = VA(7) / 1000: VTAB 14: HTAB 22:
PRINT VA(7)
1150 IF VA(5) <> 0 AND VA(1) = 0 THEN VA(1) = ATN(VA(5) / SQR(-VA(5) *
VA(5) + .98)): VA(1) = VA(1) * 180 / 3.14159266#: VA(1) = INT(VA(1)): VTAB
8: HTAB 22: PRINT VA(1)
1170 IF VA(6) <> 0 AND VA(1) = 0 THEN VA(1) = -ATN(VA(6) / SQR(-VA(6) *
VA(6) + 1)) + 1.5708: VA(1) = VA(1) * 180 / 3.14159266#: VA(1) = INT(VA(1)):
VTAB 8: HTAB 22: PRINT VA(1)
1190 IF VA(7) <> 0 AND VA(1) = 0 THEN VA(1) = ATN(VA(7)) + .003: VA(1) =
VA(1) * 180 / 3.14159266#: VA(1) = INT(VA(1)): VTAB 8: HTAB 22: PRINT VA(1)
1210 IF VA(1) <> 0 AND VA(2) <> 0 AND VA(3) <> 0 AND VA(4) <> 0 AND VA(5)
<> 0 AND VA(6) <> 0 AND VA(7) <> 0 THEN 1250
1230 GOTO 830
1231 VTAB 15: HTAB 22: PRINT VA(3) * VA(4) / 2
1250 VTAB 15: HTAB 22: PRINT VA(3) * VA(4) / 2
1251 VTAB 17: HTAB 1
1270 PRINT "PRESS RETURN TO CALCULATE ANOTHER:";: GET AN$
1290 IF AN$ = CHR$ (13) THEN 10
1310 IF AN$ = CHR$(27) THEN PRINT D$; "PR#5"
1330 PRINT 1350 GOTO 1250
- ************************ END PROGRAM LISTING *************************