CoCopedia - The Tandy/Radio Shack Color Computer Wiki - User contributions [en]

Battle of Gettysburg

2022-02-13T05:14:08Z

Luis46coco:

{{NavSoftware}}
{{GameInfoBox |
| picture = Battle of Gettysburg Cassette Box.JPG
| year= 1982
| media = Disk/Tape
| requires = Joystick
| graphic =
| publisher = [[Softwride]]
| author = [[James Woodruff]]
| model = Coco 1/2/3?
| ram = 16 kb
| os = RS-DOS
| type = Game
| notes =
| price =
| download =
| catalog =
| 1stcat =
}}

<gallery caption="Sample gallery" widths="180px" heights="120px" perrow="3">
File:Battle of Gettysburg Select Opponent.JPG|Select Opponent
File:Battle of Gettysburg Menu.JPG|Menu
File:Battle of Gettysburg Map.JPG|Map
File:Battle of Gettysburg Music.JPG|Music
File:Battle of Gettysburg Cassette Side A.JPG|Cassette Side A
File:Battle of Gettysburg Cassette Side B.JPG|Cassette Side B
File:Battle of Gettysburg Cassette Box.JPG|Cassette Box
</gallery>

Template:GameInfoBox

2022-02-13T05:13:05Z

Luis46coco: OS Repeat

{| border="1" cellpadding="2" cellspacing="0" style="float:right; margin: 0em 0em 1em 1em; width: 300px"
|-
! align="center" colspan="2" style="background:#ffff00;" | <big>{{PAGENAME}}</big>
|-
| align="center" colspan="2" | [[Image:{{{picture}}}|296px|{{PAGENAME}}]]
|-
{{#if: {{{year|}}} |
! '''Year'''
{{!}} {{{year|}}}
{{!}}-
|}}
{{#if: {{{publisher|}}} |
! '''Publisher'''
{{!}} {{{publisher|}}}
{{!}}-
|}}
{{#if: {{{author|}}} |
! '''Author'''
{{!}} {{{author|}}}
{{!}}-
|}}
{{#if: {{{media|}}} |
! '''Media'''
{{!}} {{{media|}}}
{{!}}-
|}}
{{#if: {{{model|}}} |
! '''Model'''
{{!}} {{{model|}}}
{{!}}-
|}}
{{#if: {{{ram|}}} |
! '''RAM'''
{{!}} {{{ram|}}}
{{!}}-
|}}
{{#if: {{{requires|}}} |
! '''Requires'''
{{!}} {{{requires|}}}
{{!}}-
|}}
{{#if: {{{graphic|}}} |
! '''Graphic mode'''
{{!}} {{{graphic|}}}
{{!}}-
|}}
{{#if: {{{type|}}} |
! '''Type'''
{{!}} {{{type|}}}
{{!}}-
|}}
{{#if: {{{os|}}} |
! '''OS'''
{{!}} {{{os|}}}
{{!}}-
|}}
{{#if: {{{notes|}}} |
! '''Notes'''
{{!}} {{{notes|}}}
{{!}}-
|}}
{{#if: {{{price|}}} |
! '''Release Price'''
{{!}} {{{price|}}}
{{!}}-
|}}
{{#if: {{{catalog|}}} |
! '''Catalog'''
{{!}} {{{catalog|}}}
{{!}}-
|}}
{{#if: {{{1stcat|}}} |
! '''1st Cat'''
{{!}} {{{1stcat|}}}
{{!}}-
|}}
{{#if: {{{download|}}} |
! '''Download'''
{{!}} {{{download|}}}
|}}
|}
[[Category:Game]]

Adventure In Mythology

2022-02-13T04:53:40Z

Luis46coco:

{{NavSoftware}}
<center><h1>Adventure In Mythology</h1></center>
[[File:adventureinmythology_intro_cracked.gif|left|Adventure In Mythology Intro screen (hacked)]]
[[File:adventureinmythology.gif|right|Adventure In Mythology game screen]]
 Adventure In Mythology intro screen (hacked) and game play screen.
[[File:adventureinmythology_attacked.gif|left|Adventure In Mythology game screen - being attacked]]
[[File:adventureinmythology_dead.gif|right|Adventure In Mythology - game over screen]]
 Adventure In Mythology game screens: being attacked, and game over.
 Adventure In Mythology is an animated graphics adventure, where you have to gather treasures and ultimately win the hand of Atalanta, a huntress. In it you travel through ancient Greece, and you assume the personalities of various heroes in ancient Greek mythology. The game supported speech if you have a Sound Speech Pak, and also allows saving and loading of up to 10 games in progress. There are over 250 locations to explore, and you can use the arrow keys to move in the standard 4 directions (instead of using letters).
 Title: Adventure In Mythology
 Author: Scott Cabit
 Publisher: Saguaro Software
 Released: 1986 (programmed in late 1985)
 Requires: Color Computer 1,2,3, 64K RAM, tape or disk.
 Download [[File:mythology.zip|mythology.zip]]. This contains a DSK image. Type LOADM "MYTHOLGY"; to run. Note: This is a hacked version... if anyone has a clean version, please [mailto:curtisboyle@sasktel.net email me.]
[[Category:Software]]

Adventure In Mythology

2022-02-13T04:33:34Z

Luis46coco:

{{NavSoftware}}
<center><h1>Adventure In Mythology</h1></center>
[[File:adventureinmythology_intro_cracked.gif|left|Adventure In Mythology Intro screen (hacked)]]
[[File:adventureinmythology.gif|right|Adventure In Mythology game screen]]
 Adventure In Mythology intro screen (hacked) and game play screen.
[[File:adventureinmythology_attacked.gif|left|Adventure In Mythology game screen - being attacked]]
[[File:adventureinmythology_dead.gif|right|Adventure In Mythology - game over screen]]
 Adventure In Mythology game screens: being attacked, and game over.
 Adventure In Mythology is an animated graphics adventure, where you have to gather treasures and ultimately win the hand of Atalanta, a huntress. In it you travel through ancient Greece, and you assume the personalities of various heroes in ancient Greek mythology. The game supported speech if you have a Sound Speech Pak, and also allows saving and loading of up to 10 games in progress. There are over 250 locations to explore, and you can use the arrow keys to move in the standard 4 directions (instead of using letters).
 Title: Adventure In Mythology
 Author: Scott Cabit
 Publisher: Saguaro Software
 Released: 1986 (programmed in late 1985)
 Requires: Color Computer 1,2,3, 64K RAM, tape or disk.
 Download [[File:mythology.zip|MYTHOLOGY.ZIP]] This contains a DSK image. Type LOADM"MYTHOLGY" to run. Note: This is a hacked version... if anyone has a clean version, please <a href="mailto:curtisboyle@sasktel.net">email me.</a>
[[Category:Software]]

File:8BALL.ZIP

2022-02-13T04:25:12Z

Luis46coco:

File:Mythology.zip

2022-02-13T04:19:55Z

Luis46coco:

File:Adventureinmythology attacked.gif

2022-02-13T04:09:29Z

Luis46coco:

File:Adventureinmythology dead.gif

2022-02-13T04:09:02Z

Luis46coco:

File:Adventureinmythology.gif

2022-02-13T04:08:32Z

Luis46coco:

File:Adventureinmythology intro cracked.gif

2022-02-13T04:07:07Z

Luis46coco:

Adventure In Mythology

2022-02-13T04:05:54Z

Luis46coco: Created page with "{{NavSoftware}} <center><h1>Adventure In Mythology</h1></center> Adventure In Mythology Intro screen (hacked) Adventure In Mythology game screen Adventure In Mythology intro screen (hacked) and game play screen. Adventure In Mythology game screen - being attacked File:adventureinmythology_dead.gif|right|Adventure I..."

{{NavSoftware}}
<center><h1>Adventure In Mythology</h1></center>
[[File:adventureinmythology_intro_cracked.gif|left|Adventure In Mythology Intro screen (hacked)]]
[[File:adventureinmythology.gif|right|Adventure In Mythology game screen]]
 Adventure In Mythology intro screen (hacked) and game play screen.
[[File:adventureinmythology_attacked.gif|left|Adventure In Mythology game screen - being attacked]]
[[File:adventureinmythology_dead.gif|right|Adventure In Mythology - game over screen]]
 Adventure In Mythology game screens: being attacked, and game over.
 Adventure In Mythology is an animated graphics adventure, where you have to gather treasures and ultimately win the hand of Atalanta, a huntress. In it you travel through ancient Greece, and you assume the personalities of various heroes in ancient Greek mythology. The game supported speech if you have a Sound Speech Pak, and also allows saving and loading of up to 10 games in progress. There are over 250 locations to explore, and you can use the arrow keys to move in the standard 4 directions (instead of using letters).
 Title: Adventure In Mythology
 Author: Scott Cabit
 Publisher: Saguaro Software
 Released: 1986 (programmed in late 1985)
 Requires: Color Computer 1,2,3, 64K RAM, tape or disk.
 <a href="mythology.zip">Download MYTHOLOGY.ZIP</a>. This contains a DSK image. Type LOADM"MYTHOLGY" to run. Note: This is a hacked version... if anyone has a clean version, please <a href="mailto:curtisboyle@sasktel.net">email me.</a>
[[Category:Software]]

File:Adtrench.gif

2022-02-13T04:03:29Z

Luis46coco:

File:Adtrench intro.gif

2022-02-13T04:02:07Z

Luis46coco:

Advanced Star Trench Warfare

2022-02-13T04:01:06Z

Luis46coco: Created page with "{{NavSoftware}} <center><h1>Advanced Star Trench Warfare</h1></center> Advanced Star Trench Warfare Intro Advanced Star Trench Warfare Advanced Star Trench Warfare is a bit of a rarity in that it was written completely in BASIC (no ML subroutines at all), but was sold commercially. It was also the first game for the Coco series that advertised that it would have a true 3-D effect by..."

{{NavSoftware}}
<center><h1>Advanced Star Trench Warfare</h1></center>
[[File:adtrench_intro.gif|left|Advanced Star Trench Warfare Intro]]
[[File:adtrench.gif|right|Advanced Star Trench Warfare]]
 Advanced Star Trench Warfare is a bit of a rarity in
that it was written completely in BASIC (no ML subroutines at all), but was
sold commercially. It was also the first game for the Coco series that advertised
that it would have a true 3-D effect by wearing blue and red 3-D glasses, although
from my personal experience, it was not _that_ much of an effect.
 The game itself is based on the familiar Star Wars theme of flying through
the trench on the Death Star, shooting down tie fighters. It also has a refuelling
sequence that was pretty impressive for BASIC at the time, and it used page-flipping
techniques to make the high speed graphics (I think this in now called double-buffering
in current PC/Mac terminology).
 Fred Scerbo, the author, also used to write a long running column in Rainbow
magazine, that used to show things like graphic techniques. His was one of the
first to show how artifact colors worked, and how to do them from BASIC easily.
 Title: Advanced Star Trench Warfare
 Author: Fred B. Scerbo
 Publisher: Illustrated Memory Banks
 Released: 1982
 Requires: Color Computer 1,2,3, 16K RAM with Extended BASIC, tape or disk, joystick.
[[Category:Software]]

Master Control

2020-11-06T00:17:20Z

Luis46coco:

[[File:Soft_Sector_Marketing_(Master_control).png|1000px]]
== Developer ==
SOFT SECTOR MARKETING
== Descriptions ==
Program to improve the keyboard of the color computer
== Release Year ==
1981
== Price ==
Cassette: '''$24.95'''
== Features ==
# 50 Preprogrammed command keys. standard and extended commands.
# Direct control of motor, trace, and audio.
# Relocatable Machine code.
# Automatic line numbering, starting and increment alterable.
# Programmable custon key.
# Direct Run button.
# Keyboard overlay for easy program use.
# Easy entry of entire commands into the computer and display.
# Full instruction manual.

Master Control

2020-11-06T00:15:53Z

Luis46coco: /* MASTER CONTROL */

[[File:Soft_Sector_Marketing_(Master_control).png|1000px]]
== MASTER CONTROL ==
Developer: SOFT SECTOR MARKETING 
Program to improve the keyboard of the color computer

== Release Year ==
1981
== Price ==
Cassette: '''$24.95'''
== Features ==
# 50 Preprogrammed command keys. standard and extended commands.
# Direct control of motor, trace, and audio.
# Relocatable Machine code.
# Automatic line numbering, starting and increment alterable.
# Programmable custon key.
# Direct Run button.
# Keyboard overlay for easy program use.
# Easy entry of entire commands into the computer and display.
# Full instruction manual.

Master Control

2020-11-06T00:14:00Z

Luis46coco:

[[File:Soft_Sector_Marketing_(Master_control).png|1000px]]
== MASTER CONTROL ==
Productor: SOFT SECTOR MARKETING
Programa para mejorar el teclado de la color computer
== Release Year ==
1981
== Price ==
Cassette: '''$24.95'''
== Features ==
# 50 Preprogrammed command keys. standard and extended commands.
# Direct control of motor, trace, and audio.
# Relocatable Machine code.
# Automatic line numbering, starting and increment alterable.
# Programmable custon key.
# Direct Run button.
# Keyboard overlay for easy program use.
# Easy entry of entire commands into the computer and display.
# Full instruction manual.

Master Control

2020-11-05T23:55:37Z

Luis46coco: Created page with "[File:Soft_Sector_Marketing_(Master_control).png]"

[File:Soft_Sector_Marketing_(Master_control).png]

File:Soft Sector Marketing (Master control).png

2020-11-05T23:55:07Z

Luis46coco:

Soft Sector Marketing

2020-11-05T23:54:33Z

Luis46coco:

[[File:Soft_Sector_Marketing.png]]
== SOFT SECTOR MARKETING Incorporated ==

=== Address: ===
6250 Middlebelt 
Garden City, Michigan 48135 
----
'''Questions & Orders. Michigan''' 313-425-4020 

'''Outside Michigan, Order Line Only''' 800-521-6504 

== PRODUCTS ==
[[Master Control]]

Soft Sector Marketing

2020-11-05T23:41:07Z

Luis46coco: Created page with "File:Soft_Sector_Marketing.png"

[[File:Soft_Sector_Marketing.png]]

File:Soft Sector Marketing.png

2020-11-05T23:40:48Z

Luis46coco:

The RAINBOW Magazine October 1981

2020-11-05T23:25:29Z

Luis46coco: /* ADVERTISER'S INDEX */

{{NavRainbow1981}}
{{InfoBox |
| boxtype = Publication
| photo = Rainbow cover 1981-10.jpg
| author = [[Falsoft]]
| date = October 1981
| year = 1981
| volume = 1 No.4
| language = English
| locale = English
| publisher = [[Falsoft]]
| pages = 15
| format = Magazine
| notes =
| infosource = [[Luis Fernández]]
}}

==ARTICLES==
{| class="wikitable mw-collapsible mw-collapsed" width="180" align="center" style="border: 2px solid black;"
|+ Leyend
|-
|T/D|| Tape/Disk
|-
|ART || Articles
|-
|DEP || Departments
|-
|REV || Product Reviews
|-
|EDI || Editor's Notes
|-
|COR || Correction
|}

{| class="wikitable sortable"
|-
! scope="col" width="30%" | Title
! scope="col" width="15%" | Author
! scope="col" width="35%" | Description
! scope="col" width="5%" style="text-align: right;" | Page
! scope="col" width="10%" |Tape/Disk
! scope="col" width="5%" | Section
|-
| [[Rainbow emphasizes printer uses]] || [[The RAINBOW]] || || 1 || || [[:Category:Editor's Notes|Editor's Notes]]
|-
| [[Review: Conflict (Rainbow 1981-10)|Conflict]] || [[Soft Sector Marketing|SOFT SECTOR MARKETING]] || Risk style Game || 2 || || [[:Category:Software Reviews|Software Reviews]], [[:Category:Games|Games]]
|-
| [[Program Quickie]] || || % Delta Increment || 2 || || [[:Category:Software Utilities|Software Utilities]]
|-
| [[Videoprinter]] || [[Mir, Jorge]] and [[Morgan, Alan J.]] || Print Videotext pages || 3 || || [[:Category:Software Utilities|Software Utilities]], [[:Category:Printers|Printers]]
|-
| [[Software Review: 80C disassembler|80C disassembler]] || [[The MICRO WORKS]] || || 4 || || [[:Category:Software Reviews|Software Reviews]], [[:Category:Assembler|Assembler]]
|-
| [[Really using print using]] || || || 5 || || [[:Category:Tutorial|Tutorial]]
|-
| [[Screen monitor]] || || Everything which appears on the screen will be dumped to the printer a line at a time || 7 || || [[:Category:Printers|Printers]]
|-
| [[Helicopter battleground for you]] || [[JARB Software]] || Helicopter Basic game || 8 || || [[:Category:Magazine Games|Magazine Games]]
|-
| [[Review: Color Space Invaders|Color Space Invaders]] || [[The MICRO WORKS]] || Space acction game|| 9 || || [[:Category:Software Reviews|Software Reviews]], [[:Category:Games|Games]]
|-
| [[For its - Gin, Gin, Gin]] || [[FALSOFT]] || Assistant for the GIN score || 9 || || [[:Category:Software Utility|Software Utility]]
|-
| [[Sticky Labels]] || || || 10 || || [[:Category:Tips|Tips]]
|-
| [[Vampire]] || [[FALSOFT]] || Game announcement: Vampire || 14 || || [[:Category:Games Ads|Games Ads]]
|-
| [[Rosen's Color Connextion]] || || BBS || 14 || || [[:Category:BBS|BBS]]

|}

==ADVERTISER'S INDEX==
{| class="wikitable sortable"
|-
! scope="col" width="40%" | Company
! scope="col" width="40%" | Advertiser
! scope="col" width="20%" | Page
|-
| [[The RAINBOW]] || OFICIAL-STUFF [[the RAINBOW (Copyright)]] || [https://archive.org/details/rainbowmagazine-1981-10/page/n5 6]
|-
| [[Soft Sector Marketing]] || [[Master control Advert]] || [https://archive.org/details/rainbowmagazine-1981-10/page/n6 7]
|-
| [[The Micro Works]] || [[Media:The MicroWorks Advertiser.png|The Micro Works Ad]] || [https://archive.org/details/rainbowmagazine-1981-10/page/n10 11]
|-
| [[The RAINBOW]] || [[the RAINBOW — Subscription Form]] || [https://archive.org/details/rainbowmagazine-1981-10/page/n14 15]
|}

Review: Conflict (Rainbow 1981-10)

2020-11-05T23:17:34Z

Luis46coco: /* Links */

{{NavRainbow1981-10}}
If you like Risk, you’ll really appreciate "[[Conflict|CONFLICT]]".

Available from [[Soft Sector Marketing|SOFT SECTOR MARKETING]] (6250 Middlebelt Road, Garden City, Mich., 48135 for $14.

two-player game that lets you concentrate on keeping up with the strategy while the computer does all the hard work.

In case you have never played its sister game, [[Conflict|CONFLICT]] takes place on a mythical planet in 2150. The two superpowers have both landed on the planet -- which has four continents -- and are vying for control. Whoever does get control will be able to use all the planet’s resources to help his country back on earth. The winner will insure his side natural resources for the future. The loser, well...

There is a total of 20 colonies on the four continents and the computer will apportion 40 armies in eight of them for each side. Each side must try to conquer whole continents -- in other words, occupy every colony on each continent. Reinforcements are awarded based on the number of colonies and continents a side control.

Battles are won and lost by the roll of the dice, which are graphically represented on the screen. There is no weight given to the number of armies attacking one another, except -- obviously -- if you have more armies to lose in a given battle, you have the advantage.

You cannot attack willy-nilly, either. Only adjacent colonies can attack one another. However, you can move your armies from one adjacent colony to another.

The computer keeps track of where all the armies are, how many reinforcements are due each side, whether one colony is adjacent to another. who wins the battles and
keeps score.

Commands available are:
* (1) Distribute -- which allows reinforcements to be positioned;
* (2) Status -- which shows where everything is and who has what areas under his control;
* (3) Move -- which allows armies to be repositioned;
* (4) Attack -- which allows the fighting to take place; and
* (5) Finish -- to end a turn.

SOFT SECTOR also adds a Resign move, in which either side can give up.

SOFT SECTOR has provided some strategic hints and a map of the planet. There are also some surprises -- not particularly good ones -- for the warriors.

It’s an interesting and good game. The only complaint is the minor difficulty in reviewing the last continent without running through all four. Since there are only four of them, this is a small problem in what is a very interesting and well-done game.
<gallery>
Conflict.png|Conflict in game
Conflict Battle.png|Conflict Battle
</gallery>

==Links==
*[https://archive.org/details/rainbowmagazine-1981-10/page/n1 See this article as it appeared in the magazine, in Archive.org]
*[http://www.colorcomputerarchive.com/coco/Cassettes/Games/Conflict%20%28Soft%20Sector%20Marketing%29.zip Download Cassete from color computer archive]
*[http://www.colorcomputerarchive.com/coco/Disks/Games/Conflict%20%28Soft%20Sector%20Marketing%29.zip Download Disk from color computer archive]
[[Category: Software Reviews]][[Category:Games]]

Review: Conflict (Rainbow 1981-10)

2020-11-05T23:13:55Z

Luis46coco: /* Links */

{{NavRainbow1981-10}}
If you like Risk, you’ll really appreciate "[[Conflict|CONFLICT]]".

Available from [[Soft Sector Marketing|SOFT SECTOR MARKETING]] (6250 Middlebelt Road, Garden City, Mich., 48135 for $14.

two-player game that lets you concentrate on keeping up with the strategy while the computer does all the hard work.

In case you have never played its sister game, [[Conflict|CONFLICT]] takes place on a mythical planet in 2150. The two superpowers have both landed on the planet -- which has four continents -- and are vying for control. Whoever does get control will be able to use all the planet’s resources to help his country back on earth. The winner will insure his side natural resources for the future. The loser, well...

There is a total of 20 colonies on the four continents and the computer will apportion 40 armies in eight of them for each side. Each side must try to conquer whole continents -- in other words, occupy every colony on each continent. Reinforcements are awarded based on the number of colonies and continents a side control.

Battles are won and lost by the roll of the dice, which are graphically represented on the screen. There is no weight given to the number of armies attacking one another, except -- obviously -- if you have more armies to lose in a given battle, you have the advantage.

You cannot attack willy-nilly, either. Only adjacent colonies can attack one another. However, you can move your armies from one adjacent colony to another.

The computer keeps track of where all the armies are, how many reinforcements are due each side, whether one colony is adjacent to another. who wins the battles and
keeps score.

Commands available are:
* (1) Distribute -- which allows reinforcements to be positioned;
* (2) Status -- which shows where everything is and who has what areas under his control;
* (3) Move -- which allows armies to be repositioned;
* (4) Attack -- which allows the fighting to take place; and
* (5) Finish -- to end a turn.

SOFT SECTOR also adds a Resign move, in which either side can give up.

SOFT SECTOR has provided some strategic hints and a map of the planet. There are also some surprises -- not particularly good ones -- for the warriors.

It’s an interesting and good game. The only complaint is the minor difficulty in reviewing the last continent without running through all four. Since there are only four of them, this is a small problem in what is a very interesting and well-done game.
<gallery>
Conflict.png|Conflict in game
Conflict Battle.png|Conflict Battle
</gallery>

==Links==
*[https://archive.org/details/rainbowmagazine-1981-10/page/n1 See this article as it appeared in the magazine, in Archive.org]
*[http://www.colorcomputerarchive.com/coco/Cassettes/Games/Conflict%20%28Soft%20Sector%20Marketing%29.zip Download Cassete in color computer archive]
*[http://www.colorcomputerarchive.com/coco/Disks/Games/Conflict%20%28Soft%20Sector%20Marketing%29.zip Download Disk in color computer archive]
[[Category: Software Reviews]][[Category:Games]]

Helicopter battleground for you

2020-11-05T21:07:13Z

Luis46coco: /* Links */

{{NavRainbow1981-10}}
If you enjoyed fighting around the LASER STAR last month, JARB SOFTWARE offers another sample goodie for your joysticking pleasure this month as well.

This is HELO BATTLE, which pits you against a fortified castle that shoots antiaircraft rounds at your helicopter.

To play, you have to fly your chopper to avoid the incoming fire while, at the same time, aiming and firing your gun.

The right joystick controls the copter's flight and the left the chopper's gun. Obviously, there is some eye-hand coordination necessary here! At the end of the game, your friendly COLOR Computer will let you know who won the encounter -- and will give you the option of playing again.

You can purchase HELD BATTLE on a tape with LASER STAR by sending $14.95 to JARB SOFTWARE, 1169 Florida St., Imperial Beach, CA, 92032. Please add $1 for postage and handling.

Oh...watch out for the sneaky little guy!

<gallery>
Helo Battle.png|Helicopter Battle in game
Helo Battle1.png|Helicopter Battle in game
</gallery>

The Listing:
<pre>

1 '**************************
2 '* HELO-BATTLE *
3 '* by *
4 '* JARB SOFTWARE *
5 '* (c) JARB SOFTWARE 1981 *
6 '**************************
10 CLS:PRINT@192,TAB(10)"HELO BATTLE":PRINTTAB(15)"BY":PRINTTAB(9)"JARB SOFTWARE":FORI=1TO5:PLAY"O"+STR$(I)+"V30T16L4EP8EP8EP8L1AP8EP2L4BGGEADEADDDP4":NEXTI
15 CLEAR200
20 DIMA (30, 30)
25 ALLIES=ALLIES+OS:AXIS=AXIS+TS:OS=0:TS=0
30 IF ALLIES>=200 THEN 225
35 IF AXIS>=200 THEN 225
40 S$="V30T100L64O1DD"
45 PMODE4,1:PCLS:SCREEN 1,1:A=128:B=24:A1=128:B1=96
50 T1=RND(195)+30:T2=T1
55 A$="BU20L10D10L1DE10BG10G4D4F4R20BU22R2U2L2U4R2U2L60R122L60D2R2D4L2D2R10F8R60E8BD4H10BF10F10BH10G10BE10E10BG10BU4R4D10L72G12L10BR5D5R20BL20L15U5BD5L20H5"
60 B$="BL25U20R5D5BD3D4R5U4L5BU3R5U5R5D10R20U10R5D5BD3D4R5U4L5BU3R5U5R5D20"
65 DRAW"S1BM128,28"+A$
70 GET(102,16)-(158,33),A,G
75 PCLS
80 DRAW"S3;BM"+STR$(T1)+",191"+B$:PAINT(T1,191)
85 HEIGHT=RND(191)
90 PUT(A-26,B-14)-(A+30,B+7), A,PSET
95 IF HEIGHT<=19 THEN 85
100 IF HEIGHT>=170 THEN 85
105 DRIFT=RND(32)-16
110 ES=ES+1:SOUND1,1:FORI=1TO3:CIRCLE(T1,176),I,1:NEXTI:FORI=1TO3:CIRCLE(T1,176),I,0:NEXTI
115 FOR FLAK=176 TO HEIGHT STEP-10:T1=T1+DRIFT:A1=JOYSTK(2)*4:A=A+INT(JOYSTK(0)/6.3)-5:B=B+INT(JOYSTK(1)/6.3)-5:PSET(T1,FLAK,1)
120 IFPPOINT(T2,189)=0 THEN 205
125 IFA<=28 THEN A=28
130 IFT1<=20 THEN 175
135 IFT1>=235 THEN 175
140 IFA>=225 THEN A=225
145 IFB<=24 THEN B=24
150 IFB>=171 THEN B=171
155 IFB=171 THEN 210
160 PUT(A-26,B-14)-(A+30,B+7),A,PSET:PLAYS$:IFPEEK(65280)=125ORPEEK(65280)=253GOTO195
165 PRESET(T1,FLAK)
170 NEXT FLAK
175 PLAY"O1V30T32L32BBB":FORI=1TO10:CIRCLE(T1,FLAK),I,1:NEXTI
180 E1=PPOINT(A-15,B):F1=PPOINT(A-17,B):E2=PPOINT(A+25,B):F2=PPOINT(A+23,B): E3=PPOINT(A,B-15):F3=PPOINT(A,B-13):E4=PPOINT(A,B+8):F4=PPOINT(A,B+10)
185 IF E1<>0 AND F1<>0 OR E2<>0 AND F2<>0 OR E3<>0 AND F3<>0 OR E4<>0 AND F4<>0 THEN 200
190 FORI=1TO10:CIRCLE(T1,FLAK),I,0:NEXTI:T1=T2:GOTO85
195 SF=SF+1:LINE(A,B-3)-(A1,191),PSET:CIRCLE(A1,191),2:PLAY"O1V30Tl00L64DF2DP2DP2DP2DP2D":LINE(A,B-3)-(A1,191),PRESET: FORI=1TO2:CIRCLE(A1,191),I,0:NEXTI:GOTO165
200 TS=10:FORI=1TO40STEP2:Z1=RND(255):Z2=RND(191):LINE(A,B-7)-(Z1,Z2),PSET:CIRCLE(Z1,Z2),2:CIRCLE(A,B-7),I/2: PLAY"OlV30T100L100DDV10DD":NEXTI:GOTO25
205 OS=10:FORI=lTO40:CIRCLE(T2,191),I,1,1.5,.5,0: PLAY"01V30T100DV20DV10D":NEXTI:GOTO25
210 T3=RND(255):DRAW"S4;BM"+STR$(T3)+",191E3F3BH3U4L1U1R2D1L1D2L3BR3R3":PLAY"O4T32V30L8AEP1DFGBP1AAEDCP1FP1FP1BP1BP1D1DP1DF1DP1":FORI=1TO100:NEXTI:LINE(T3,185)-(A,B-7),PSET:PLAY"O1V30T100L64DP2DP2DP2DP2DP2DP2DP2DP2DP2":LINE(T3,185)-(A,B-7),PSET
225 SCREEN0,1:CLS:FORI=1TO10:CLSRND(8):SOUNDI*10,I:NEXTI
230 CLS0:PRINT@64,STRING$(10,128);:PRINT"FINAL SCORES ",:PRINTSTRING$(8,128);
235 PRINT@192,TAB(10)"YOUR SCORE=";ALLIES*5:PRINTTAB(10)"TOTAL SHOTS=";SF
240 PRINTSTRING$(32,126);
245 PRINTTAB(10)"ENEMY SCORE=";AXIS*5:PRINTTAB(10)"TOTAL SHOTS=";ES
250 PRINTSTRING$(32,128);
255 IF ALLIES>AXIS THEN 275
260 IF ALLIES<AXIS THEN 280
265 IF ALLIES=AXIS THEN 285
270 GOTO235
275 PRINT" YOU HAYE WON THIS BATTLE":GOTO290
280 PRINT" THE ENEMY HAS WON THIS BATTLE":GOTO290
285 PRINT" THIS BATTLE IS DECLARED A TIE":GOTO290
290 PRINTSTRING$(32,128);:PRINT"DO YOU WISH TO PLAY AGAIN (Y/N)?";
295 PA$=INKEY$:IFPA$=""THEN295
300 IFPA$<>"Y"THENEND
305 GOTO15
</pre>
Note: Line 195, source error, change "169" to "191" in "FORI=1TO2:CIRCLE(A1,191),I,0:"
==Links==
*[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]
*Virtual disk with programs from Rainbow magazine 10-1981: [[File:Rainbow 1981-10.dsk]]
[[Category:Magazine Games]]

Helicopter battleground for you

2020-11-05T21:06:34Z

Luis46coco:

{{NavRainbow1981-10}}
If you enjoyed fighting around the LASER STAR last month, JARB SOFTWARE offers another sample goodie for your joysticking pleasure this month as well.

This is HELO BATTLE, which pits you against a fortified castle that shoots antiaircraft rounds at your helicopter.

To play, you have to fly your chopper to avoid the incoming fire while, at the same time, aiming and firing your gun.

The right joystick controls the copter's flight and the left the chopper's gun. Obviously, there is some eye-hand coordination necessary here! At the end of the game, your friendly COLOR Computer will let you know who won the encounter -- and will give you the option of playing again.

You can purchase HELD BATTLE on a tape with LASER STAR by sending $14.95 to JARB SOFTWARE, 1169 Florida St., Imperial Beach, CA, 92032. Please add $1 for postage and handling.

Oh...watch out for the sneaky little guy!

<gallery>
Helo Battle.png|Helicopter Battle in game
Helo Battle1.png|Helicopter Battle in game
</gallery>

The Listing:
<pre>

1 '**************************
2 '* HELO-BATTLE *
3 '* by *
4 '* JARB SOFTWARE *
5 '* (c) JARB SOFTWARE 1981 *
6 '**************************
10 CLS:PRINT@192,TAB(10)"HELO BATTLE":PRINTTAB(15)"BY":PRINTTAB(9)"JARB SOFTWARE":FORI=1TO5:PLAY"O"+STR$(I)+"V30T16L4EP8EP8EP8L1AP8EP2L4BGGEADEADDDP4":NEXTI
15 CLEAR200
20 DIMA (30, 30)
25 ALLIES=ALLIES+OS:AXIS=AXIS+TS:OS=0:TS=0
30 IF ALLIES>=200 THEN 225
35 IF AXIS>=200 THEN 225
40 S$="V30T100L64O1DD"
45 PMODE4,1:PCLS:SCREEN 1,1:A=128:B=24:A1=128:B1=96
50 T1=RND(195)+30:T2=T1
55 A$="BU20L10D10L1DE10BG10G4D4F4R20BU22R2U2L2U4R2U2L60R122L60D2R2D4L2D2R10F8R60E8BD4H10BF10F10BH10G10BE10E10BG10BU4R4D10L72G12L10BR5D5R20BL20L15U5BD5L20H5"
60 B$="BL25U20R5D5BD3D4R5U4L5BU3R5U5R5D10R20U10R5D5BD3D4R5U4L5BU3R5U5R5D20"
65 DRAW"S1BM128,28"+A$
70 GET(102,16)-(158,33),A,G
75 PCLS
80 DRAW"S3;BM"+STR$(T1)+",191"+B$:PAINT(T1,191)
85 HEIGHT=RND(191)
90 PUT(A-26,B-14)-(A+30,B+7), A,PSET
95 IF HEIGHT<=19 THEN 85
100 IF HEIGHT>=170 THEN 85
105 DRIFT=RND(32)-16
110 ES=ES+1:SOUND1,1:FORI=1TO3:CIRCLE(T1,176),I,1:NEXTI:FORI=1TO3:CIRCLE(T1,176),I,0:NEXTI
115 FOR FLAK=176 TO HEIGHT STEP-10:T1=T1+DRIFT:A1=JOYSTK(2)*4:A=A+INT(JOYSTK(0)/6.3)-5:B=B+INT(JOYSTK(1)/6.3)-5:PSET(T1,FLAK,1)
120 IFPPOINT(T2,189)=0 THEN 205
125 IFA<=28 THEN A=28
130 IFT1<=20 THEN 175
135 IFT1>=235 THEN 175
140 IFA>=225 THEN A=225
145 IFB<=24 THEN B=24
150 IFB>=171 THEN B=171
155 IFB=171 THEN 210
160 PUT(A-26,B-14)-(A+30,B+7),A,PSET:PLAYS$:IFPEEK(65280)=125ORPEEK(65280)=253GOTO195
165 PRESET(T1,FLAK)
170 NEXT FLAK
175 PLAY"O1V30T32L32BBB":FORI=1TO10:CIRCLE(T1,FLAK),I,1:NEXTI
180 E1=PPOINT(A-15,B):F1=PPOINT(A-17,B):E2=PPOINT(A+25,B):F2=PPOINT(A+23,B): E3=PPOINT(A,B-15):F3=PPOINT(A,B-13):E4=PPOINT(A,B+8):F4=PPOINT(A,B+10)
185 IF E1<>0 AND F1<>0 OR E2<>0 AND F2<>0 OR E3<>0 AND F3<>0 OR E4<>0 AND F4<>0 THEN 200
190 FORI=1TO10:CIRCLE(T1,FLAK),I,0:NEXTI:T1=T2:GOTO85
195 SF=SF+1:LINE(A,B-3)-(A1,191),PSET:CIRCLE(A1,191),2:PLAY"O1V30Tl00L64DF2DP2DP2DP2DP2D":LINE(A,B-3)-(A1,191),PRESET: FORI=1TO2:CIRCLE(A1,191),I,0:NEXTI:GOTO165
200 TS=10:FORI=1TO40STEP2:Z1=RND(255):Z2=RND(191):LINE(A,B-7)-(Z1,Z2),PSET:CIRCLE(Z1,Z2),2:CIRCLE(A,B-7),I/2: PLAY"OlV30T100L100DDV10DD":NEXTI:GOTO25
205 OS=10:FORI=lTO40:CIRCLE(T2,191),I,1,1.5,.5,0: PLAY"01V30T100DV20DV10D":NEXTI:GOTO25
210 T3=RND(255):DRAW"S4;BM"+STR$(T3)+",191E3F3BH3U4L1U1R2D1L1D2L3BR3R3":PLAY"O4T32V30L8AEP1DFGBP1AAEDCP1FP1FP1BP1BP1D1DP1DF1DP1":FORI=1TO100:NEXTI:LINE(T3,185)-(A,B-7),PSET:PLAY"O1V30T100L64DP2DP2DP2DP2DP2DP2DP2DP2DP2":LINE(T3,185)-(A,B-7),PSET
225 SCREEN0,1:CLS:FORI=1TO10:CLSRND(8):SOUNDI*10,I:NEXTI
230 CLS0:PRINT@64,STRING$(10,128);:PRINT"FINAL SCORES ",:PRINTSTRING$(8,128);
235 PRINT@192,TAB(10)"YOUR SCORE=";ALLIES*5:PRINTTAB(10)"TOTAL SHOTS=";SF
240 PRINTSTRING$(32,126);
245 PRINTTAB(10)"ENEMY SCORE=";AXIS*5:PRINTTAB(10)"TOTAL SHOTS=";ES
250 PRINTSTRING$(32,128);
255 IF ALLIES>AXIS THEN 275
260 IF ALLIES<AXIS THEN 280
265 IF ALLIES=AXIS THEN 285
270 GOTO235
275 PRINT" YOU HAYE WON THIS BATTLE":GOTO290
280 PRINT" THE ENEMY HAS WON THIS BATTLE":GOTO290
285 PRINT" THIS BATTLE IS DECLARED A TIE":GOTO290
290 PRINTSTRING$(32,128);:PRINT"DO YOU WISH TO PLAY AGAIN (Y/N)?";
295 PA$=INKEY$:IFPA$=""THEN295
300 IFPA$<>"Y"THENEND
305 GOTO15
</pre>
Note: Line 195, source error, change "169" to "191" in "FORI=1TO2:CIRCLE(A1,191),I,0:"
==Links==
[https://archive.org/details/rainbowmagazine-1981-10/page/n7 See this article as it appeared in the magazine, in Archive.org]
Virtual disk with programs from Rainbow magazine 10-1981: [[File:Rainbow 1981-10.dsk]]
[[Category:Magazine Games]]

Teacher's helper, student's friend (Rainbow 1981-09)

2020-11-05T18:32:06Z

Luis46coco: /* Links */

{{NavRainbow1981-09}}
For the teacher amongst us, GRADER can be a reaI boon!

However, we would also emphasize that GRADER can easily be adapted for keeping up to date records on a single student. By using GRADER, the student would be able to chart his or her progress throughout a grading period and know where he stands at all times. It’s also a good way for parents to keep track of how a student is doing.

We will go through GRADER part by part so it will be easier to adapt It, if necessary.

Lines 10-25 initiate the program and ask for the type grade you will be compiling, Because, in our use, the reading grade only has daily averages, we wrote a special routine for reading grades at lines 600-780. This could be your whole program if all grades are weighted the same.

Lines 60-110 and 120-180 do the actual computation of grades. Since this particular program was written for third grade level, there are a lot of children who make 100's, especially on daily work. To eliminate the tedium of entering all those 100's, we added the subroutines 340-380 and 390-430 to make the inputting of 100's much easier. This really cuts down on the time it takes to enter the grades.

We chose to enter the grades as a string and then take the value of the string so we could assign the word "end" to break out of the grade input loop. While it would have been just as easy to use something like "IF S>150 GOTO 110" and then use any real high number, it seemed easier to use an easily-recognized word to break out of the loop.

Please also note lines 70 and 140. These take care of mistakes. If an incorrect grade is entered, just enter the incorrect grade again as a minus. That not only reduces the total by the incorrect number, it also reduces the number of "chances" by one, lines 110 and 100 take the average of the types of grades.

Line 190 is where the allocation of weight to the types of grades is made. In this instance, teats are worth one-third and daily work two-thirds. These percentages are easily changed to heat whatever needs you have.

The remainder of the program is devoted to the printout. Quite a bit of attention was paid to this because, in the situation for which it was written, a great many students are "traded" for either enriched or remedial work. The printout, including the name, subject, number of "chance," total points and number of 100's constitutes a full report to the student's "home" teacher. It means once the grade are computed, than do not have to be re-recorded elsewhere.

Also, to make life easier, the program is set to "form feed" for a 66-line piece of paper. This mikes the whole report easier to deal with.

There are certain economies which could have been employed to save memory space, particularly in the printout image statements, but, since this program fits very comfortably in 4k, we did not see that as necessary. Of course, you need Extended Color Basic to use the PRINTUSING statement, but. If you do not have that, it is easily convertable.

The listing:
<pre>2 '**********************
3 '* GRADER 2.1 *
4 '* (c) FALSOFT 1981 *
5 '**********************
10 PU$="GRADE"
20 INPUT "SUBJECT";UP$:SB$=UP$+PU$
25 IF UP$="READING" THEN 600
30 CLS
40 INPUT "STUDENT'S NAME";A$
50 GOSUB340
60 INPUT "enter DAILY SCORE (OR END)";S$
70 IF S$="END" THEN 110
75 S=VAL(S$)
80 IF S<0 GOTO 320
90 N=N+1:D=S+D
100 GOTO 60
110 Z=D/N:CLS
120 GOSUB390
130 INPUT "enter TEST SCORE (OR END)";T$
140 IF T$="END" THEN 100
145 T=VAL(T$)
150 IF T<0 GOTO 330
160 M=M+1:B=T+B
170 GOTO 130
180 Y=B/M:CLS
190 X=(Y*.334)+(Z*.666)
200 CLS:PRINT
205 IF LC=4 THEN PRINT#-2, PRINT#-2,"":LC=1:GOTO210
207 LC=LC+1
210 GOSUB400
220 PRINT#-2,""
230 PRINT#-2,"DRILY AVERAGE ",:PRINT#-2,USING"##.##",Z
240 PRINT#-2,"TEST AVERAGE ",:PRINT#-2,USING"##.##",Y
250 PRINT#-2,CHR$(31);"GRADE AVERAGE ";:PRINT#-2,USING"##.##",X:PRINT#-2,CHR$(3 0)
260 PRINT#-2," FOR YOUR INFORMATION..."
270 PRINT#-2,"":PRINT#-2,"DAILY PAPERS";:PRINT#-2,TAB(13);:PRINT#-2,USING"##";N;:PRINT#-2,TAB(18)"POINTS";:PRINT#-2,TAB(23);:PRINT#-2,USING"#,###",D;: PRINT#-2,TAB(29)"......(Student made"N"100's on dally work)"
280 V=N+M:F=D+B
290 PRINT#-2,"TOTAL TESTS";:PRINT#-2,TAB(13);:PRINT#-2,USING"##",M,:PRINT#-2,TAB(18)"POINTS";:PRINT#-2,TAB(23);:PRINT#-2,USING"#,###";B;:PRINT#-2,TAB(29)"..... (Student made"K"100's on tests)"
300 PRINT#-2,"CHANCES";:PRINT#-2,TAB(13);PRINT#-2,USING"##";V;:PRINT#-2,TAB(18)"POINTS";:PRINT#-2,TAB(23);:PRINT#-2,USING"#,###";F
310 GOTO 448
320 N=N-1:D=S+D:GOTO60
330 M=M-1:B=T+B:GOTO130
340 INPUT "NOW MANY 100'S DID THIS STUDENT MAKE IN DAILY WORK";N
350 Q=N*100
360 N=N+H
370 D=Q+D
380 RETURN
390 INPUT "NOW MANY 100'S DID THIS STUDENT MAKE ON TESTS";K
400 Q=K*100
410 M=M+K
420 B=Q+B
430 RETURN
440 PRINT#-2,STRING$(8O,"*")
445 PRINT#-2,CHR$(18)""CHR$(38)
450 PRINT#-2,""
460 N=0:D=B:Z=0:S=0:T=0:M=0:B=0:Y=0:X=0:V=0:F=8:Q=0:K=0
470 GOTO30
480 R=LEN(SB$):C=42-A:PRINT#-2,CHR$(31);TAB(C/2)S0$
490 PRINT#-2,CHR$(30);TAB(37)"FOR";CHR$(31)
500 A=LEN(A$):C=40-R:PRINT#-2,TAB(C/2)A$;CHR$(30)
510 RETURN
600 CLS
610 INPUT "STUDENT'S NAME";A$
620 COSUB340
630 INPUT "enter DAILY SCORE (OR END)";S$
640 IF S$="END" THEN 680
643 S=VAL(S$)
650 IF S<0 THEN N=N-1:D=S+D:GOTO630
660 N=N+1:D=S+D
670 GOTO630
680 Z=D/N:CLS
690 GOSUB400
700 PRINT#-2,""
710 PRINT#-2,CHR$(31);"GRADE AVERAGE ";:PRINT#-2,USING"##.##";Z
720 PRINT#-2,CHR$(30)
730 PRINT#-2," FOR YOUR INFORMATION..."
740 PRINT#-2,"":PRINT#-2,"GRADES";:PRINT#-2,TAB(13);:PRINT#-2,USING"##";N;:PRINT#-2,TAB(18)"POINTS";:PRINT#-2,TAB(23);:PRINT#-2,USING"#,###";D;: PRINT#-2,TAB(29)".....(Student made"N"100's on daily work)"
750 N=0:D=0:Z=0:S=B:Q=0:H=0
760 PRINT#-2,STRING$(80,"*")
770 PRINT#-2,""
780 GOTO600
</pre>
==Links==
[https://archive.org/details/rainbowmagazine-1981-09/page/n3 See this article as it appeared in the magazine] 
Virtual disk with programs from Rainbow magazine 08-1981: [[File:Rainbow 1981-09.dsk]]
[[Category:Education]]

Teacher's helper, student's friend (Rainbow 1981-09)

2020-11-05T18:29:31Z

Luis46coco: /* Links */

{{NavRainbow1981-09}}
For the teacher amongst us, GRADER can be a reaI boon!

However, we would also emphasize that GRADER can easily be adapted for keeping up to date records on a single student. By using GRADER, the student would be able to chart his or her progress throughout a grading period and know where he stands at all times. It’s also a good way for parents to keep track of how a student is doing.

We will go through GRADER part by part so it will be easier to adapt It, if necessary.

Lines 10-25 initiate the program and ask for the type grade you will be compiling, Because, in our use, the reading grade only has daily averages, we wrote a special routine for reading grades at lines 600-780. This could be your whole program if all grades are weighted the same.

Lines 60-110 and 120-180 do the actual computation of grades. Since this particular program was written for third grade level, there are a lot of children who make 100's, especially on daily work. To eliminate the tedium of entering all those 100's, we added the subroutines 340-380 and 390-430 to make the inputting of 100's much easier. This really cuts down on the time it takes to enter the grades.

We chose to enter the grades as a string and then take the value of the string so we could assign the word "end" to break out of the grade input loop. While it would have been just as easy to use something like "IF S>150 GOTO 110" and then use any real high number, it seemed easier to use an easily-recognized word to break out of the loop.

Please also note lines 70 and 140. These take care of mistakes. If an incorrect grade is entered, just enter the incorrect grade again as a minus. That not only reduces the total by the incorrect number, it also reduces the number of "chances" by one, lines 110 and 100 take the average of the types of grades.

Line 190 is where the allocation of weight to the types of grades is made. In this instance, teats are worth one-third and daily work two-thirds. These percentages are easily changed to heat whatever needs you have.

The remainder of the program is devoted to the printout. Quite a bit of attention was paid to this because, in the situation for which it was written, a great many students are "traded" for either enriched or remedial work. The printout, including the name, subject, number of "chance," total points and number of 100's constitutes a full report to the student's "home" teacher. It means once the grade are computed, than do not have to be re-recorded elsewhere.

Also, to make life easier, the program is set to "form feed" for a 66-line piece of paper. This mikes the whole report easier to deal with.

There are certain economies which could have been employed to save memory space, particularly in the printout image statements, but, since this program fits very comfortably in 4k, we did not see that as necessary. Of course, you need Extended Color Basic to use the PRINTUSING statement, but. If you do not have that, it is easily convertable.

The listing:
<pre>2 '**********************
3 '* GRADER 2.1 *
4 '* (c) FALSOFT 1981 *
5 '**********************
10 PU$="GRADE"
20 INPUT "SUBJECT";UP$:SB$=UP$+PU$
25 IF UP$="READING" THEN 600
30 CLS
40 INPUT "STUDENT'S NAME";A$
50 GOSUB340
60 INPUT "enter DAILY SCORE (OR END)";S$
70 IF S$="END" THEN 110
75 S=VAL(S$)
80 IF S<0 GOTO 320
90 N=N+1:D=S+D
100 GOTO 60
110 Z=D/N:CLS
120 GOSUB390
130 INPUT "enter TEST SCORE (OR END)";T$
140 IF T$="END" THEN 100
145 T=VAL(T$)
150 IF T<0 GOTO 330
160 M=M+1:B=T+B
170 GOTO 130
180 Y=B/M:CLS
190 X=(Y*.334)+(Z*.666)
200 CLS:PRINT
205 IF LC=4 THEN PRINT#-2, PRINT#-2,"":LC=1:GOTO210
207 LC=LC+1
210 GOSUB400
220 PRINT#-2,""
230 PRINT#-2,"DRILY AVERAGE ",:PRINT#-2,USING"##.##",Z
240 PRINT#-2,"TEST AVERAGE ",:PRINT#-2,USING"##.##",Y
250 PRINT#-2,CHR$(31);"GRADE AVERAGE ";:PRINT#-2,USING"##.##",X:PRINT#-2,CHR$(3 0)
260 PRINT#-2," FOR YOUR INFORMATION..."
270 PRINT#-2,"":PRINT#-2,"DAILY PAPERS";:PRINT#-2,TAB(13);:PRINT#-2,USING"##";N;:PRINT#-2,TAB(18)"POINTS";:PRINT#-2,TAB(23);:PRINT#-2,USING"#,###",D;: PRINT#-2,TAB(29)"......(Student made"N"100's on dally work)"
280 V=N+M:F=D+B
290 PRINT#-2,"TOTAL TESTS";:PRINT#-2,TAB(13);:PRINT#-2,USING"##",M,:PRINT#-2,TAB(18)"POINTS";:PRINT#-2,TAB(23);:PRINT#-2,USING"#,###";B;:PRINT#-2,TAB(29)"..... (Student made"K"100's on tests)"
300 PRINT#-2,"CHANCES";:PRINT#-2,TAB(13);PRINT#-2,USING"##";V;:PRINT#-2,TAB(18)"POINTS";:PRINT#-2,TAB(23);:PRINT#-2,USING"#,###";F
310 GOTO 448
320 N=N-1:D=S+D:GOTO60
330 M=M-1:B=T+B:GOTO130
340 INPUT "NOW MANY 100'S DID THIS STUDENT MAKE IN DAILY WORK";N
350 Q=N*100
360 N=N+H
370 D=Q+D
380 RETURN
390 INPUT "NOW MANY 100'S DID THIS STUDENT MAKE ON TESTS";K
400 Q=K*100
410 M=M+K
420 B=Q+B
430 RETURN
440 PRINT#-2,STRING$(8O,"*")
445 PRINT#-2,CHR$(18)""CHR$(38)
450 PRINT#-2,""
460 N=0:D=B:Z=0:S=0:T=0:M=0:B=0:Y=0:X=0:V=0:F=8:Q=0:K=0
470 GOTO30
480 R=LEN(SB$):C=42-A:PRINT#-2,CHR$(31);TAB(C/2)S0$
490 PRINT#-2,CHR$(30);TAB(37)"FOR";CHR$(31)
500 A=LEN(A$):C=40-R:PRINT#-2,TAB(C/2)A$;CHR$(30)
510 RETURN
600 CLS
610 INPUT "STUDENT'S NAME";A$
620 COSUB340
630 INPUT "enter DAILY SCORE (OR END)";S$
640 IF S$="END" THEN 680
643 S=VAL(S$)
650 IF S<0 THEN N=N-1:D=S+D:GOTO630
660 N=N+1:D=S+D
670 GOTO630
680 Z=D/N:CLS
690 GOSUB400
700 PRINT#-2,""
710 PRINT#-2,CHR$(31);"GRADE AVERAGE ";:PRINT#-2,USING"##.##";Z
720 PRINT#-2,CHR$(30)
730 PRINT#-2," FOR YOUR INFORMATION..."
740 PRINT#-2,"":PRINT#-2,"GRADES";:PRINT#-2,TAB(13);:PRINT#-2,USING"##";N;:PRINT#-2,TAB(18)"POINTS";:PRINT#-2,TAB(23);:PRINT#-2,USING"#,###";D;: PRINT#-2,TAB(29)".....(Student made"N"100's on daily work)"
750 N=0:D=0:Z=0:S=B:Q=0:H=0
760 PRINT#-2,STRING$(80,"*")
770 PRINT#-2,""
780 GOTO600
</pre>
==Links==
[https://archive.org/details/rainbowmagazine-1981-09/page/n3 See this article as it appeared in the magazine] 
Virtual disk with Rainbow 08-1981 programs: [[File:Rainbow 1981-09.dsk]]
[[Category:Education]]

Review: Conflict (Rainbow 1981-10)

2020-11-05T00:11:58Z

Luis46coco: /* Links */

{{NavRainbow1981-10}}
If you like Risk, you’ll really appreciate "[[Conflict|CONFLICT]]".

Available from [[Soft Sector Marketing|SOFT SECTOR MARKETING]] (6250 Middlebelt Road, Garden City, Mich., 48135 for $14.

two-player game that lets you concentrate on keeping up with the strategy while the computer does all the hard work.

In case you have never played its sister game, [[Conflict|CONFLICT]] takes place on a mythical planet in 2150. The two superpowers have both landed on the planet -- which has four continents -- and are vying for control. Whoever does get control will be able to use all the planet’s resources to help his country back on earth. The winner will insure his side natural resources for the future. The loser, well...

There is a total of 20 colonies on the four continents and the computer will apportion 40 armies in eight of them for each side. Each side must try to conquer whole continents -- in other words, occupy every colony on each continent. Reinforcements are awarded based on the number of colonies and continents a side control.

Battles are won and lost by the roll of the dice, which are graphically represented on the screen. There is no weight given to the number of armies attacking one another, except -- obviously -- if you have more armies to lose in a given battle, you have the advantage.

You cannot attack willy-nilly, either. Only adjacent colonies can attack one another. However, you can move your armies from one adjacent colony to another.

The computer keeps track of where all the armies are, how many reinforcements are due each side, whether one colony is adjacent to another. who wins the battles and
keeps score.

Commands available are:
* (1) Distribute -- which allows reinforcements to be positioned;
* (2) Status -- which shows where everything is and who has what areas under his control;
* (3) Move -- which allows armies to be repositioned;
* (4) Attack -- which allows the fighting to take place; and
* (5) Finish -- to end a turn.

SOFT SECTOR also adds a Resign move, in which either side can give up.

SOFT SECTOR has provided some strategic hints and a map of the planet. There are also some surprises -- not particularly good ones -- for the warriors.

It’s an interesting and good game. The only complaint is the minor difficulty in reviewing the last continent without running through all four. Since there are only four of them, this is a small problem in what is a very interesting and well-done game.
<gallery>
Conflict.png|Conflict in game
Conflict Battle.png|Conflict Battle
</gallery>

==Links==
*[https://archive.org/details/rainbowmagazine-1981-10/page/n1 See this article as it appeared in the magazine, in Archive.org]
*[http://www.colorcomputerarchive.com/coco/Cassettes/Games/Conflict%20%28Soft%20Sector%20Marketing%29.zip Download Cassete]
*[http://www.colorcomputerarchive.com/coco/Disks/Games/Conflict%20%28Soft%20Sector%20Marketing%29.zip Download Disk]
[[Category: Software Reviews]][[Category:Games]]

Review: Conflict (Rainbow 1981-10)

2020-11-05T00:05:50Z

Luis46coco: /* Links */

{{NavRainbow1981-10}}
If you like Risk, you’ll really appreciate "[[Conflict|CONFLICT]]".

Available from [[Soft Sector Marketing|SOFT SECTOR MARKETING]] (6250 Middlebelt Road, Garden City, Mich., 48135 for $14.

two-player game that lets you concentrate on keeping up with the strategy while the computer does all the hard work.

In case you have never played its sister game, [[Conflict|CONFLICT]] takes place on a mythical planet in 2150. The two superpowers have both landed on the planet -- which has four continents -- and are vying for control. Whoever does get control will be able to use all the planet’s resources to help his country back on earth. The winner will insure his side natural resources for the future. The loser, well...

There is a total of 20 colonies on the four continents and the computer will apportion 40 armies in eight of them for each side. Each side must try to conquer whole continents -- in other words, occupy every colony on each continent. Reinforcements are awarded based on the number of colonies and continents a side control.

Battles are won and lost by the roll of the dice, which are graphically represented on the screen. There is no weight given to the number of armies attacking one another, except -- obviously -- if you have more armies to lose in a given battle, you have the advantage.

You cannot attack willy-nilly, either. Only adjacent colonies can attack one another. However, you can move your armies from one adjacent colony to another.

The computer keeps track of where all the armies are, how many reinforcements are due each side, whether one colony is adjacent to another. who wins the battles and
keeps score.

Commands available are:
* (1) Distribute -- which allows reinforcements to be positioned;
* (2) Status -- which shows where everything is and who has what areas under his control;
* (3) Move -- which allows armies to be repositioned;
* (4) Attack -- which allows the fighting to take place; and
* (5) Finish -- to end a turn.

SOFT SECTOR also adds a Resign move, in which either side can give up.

SOFT SECTOR has provided some strategic hints and a map of the planet. There are also some surprises -- not particularly good ones -- for the warriors.

It’s an interesting and good game. The only complaint is the minor difficulty in reviewing the last continent without running through all four. Since there are only four of them, this is a small problem in what is a very interesting and well-done game.
<gallery>
Conflict.png|Conflict in game
Conflict Battle.png|Conflict Battle
</gallery>

==Links==
*[https://archive.org/details/rainbowmagazine-1981-10/page/n1 See this article as it appeared in the magazine, in Archive.org]
*[http://www.colorcomputerarchive.com/coco/Cassettes/Games/Conflict%20%28Soft%20Sector%20Marketing%29.zip Download Cassete]
*[http://www.colorcomputerarchive.com/coco/Disks/Games/Conflict%20%28Soft%20Sector%20Marketing%29.zip Download Disk]
*Virtual disk with programs from Rainbow 10-1981: [[File:Rainbow 1981-10.dsk]]
[[Category: Software Reviews]][[Category:Games]]

Make your kids like the quiz kids (Rainbow 1981-09)

2020-11-05T00:04:13Z

Luis46coco: /* Links */

{{NavRainbow1981-09}}
The "QUIZ" program listed below was written by FALSOFT for use in preparing schoolchildren for tests. Its primary aim was to make it easy to enter questions and answers.
One of the main advantages of this program is that it automatically counts the number of data statements, thus eliminating the need to set any parameters. This is primarily true in line 400, which insures that the student cannot memorize the order of the answers, because the program selects the questions at random.
It is important to remember that most questions can be asked two ways. Note line 601. The question there is "Capital of Kentucky?" and the answer is "Frankfort." But, in many cases, a teacher might ask the question "backwards,' or ask "What state is Frankfort the capital of?"

You can see how this situation is handled in line 601. We didn't do it for every line, simple because we're sure you will have your own sets of questions and answers.
This does work and is fun for the kids. In fact, this program helped one youngster in Kentucky raise her grade in one course by two letters in six weeks! And, typing data statements was a lot easier than sitting down and drilling the student over and over. The student also has the advantage of deciding on a short or a long session, and there is a test "report card" at the end. If you want to check your student, just add PRINT#-2, statements in line 350 and you'll have a record of how the sessions went.
The listing is below:
==Program==
3 '***********************
4 '* QUIZ *
5 '* ADAPTED FOR COLOR *
6 '* COMPUTER *
7 '* BY FALSOFT *
10 CLS:PRINT:INPUT"<ENTER> YOUR NAME";NA$
20 FOR ZZ=1 TO 1000:READ Q$:IF Q$="END" THEN 30 ELSE Y=Y+1:READ A$:NEXT
30 CLS:PRINT:PRINT" HELLO, "NA$:PRINT:PRINT" THIS IS A TEST PROGRAM. IF YOU ANSWER THESE QUESTIONS RIGHTYOU WILL GET ANOTHER ONE.":PRINT:PRINT" IF YOU ANSWER WRONG, THE CORRECT ANSWER WILL BE GIVEN.":PRINT
35 PRINT" IF YOU SPELL THE ANSWER WRONG, IT WILL BE WRONG."
40 PRINT:INPUT " ARE YOU READY FOR THE TEST TOBEGIN";RR$
42 IF LEFT$(RR$,1)="Y" THEN 70
45 CLS:PRINT@236,"WHY NOT?":FOR X=1 TO 500:NEXT:GOTO30
70 CLS:PRINT:PRINT:INPUT" HOW MANY QUESTIONS DO YOU WANT TO TRY";N
90 C=0
100 N1=0
110 '
120 RESTORE
230 IF C=N THEN 550
240 C=C+1
330 CLS:PRINT
360 PRINT"QUESTION #";C
370 PRINTSTRING$(12,"-")
380 PRINT:PRINT
400 X=RND(Y)
410 IF S(X)=1 THEN 400
420 S(X)=1
430 FOR Q=1TOX
440 READ Q$,A$
450 NEXT Q
460 PRINTQ$
470 INPUT R$
480 IF R$=A$ THEN PRINT "CORRECT!":N1=N1+1:PRINT@448,"":INPUT" PRESS <ENTER> TO CONTINUE";AZ$:GOTO110
490 PRINT" INCORRECT ANSWER":PRINT:PRINT" THE CORRECT ANSWER IS........"A$:PRINT@451,"";:INPUT"PRESS <ENTER> TO CONTINUE";AZ$:GOTO110
550 CLS:PRINT:PRINT"WELL, "NA$"...":PRINT:PRINT"OUT OF"N" QUESTIONS, YOU ANSWERED"N1" RIGHT.":P=(N1/N)*100:PRINT:PRINTUSING"THAT'S ###% RIGHT";P
600'*** Q&A'S GO HERE ****
601 DATA CAPITAL OF KENTUCKY,FRANKFORT,WHAT STATE IS FRANKFORT THE CAPITAL OF,KENTUCKY
602 DATA YELLOWHAMMER STATE,ALABAMA
603 DATA SPRINGFIELD IS THE CAPITAL OF,ILLINOIS
604 DATA THE OLD DOMINION STATE,VIRGINIA
605 DATA CAPITAL OF TEXAS,AUSTIN
606 DATA CREAT LAKE STATE,MICHIGAN
607 DATA HOOSIER STATE,INDIANA
699 DATA END
==Notes==
Note: It has some important defects, if there are more than 10 questions, it is necessary to use DIM for S(), it also has problems if more questions are asked than there are, it remains looking for a question not asked
==Screen captures==
<gallery>
Quiz.png
Quiz-2.png
Quiz-3.png
</gallery>
==Links==
[https://archive.org/details/rainbowmagazine-1981-09/page/n13 See this article as it appeared in the magazine, page 14] 
Virtual disk with programs from Rainbow 08-1981: [[File:Rainbow 1981-09.dsk]]
[[Category:Games]]

Are you psychotic, psychic (Rainbow 1981-09)

2020-11-05T00:03:42Z

Luis46coco: /* Links */

{{NavRainbow1981-09}}
The following program (pat) is brought to you courtesy or JARB Software. It is psychic aptitude Test it format, and is a lot of fun to see how psychic you might be.

Note that by comparison to QUIZ, the program itself is pretty short --from lines 10 to 290, and a great deal of that is instruction.

You should also note that this one is more gee-whiz than is QUIZ. It employs the use of sounds and colors to a greater degree than does QUIZ. That certainly will make it more appealing to younger test-takers.

PAT is easily adaptable to other uses, particularly school review. It does require that the student go through from start to finish, but more than makes up for it by the colors and sounds.

For those of you who do not want to type in the program (and then debug the typos), PAT can be ordered from JARB Software, 1169 Florida St., Imperial Beach, CA 92032 for $14.93 Plus $1 for shipping. You'll set a Bonus though, a copy of JARB BIORHYTHM included on the same tape. Although JARB chief programmer Joe Bennett promises us a copy of JARB BIORHYTHN for a future issue of the RAINBOW, it’s a long program and he emphasizes the bargain in sending off for the tape.

The PAT listing:

1 '*****************************
2 '* PSYCHIC APTITUDE TEST *
3 '* BY *
4 '* JARB SOFTWARE *
5 '* (C) JARB SOFTWARE 1981 *
13 CLEAR1000:CLS:A=0:B=0
20 FORI=1TO100:CLSRND(8)
30 PRINT@229," PSYCNIC APTITUDE TEST ";:PRINT@270," BY ";:PRINT@297," JARB SOFTWARE ";
40 SOUND100+I,1:NEXTI
50 CLS0:PRINT@230, "(C) JARB SOFTWARE 1981";:FORI=1TO23:SOUNDI*2,1:SOUNDI*3, 1:SOUNDI*10,1:NEXTI
60 CLS:PRINT@128,"INSTRUCTIONS:":PRINT" QUESTIONS WILL BE ASKED OF YOU.";:PRINT"ANSWER THESE AS HONESTLY AS YOU":PRINT"CAN WHEN ALL QUESTIONS HAVE BEEN";:PRINT"ANSWERED, YOU WILL RECEIVE YOUR":PRINT'FINAL SCORE AND EVALUATION."
70 PRINT" THAT'S ALL THERE IS TO IT. ";:PRINT"HAVEFUN, AND PRESS <ENTER> TO ";:PRINT"BEGIN THE TEST."
80 SOUND120,4:SOUND130,4:SOUND150,4:SOUND130,4:A$=INKEY$:IFA$=""THEN80ELSE90
90 SOUND80,2:CLSRND(8):SOUND90,2:CLSRND(B):SOUND100,2:CLSRND(8):SOUND110,12:CLS
100 A=A+1:READA$,B$,C$:IFA$="END"THEN190
110 CLS0:PRINT@0,"THIS IS QUESTION #"A
120 PRINT@64,A$+CHR$(63):PRINT:PRINTB$+" ";C$
130 INPUT"PLEASE CHOOSE ONE NUMBER";B
140 IFB<=0ORB>=3THEN110
150 IFB=1THENGOSUB180ELSE170
160 CLS:IFA=18THEN190ELSE170
170 CLS:GOTO90
180 IFB=1THENSC=SC+10:RETURN
190 IF A=18 THEN SC=INT((SC*10*11.1111+1)/100)
208 IFSC<=50THENAR=1110ELSEIFSC<=100THENAR=1208ELSEIFSC<=150THENAR=1305ELSElFSC>=151THENAR=1400
210 CLS:PRINTTAB(1)"Y0UR FINAL SCORE IS";SC;"POINTS"
220 PRINT
230 PRINTTAB(10)"0-50 POINTS":PRINT"MAY HAVE PSYCHIC POWERS WORK ON":PRINT"THEM TO INCREASE THEIR STRENGTH"
240 PRINTTAB(10)"51-100 POINTS":PRINT"PSYCHIC POWERS ARE EVIDENT,WORK":PRINT"TO BRING THEM TO FULL FLOWER."
250 PRINTTAB(10)"101-150 POINTS":PRINT"VERY HIGH INDICATION OF PSYCNIC":PRINT"POWERS."
260 PRINTTAB(10)"131-200 POINTS":PRINT"SUPER HIGH PSYCHIC POWERS,BUT":PRINT"YOU KHEW THRT ALREADY, RIGNT?"
270 PRINT:PRINT"HOLD ENTER TO END";
280 POKEAR+1,143:FORI=0TO30:NEXT:POKEAR-I,95:FORI=0TO30:NEXT:POKEAR=1,143:FORI=0TO30:NEXT:POKEAR,95:SOUND180,1:FORI=0TO30:NEXT: POKEAR,143:FORI=0TO30:NEXT:POKEAR+1,95:FORI=0TO30:NEXT:Z$=INKEY$:IFZ$=""THEN280
290 CLS:PRINT@233,"JARB SOFTWARE"
300 DATA "HAVE YOU EVER BEEN THINKING ABOUT SOMEONE, AND UNEXPECTEDLY MET THEM","1. YES","2. NO"
310 DATA "WHILE GAMBLING, HAVE YOU EVER HAD WHAT YOU THOUGHT WAS A LUCKYHUNCH" ,"1. YES","2. NO"
320 DATA "DID YOU EVER SAY THE SAME THING AS A FRIEND, AT THE SAME TIME","1. YES ","2. NO"
330 DATA "HAVE YOU EVER HAD THE EXPERIENCEOF THINKING OF A TOPIC, OR EVENTAND HAVE IT CONTINUALLY COME UP IN CONVERSATION, THE NEWS, OR INREADING MATERIAL WITHIN A 24 HR.PERIOD","1. YES","2. NO"
340 DATA "HAVE YOU EVER SHIVERED FOR NO APPARENT REASON AND THEN LATER RECEIVED BAD NEWS ABOUT AN EVENTTHAT TOOK PLACE AT THAT TIME","1. YES", "2. NO"
350 DATA "HAVE YOU EVER DREAMT ABOUT A PERSON, PLACE, OR THING, ONLY TOENCOUNTER IT AT A LATER DATE","1. YES","2. NO"
360 DATA "HAVE YOU EVER ENCOUNTERED A PERSON, PLACE, OR THING FOR THE FIRST TIME, AND YET FELT THAT YOU HAD SEEN IT BEFORE","1. YES","2. NO"
370 DATA "HAVE YOU EVER HAD A STRONG THOUGHT POP INTO YOUR MIND, APPARENTLY WITHOUT REASON, ONLY TO HAVE IT REPEATED BY SOMEONE DAYS OR WEEKS LATER SO THAT IT SUDDENLY MAKES SENSE TO YOU","1. YES", "2. NO"
380 DATA "HAVE YOU EVER HAD A PREMONITION OF SOMETHIHG, NO MATTER NOW TRIVIAL, THAT LATER PROVED TO BECORRECT","1. YES","2. NO"
390 DATA "HAVE YOU EVER BEEN ON SUCH A WINNING STREAK WHILE GAMBLING THAT YOU WERE SURE YOU COULDN'T LOSE, AND YOU DIDN'T","1. YES","2. NO"
400 DATA "HAVE YOU EVER FELT THAT SOMEONE WAS STARING AT YOU, AND THEN TURNED AROUND TO FIND THAT IT WAS TRUE? OR DID YOU EVER TRY TOMENTALLY WILL SOMEONE TO LOOK UPOR TURN AROUND, AND THEY DID","1. YES", "2. NO"
410 DATA "HAVE YOU EVER BEEN SO INVOLVED IN YOUR OWN THOUGNTS THAT YOU LOST ALL CONTACT WITH THE WORLD,ONLY TO REALIZE AFTER SOME TIME THAT A FRIEND HAD BEEN TRYING TO ATTRACT YOUR ATTENTION","1. YES","2. NO"
420 DATA "HAVE YOU EVER EXCHANGED GLANCES WITH A STRANGER AND EACH OF YOU KNEW EXACTLY WHAT THE OTHER WAS THINKING FIND FEELING","1. YES","2. NO"
430 DATA "DO YOU APPERR TO HAVE A 'GREEN THUMB', IN THAT YOU CAN SEEM TO BE ABLE TO INFLUENCE THE GROWTH OF PLANTS WITH YOUR THOUGHTS","1. YES","2. NO"
440 DATA "DO YOU HAVE A WAY WITH ANIMALS","1. YES","2. NO"
450 DATA "ARE YOU AN EXTROVERT OR ARE YOU A INTROVERT","1. EXTROVERT","2. INTROVERT"
460 DATA "DO YOU HOLD A BELIEF IN E.S.P OROTHER PYSCHIC PHENOMENA","1. YES","2. NO"
470 DATA "ARE YOU HAPPY AND SATISFIED WITHLIFE IN GENERAL","1. YES","2. NO"
480 DATA "END","END","END"

==Links==
[https://archive.org/details/rainbowmagazine-1981-09/page/n8 See this article as it appeared in the magazine] 
Virtual disk with programs from Rainbow 08-1981: [[File:Rainbow 1981-09.dsk]]
[[Category:Games]]

Teacher's helper, student's friend (Rainbow 1981-09)

2020-11-05T00:02:46Z

Luis46coco: /* Links */

{{NavRainbow1981-09}}
For the teacher amongst us, GRADER can be a reaI boon!

However, we would also emphasize that GRADER can easily be adapted for keeping up to date records on a single student. By using GRADER, the student would be able to chart his or her progress throughout a grading period and know where he stands at all times. It’s also a good way for parents to keep track of how a student is doing.

We will go through GRADER part by part so it will be easier to adapt It, if necessary.

Lines 10-25 initiate the program and ask for the type grade you will be compiling, Because, in our use, the reading grade only has daily averages, we wrote a special routine for reading grades at lines 600-780. This could be your whole program if all grades are weighted the same.

Lines 60-110 and 120-180 do the actual computation of grades. Since this particular program was written for third grade level, there are a lot of children who make 100's, especially on daily work. To eliminate the tedium of entering all those 100's, we added the subroutines 340-380 and 390-430 to make the inputting of 100's much easier. This really cuts down on the time it takes to enter the grades.

We chose to enter the grades as a string and then take the value of the string so we could assign the word "end" to break out of the grade input loop. While it would have been just as easy to use something like "IF S>150 GOTO 110" and then use any real high number, it seemed easier to use an easily-recognized word to break out of the loop.

Please also note lines 70 and 140. These take care of mistakes. If an incorrect grade is entered, just enter the incorrect grade again as a minus. That not only reduces the total by the incorrect number, it also reduces the number of "chances" by one, lines 110 and 100 take the average of the types of grades.

Line 190 is where the allocation of weight to the types of grades is made. In this instance, teats are worth one-third and daily work two-thirds. These percentages are easily changed to heat whatever needs you have.

The remainder of the program is devoted to the printout. Quite a bit of attention was paid to this because, in the situation for which it was written, a great many students are "traded" for either enriched or remedial work. The printout, including the name, subject, number of "chance," total points and number of 100's constitutes a full report to the student's "home" teacher. It means once the grade are computed, than do not have to be re-recorded elsewhere.

Also, to make life easier, the program is set to "form feed" for a 66-line piece of paper. This mikes the whole report easier to deal with.

There are certain economies which could have been employed to save memory space, particularly in the printout image statements, but, since this program fits very comfortably in 4k, we did not see that as necessary. Of course, you need Extended Color Basic to use the PRINTUSING statement, but. If you do not have that, it is easily convertable.

The listing:
<pre>2 '**********************
3 '* GRADER 2.1 *
4 '* (c) FALSOFT 1981 *
5 '**********************
10 PU$="GRADE"
20 INPUT "SUBJECT";UP$:SB$=UP$+PU$
25 IF UP$="READING" THEN 600
30 CLS
40 INPUT "STUDENT'S NAME";A$
50 GOSUB340
60 INPUT "enter DAILY SCORE (OR END)";S$
70 IF S$="END" THEN 110
75 S=VAL(S$)
80 IF S<0 GOTO 320
90 N=N+1:D=S+D
100 GOTO 60
110 Z=D/N:CLS
120 GOSUB390
130 INPUT "enter TEST SCORE (OR END)";T$
140 IF T$="END" THEN 100
145 T=VAL(T$)
150 IF T<0 GOTO 330
160 M=M+1:B=T+B
170 GOTO 130
180 Y=B/M:CLS
190 X=(Y*.334)+(Z*.666)
200 CLS:PRINT
205 IF LC=4 THEN PRINT#-2, PRINT#-2,"":LC=1:GOTO210
207 LC=LC+1
210 GOSUB400
220 PRINT#-2,""
230 PRINT#-2,"DRILY AVERAGE ",:PRINT#-2,USING"##.##",Z
240 PRINT#-2,"TEST AVERAGE ",:PRINT#-2,USING"##.##",Y
250 PRINT#-2,CHR$(31);"GRADE AVERAGE ";:PRINT#-2,USING"##.##",X:PRINT#-2,CHR$(3 0)
260 PRINT#-2," FOR YOUR INFORMATION..."
270 PRINT#-2,"":PRINT#-2,"DAILY PAPERS";:PRINT#-2,TAB(13);:PRINT#-2,USING"##";N;:PRINT#-2,TAB(18)"POINTS";:PRINT#-2,TAB(23);:PRINT#-2,USING"#,###",D;: PRINT#-2,TAB(29)"......(Student made"N"100's on dally work)"
280 V=N+M:F=D+B
290 PRINT#-2,"TOTAL TESTS";:PRINT#-2,TAB(13);:PRINT#-2,USING"##",M,:PRINT#-2,TAB(18)"POINTS";:PRINT#-2,TAB(23);:PRINT#-2,USING"#,###";B;:PRINT#-2,TAB(29)"..... (Student made"K"100's on tests)"
300 PRINT#-2,"CHANCES";:PRINT#-2,TAB(13);PRINT#-2,USING"##";V;:PRINT#-2,TAB(18)"POINTS";:PRINT#-2,TAB(23);:PRINT#-2,USING"#,###";F
310 GOTO 448
320 N=N-1:D=S+D:GOTO60
330 M=M-1:B=T+B:GOTO130
340 INPUT "NOW MANY 100'S DID THIS STUDENT MAKE IN DAILY WORK";N
350 Q=N*100
360 N=N+H
370 D=Q+D
380 RETURN
390 INPUT "NOW MANY 100'S DID THIS STUDENT MAKE ON TESTS";K
400 Q=K*100
410 M=M+K
420 B=Q+B
430 RETURN
440 PRINT#-2,STRING$(8O,"*")
445 PRINT#-2,CHR$(18)""CHR$(38)
450 PRINT#-2,""
460 N=0:D=B:Z=0:S=0:T=0:M=0:B=0:Y=0:X=0:V=0:F=8:Q=0:K=0
470 GOTO30
480 R=LEN(SB$):C=42-A:PRINT#-2,CHR$(31);TAB(C/2)S0$
490 PRINT#-2,CHR$(30);TAB(37)"FOR";CHR$(31)
500 A=LEN(A$):C=40-R:PRINT#-2,TAB(C/2)A$;CHR$(30)
510 RETURN
600 CLS
610 INPUT "STUDENT'S NAME";A$
620 COSUB340
630 INPUT "enter DAILY SCORE (OR END)";S$
640 IF S$="END" THEN 680
643 S=VAL(S$)
650 IF S<0 THEN N=N-1:D=S+D:GOTO630
660 N=N+1:D=S+D
670 GOTO630
680 Z=D/N:CLS
690 GOSUB400
700 PRINT#-2,""
710 PRINT#-2,CHR$(31);"GRADE AVERAGE ";:PRINT#-2,USING"##.##";Z
720 PRINT#-2,CHR$(30)
730 PRINT#-2," FOR YOUR INFORMATION..."
740 PRINT#-2,"":PRINT#-2,"GRADES";:PRINT#-2,TAB(13);:PRINT#-2,USING"##";N;:PRINT#-2,TAB(18)"POINTS";:PRINT#-2,TAB(23);:PRINT#-2,USING"#,###";D;: PRINT#-2,TAB(29)".....(Student made"N"100's on daily work)"
750 N=0:D=0:Z=0:S=B:Q=0:H=0
760 PRINT#-2,STRING$(80,"*")
770 PRINT#-2,""
780 GOTO600
</pre>
==Links==
[https://archive.org/details/rainbowmagazine-1981-09/page/n3 See this article as it appeared in the magazine] 
Virtual disk with programs from Rainbow 08-1981: [[File:Rainbow 1981-09.dsk]]
[[Category:Education]]

Get ready to do battle near laser star (Rainbow 1981-09)

2020-11-04T23:59:30Z

Luis46coco: /* Links */

{{NavRainbow1981-09}}
==LASER STAR==
Get out those joysticks and see whether you can become a Space Fleet Commander while battling at the '''LASER STAR'''.

This program is brought to you through the good offices of JARB Software. And, for anyone who doesn't want to type it in himself, you can send $14.95 to JARB (1169 Florida St., Imperial Bench, CA, 92032) for a cassette copy. Add $1 for postage and you will get this tape, plus another game, Helo Battle. Helo Battle will appear in listing form in next month's issue of the RAINBOW.

'''LASER STAR''' is a two-player game which allows both players to maneuver their respective spacecraft — a rocket ship and a saucer. The object is to destroy your foe enough times to advance in rank and win the battle.

It’s not all that easy, though. While you are fighting, there is an alien asteroid control station which fires a powerful laser at space dust, meteoroids and asteroids. If the blast hits you. you lose points. Also, if you collide with your opponent, one of you will lose points (sort of like no-fault insurance).

There's another hitch, too, that can cause you to lose points. But we're not going to tell you about it. Let's just hint that it paralyses space in your sector and can be very troublesome. You'll see! point of their lasers. They cannot shoot backwards, though. We think you will enjoy playing LASER STAR.

The listing:

1 '*****************************
2 '* * * LASER STAR * * *
3 '* BY *
4 '* JARB SOFTWARE *
5 '* (C) JARB SOFTWARE 1981 *
6 '*****************************
10 CLS0:PRINT@230," * * LASER STAR * *";:PRINT@292," (C) JARB SOFTWARE 1981";
15 FORI=1TO10:FORII=1TO10:SOUND1*II+100,1:NEXTII,I:FORI=1TO6:PLAY"O1V30T16L8EEEEDDAAAAEEEEDDAAAA":NEXTI
20 CLEAR100
25 CLS0:PRINT@135,"* * LASER STAR * *";
30 PRINT@224,STRING$(32,128);:INPUT"ENTER NAME OF PLAYER #1";Z$:Z$=" "+Z$+" "
35 INPUT"ENTER NAME OF PLAYER #2";Z1$:Z1$=" "+Z1$+" "
40 PRINT"LONG GAME (1) OR SHORT GAME (2)";:INPUTZ9:IFZ9<1ORZ9>2THEN45ELSE50
45 CLS:PRINT@224,"":GOTO40
50 IFZ9=1THENZ9=10
55 IFZ9=2THENZ9=5
60 DIMA(29),B(29),A1(16,12),B1(16,12):A=RND(245):B=RND(181):A1=RND(245):B1=RND(181)
65 FORI=0TO29
70 A(I)=RND(255):B(I)=RND(191)
75 NEXTI
80 A$="BM128,96H3F6H3U5D10U5E3G6E3R5L10R5"
85 PMODE4,1:PCLS:SCREEN1,1
90 DRAW"C1;BM128,96R3L6U1D2"
95 DRAW"BM128,158R3L3U1D2U1L3"
100 GET(128,90)-(136,102),A1,G
105 GET(120,152)-(136,164),B1,G
110 PCLS
115 A=A+INT(JOYSTK(0)/6.3)-5:B=B+INT(JOYSTK(1)/6.3)-5:A1=A1+INT(JOYSTK(2)/6.3)-5:B1=B1+INT(JOYSTK(3)/6.3)-5
120 IFA<10THENA=10
125 IFA1<10THENA1=10
130 IFA>245THENA=245
135 IFA1>245THENA1=245
140 IFB<10THENB=10
145 IFB1<10THENB1=10
150 IFB>181THENB=181
155 IFB1>181THENB1=181
160 FORI=0TO29:PSET(A(I),B(I)):NEXTI
165 DRAWA$
170 PUT(A-8,B-6)-(A+8,B+6),A1,PSET
175 PUT(A1-8,B1-6)-(A1+8,B1+6),B1,PSET
180 R=RND(75):A3=0:B3=RND(70):C9=RND(10):IFR=37THENGOSUB515
185 H=RND(255):V=RND(191)
190 PLAY"V20O3T100L100AAAA":PLAY"V30O5T100L100BB":LINE(128,96)-(H,V),PSET:LINE(128,96)-(H,V),PRESET
195 IFPPOINT(A-1,B)=0ORPPOINT(A,B)=0ORPPOINT(A+1,B)=0THENH1=1ELSEH1=0
200 IFPPOINT(A1-1,B1)=0ORPPOINT(A1,B1)=0ORPPOINT(A1+1,B1)=0THENH2=1ELSEH2=0
205 IFH1=1ORH2=1THEN220
210 LINE(128,96)-(H,V),PSET:LINE(128,96)-(H,V),PRESET
215 IFPEEK(65280)=255ORPEEK(65280)=127THEN115ELSE285
220 IFH1<>0THEN235
225 IFH2<>0THEN250
230 GOTO115
235 S1=S1-1
240 E1=A:E2=B
245 GOTO265
250 S2=S2-1
255 E1=A1:E2=B1
260 GOTO265
265 LINE(128,96)-(H,V),PSET:LINE(128,96)-(H,V),PRESET
270 CLS:FORI=1TO10:SCREEN0,1:FORII=1TO10:NEXTII:SCREEN1,1:FORII=1TO10:NEXTII:NEXTI
275 E=RND(10):FORI=1TO10+E:CIRCLE(E1,E2),I,1:PLAY"O1V30T100L100DADA":NEXTI:FORI=1TO10+E:CIRCLE(E1,E2),I,0:NEXTI
280 GOTO420
285 C1=PEEK(65280)
290 IFC1=126ORC1=254THEN310
295 IFC1=125ORC1=253THEN340
300 IFC1=124ORC1=252THEN370
305 GOTO115
310 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PSET:LINE(A+5,B)-(255,(JOYSTK(1)*3)),PRESET:PLAY"O5V30T100L100BBV20BBV10BBV30BB"
315 IFPPOINT(A1+1,B1)=0ORPPOINT(A1,B1)=0ORPPOINT(A1-1,B1)=0THEN325
320 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PSET:LINE(A+5,B)-(255,(JOYSTK(1)*3)),PRESET:GOTO115
325 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PSET:LINE(A+5,B)-(255,(JOYSTK(1)*3)),PRESET
330 E=RND(10):FORI=1TO10+E:CIRCLE(A1,B1),I,1:PLAY"O1V30T100L100DDDD":NEXTI:FORI=1TO10+E:CIRCLE(A1,B1),I,0:NEXTI:S1=S1+1
335 GOTO420
340 LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PSET:LINE(A1-5,B1)-(0,(J0YSTK(3)*3)),PRESET:PLAY"O3V30T100L100DDV20DDV10DDV30DD"
345 IFPPOINT(A-1,B)=0ORPPOINT(A,B)=0ORPPOINT(A+1,B)=0THEN355
350 LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PSET:LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PRESET:GOTO115
355 LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PSET:LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PRESET
360 E=RND(10): FORI=1TO20+E: CIRCLE(A,B),I,1: PLAY"O1V30T100L100DDDD":NEXTI:FORI=1TO20+E:CIRCLE(A,B),I,0:NEXTI:S2=S2+1
365 GOTO420
370 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PSET:LINE(A1-5, B1)-(0,(JOYSTK(3)*3)),PSET:LINE(A+5,6)-(255,(JOYSTK(1)*3)),PRESET:LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PRESET:PLAY"05V30T100L100BBDDV20BBDDV10BBDDV30BBDD"
375 IFPPOINT(A-1,B)+PPOINT(A,B)+PPOINT(A+1,B)<>15ANDPPOINT(A1-1,B1)+PPOINT(A1,B1)+PPOINT(A1+1,B1)<>15THEN395
380 IFPPOINT(A-1,B)=0ORPPOINT(A,B)=0ORPPOINT(A+1,B)=0THEN410
385 IFPPOINT(A1+1,B1)=0ORPPOINT(A1,B1)=0ORPPOINT(A1-1,B1)=0THEN415
390 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PSET:LINE(A1-5,B1)-(0,(JOYSTK(3)*3)), PSET:LINE(A+5,B)-(255,(JOYSTK(1)*3)),PRESET: LINE(A1-5,B1)-(0,JOYSTK(3)*3)),PRESET:GOTO113
395 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PRESET:LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PRESET
400 E=RND(10):FORI=1TO10+E:CIRCLE(A,B),I,1:CIRCLE(A1,B1),I,1:PLAY"O1V30T100L100DD":NEXTI:FORI=1TO10+E:CIRCLE(A,B),I,0:CIRCLE(A1,B1),I,0:NEXTI:S1=S1-1:S2=S2-1
405 GOTO115
410 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PRESET:GOTO355
415 LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PRESET:GOTO325
420 IFS1>=Z9 ORS2>Z9 THEN425ELSE115
425 S1=S1*10:S2=S2*10
430 IFS1>80THENA1$="*SPACE FLEET COMMANDER*"
435 IFS1<=80ANDS1>60THENA1$="*SQUADRON COMMANDER*"
440 IFS1<=60ANDS1>30THENA1$="*FLIGHT COMMANDER*"
445 IFS1<=30THENA1$="*FLIGHT CAPTAIN*"
450 IFS2>80THENA2$="*SPACE FLEET COMMANDER*"
455 IFS2<80ANDS2>60THENA2$="*SQUADRON COMMANDER*"
460 IFS2<60ANDS2>30THENA2$="*FLIGHT COMMANDER*"
465 IFS2<30TNENA2$="*FLIGNT CAPTAIN*"
470 IFS1=S2 TNEN 475 ELSE 480
475 A1$="NO ADVANCEMENT--DRAW ":A2$="NO ADVANCEMENT--DRAW "
480 SCREEN0,1:CLS0:PRINT@10," FINAL SCORES ";
485 PRINT@64+(16-(INT(LEN(Z$)/2))),Z$;:PRINT@128,"RANK IS. "+A1$;:PRINT@165,"YOUR FINAL SCORE IS";S1;
490 PRINT@224+(16-(INT(LEN(Z1$)/2))),Z1$;:PRINT@288,"RANK IS: "+A2$;:PRINT@325,"YOUR FINAL SCORE IS";S2;
495 PRINT@389,"THANK YOU FOR PLAYING";:PRINT@422,"* * LASER STAR * *";
500 PRINT@453,"PRESS <E> KEY TO END";
505 Z$=INKEY$:IFZ$<>"E"THEN505
510 CLS:END
515 A5$="BU4L2G3D3F3D1E4U3E3L2":A3=A3+5:B3=B3+RND(10):C9=C9+1:IFC9>=25THEN530
520 AN=AN+1:IFAN>3THENAN=0
525 DRAW"A"+STR$(AN)+";"+"C1;BM"+STR$(A3)+","+STR$(B3)+A5$:DRAW"A"+STR$(AN)+";"+"C0,BM"+STR$(A3)+","+STR$(B3)+A5$:GOTO515
530 PLAY"O5T100L64EDFFEEEE":DRAW"C1":CLS:LINE(128,96)-(A3,B3),PSET:FORI=1TO50:NEXTI:FORI=1TO10:SCREEN0,1:FORII=1TO10:NEXTII:SCREEN1,1:FORII=1TO10:NEXTII:NEXTI
531 LINE(128,96)-(A3,B3),PRESET
535 DRAW"A"+STR$(AN)+",C1,BM"+STR$(A3)+","+STR$(B3)+A5$:FORI=2TO30STEP2:CIRCLE(A3,B3),I,1:PLAY"O1T200L64AEBBAEBBAEBB":NEXTI:FORI=30TO2STEP-2:CIRCLE(A3,B3),I,0:NEXTI:S1=S1-1:S2=S2-1:C9=0:DRAW"C1":RETURN

NOTE: In line 515 and in others, AS$ was changed to A5$ since in DECB "AS" is reserved word. 
NOTE2: On lines 275 and 400 reducing RND from 10 to 1 or 2 and reducing the two "FOR" from 10 to 1 or 2, you can get to play, if not unplayable.
I think it still has errors/mistakes.

==Links==
[https://archive.org/details/rainbowmagazine-1981-09 See this article as it appeared in the magazine] 
Virtual disk with programs from Rainbow 08-1981: [[File:Rainbow 1981-09.dsk]]
[[Category:Games]]

File:Rainbow 1981-09.dsk

2020-11-04T23:50:44Z

Luis46coco:

Get ready to do battle near laser star (Rainbow 1981-09)

2020-11-04T23:50:15Z

Luis46coco: /* Links */

{{NavRainbow1981-09}}
==LASER STAR==
Get out those joysticks and see whether you can become a Space Fleet Commander while battling at the '''LASER STAR'''.

This program is brought to you through the good offices of JARB Software. And, for anyone who doesn't want to type it in himself, you can send $14.95 to JARB (1169 Florida St., Imperial Bench, CA, 92032) for a cassette copy. Add $1 for postage and you will get this tape, plus another game, Helo Battle. Helo Battle will appear in listing form in next month's issue of the RAINBOW.

'''LASER STAR''' is a two-player game which allows both players to maneuver their respective spacecraft — a rocket ship and a saucer. The object is to destroy your foe enough times to advance in rank and win the battle.

It’s not all that easy, though. While you are fighting, there is an alien asteroid control station which fires a powerful laser at space dust, meteoroids and asteroids. If the blast hits you. you lose points. Also, if you collide with your opponent, one of you will lose points (sort of like no-fault insurance).

There's another hitch, too, that can cause you to lose points. But we're not going to tell you about it. Let's just hint that it paralyses space in your sector and can be very troublesome. You'll see! point of their lasers. They cannot shoot backwards, though. We think you will enjoy playing LASER STAR.

The listing:

1 '*****************************
2 '* * * LASER STAR * * *
3 '* BY *
4 '* JARB SOFTWARE *
5 '* (C) JARB SOFTWARE 1981 *
6 '*****************************
10 CLS0:PRINT@230," * * LASER STAR * *";:PRINT@292," (C) JARB SOFTWARE 1981";
15 FORI=1TO10:FORII=1TO10:SOUND1*II+100,1:NEXTII,I:FORI=1TO6:PLAY"O1V30T16L8EEEEDDAAAAEEEEDDAAAA":NEXTI
20 CLEAR100
25 CLS0:PRINT@135,"* * LASER STAR * *";
30 PRINT@224,STRING$(32,128);:INPUT"ENTER NAME OF PLAYER #1";Z$:Z$=" "+Z$+" "
35 INPUT"ENTER NAME OF PLAYER #2";Z1$:Z1$=" "+Z1$+" "
40 PRINT"LONG GAME (1) OR SHORT GAME (2)";:INPUTZ9:IFZ9<1ORZ9>2THEN45ELSE50
45 CLS:PRINT@224,"":GOTO40
50 IFZ9=1THENZ9=10
55 IFZ9=2THENZ9=5
60 DIMA(29),B(29),A1(16,12),B1(16,12):A=RND(245):B=RND(181):A1=RND(245):B1=RND(181)
65 FORI=0TO29
70 A(I)=RND(255):B(I)=RND(191)
75 NEXTI
80 A$="BM128,96H3F6H3U5D10U5E3G6E3R5L10R5"
85 PMODE4,1:PCLS:SCREEN1,1
90 DRAW"C1;BM128,96R3L6U1D2"
95 DRAW"BM128,158R3L3U1D2U1L3"
100 GET(128,90)-(136,102),A1,G
105 GET(120,152)-(136,164),B1,G
110 PCLS
115 A=A+INT(JOYSTK(0)/6.3)-5:B=B+INT(JOYSTK(1)/6.3)-5:A1=A1+INT(JOYSTK(2)/6.3)-5:B1=B1+INT(JOYSTK(3)/6.3)-5
120 IFA<10THENA=10
125 IFA1<10THENA1=10
130 IFA>245THENA=245
135 IFA1>245THENA1=245
140 IFB<10THENB=10
145 IFB1<10THENB1=10
150 IFB>181THENB=181
155 IFB1>181THENB1=181
160 FORI=0TO29:PSET(A(I),B(I)):NEXTI
165 DRAWA$
170 PUT(A-8,B-6)-(A+8,B+6),A1,PSET
175 PUT(A1-8,B1-6)-(A1+8,B1+6),B1,PSET
180 R=RND(75):A3=0:B3=RND(70):C9=RND(10):IFR=37THENGOSUB515
185 H=RND(255):V=RND(191)
190 PLAY"V20O3T100L100AAAA":PLAY"V30O5T100L100BB":LINE(128,96)-(H,V),PSET:LINE(128,96)-(H,V),PRESET
195 IFPPOINT(A-1,B)=0ORPPOINT(A,B)=0ORPPOINT(A+1,B)=0THENH1=1ELSEH1=0
200 IFPPOINT(A1-1,B1)=0ORPPOINT(A1,B1)=0ORPPOINT(A1+1,B1)=0THENH2=1ELSEH2=0
205 IFH1=1ORH2=1THEN220
210 LINE(128,96)-(H,V),PSET:LINE(128,96)-(H,V),PRESET
215 IFPEEK(65280)=255ORPEEK(65280)=127THEN115ELSE285
220 IFH1<>0THEN235
225 IFH2<>0THEN250
230 GOTO115
235 S1=S1-1
240 E1=A:E2=B
245 GOTO265
250 S2=S2-1
255 E1=A1:E2=B1
260 GOTO265
265 LINE(128,96)-(H,V),PSET:LINE(128,96)-(H,V),PRESET
270 CLS:FORI=1TO10:SCREEN0,1:FORII=1TO10:NEXTII:SCREEN1,1:FORII=1TO10:NEXTII:NEXTI
275 E=RND(10):FORI=1TO10+E:CIRCLE(E1,E2),I,1:PLAY"O1V30T100L100DADA":NEXTI:FORI=1TO10+E:CIRCLE(E1,E2),I,0:NEXTI
280 GOTO420
285 C1=PEEK(65280)
290 IFC1=126ORC1=254THEN310
295 IFC1=125ORC1=253THEN340
300 IFC1=124ORC1=252THEN370
305 GOTO115
310 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PSET:LINE(A+5,B)-(255,(JOYSTK(1)*3)),PRESET:PLAY"O5V30T100L100BBV20BBV10BBV30BB"
315 IFPPOINT(A1+1,B1)=0ORPPOINT(A1,B1)=0ORPPOINT(A1-1,B1)=0THEN325
320 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PSET:LINE(A+5,B)-(255,(JOYSTK(1)*3)),PRESET:GOTO115
325 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PSET:LINE(A+5,B)-(255,(JOYSTK(1)*3)),PRESET
330 E=RND(10):FORI=1TO10+E:CIRCLE(A1,B1),I,1:PLAY"O1V30T100L100DDDD":NEXTI:FORI=1TO10+E:CIRCLE(A1,B1),I,0:NEXTI:S1=S1+1
335 GOTO420
340 LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PSET:LINE(A1-5,B1)-(0,(J0YSTK(3)*3)),PRESET:PLAY"O3V30T100L100DDV20DDV10DDV30DD"
345 IFPPOINT(A-1,B)=0ORPPOINT(A,B)=0ORPPOINT(A+1,B)=0THEN355
350 LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PSET:LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PRESET:GOTO115
355 LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PSET:LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PRESET
360 E=RND(10): FORI=1TO20+E: CIRCLE(A,B),I,1: PLAY"O1V30T100L100DDDD":NEXTI:FORI=1TO20+E:CIRCLE(A,B),I,0:NEXTI:S2=S2+1
365 GOTO420
370 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PSET:LINE(A1-5, B1)-(0,(JOYSTK(3)*3)),PSET:LINE(A+5,6)-(255,(JOYSTK(1)*3)),PRESET:LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PRESET:PLAY"05V30T100L100BBDDV20BBDDV10BBDDV30BBDD"
375 IFPPOINT(A-1,B)+PPOINT(A,B)+PPOINT(A+1,B)<>15ANDPPOINT(A1-1,B1)+PPOINT(A1,B1)+PPOINT(A1+1,B1)<>15THEN395
380 IFPPOINT(A-1,B)=0ORPPOINT(A,B)=0ORPPOINT(A+1,B)=0THEN410
385 IFPPOINT(A1+1,B1)=0ORPPOINT(A1,B1)=0ORPPOINT(A1-1,B1)=0THEN415
390 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PSET:LINE(A1-5,B1)-(0,(JOYSTK(3)*3)), PSET:LINE(A+5,B)-(255,(JOYSTK(1)*3)),PRESET: LINE(A1-5,B1)-(0,JOYSTK(3)*3)),PRESET:GOTO113
395 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PRESET:LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PRESET
400 E=RND(10):FORI=1TO10+E:CIRCLE(A,B),I,1:CIRCLE(A1,B1),I,1:PLAY"O1V30T100L100DD":NEXTI:FORI=1TO10+E:CIRCLE(A,B),I,0:CIRCLE(A1,B1),I,0:NEXTI:S1=S1-1:S2=S2-1
405 GOTO115
410 LINE(A+5,B)-(255,(JOYSTK(1)*3)),PRESET:GOTO355
415 LINE(A1-5,B1)-(0,(JOYSTK(3)*3)),PRESET:GOTO325
420 IFS1>=Z9 ORS2>Z9 THEN425ELSE115
425 S1=S1*10:S2=S2*10
430 IFS1>80THENA1$="*SPACE FLEET COMMANDER*"
435 IFS1<=80ANDS1>60THENA1$="*SQUADRON COMMANDER*"
440 IFS1<=60ANDS1>30THENA1$="*FLIGHT COMMANDER*"
445 IFS1<=30THENA1$="*FLIGHT CAPTAIN*"
450 IFS2>80THENA2$="*SPACE FLEET COMMANDER*"
455 IFS2<80ANDS2>60THENA2$="*SQUADRON COMMANDER*"
460 IFS2<60ANDS2>30THENA2$="*FLIGHT COMMANDER*"
465 IFS2<30TNENA2$="*FLIGNT CAPTAIN*"
470 IFS1=S2 TNEN 475 ELSE 480
475 A1$="NO ADVANCEMENT--DRAW ":A2$="NO ADVANCEMENT--DRAW "
480 SCREEN0,1:CLS0:PRINT@10," FINAL SCORES ";
485 PRINT@64+(16-(INT(LEN(Z$)/2))),Z$;:PRINT@128,"RANK IS. "+A1$;:PRINT@165,"YOUR FINAL SCORE IS";S1;
490 PRINT@224+(16-(INT(LEN(Z1$)/2))),Z1$;:PRINT@288,"RANK IS: "+A2$;:PRINT@325,"YOUR FINAL SCORE IS";S2;
495 PRINT@389,"THANK YOU FOR PLAYING";:PRINT@422,"* * LASER STAR * *";
500 PRINT@453,"PRESS <E> KEY TO END";
505 Z$=INKEY$:IFZ$<>"E"THEN505
510 CLS:END
515 A5$="BU4L2G3D3F3D1E4U3E3L2":A3=A3+5:B3=B3+RND(10):C9=C9+1:IFC9>=25THEN530
520 AN=AN+1:IFAN>3THENAN=0
525 DRAW"A"+STR$(AN)+";"+"C1;BM"+STR$(A3)+","+STR$(B3)+A5$:DRAW"A"+STR$(AN)+";"+"C0,BM"+STR$(A3)+","+STR$(B3)+A5$:GOTO515
530 PLAY"O5T100L64EDFFEEEE":DRAW"C1":CLS:LINE(128,96)-(A3,B3),PSET:FORI=1TO50:NEXTI:FORI=1TO10:SCREEN0,1:FORII=1TO10:NEXTII:SCREEN1,1:FORII=1TO10:NEXTII:NEXTI
531 LINE(128,96)-(A3,B3),PRESET
535 DRAW"A"+STR$(AN)+",C1,BM"+STR$(A3)+","+STR$(B3)+A5$:FORI=2TO30STEP2:CIRCLE(A3,B3),I,1:PLAY"O1T200L64AEBBAEBBAEBB":NEXTI:FORI=30TO2STEP-2:CIRCLE(A3,B3),I,0:NEXTI:S1=S1-1:S2=S2-1:C9=0:DRAW"C1":RETURN

NOTE: In line 515 and in others, AS$ was changed to A5$ since in DECB "AS" is reserved word. 
NOTE2: On lines 275 and 400 reducing RND from 10 to 1 or 2 and reducing the two "FOR" from 10 to 1 or 2, you can get to play, if not unplayable.
I think it still has errors/mistakes.

==Links==
[https://archive.org/details/rainbowmagazine-1981-09 See this article as it appeared in the magazine] 
[[File:Rainbow 1981-09.dsk||Virtual disk with programs from Rainbow 08/1981]]
[[Category:Games]]

Line justifier (Rainbow 1981-08)

2020-11-04T23:13:03Z

Luis46coco: /* Links */

{{NavRainbow1981-08}}
Last month we said that we'd have a line Justification program ready for this month's issue. The listing is included below.

We were writing the RAINBOW last month with a simple word processor that let us enter a whole line and make corrections before it was committed to the print buffer on a printer. That was an improvement over the program that the manual had, mainly because it allowed us to backspace for corrections. In the case or the RAINBOW, where we want to have lines which are right justified, that wrorked only to a degree -- mainly because we had to type the line and then go back and add spaces to make the lines come out even on the right hand side. While the was easier than typing the RAINBOW on a typewriter (which would have required two typings) it was still a hassle. Thus was born the mini word processor below.

What happens here is that, using the INSTR Command, we search for spaces in a line and then "peel off" spaces from the end of each line and add them to the spaces which are already between the words. Each line is entered as A$ and then pulled apart. Spaces are inserted, and then the line is put back together. There are two variations, one for a full-length line and the other for a half-length one.

The program requires the typist to space to a certain spot on the line, in effect, to fill up the line with spaces (a printer might call these space bands). Those spaces are then repositioned in the line to make it come out evenly.

The screen display is set up so that there is a little black block for the typist to "aim" at. Once the typist gets close to the block, he or she just spaces in blanks until the cursor covers the black block. Then, the line is entered into the print buffer and printed on the line printer.

As an added aid, the last line typed is shown on the bottom of the screen. One of the reasons for this is because we felt it would be easier for the typist to begin the next line knowing what was on the previous line — without the need of having to look at the printer.

For short lines, Just hit ENTER when the line ends. However, a bug ray — but will not always -- appear if you type a VERY short line. What can happen is that the one or two words in the line will repeat themselves. If that does occur, just space down and retype the same line. It will go away.

The remainder of the program is devoted to the display and the graphic signature for the program and the software.

[[File:Falsoft Mini Word Processor.png]]

==Notes:==
Transcriber's note: It only captures the line and prints it, I can't understand why the 2-line version is smaller, the one-line version fits 80 characters (2 lines and a half screen, 15 + 64 = 79)

==THE LISTING......==
<pre>10 CLS
20 CLEAR1000
30 GOSUB410
40 GOSUB380:GOSUB390:GOSUB400:PRINTSTRING$(32,45)
30 PRINT:PRINT"SELECT MODE:"
60 PRINT" (1) ONE-COLUMN FORMAT":PRINT" (2) TWO-COLUMN FORMAT":PRINT:INPUT" ENTER HUMBER";ZZ
65 ON ZZ GOTO100,240
70 PRINT:INPUT "ENTER ONLY 1 OR 2 PLEASE";ZZ
80 ON ZZ GOT0100,240
90 IF ZZ<>1 OR ZZ<>2 THEN 70
100 CLS
110 N$=" ":L=4
120 GOSUB380:GOSUB390: GOSUB400:PRINT" ONE-COLUMN FORMAT"
130 PRINT@160, STRING$(32,45);:PRINT@271,CHR$(128);"<--SPACE TO HERE":PRINT@288,STRING$(32,45);:PRINT@322," ...LAST LINE...":PRINTA$:PRINT@192,"";:LINE INPUTA$
140 IF RIGHT$(A$,1)="" THEN A$=RIGHT$(A$,1):A$=LEFT$(A$,79):GOTO170
150 PRINT#-2,A$
160 GOTO100
170 B=INSTR(L,A$,N$)
180 C$=LEFT$(A$,B)
190 E$=RIGHT$(A$,79-B)
201 D$=C$+N$
210 A$=D$+E$
220 L=LEN(D$)+4
230 GOTO140
240 CLS
250 N$=" ":L=4
260 GOSUB380:GOSUB390:GOSUB400:PRINT" TWO-COLUMN FORMAT"
270 PRINT@160,STRING$(32,45):PRINT@230,CHR$(128);"<--SPACE TO HERE":PRINT@256,STRING$(32,45);:PRINT@320," ...LAST LINE...":PRINTA$:PRINT@192,"";:LINE INPUT A$
280 IF RIGHT$(A$,1)=" " THEN A$=RIGHT$(A$,1):A$=LEFT$(A$,37):GOTO310
290 PRINT#-2,A$
300 GOTO240
310 B=INSTR(L,A$,N$)
320 C$=LEFT$(A$,B)
330 E$=RIGHT$(A$,37-B)
340 D$=C$+N$
330 A$=D$+E$
360 L=LEN(D$)+3
370 GOTO280
380 F1$=CHR$(129)+CHR$(131)+CHR$(133):F2$=CHR$(132)+CHR$(141):F3$=CHR$(133):F4$=CHR$(128+15):RETURN
390 CLS:PRINT@34,F1$: PRINT@66,F2$:PRINT@98,F3$:RETURN
400 PRINT@99,"ALSOFT MINI -WORD PROCESSOR":RETURN
410 PRINT@198,"(C) FALSOFT, 1981":FORX=1TO200:NEXT
420 GOSUB380
430 FORX=376TO34STEP-32:GOSUB460:NEXTX
440 FORX=51TO34STEP-1:GOSUB460:NEXTX
430 RETURN
460 Y=X+32:Z=Y+32:Q=Z+32
470 PRINT@X,F1$:PRINT@Y,F2$:PRINT@Z,F3$:PRINT@Q,F4$:RETURN
</pre>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org] 
Virtual disk with programs from (Rainbow 1981-08): [[File:1981-08.dsk]]
[[Category:Word Processing]]

Line justifier (Rainbow 1981-08)

2020-11-04T23:12:40Z

Luis46coco:

{{NavRainbow1981-08}}
Last month we said that we'd have a line Justification program ready for this month's issue. The listing is included below.

We were writing the RAINBOW last month with a simple word processor that let us enter a whole line and make corrections before it was committed to the print buffer on a printer. That was an improvement over the program that the manual had, mainly because it allowed us to backspace for corrections. In the case or the RAINBOW, where we want to have lines which are right justified, that wrorked only to a degree -- mainly because we had to type the line and then go back and add spaces to make the lines come out even on the right hand side. While the was easier than typing the RAINBOW on a typewriter (which would have required two typings) it was still a hassle. Thus was born the mini word processor below.

What happens here is that, using the INSTR Command, we search for spaces in a line and then "peel off" spaces from the end of each line and add them to the spaces which are already between the words. Each line is entered as A$ and then pulled apart. Spaces are inserted, and then the line is put back together. There are two variations, one for a full-length line and the other for a half-length one.

The program requires the typist to space to a certain spot on the line, in effect, to fill up the line with spaces (a printer might call these space bands). Those spaces are then repositioned in the line to make it come out evenly.

The screen display is set up so that there is a little black block for the typist to "aim" at. Once the typist gets close to the block, he or she just spaces in blanks until the cursor covers the black block. Then, the line is entered into the print buffer and printed on the line printer.

As an added aid, the last line typed is shown on the bottom of the screen. One of the reasons for this is because we felt it would be easier for the typist to begin the next line knowing what was on the previous line — without the need of having to look at the printer.

For short lines, Just hit ENTER when the line ends. However, a bug ray — but will not always -- appear if you type a VERY short line. What can happen is that the one or two words in the line will repeat themselves. If that does occur, just space down and retype the same line. It will go away.

The remainder of the program is devoted to the display and the graphic signature for the program and the software.

[[File:Falsoft Mini Word Processor.png]]

==Notes:==
Transcriber's note: It only captures the line and prints it, I can't understand why the 2-line version is smaller, the one-line version fits 80 characters (2 lines and a half screen, 15 + 64 = 79)

==THE LISTING......==
<pre>10 CLS
20 CLEAR1000
30 GOSUB410
40 GOSUB380:GOSUB390:GOSUB400:PRINTSTRING$(32,45)
30 PRINT:PRINT"SELECT MODE:"
60 PRINT" (1) ONE-COLUMN FORMAT":PRINT" (2) TWO-COLUMN FORMAT":PRINT:INPUT" ENTER HUMBER";ZZ
65 ON ZZ GOTO100,240
70 PRINT:INPUT "ENTER ONLY 1 OR 2 PLEASE";ZZ
80 ON ZZ GOT0100,240
90 IF ZZ<>1 OR ZZ<>2 THEN 70
100 CLS
110 N$=" ":L=4
120 GOSUB380:GOSUB390: GOSUB400:PRINT" ONE-COLUMN FORMAT"
130 PRINT@160, STRING$(32,45);:PRINT@271,CHR$(128);"<--SPACE TO HERE":PRINT@288,STRING$(32,45);:PRINT@322," ...LAST LINE...":PRINTA$:PRINT@192,"";:LINE INPUTA$
140 IF RIGHT$(A$,1)="" THEN A$=RIGHT$(A$,1):A$=LEFT$(A$,79):GOTO170
150 PRINT#-2,A$
160 GOTO100
170 B=INSTR(L,A$,N$)
180 C$=LEFT$(A$,B)
190 E$=RIGHT$(A$,79-B)
201 D$=C$+N$
210 A$=D$+E$
220 L=LEN(D$)+4
230 GOTO140
240 CLS
250 N$=" ":L=4
260 GOSUB380:GOSUB390:GOSUB400:PRINT" TWO-COLUMN FORMAT"
270 PRINT@160,STRING$(32,45):PRINT@230,CHR$(128);"<--SPACE TO HERE":PRINT@256,STRING$(32,45);:PRINT@320," ...LAST LINE...":PRINTA$:PRINT@192,"";:LINE INPUT A$
280 IF RIGHT$(A$,1)=" " THEN A$=RIGHT$(A$,1):A$=LEFT$(A$,37):GOTO310
290 PRINT#-2,A$
300 GOTO240
310 B=INSTR(L,A$,N$)
320 C$=LEFT$(A$,B)
330 E$=RIGHT$(A$,37-B)
340 D$=C$+N$
330 A$=D$+E$
360 L=LEN(D$)+3
370 GOTO280
380 F1$=CHR$(129)+CHR$(131)+CHR$(133):F2$=CHR$(132)+CHR$(141):F3$=CHR$(133):F4$=CHR$(128+15):RETURN
390 CLS:PRINT@34,F1$: PRINT@66,F2$:PRINT@98,F3$:RETURN
400 PRINT@99,"ALSOFT MINI -WORD PROCESSOR":RETURN
410 PRINT@198,"(C) FALSOFT, 1981":FORX=1TO200:NEXT
420 GOSUB380
430 FORX=376TO34STEP-32:GOSUB460:NEXTX
440 FORX=51TO34STEP-1:GOSUB460:NEXTX
430 RETURN
460 Y=X+32:Z=Y+32:Q=Z+32
470 PRINT@X,F1$:PRINT@Y,F2$:PRINT@Z,F3$:PRINT@Q,F4$:RETURN
</pre>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]
Virtual disk with programs from (Rainbow 1981-08): [[File:1981-08.dsk]]
[[Category:Word Processing]]

An educational program for everyone (Rainbow 1981-08)

2020-11-04T23:09:44Z

Luis46coco: /* Links */

{{NavRainbow1981-08}}
Here is a program that can really be of use to just about everyone in the family. It is called AMORT and it deals with money at interest.

On one level, it can be used as a regular interest program that wiII help you figure out such things as how much it will cost you a month to buy the new disc drives for your COLOR computer. That's not a bad thing to know.

On the other level, however, there are some explanations built in to help teach those in familiar with the terms involved with money at interest just what the terms mean. And there is a "cute" little default if you don't make the proper response to the amount of time the loan has to run question.

AMORT is written for non-Extended Color Basic, which -- as you know -- does not have the ability to raise numbers to powers. There is a way around that limitation of course, and it can be found in lines 30 and 60. For those of you who do have Extended Color Basic. you might wish to change those lines. The result will be a slightly more accurate result -- especially on the more complicated calculations for longer periods of time.

However, non-Extended Color users will have to change the PRINTUSING com¬mands in lines 140-146, 310 and 340. Just take out the reference to USING and the pound- and dollar-signs. That way, the program will run without any modification on your part.

Finally, notice the use of the variable PO to send output to the printer. If you want. you can eliminate the references to PO, but you would probably be better off leaving them in - in anticipation of the time when you might get a printer. Just answer "No" to the question in line 32 and no harm is done.

Here is the listing:
<pre>
3 '*********************
4 '* AMORT PROGRAM *
5 '* (c) FALSOFT, 1981 *
6 '*********************
11 C=0:CLS
12 PRINT " THIS PROGRAM WILL GENERATE AN AMORITZATION SCHEDULE FOR MOST COMMON LOANS."
13 PRINT:PRINT ">PLEASE FOLLOW DIRECTIONS BELOW<"
14 PRINT STRING$(32,"=")
15 INPUT "FIRST, WE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL LED THE PRINCIPAL. WHAT IS THE PRINCIPAL";P
16 CLS:PRINT:PRINT
17 PA=P
20 INPUT "NOW, WE MUST KNOW THE NUMBER OF PERIODS. THE LOAN WILL RUN. IF YOU WISH TO ENTER THE PERIODS BY MONTH.. TYPE IN THE WORD 'MONTH.' IF ITS YEARS, TYPE IN 'YEAR.' WHICH IS IT";A$
21 IF LEFT$(A$,1)="M" THEN 270
22 IF LEFT$(A$,1)="Y" THEN 260
23 GOTO250
30 CLS:PRINT:PRINT
31 INPUT "LASTLY, WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHA RGED ON THE LOAN. WHAT IS THE RATE";R
32 INPUT " DO YOU WANT A PRINTOUT";PO$: IF LEFT$(PO$,1)="Y" THEN PO=1
35 CLS
40 I=R/12:I=I/100
50 T=1:FOR X=1 TO L
60 T=T*(1+I):NEXT X:T=1/T
70 T=1-T
80 M=P*I/T
90 GOSUB200
100 FOR Z=1 TO L
120 R=(INT(P*I*100+.5))/100
130 B=M-A:P=P-B
140 PRINTTAB(0);:PRINTUSING"###";Z;:IF PO THEN PRINT#-2,TAB(0);:PRINT#-2, USING"###";Z;
142 PRINTTAB(3);:PRINTUSING"###,###.##";P;:IF PO THEN PRINT#-2,TAB(3);:PRINT#-2,USING"###,###.##";P;
144 PRINTTAB(14);:PRINTUSING"#,###.##";B;:IF PO THEN PRINT#-2,TAB(14);:PRINT#-2,USING"#,###.##";B;
146 PRINTTAB(23);:PRINTUSING"#,###.##";A:IF PO THEN PRINT#-2,TAB(23);:PRINT#-2,USING"#,###.##";A
160 Q=Q+1:C=C+1:AT=AT+A:NEXT Z
165 GOTO300
170 END
200 CLS:MA=M+.005:MA= INT(MA*100)/100:IF PO THEN PRINT#-2,TAB(4)"AMORITIZATION SCHEDULE"
201 IF PO THEN PRINT#-2,"PAYMENTS ARE $";MA
202 IF PO THEN PRINT#-2,TAB(4) "BALANCE";
204 IF PO THEN PRINT#-2,TAB(14) "PMT/PRIN";
206 IF PO THEN PRINT#-2,TAB(24) "PMT/INT"
208 PRINT "PAYMENT ARE $";MA
210 PRINTTAB(4)"BALANCE"TAB(14)"PMT/PRIN"TAB(24)"PMT/INT"
220 RETURN
250 CLS(5):PRINT@82,"NO!";
252 PRINT@162,"NEIN!";
254 PRINT@249,"NYET!";
255 PRINT@288," NO NO NO NO NO NO NO NO NO NO"
257 PRINT@132," ";:PRINT" YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. ENTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW. TRY AGAIN."
258 FOR WN=1 TO 3200:NEXT WN:CLS:PRINT:PRINT:GOTO20
260 PRINT
261 INPUT "O.K., NOW WILL YOU PLEASE ENTER THE NUMBER OF YEARS BEFORE YOU PAY OFF THE LOAN";YR
265 L=YR*12:GOTO 30
270 PRINT
271 INPUT "ALL RIGHT, NOW WILL YOU PLEASE ENTER THE NUMBER OF MOHTHS IT WILL TAKE TO FAY OFF THE LOAN";L
275 GOTO 30
300 IF PO THEN PRINT#-2, " ":PRINT#-2,TAB(10)"LOAN SUMMARY":PRINT#-2, TAB(10)"==========="
310 IF PO THEN PRINT#-2,TAB(5)"PRINCIPAL:";PRINT#-2,USING"#####, ###.##";PA
320 IF PO THEN PRINT#-2," PERIODS:"L;:PRINT#-2," RATE: ";:PRINT#-2,USING"##.##";R;:PRINT#-2,"%"
330 IF PO THEN PRINT#-2,STRING$(31,"-")
340 IF PO THEN PRINT#-2,"TOTAL INTEREST: ";:PRINT#-2,USING"$$###,###.##";AT
350 IF PO THEN PRINT#-2," ":PRINT#-2," ":PRINT#-2," "
</pre>

==Screen Shots==
<gallery>
AMORT-1.png|Initial Amount
AMORT-2.png|Month?
AMORT-3.png|How Many?
AMORT-4.png|Rate & Print?
AMORT-5.png|Result
</gallery>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n7 See Rainbow Magazine 1981-08 Pag 8, in archive.org] 
Virtual disk with programs from (Rainbow 1981-08): [[file:1981-08.dsk]]
[[Category:Software Utilily]][[Category:Educational]][[Category:Mathematics]]

An educational program for everyone (Rainbow 1981-08)

2020-11-04T23:03:50Z

Luis46coco: /* Links */

{{NavRainbow1981-08}}
Here is a program that can really be of use to just about everyone in the family. It is called AMORT and it deals with money at interest.

On one level, it can be used as a regular interest program that wiII help you figure out such things as how much it will cost you a month to buy the new disc drives for your COLOR computer. That's not a bad thing to know.

On the other level, however, there are some explanations built in to help teach those in familiar with the terms involved with money at interest just what the terms mean. And there is a "cute" little default if you don't make the proper response to the amount of time the loan has to run question.

AMORT is written for non-Extended Color Basic, which -- as you know -- does not have the ability to raise numbers to powers. There is a way around that limitation of course, and it can be found in lines 30 and 60. For those of you who do have Extended Color Basic. you might wish to change those lines. The result will be a slightly more accurate result -- especially on the more complicated calculations for longer periods of time.

However, non-Extended Color users will have to change the PRINTUSING com¬mands in lines 140-146, 310 and 340. Just take out the reference to USING and the pound- and dollar-signs. That way, the program will run without any modification on your part.

Finally, notice the use of the variable PO to send output to the printer. If you want. you can eliminate the references to PO, but you would probably be better off leaving them in - in anticipation of the time when you might get a printer. Just answer "No" to the question in line 32 and no harm is done.

Here is the listing:
<pre>
3 '*********************
4 '* AMORT PROGRAM *
5 '* (c) FALSOFT, 1981 *
6 '*********************
11 C=0:CLS
12 PRINT " THIS PROGRAM WILL GENERATE AN AMORITZATION SCHEDULE FOR MOST COMMON LOANS."
13 PRINT:PRINT ">PLEASE FOLLOW DIRECTIONS BELOW<"
14 PRINT STRING$(32,"=")
15 INPUT "FIRST, WE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL LED THE PRINCIPAL. WHAT IS THE PRINCIPAL";P
16 CLS:PRINT:PRINT
17 PA=P
20 INPUT "NOW, WE MUST KNOW THE NUMBER OF PERIODS. THE LOAN WILL RUN. IF YOU WISH TO ENTER THE PERIODS BY MONTH.. TYPE IN THE WORD 'MONTH.' IF ITS YEARS, TYPE IN 'YEAR.' WHICH IS IT";A$
21 IF LEFT$(A$,1)="M" THEN 270
22 IF LEFT$(A$,1)="Y" THEN 260
23 GOTO250
30 CLS:PRINT:PRINT
31 INPUT "LASTLY, WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHA RGED ON THE LOAN. WHAT IS THE RATE";R
32 INPUT " DO YOU WANT A PRINTOUT";PO$: IF LEFT$(PO$,1)="Y" THEN PO=1
35 CLS
40 I=R/12:I=I/100
50 T=1:FOR X=1 TO L
60 T=T*(1+I):NEXT X:T=1/T
70 T=1-T
80 M=P*I/T
90 GOSUB200
100 FOR Z=1 TO L
120 R=(INT(P*I*100+.5))/100
130 B=M-A:P=P-B
140 PRINTTAB(0);:PRINTUSING"###";Z;:IF PO THEN PRINT#-2,TAB(0);:PRINT#-2, USING"###";Z;
142 PRINTTAB(3);:PRINTUSING"###,###.##";P;:IF PO THEN PRINT#-2,TAB(3);:PRINT#-2,USING"###,###.##";P;
144 PRINTTAB(14);:PRINTUSING"#,###.##";B;:IF PO THEN PRINT#-2,TAB(14);:PRINT#-2,USING"#,###.##";B;
146 PRINTTAB(23);:PRINTUSING"#,###.##";A:IF PO THEN PRINT#-2,TAB(23);:PRINT#-2,USING"#,###.##";A
160 Q=Q+1:C=C+1:AT=AT+A:NEXT Z
165 GOTO300
170 END
200 CLS:MA=M+.005:MA= INT(MA*100)/100:IF PO THEN PRINT#-2,TAB(4)"AMORITIZATION SCHEDULE"
201 IF PO THEN PRINT#-2,"PAYMENTS ARE $";MA
202 IF PO THEN PRINT#-2,TAB(4) "BALANCE";
204 IF PO THEN PRINT#-2,TAB(14) "PMT/PRIN";
206 IF PO THEN PRINT#-2,TAB(24) "PMT/INT"
208 PRINT "PAYMENT ARE $";MA
210 PRINTTAB(4)"BALANCE"TAB(14)"PMT/PRIN"TAB(24)"PMT/INT"
220 RETURN
250 CLS(5):PRINT@82,"NO!";
252 PRINT@162,"NEIN!";
254 PRINT@249,"NYET!";
255 PRINT@288," NO NO NO NO NO NO NO NO NO NO"
257 PRINT@132," ";:PRINT" YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. ENTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW. TRY AGAIN."
258 FOR WN=1 TO 3200:NEXT WN:CLS:PRINT:PRINT:GOTO20
260 PRINT
261 INPUT "O.K., NOW WILL YOU PLEASE ENTER THE NUMBER OF YEARS BEFORE YOU PAY OFF THE LOAN";YR
265 L=YR*12:GOTO 30
270 PRINT
271 INPUT "ALL RIGHT, NOW WILL YOU PLEASE ENTER THE NUMBER OF MOHTHS IT WILL TAKE TO FAY OFF THE LOAN";L
275 GOTO 30
300 IF PO THEN PRINT#-2, " ":PRINT#-2,TAB(10)"LOAN SUMMARY":PRINT#-2, TAB(10)"==========="
310 IF PO THEN PRINT#-2,TAB(5)"PRINCIPAL:";PRINT#-2,USING"#####, ###.##";PA
320 IF PO THEN PRINT#-2," PERIODS:"L;:PRINT#-2," RATE: ";:PRINT#-2,USING"##.##";R;:PRINT#-2,"%"
330 IF PO THEN PRINT#-2,STRING$(31,"-")
340 IF PO THEN PRINT#-2,"TOTAL INTEREST: ";:PRINT#-2,USING"$$###,###.##";AT
350 IF PO THEN PRINT#-2," ":PRINT#-2," ":PRINT#-2," "
</pre>

==Screen Shots==
<gallery>
AMORT-1.png|Initial Amount
AMORT-2.png|Month?
AMORT-3.png|How Many?
AMORT-4.png|Rate & Print?
AMORT-5.png|Result
</gallery>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n7 See Rainbow Magazine 1981-08 Pag 8, in archive.org] 
[[File:1981-08.dsk Virtual disk with programs from (Rainbow 1981-08)]]
[[Category:Software Utilily]][[Category:Educational]][[Category:Mathematics]]

An educational program for everyone (Rainbow 1981-08)

2020-11-04T22:52:33Z

Luis46coco: /* Links */

{{NavRainbow1981-08}}
Here is a program that can really be of use to just about everyone in the family. It is called AMORT and it deals with money at interest.

On one level, it can be used as a regular interest program that wiII help you figure out such things as how much it will cost you a month to buy the new disc drives for your COLOR computer. That's not a bad thing to know.

On the other level, however, there are some explanations built in to help teach those in familiar with the terms involved with money at interest just what the terms mean. And there is a "cute" little default if you don't make the proper response to the amount of time the loan has to run question.

AMORT is written for non-Extended Color Basic, which -- as you know -- does not have the ability to raise numbers to powers. There is a way around that limitation of course, and it can be found in lines 30 and 60. For those of you who do have Extended Color Basic. you might wish to change those lines. The result will be a slightly more accurate result -- especially on the more complicated calculations for longer periods of time.

However, non-Extended Color users will have to change the PRINTUSING com¬mands in lines 140-146, 310 and 340. Just take out the reference to USING and the pound- and dollar-signs. That way, the program will run without any modification on your part.

Finally, notice the use of the variable PO to send output to the printer. If you want. you can eliminate the references to PO, but you would probably be better off leaving them in - in anticipation of the time when you might get a printer. Just answer "No" to the question in line 32 and no harm is done.

Here is the listing:
<pre>
3 '*********************
4 '* AMORT PROGRAM *
5 '* (c) FALSOFT, 1981 *
6 '*********************
11 C=0:CLS
12 PRINT " THIS PROGRAM WILL GENERATE AN AMORITZATION SCHEDULE FOR MOST COMMON LOANS."
13 PRINT:PRINT ">PLEASE FOLLOW DIRECTIONS BELOW<"
14 PRINT STRING$(32,"=")
15 INPUT "FIRST, WE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL LED THE PRINCIPAL. WHAT IS THE PRINCIPAL";P
16 CLS:PRINT:PRINT
17 PA=P
20 INPUT "NOW, WE MUST KNOW THE NUMBER OF PERIODS. THE LOAN WILL RUN. IF YOU WISH TO ENTER THE PERIODS BY MONTH.. TYPE IN THE WORD 'MONTH.' IF ITS YEARS, TYPE IN 'YEAR.' WHICH IS IT";A$
21 IF LEFT$(A$,1)="M" THEN 270
22 IF LEFT$(A$,1)="Y" THEN 260
23 GOTO250
30 CLS:PRINT:PRINT
31 INPUT "LASTLY, WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHA RGED ON THE LOAN. WHAT IS THE RATE";R
32 INPUT " DO YOU WANT A PRINTOUT";PO$: IF LEFT$(PO$,1)="Y" THEN PO=1
35 CLS
40 I=R/12:I=I/100
50 T=1:FOR X=1 TO L
60 T=T*(1+I):NEXT X:T=1/T
70 T=1-T
80 M=P*I/T
90 GOSUB200
100 FOR Z=1 TO L
120 R=(INT(P*I*100+.5))/100
130 B=M-A:P=P-B
140 PRINTTAB(0);:PRINTUSING"###";Z;:IF PO THEN PRINT#-2,TAB(0);:PRINT#-2, USING"###";Z;
142 PRINTTAB(3);:PRINTUSING"###,###.##";P;:IF PO THEN PRINT#-2,TAB(3);:PRINT#-2,USING"###,###.##";P;
144 PRINTTAB(14);:PRINTUSING"#,###.##";B;:IF PO THEN PRINT#-2,TAB(14);:PRINT#-2,USING"#,###.##";B;
146 PRINTTAB(23);:PRINTUSING"#,###.##";A:IF PO THEN PRINT#-2,TAB(23);:PRINT#-2,USING"#,###.##";A
160 Q=Q+1:C=C+1:AT=AT+A:NEXT Z
165 GOTO300
170 END
200 CLS:MA=M+.005:MA= INT(MA*100)/100:IF PO THEN PRINT#-2,TAB(4)"AMORITIZATION SCHEDULE"
201 IF PO THEN PRINT#-2,"PAYMENTS ARE $";MA
202 IF PO THEN PRINT#-2,TAB(4) "BALANCE";
204 IF PO THEN PRINT#-2,TAB(14) "PMT/PRIN";
206 IF PO THEN PRINT#-2,TAB(24) "PMT/INT"
208 PRINT "PAYMENT ARE $";MA
210 PRINTTAB(4)"BALANCE"TAB(14)"PMT/PRIN"TAB(24)"PMT/INT"
220 RETURN
250 CLS(5):PRINT@82,"NO!";
252 PRINT@162,"NEIN!";
254 PRINT@249,"NYET!";
255 PRINT@288," NO NO NO NO NO NO NO NO NO NO"
257 PRINT@132," ";:PRINT" YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. ENTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW. TRY AGAIN."
258 FOR WN=1 TO 3200:NEXT WN:CLS:PRINT:PRINT:GOTO20
260 PRINT
261 INPUT "O.K., NOW WILL YOU PLEASE ENTER THE NUMBER OF YEARS BEFORE YOU PAY OFF THE LOAN";YR
265 L=YR*12:GOTO 30
270 PRINT
271 INPUT "ALL RIGHT, NOW WILL YOU PLEASE ENTER THE NUMBER OF MOHTHS IT WILL TAKE TO FAY OFF THE LOAN";L
275 GOTO 30
300 IF PO THEN PRINT#-2, " ":PRINT#-2,TAB(10)"LOAN SUMMARY":PRINT#-2, TAB(10)"==========="
310 IF PO THEN PRINT#-2,TAB(5)"PRINCIPAL:";PRINT#-2,USING"#####, ###.##";PA
320 IF PO THEN PRINT#-2," PERIODS:"L;:PRINT#-2," RATE: ";:PRINT#-2,USING"##.##";R;:PRINT#-2,"%"
330 IF PO THEN PRINT#-2,STRING$(31,"-")
340 IF PO THEN PRINT#-2,"TOTAL INTEREST: ";:PRINT#-2,USING"$$###,###.##";AT
350 IF PO THEN PRINT#-2," ":PRINT#-2," ":PRINT#-2," "
</pre>

==Screen Shots==
<gallery>
AMORT-1.png|Initial Amount
AMORT-2.png|Month?
AMORT-3.png|How Many?
AMORT-4.png|Rate & Print?
AMORT-5.png|Result
</gallery>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n7 See Rainbow Magazine 1981-08 Pag 8, in archive.org] 
[[file:1981-08.dsk| Virtual disk with programs from (Rainbow 1981-08)]]
[[Category:Software Utilily]][[Category:Educational]][[Category:Mathematics]]

An educational program for everyone (Rainbow 1981-08)

2020-11-04T22:51:53Z

Luis46coco: /* Links */

{{NavRainbow1981-08}}
Here is a program that can really be of use to just about everyone in the family. It is called AMORT and it deals with money at interest.

On one level, it can be used as a regular interest program that wiII help you figure out such things as how much it will cost you a month to buy the new disc drives for your COLOR computer. That's not a bad thing to know.

On the other level, however, there are some explanations built in to help teach those in familiar with the terms involved with money at interest just what the terms mean. And there is a "cute" little default if you don't make the proper response to the amount of time the loan has to run question.

AMORT is written for non-Extended Color Basic, which -- as you know -- does not have the ability to raise numbers to powers. There is a way around that limitation of course, and it can be found in lines 30 and 60. For those of you who do have Extended Color Basic. you might wish to change those lines. The result will be a slightly more accurate result -- especially on the more complicated calculations for longer periods of time.

However, non-Extended Color users will have to change the PRINTUSING com¬mands in lines 140-146, 310 and 340. Just take out the reference to USING and the pound- and dollar-signs. That way, the program will run without any modification on your part.

Finally, notice the use of the variable PO to send output to the printer. If you want. you can eliminate the references to PO, but you would probably be better off leaving them in - in anticipation of the time when you might get a printer. Just answer "No" to the question in line 32 and no harm is done.

Here is the listing:
<pre>
3 '*********************
4 '* AMORT PROGRAM *
5 '* (c) FALSOFT, 1981 *
6 '*********************
11 C=0:CLS
12 PRINT " THIS PROGRAM WILL GENERATE AN AMORITZATION SCHEDULE FOR MOST COMMON LOANS."
13 PRINT:PRINT ">PLEASE FOLLOW DIRECTIONS BELOW<"
14 PRINT STRING$(32,"=")
15 INPUT "FIRST, WE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL LED THE PRINCIPAL. WHAT IS THE PRINCIPAL";P
16 CLS:PRINT:PRINT
17 PA=P
20 INPUT "NOW, WE MUST KNOW THE NUMBER OF PERIODS. THE LOAN WILL RUN. IF YOU WISH TO ENTER THE PERIODS BY MONTH.. TYPE IN THE WORD 'MONTH.' IF ITS YEARS, TYPE IN 'YEAR.' WHICH IS IT";A$
21 IF LEFT$(A$,1)="M" THEN 270
22 IF LEFT$(A$,1)="Y" THEN 260
23 GOTO250
30 CLS:PRINT:PRINT
31 INPUT "LASTLY, WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHA RGED ON THE LOAN. WHAT IS THE RATE";R
32 INPUT " DO YOU WANT A PRINTOUT";PO$: IF LEFT$(PO$,1)="Y" THEN PO=1
35 CLS
40 I=R/12:I=I/100
50 T=1:FOR X=1 TO L
60 T=T*(1+I):NEXT X:T=1/T
70 T=1-T
80 M=P*I/T
90 GOSUB200
100 FOR Z=1 TO L
120 R=(INT(P*I*100+.5))/100
130 B=M-A:P=P-B
140 PRINTTAB(0);:PRINTUSING"###";Z;:IF PO THEN PRINT#-2,TAB(0);:PRINT#-2, USING"###";Z;
142 PRINTTAB(3);:PRINTUSING"###,###.##";P;:IF PO THEN PRINT#-2,TAB(3);:PRINT#-2,USING"###,###.##";P;
144 PRINTTAB(14);:PRINTUSING"#,###.##";B;:IF PO THEN PRINT#-2,TAB(14);:PRINT#-2,USING"#,###.##";B;
146 PRINTTAB(23);:PRINTUSING"#,###.##";A:IF PO THEN PRINT#-2,TAB(23);:PRINT#-2,USING"#,###.##";A
160 Q=Q+1:C=C+1:AT=AT+A:NEXT Z
165 GOTO300
170 END
200 CLS:MA=M+.005:MA= INT(MA*100)/100:IF PO THEN PRINT#-2,TAB(4)"AMORITIZATION SCHEDULE"
201 IF PO THEN PRINT#-2,"PAYMENTS ARE $";MA
202 IF PO THEN PRINT#-2,TAB(4) "BALANCE";
204 IF PO THEN PRINT#-2,TAB(14) "PMT/PRIN";
206 IF PO THEN PRINT#-2,TAB(24) "PMT/INT"
208 PRINT "PAYMENT ARE $";MA
210 PRINTTAB(4)"BALANCE"TAB(14)"PMT/PRIN"TAB(24)"PMT/INT"
220 RETURN
250 CLS(5):PRINT@82,"NO!";
252 PRINT@162,"NEIN!";
254 PRINT@249,"NYET!";
255 PRINT@288," NO NO NO NO NO NO NO NO NO NO"
257 PRINT@132," ";:PRINT" YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. ENTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW. TRY AGAIN."
258 FOR WN=1 TO 3200:NEXT WN:CLS:PRINT:PRINT:GOTO20
260 PRINT
261 INPUT "O.K., NOW WILL YOU PLEASE ENTER THE NUMBER OF YEARS BEFORE YOU PAY OFF THE LOAN";YR
265 L=YR*12:GOTO 30
270 PRINT
271 INPUT "ALL RIGHT, NOW WILL YOU PLEASE ENTER THE NUMBER OF MOHTHS IT WILL TAKE TO FAY OFF THE LOAN";L
275 GOTO 30
300 IF PO THEN PRINT#-2, " ":PRINT#-2,TAB(10)"LOAN SUMMARY":PRINT#-2, TAB(10)"==========="
310 IF PO THEN PRINT#-2,TAB(5)"PRINCIPAL:";PRINT#-2,USING"#####, ###.##";PA
320 IF PO THEN PRINT#-2," PERIODS:"L;:PRINT#-2," RATE: ";:PRINT#-2,USING"##.##";R;:PRINT#-2,"%"
330 IF PO THEN PRINT#-2,STRING$(31,"-")
340 IF PO THEN PRINT#-2,"TOTAL INTEREST: ";:PRINT#-2,USING"$$###,###.##";AT
350 IF PO THEN PRINT#-2," ":PRINT#-2," ":PRINT#-2," "
</pre>

==Screen Shots==
<gallery>
AMORT-1.png|Initial Amount
AMORT-2.png|Month?
AMORT-3.png|How Many?
AMORT-4.png|Rate & Print?
AMORT-5.png|Result
</gallery>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n7 See Rainbow Magazine 1981-08 Pag 8, in archive.org] 
[[file:1981-08.dsk|Virtual disk with programs from (Rainbow 1981-08)]]
[[Category:Software Utilily]][[Category:Educational]][[Category:Mathematics]]

An educational program for everyone (Rainbow 1981-08)

2020-11-04T22:51:20Z

Luis46coco: /* Links */

{{NavRainbow1981-08}}
Here is a program that can really be of use to just about everyone in the family. It is called AMORT and it deals with money at interest.

On one level, it can be used as a regular interest program that wiII help you figure out such things as how much it will cost you a month to buy the new disc drives for your COLOR computer. That's not a bad thing to know.

On the other level, however, there are some explanations built in to help teach those in familiar with the terms involved with money at interest just what the terms mean. And there is a "cute" little default if you don't make the proper response to the amount of time the loan has to run question.

AMORT is written for non-Extended Color Basic, which -- as you know -- does not have the ability to raise numbers to powers. There is a way around that limitation of course, and it can be found in lines 30 and 60. For those of you who do have Extended Color Basic. you might wish to change those lines. The result will be a slightly more accurate result -- especially on the more complicated calculations for longer periods of time.

However, non-Extended Color users will have to change the PRINTUSING com¬mands in lines 140-146, 310 and 340. Just take out the reference to USING and the pound- and dollar-signs. That way, the program will run without any modification on your part.

Finally, notice the use of the variable PO to send output to the printer. If you want. you can eliminate the references to PO, but you would probably be better off leaving them in - in anticipation of the time when you might get a printer. Just answer "No" to the question in line 32 and no harm is done.

Here is the listing:
<pre>
3 '*********************
4 '* AMORT PROGRAM *
5 '* (c) FALSOFT, 1981 *
6 '*********************
11 C=0:CLS
12 PRINT " THIS PROGRAM WILL GENERATE AN AMORITZATION SCHEDULE FOR MOST COMMON LOANS."
13 PRINT:PRINT ">PLEASE FOLLOW DIRECTIONS BELOW<"
14 PRINT STRING$(32,"=")
15 INPUT "FIRST, WE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL LED THE PRINCIPAL. WHAT IS THE PRINCIPAL";P
16 CLS:PRINT:PRINT
17 PA=P
20 INPUT "NOW, WE MUST KNOW THE NUMBER OF PERIODS. THE LOAN WILL RUN. IF YOU WISH TO ENTER THE PERIODS BY MONTH.. TYPE IN THE WORD 'MONTH.' IF ITS YEARS, TYPE IN 'YEAR.' WHICH IS IT";A$
21 IF LEFT$(A$,1)="M" THEN 270
22 IF LEFT$(A$,1)="Y" THEN 260
23 GOTO250
30 CLS:PRINT:PRINT
31 INPUT "LASTLY, WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHA RGED ON THE LOAN. WHAT IS THE RATE";R
32 INPUT " DO YOU WANT A PRINTOUT";PO$: IF LEFT$(PO$,1)="Y" THEN PO=1
35 CLS
40 I=R/12:I=I/100
50 T=1:FOR X=1 TO L
60 T=T*(1+I):NEXT X:T=1/T
70 T=1-T
80 M=P*I/T
90 GOSUB200
100 FOR Z=1 TO L
120 R=(INT(P*I*100+.5))/100
130 B=M-A:P=P-B
140 PRINTTAB(0);:PRINTUSING"###";Z;:IF PO THEN PRINT#-2,TAB(0);:PRINT#-2, USING"###";Z;
142 PRINTTAB(3);:PRINTUSING"###,###.##";P;:IF PO THEN PRINT#-2,TAB(3);:PRINT#-2,USING"###,###.##";P;
144 PRINTTAB(14);:PRINTUSING"#,###.##";B;:IF PO THEN PRINT#-2,TAB(14);:PRINT#-2,USING"#,###.##";B;
146 PRINTTAB(23);:PRINTUSING"#,###.##";A:IF PO THEN PRINT#-2,TAB(23);:PRINT#-2,USING"#,###.##";A
160 Q=Q+1:C=C+1:AT=AT+A:NEXT Z
165 GOTO300
170 END
200 CLS:MA=M+.005:MA= INT(MA*100)/100:IF PO THEN PRINT#-2,TAB(4)"AMORITIZATION SCHEDULE"
201 IF PO THEN PRINT#-2,"PAYMENTS ARE $";MA
202 IF PO THEN PRINT#-2,TAB(4) "BALANCE";
204 IF PO THEN PRINT#-2,TAB(14) "PMT/PRIN";
206 IF PO THEN PRINT#-2,TAB(24) "PMT/INT"
208 PRINT "PAYMENT ARE $";MA
210 PRINTTAB(4)"BALANCE"TAB(14)"PMT/PRIN"TAB(24)"PMT/INT"
220 RETURN
250 CLS(5):PRINT@82,"NO!";
252 PRINT@162,"NEIN!";
254 PRINT@249,"NYET!";
255 PRINT@288," NO NO NO NO NO NO NO NO NO NO"
257 PRINT@132," ";:PRINT" YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. ENTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW. TRY AGAIN."
258 FOR WN=1 TO 3200:NEXT WN:CLS:PRINT:PRINT:GOTO20
260 PRINT
261 INPUT "O.K., NOW WILL YOU PLEASE ENTER THE NUMBER OF YEARS BEFORE YOU PAY OFF THE LOAN";YR
265 L=YR*12:GOTO 30
270 PRINT
271 INPUT "ALL RIGHT, NOW WILL YOU PLEASE ENTER THE NUMBER OF MOHTHS IT WILL TAKE TO FAY OFF THE LOAN";L
275 GOTO 30
300 IF PO THEN PRINT#-2, " ":PRINT#-2,TAB(10)"LOAN SUMMARY":PRINT#-2, TAB(10)"==========="
310 IF PO THEN PRINT#-2,TAB(5)"PRINCIPAL:";PRINT#-2,USING"#####, ###.##";PA
320 IF PO THEN PRINT#-2," PERIODS:"L;:PRINT#-2," RATE: ";:PRINT#-2,USING"##.##";R;:PRINT#-2,"%"
330 IF PO THEN PRINT#-2,STRING$(31,"-")
340 IF PO THEN PRINT#-2,"TOTAL INTEREST: ";:PRINT#-2,USING"$$###,###.##";AT
350 IF PO THEN PRINT#-2," ":PRINT#-2," ":PRINT#-2," "
</pre>

==Screen Shots==
<gallery>
AMORT-1.png|Initial Amount
AMORT-2.png|Month?
AMORT-3.png|How Many?
AMORT-4.png|Rate & Print?
AMORT-5.png|Result
</gallery>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n7 See Rainbow Magazine 1981-08 Pag 8, in archive.org] 
Virtual disk with programs from (Rainbow 1981-08):[file:1981-08.dsk]
[[Category:Software Utilily]][[Category:Educational]][[Category:Mathematics]]

An educational program for everyone (Rainbow 1981-08)

2020-11-04T22:50:35Z

Luis46coco: /* Links */

{{NavRainbow1981-08}}
Here is a program that can really be of use to just about everyone in the family. It is called AMORT and it deals with money at interest.

On one level, it can be used as a regular interest program that wiII help you figure out such things as how much it will cost you a month to buy the new disc drives for your COLOR computer. That's not a bad thing to know.

On the other level, however, there are some explanations built in to help teach those in familiar with the terms involved with money at interest just what the terms mean. And there is a "cute" little default if you don't make the proper response to the amount of time the loan has to run question.

AMORT is written for non-Extended Color Basic, which -- as you know -- does not have the ability to raise numbers to powers. There is a way around that limitation of course, and it can be found in lines 30 and 60. For those of you who do have Extended Color Basic. you might wish to change those lines. The result will be a slightly more accurate result -- especially on the more complicated calculations for longer periods of time.

However, non-Extended Color users will have to change the PRINTUSING com¬mands in lines 140-146, 310 and 340. Just take out the reference to USING and the pound- and dollar-signs. That way, the program will run without any modification on your part.

Finally, notice the use of the variable PO to send output to the printer. If you want. you can eliminate the references to PO, but you would probably be better off leaving them in - in anticipation of the time when you might get a printer. Just answer "No" to the question in line 32 and no harm is done.

Here is the listing:
<pre>
3 '*********************
4 '* AMORT PROGRAM *
5 '* (c) FALSOFT, 1981 *
6 '*********************
11 C=0:CLS
12 PRINT " THIS PROGRAM WILL GENERATE AN AMORITZATION SCHEDULE FOR MOST COMMON LOANS."
13 PRINT:PRINT ">PLEASE FOLLOW DIRECTIONS BELOW<"
14 PRINT STRING$(32,"=")
15 INPUT "FIRST, WE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL LED THE PRINCIPAL. WHAT IS THE PRINCIPAL";P
16 CLS:PRINT:PRINT
17 PA=P
20 INPUT "NOW, WE MUST KNOW THE NUMBER OF PERIODS. THE LOAN WILL RUN. IF YOU WISH TO ENTER THE PERIODS BY MONTH.. TYPE IN THE WORD 'MONTH.' IF ITS YEARS, TYPE IN 'YEAR.' WHICH IS IT";A$
21 IF LEFT$(A$,1)="M" THEN 270
22 IF LEFT$(A$,1)="Y" THEN 260
23 GOTO250
30 CLS:PRINT:PRINT
31 INPUT "LASTLY, WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHA RGED ON THE LOAN. WHAT IS THE RATE";R
32 INPUT " DO YOU WANT A PRINTOUT";PO$: IF LEFT$(PO$,1)="Y" THEN PO=1
35 CLS
40 I=R/12:I=I/100
50 T=1:FOR X=1 TO L
60 T=T*(1+I):NEXT X:T=1/T
70 T=1-T
80 M=P*I/T
90 GOSUB200
100 FOR Z=1 TO L
120 R=(INT(P*I*100+.5))/100
130 B=M-A:P=P-B
140 PRINTTAB(0);:PRINTUSING"###";Z;:IF PO THEN PRINT#-2,TAB(0);:PRINT#-2, USING"###";Z;
142 PRINTTAB(3);:PRINTUSING"###,###.##";P;:IF PO THEN PRINT#-2,TAB(3);:PRINT#-2,USING"###,###.##";P;
144 PRINTTAB(14);:PRINTUSING"#,###.##";B;:IF PO THEN PRINT#-2,TAB(14);:PRINT#-2,USING"#,###.##";B;
146 PRINTTAB(23);:PRINTUSING"#,###.##";A:IF PO THEN PRINT#-2,TAB(23);:PRINT#-2,USING"#,###.##";A
160 Q=Q+1:C=C+1:AT=AT+A:NEXT Z
165 GOTO300
170 END
200 CLS:MA=M+.005:MA= INT(MA*100)/100:IF PO THEN PRINT#-2,TAB(4)"AMORITIZATION SCHEDULE"
201 IF PO THEN PRINT#-2,"PAYMENTS ARE $";MA
202 IF PO THEN PRINT#-2,TAB(4) "BALANCE";
204 IF PO THEN PRINT#-2,TAB(14) "PMT/PRIN";
206 IF PO THEN PRINT#-2,TAB(24) "PMT/INT"
208 PRINT "PAYMENT ARE $";MA
210 PRINTTAB(4)"BALANCE"TAB(14)"PMT/PRIN"TAB(24)"PMT/INT"
220 RETURN
250 CLS(5):PRINT@82,"NO!";
252 PRINT@162,"NEIN!";
254 PRINT@249,"NYET!";
255 PRINT@288," NO NO NO NO NO NO NO NO NO NO"
257 PRINT@132," ";:PRINT" YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. ENTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW. TRY AGAIN."
258 FOR WN=1 TO 3200:NEXT WN:CLS:PRINT:PRINT:GOTO20
260 PRINT
261 INPUT "O.K., NOW WILL YOU PLEASE ENTER THE NUMBER OF YEARS BEFORE YOU PAY OFF THE LOAN";YR
265 L=YR*12:GOTO 30
270 PRINT
271 INPUT "ALL RIGHT, NOW WILL YOU PLEASE ENTER THE NUMBER OF MOHTHS IT WILL TAKE TO FAY OFF THE LOAN";L
275 GOTO 30
300 IF PO THEN PRINT#-2, " ":PRINT#-2,TAB(10)"LOAN SUMMARY":PRINT#-2, TAB(10)"==========="
310 IF PO THEN PRINT#-2,TAB(5)"PRINCIPAL:";PRINT#-2,USING"#####, ###.##";PA
320 IF PO THEN PRINT#-2," PERIODS:"L;:PRINT#-2," RATE: ";:PRINT#-2,USING"##.##";R;:PRINT#-2,"%"
330 IF PO THEN PRINT#-2,STRING$(31,"-")
340 IF PO THEN PRINT#-2,"TOTAL INTEREST: ";:PRINT#-2,USING"$$###,###.##";AT
350 IF PO THEN PRINT#-2," ":PRINT#-2," ":PRINT#-2," "
</pre>

==Screen Shots==
<gallery>
AMORT-1.png|Initial Amount
AMORT-2.png|Month?
AMORT-3.png|How Many?
AMORT-4.png|Rate & Print?
AMORT-5.png|Result
</gallery>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n7 See Rainbow Magazine 1981-08 Pag 8, in archive.org] 
Virtual disk with programs from (Rainbow 1981-08):[[file:1981-08.dsk]]
[[Category:Software Utilily]][[Category:Educational]][[Category:Mathematics]]

An educational program for everyone (Rainbow 1981-08)

2020-11-04T22:50:06Z

Luis46coco: /* Links */

{{NavRainbow1981-08}}
Here is a program that can really be of use to just about everyone in the family. It is called AMORT and it deals with money at interest.

On one level, it can be used as a regular interest program that wiII help you figure out such things as how much it will cost you a month to buy the new disc drives for your COLOR computer. That's not a bad thing to know.

On the other level, however, there are some explanations built in to help teach those in familiar with the terms involved with money at interest just what the terms mean. And there is a "cute" little default if you don't make the proper response to the amount of time the loan has to run question.

AMORT is written for non-Extended Color Basic, which -- as you know -- does not have the ability to raise numbers to powers. There is a way around that limitation of course, and it can be found in lines 30 and 60. For those of you who do have Extended Color Basic. you might wish to change those lines. The result will be a slightly more accurate result -- especially on the more complicated calculations for longer periods of time.

However, non-Extended Color users will have to change the PRINTUSING com¬mands in lines 140-146, 310 and 340. Just take out the reference to USING and the pound- and dollar-signs. That way, the program will run without any modification on your part.

Finally, notice the use of the variable PO to send output to the printer. If you want. you can eliminate the references to PO, but you would probably be better off leaving them in - in anticipation of the time when you might get a printer. Just answer "No" to the question in line 32 and no harm is done.

Here is the listing:
<pre>
3 '*********************
4 '* AMORT PROGRAM *
5 '* (c) FALSOFT, 1981 *
6 '*********************
11 C=0:CLS
12 PRINT " THIS PROGRAM WILL GENERATE AN AMORITZATION SCHEDULE FOR MOST COMMON LOANS."
13 PRINT:PRINT ">PLEASE FOLLOW DIRECTIONS BELOW<"
14 PRINT STRING$(32,"=")
15 INPUT "FIRST, WE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL LED THE PRINCIPAL. WHAT IS THE PRINCIPAL";P
16 CLS:PRINT:PRINT
17 PA=P
20 INPUT "NOW, WE MUST KNOW THE NUMBER OF PERIODS. THE LOAN WILL RUN. IF YOU WISH TO ENTER THE PERIODS BY MONTH.. TYPE IN THE WORD 'MONTH.' IF ITS YEARS, TYPE IN 'YEAR.' WHICH IS IT";A$
21 IF LEFT$(A$,1)="M" THEN 270
22 IF LEFT$(A$,1)="Y" THEN 260
23 GOTO250
30 CLS:PRINT:PRINT
31 INPUT "LASTLY, WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHA RGED ON THE LOAN. WHAT IS THE RATE";R
32 INPUT " DO YOU WANT A PRINTOUT";PO$: IF LEFT$(PO$,1)="Y" THEN PO=1
35 CLS
40 I=R/12:I=I/100
50 T=1:FOR X=1 TO L
60 T=T*(1+I):NEXT X:T=1/T
70 T=1-T
80 M=P*I/T
90 GOSUB200
100 FOR Z=1 TO L
120 R=(INT(P*I*100+.5))/100
130 B=M-A:P=P-B
140 PRINTTAB(0);:PRINTUSING"###";Z;:IF PO THEN PRINT#-2,TAB(0);:PRINT#-2, USING"###";Z;
142 PRINTTAB(3);:PRINTUSING"###,###.##";P;:IF PO THEN PRINT#-2,TAB(3);:PRINT#-2,USING"###,###.##";P;
144 PRINTTAB(14);:PRINTUSING"#,###.##";B;:IF PO THEN PRINT#-2,TAB(14);:PRINT#-2,USING"#,###.##";B;
146 PRINTTAB(23);:PRINTUSING"#,###.##";A:IF PO THEN PRINT#-2,TAB(23);:PRINT#-2,USING"#,###.##";A
160 Q=Q+1:C=C+1:AT=AT+A:NEXT Z
165 GOTO300
170 END
200 CLS:MA=M+.005:MA= INT(MA*100)/100:IF PO THEN PRINT#-2,TAB(4)"AMORITIZATION SCHEDULE"
201 IF PO THEN PRINT#-2,"PAYMENTS ARE $";MA
202 IF PO THEN PRINT#-2,TAB(4) "BALANCE";
204 IF PO THEN PRINT#-2,TAB(14) "PMT/PRIN";
206 IF PO THEN PRINT#-2,TAB(24) "PMT/INT"
208 PRINT "PAYMENT ARE $";MA
210 PRINTTAB(4)"BALANCE"TAB(14)"PMT/PRIN"TAB(24)"PMT/INT"
220 RETURN
250 CLS(5):PRINT@82,"NO!";
252 PRINT@162,"NEIN!";
254 PRINT@249,"NYET!";
255 PRINT@288," NO NO NO NO NO NO NO NO NO NO"
257 PRINT@132," ";:PRINT" YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. ENTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW. TRY AGAIN."
258 FOR WN=1 TO 3200:NEXT WN:CLS:PRINT:PRINT:GOTO20
260 PRINT
261 INPUT "O.K., NOW WILL YOU PLEASE ENTER THE NUMBER OF YEARS BEFORE YOU PAY OFF THE LOAN";YR
265 L=YR*12:GOTO 30
270 PRINT
271 INPUT "ALL RIGHT, NOW WILL YOU PLEASE ENTER THE NUMBER OF MOHTHS IT WILL TAKE TO FAY OFF THE LOAN";L
275 GOTO 30
300 IF PO THEN PRINT#-2, " ":PRINT#-2,TAB(10)"LOAN SUMMARY":PRINT#-2, TAB(10)"==========="
310 IF PO THEN PRINT#-2,TAB(5)"PRINCIPAL:";PRINT#-2,USING"#####, ###.##";PA
320 IF PO THEN PRINT#-2," PERIODS:"L;:PRINT#-2," RATE: ";:PRINT#-2,USING"##.##";R;:PRINT#-2,"%"
330 IF PO THEN PRINT#-2,STRING$(31,"-")
340 IF PO THEN PRINT#-2,"TOTAL INTEREST: ";:PRINT#-2,USING"$$###,###.##";AT
350 IF PO THEN PRINT#-2," ":PRINT#-2," ":PRINT#-2," "
</pre>

==Screen Shots==
<gallery>
AMORT-1.png|Initial Amount
AMORT-2.png|Month?
AMORT-3.png|How Many?
AMORT-4.png|Rate & Print?
AMORT-5.png|Result
</gallery>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n7 See Rainbow Magazine 1981-08 Pag 8, in archive.org] 
Virtual disk with programs from (Rainbow 1981-08):[[file:1981-07.dsk]]
[[Category:Software Utilily]][[Category:Educational]][[Category:Mathematics]]

An educational program for everyone (Rainbow 1981-08)

2020-11-04T22:46:38Z

Luis46coco: /* Links */

{{NavRainbow1981-08}}
Here is a program that can really be of use to just about everyone in the family. It is called AMORT and it deals with money at interest.

On one level, it can be used as a regular interest program that wiII help you figure out such things as how much it will cost you a month to buy the new disc drives for your COLOR computer. That's not a bad thing to know.

On the other level, however, there are some explanations built in to help teach those in familiar with the terms involved with money at interest just what the terms mean. And there is a "cute" little default if you don't make the proper response to the amount of time the loan has to run question.

AMORT is written for non-Extended Color Basic, which -- as you know -- does not have the ability to raise numbers to powers. There is a way around that limitation of course, and it can be found in lines 30 and 60. For those of you who do have Extended Color Basic. you might wish to change those lines. The result will be a slightly more accurate result -- especially on the more complicated calculations for longer periods of time.

However, non-Extended Color users will have to change the PRINTUSING com¬mands in lines 140-146, 310 and 340. Just take out the reference to USING and the pound- and dollar-signs. That way, the program will run without any modification on your part.

Finally, notice the use of the variable PO to send output to the printer. If you want. you can eliminate the references to PO, but you would probably be better off leaving them in - in anticipation of the time when you might get a printer. Just answer "No" to the question in line 32 and no harm is done.

Here is the listing:
<pre>
3 '*********************
4 '* AMORT PROGRAM *
5 '* (c) FALSOFT, 1981 *
6 '*********************
11 C=0:CLS
12 PRINT " THIS PROGRAM WILL GENERATE AN AMORITZATION SCHEDULE FOR MOST COMMON LOANS."
13 PRINT:PRINT ">PLEASE FOLLOW DIRECTIONS BELOW<"
14 PRINT STRING$(32,"=")
15 INPUT "FIRST, WE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL LED THE PRINCIPAL. WHAT IS THE PRINCIPAL";P
16 CLS:PRINT:PRINT
17 PA=P
20 INPUT "NOW, WE MUST KNOW THE NUMBER OF PERIODS. THE LOAN WILL RUN. IF YOU WISH TO ENTER THE PERIODS BY MONTH.. TYPE IN THE WORD 'MONTH.' IF ITS YEARS, TYPE IN 'YEAR.' WHICH IS IT";A$
21 IF LEFT$(A$,1)="M" THEN 270
22 IF LEFT$(A$,1)="Y" THEN 260
23 GOTO250
30 CLS:PRINT:PRINT
31 INPUT "LASTLY, WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHA RGED ON THE LOAN. WHAT IS THE RATE";R
32 INPUT " DO YOU WANT A PRINTOUT";PO$: IF LEFT$(PO$,1)="Y" THEN PO=1
35 CLS
40 I=R/12:I=I/100
50 T=1:FOR X=1 TO L
60 T=T*(1+I):NEXT X:T=1/T
70 T=1-T
80 M=P*I/T
90 GOSUB200
100 FOR Z=1 TO L
120 R=(INT(P*I*100+.5))/100
130 B=M-A:P=P-B
140 PRINTTAB(0);:PRINTUSING"###";Z;:IF PO THEN PRINT#-2,TAB(0);:PRINT#-2, USING"###";Z;
142 PRINTTAB(3);:PRINTUSING"###,###.##";P;:IF PO THEN PRINT#-2,TAB(3);:PRINT#-2,USING"###,###.##";P;
144 PRINTTAB(14);:PRINTUSING"#,###.##";B;:IF PO THEN PRINT#-2,TAB(14);:PRINT#-2,USING"#,###.##";B;
146 PRINTTAB(23);:PRINTUSING"#,###.##";A:IF PO THEN PRINT#-2,TAB(23);:PRINT#-2,USING"#,###.##";A
160 Q=Q+1:C=C+1:AT=AT+A:NEXT Z
165 GOTO300
170 END
200 CLS:MA=M+.005:MA= INT(MA*100)/100:IF PO THEN PRINT#-2,TAB(4)"AMORITIZATION SCHEDULE"
201 IF PO THEN PRINT#-2,"PAYMENTS ARE $";MA
202 IF PO THEN PRINT#-2,TAB(4) "BALANCE";
204 IF PO THEN PRINT#-2,TAB(14) "PMT/PRIN";
206 IF PO THEN PRINT#-2,TAB(24) "PMT/INT"
208 PRINT "PAYMENT ARE $";MA
210 PRINTTAB(4)"BALANCE"TAB(14)"PMT/PRIN"TAB(24)"PMT/INT"
220 RETURN
250 CLS(5):PRINT@82,"NO!";
252 PRINT@162,"NEIN!";
254 PRINT@249,"NYET!";
255 PRINT@288," NO NO NO NO NO NO NO NO NO NO"
257 PRINT@132," ";:PRINT" YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. ENTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW. TRY AGAIN."
258 FOR WN=1 TO 3200:NEXT WN:CLS:PRINT:PRINT:GOTO20
260 PRINT
261 INPUT "O.K., NOW WILL YOU PLEASE ENTER THE NUMBER OF YEARS BEFORE YOU PAY OFF THE LOAN";YR
265 L=YR*12:GOTO 30
270 PRINT
271 INPUT "ALL RIGHT, NOW WILL YOU PLEASE ENTER THE NUMBER OF MOHTHS IT WILL TAKE TO FAY OFF THE LOAN";L
275 GOTO 30
300 IF PO THEN PRINT#-2, " ":PRINT#-2,TAB(10)"LOAN SUMMARY":PRINT#-2, TAB(10)"==========="
310 IF PO THEN PRINT#-2,TAB(5)"PRINCIPAL:";PRINT#-2,USING"#####, ###.##";PA
320 IF PO THEN PRINT#-2," PERIODS:"L;:PRINT#-2," RATE: ";:PRINT#-2,USING"##.##";R;:PRINT#-2,"%"
330 IF PO THEN PRINT#-2,STRING$(31,"-")
340 IF PO THEN PRINT#-2,"TOTAL INTEREST: ";:PRINT#-2,USING"$$###,###.##";AT
350 IF PO THEN PRINT#-2," ":PRINT#-2," ":PRINT#-2," "
</pre>

==Screen Shots==
<gallery>
AMORT-1.png|Initial Amount
AMORT-2.png|Month?
AMORT-3.png|How Many?
AMORT-4.png|Rate & Print?
AMORT-5.png|Result
</gallery>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n7 See Rainbow Magazine 1981-08 Pag 8, in archive.org] 
[[file:1982-07.dsk|Programs in 1981-08 disk image 1982-07.dsk]]
[[Category:Software Utilily]][[Category:Educational]][[Category:Mathematics]]

An educational program for everyone (Rainbow 1981-08)

2020-11-04T22:45:05Z

Luis46coco: /* Links */

{{NavRainbow1981-08}}
Here is a program that can really be of use to just about everyone in the family. It is called AMORT and it deals with money at interest.

On one level, it can be used as a regular interest program that wiII help you figure out such things as how much it will cost you a month to buy the new disc drives for your COLOR computer. That's not a bad thing to know.

On the other level, however, there are some explanations built in to help teach those in familiar with the terms involved with money at interest just what the terms mean. And there is a "cute" little default if you don't make the proper response to the amount of time the loan has to run question.

AMORT is written for non-Extended Color Basic, which -- as you know -- does not have the ability to raise numbers to powers. There is a way around that limitation of course, and it can be found in lines 30 and 60. For those of you who do have Extended Color Basic. you might wish to change those lines. The result will be a slightly more accurate result -- especially on the more complicated calculations for longer periods of time.

However, non-Extended Color users will have to change the PRINTUSING com¬mands in lines 140-146, 310 and 340. Just take out the reference to USING and the pound- and dollar-signs. That way, the program will run without any modification on your part.

Finally, notice the use of the variable PO to send output to the printer. If you want. you can eliminate the references to PO, but you would probably be better off leaving them in - in anticipation of the time when you might get a printer. Just answer "No" to the question in line 32 and no harm is done.

Here is the listing:
<pre>
3 '*********************
4 '* AMORT PROGRAM *
5 '* (c) FALSOFT, 1981 *
6 '*********************
11 C=0:CLS
12 PRINT " THIS PROGRAM WILL GENERATE AN AMORITZATION SCHEDULE FOR MOST COMMON LOANS."
13 PRINT:PRINT ">PLEASE FOLLOW DIRECTIONS BELOW<"
14 PRINT STRING$(32,"=")
15 INPUT "FIRST, WE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL LED THE PRINCIPAL. WHAT IS THE PRINCIPAL";P
16 CLS:PRINT:PRINT
17 PA=P
20 INPUT "NOW, WE MUST KNOW THE NUMBER OF PERIODS. THE LOAN WILL RUN. IF YOU WISH TO ENTER THE PERIODS BY MONTH.. TYPE IN THE WORD 'MONTH.' IF ITS YEARS, TYPE IN 'YEAR.' WHICH IS IT";A$
21 IF LEFT$(A$,1)="M" THEN 270
22 IF LEFT$(A$,1)="Y" THEN 260
23 GOTO250
30 CLS:PRINT:PRINT
31 INPUT "LASTLY, WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHA RGED ON THE LOAN. WHAT IS THE RATE";R
32 INPUT " DO YOU WANT A PRINTOUT";PO$: IF LEFT$(PO$,1)="Y" THEN PO=1
35 CLS
40 I=R/12:I=I/100
50 T=1:FOR X=1 TO L
60 T=T*(1+I):NEXT X:T=1/T
70 T=1-T
80 M=P*I/T
90 GOSUB200
100 FOR Z=1 TO L
120 R=(INT(P*I*100+.5))/100
130 B=M-A:P=P-B
140 PRINTTAB(0);:PRINTUSING"###";Z;:IF PO THEN PRINT#-2,TAB(0);:PRINT#-2, USING"###";Z;
142 PRINTTAB(3);:PRINTUSING"###,###.##";P;:IF PO THEN PRINT#-2,TAB(3);:PRINT#-2,USING"###,###.##";P;
144 PRINTTAB(14);:PRINTUSING"#,###.##";B;:IF PO THEN PRINT#-2,TAB(14);:PRINT#-2,USING"#,###.##";B;
146 PRINTTAB(23);:PRINTUSING"#,###.##";A:IF PO THEN PRINT#-2,TAB(23);:PRINT#-2,USING"#,###.##";A
160 Q=Q+1:C=C+1:AT=AT+A:NEXT Z
165 GOTO300
170 END
200 CLS:MA=M+.005:MA= INT(MA*100)/100:IF PO THEN PRINT#-2,TAB(4)"AMORITIZATION SCHEDULE"
201 IF PO THEN PRINT#-2,"PAYMENTS ARE $";MA
202 IF PO THEN PRINT#-2,TAB(4) "BALANCE";
204 IF PO THEN PRINT#-2,TAB(14) "PMT/PRIN";
206 IF PO THEN PRINT#-2,TAB(24) "PMT/INT"
208 PRINT "PAYMENT ARE $";MA
210 PRINTTAB(4)"BALANCE"TAB(14)"PMT/PRIN"TAB(24)"PMT/INT"
220 RETURN
250 CLS(5):PRINT@82,"NO!";
252 PRINT@162,"NEIN!";
254 PRINT@249,"NYET!";
255 PRINT@288," NO NO NO NO NO NO NO NO NO NO"
257 PRINT@132," ";:PRINT" YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. ENTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW. TRY AGAIN."
258 FOR WN=1 TO 3200:NEXT WN:CLS:PRINT:PRINT:GOTO20
260 PRINT
261 INPUT "O.K., NOW WILL YOU PLEASE ENTER THE NUMBER OF YEARS BEFORE YOU PAY OFF THE LOAN";YR
265 L=YR*12:GOTO 30
270 PRINT
271 INPUT "ALL RIGHT, NOW WILL YOU PLEASE ENTER THE NUMBER OF MOHTHS IT WILL TAKE TO FAY OFF THE LOAN";L
275 GOTO 30
300 IF PO THEN PRINT#-2, " ":PRINT#-2,TAB(10)"LOAN SUMMARY":PRINT#-2, TAB(10)"==========="
310 IF PO THEN PRINT#-2,TAB(5)"PRINCIPAL:";PRINT#-2,USING"#####, ###.##";PA
320 IF PO THEN PRINT#-2," PERIODS:"L;:PRINT#-2," RATE: ";:PRINT#-2,USING"##.##";R;:PRINT#-2,"%"
330 IF PO THEN PRINT#-2,STRING$(31,"-")
340 IF PO THEN PRINT#-2,"TOTAL INTEREST: ";:PRINT#-2,USING"$$###,###.##";AT
350 IF PO THEN PRINT#-2," ":PRINT#-2," ":PRINT#-2," "
</pre>

==Screen Shots==
<gallery>
AMORT-1.png|Initial Amount
AMORT-2.png|Month?
AMORT-3.png|How Many?
AMORT-4.png|Rate & Print?
AMORT-5.png|Result
</gallery>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n7 See Rainbow Magazine 1981-08 Pag 8, in archive.org] 
[[file:1982-07.dsk Programs in 1981-08 Disk Image]]
[[Category:Software Utilily]][[Category:Educational]][[Category:Mathematics]]

An educational program for everyone (Rainbow 1981-08)

2020-11-04T22:42:36Z

Luis46coco: /* Links */

{{NavRainbow1981-08}}
Here is a program that can really be of use to just about everyone in the family. It is called AMORT and it deals with money at interest.

On one level, it can be used as a regular interest program that wiII help you figure out such things as how much it will cost you a month to buy the new disc drives for your COLOR computer. That's not a bad thing to know.

On the other level, however, there are some explanations built in to help teach those in familiar with the terms involved with money at interest just what the terms mean. And there is a "cute" little default if you don't make the proper response to the amount of time the loan has to run question.

AMORT is written for non-Extended Color Basic, which -- as you know -- does not have the ability to raise numbers to powers. There is a way around that limitation of course, and it can be found in lines 30 and 60. For those of you who do have Extended Color Basic. you might wish to change those lines. The result will be a slightly more accurate result -- especially on the more complicated calculations for longer periods of time.

However, non-Extended Color users will have to change the PRINTUSING com¬mands in lines 140-146, 310 and 340. Just take out the reference to USING and the pound- and dollar-signs. That way, the program will run without any modification on your part.

Finally, notice the use of the variable PO to send output to the printer. If you want. you can eliminate the references to PO, but you would probably be better off leaving them in - in anticipation of the time when you might get a printer. Just answer "No" to the question in line 32 and no harm is done.

Here is the listing:
<pre>
3 '*********************
4 '* AMORT PROGRAM *
5 '* (c) FALSOFT, 1981 *
6 '*********************
11 C=0:CLS
12 PRINT " THIS PROGRAM WILL GENERATE AN AMORITZATION SCHEDULE FOR MOST COMMON LOANS."
13 PRINT:PRINT ">PLEASE FOLLOW DIRECTIONS BELOW<"
14 PRINT STRING$(32,"=")
15 INPUT "FIRST, WE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL LED THE PRINCIPAL. WHAT IS THE PRINCIPAL";P
16 CLS:PRINT:PRINT
17 PA=P
20 INPUT "NOW, WE MUST KNOW THE NUMBER OF PERIODS. THE LOAN WILL RUN. IF YOU WISH TO ENTER THE PERIODS BY MONTH.. TYPE IN THE WORD 'MONTH.' IF ITS YEARS, TYPE IN 'YEAR.' WHICH IS IT";A$
21 IF LEFT$(A$,1)="M" THEN 270
22 IF LEFT$(A$,1)="Y" THEN 260
23 GOTO250
30 CLS:PRINT:PRINT
31 INPUT "LASTLY, WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHA RGED ON THE LOAN. WHAT IS THE RATE";R
32 INPUT " DO YOU WANT A PRINTOUT";PO$: IF LEFT$(PO$,1)="Y" THEN PO=1
35 CLS
40 I=R/12:I=I/100
50 T=1:FOR X=1 TO L
60 T=T*(1+I):NEXT X:T=1/T
70 T=1-T
80 M=P*I/T
90 GOSUB200
100 FOR Z=1 TO L
120 R=(INT(P*I*100+.5))/100
130 B=M-A:P=P-B
140 PRINTTAB(0);:PRINTUSING"###";Z;:IF PO THEN PRINT#-2,TAB(0);:PRINT#-2, USING"###";Z;
142 PRINTTAB(3);:PRINTUSING"###,###.##";P;:IF PO THEN PRINT#-2,TAB(3);:PRINT#-2,USING"###,###.##";P;
144 PRINTTAB(14);:PRINTUSING"#,###.##";B;:IF PO THEN PRINT#-2,TAB(14);:PRINT#-2,USING"#,###.##";B;
146 PRINTTAB(23);:PRINTUSING"#,###.##";A:IF PO THEN PRINT#-2,TAB(23);:PRINT#-2,USING"#,###.##";A
160 Q=Q+1:C=C+1:AT=AT+A:NEXT Z
165 GOTO300
170 END
200 CLS:MA=M+.005:MA= INT(MA*100)/100:IF PO THEN PRINT#-2,TAB(4)"AMORITIZATION SCHEDULE"
201 IF PO THEN PRINT#-2,"PAYMENTS ARE $";MA
202 IF PO THEN PRINT#-2,TAB(4) "BALANCE";
204 IF PO THEN PRINT#-2,TAB(14) "PMT/PRIN";
206 IF PO THEN PRINT#-2,TAB(24) "PMT/INT"
208 PRINT "PAYMENT ARE $";MA
210 PRINTTAB(4)"BALANCE"TAB(14)"PMT/PRIN"TAB(24)"PMT/INT"
220 RETURN
250 CLS(5):PRINT@82,"NO!";
252 PRINT@162,"NEIN!";
254 PRINT@249,"NYET!";
255 PRINT@288," NO NO NO NO NO NO NO NO NO NO"
257 PRINT@132," ";:PRINT" YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. ENTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW. TRY AGAIN."
258 FOR WN=1 TO 3200:NEXT WN:CLS:PRINT:PRINT:GOTO20
260 PRINT
261 INPUT "O.K., NOW WILL YOU PLEASE ENTER THE NUMBER OF YEARS BEFORE YOU PAY OFF THE LOAN";YR
265 L=YR*12:GOTO 30
270 PRINT
271 INPUT "ALL RIGHT, NOW WILL YOU PLEASE ENTER THE NUMBER OF MOHTHS IT WILL TAKE TO FAY OFF THE LOAN";L
275 GOTO 30
300 IF PO THEN PRINT#-2, " ":PRINT#-2,TAB(10)"LOAN SUMMARY":PRINT#-2, TAB(10)"==========="
310 IF PO THEN PRINT#-2,TAB(5)"PRINCIPAL:";PRINT#-2,USING"#####, ###.##";PA
320 IF PO THEN PRINT#-2," PERIODS:"L;:PRINT#-2," RATE: ";:PRINT#-2,USING"##.##";R;:PRINT#-2,"%"
330 IF PO THEN PRINT#-2,STRING$(31,"-")
340 IF PO THEN PRINT#-2,"TOTAL INTEREST: ";:PRINT#-2,USING"$$###,###.##";AT
350 IF PO THEN PRINT#-2," ":PRINT#-2," ":PRINT#-2," "
</pre>

==Screen Shots==
<gallery>
AMORT-1.png|Initial Amount
AMORT-2.png|Month?
AMORT-3.png|How Many?
AMORT-4.png|Rate & Print?
AMORT-5.png|Result
</gallery>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n7 See Rainbow Magazine 1981-08 Pag 8, in archive.org]<Bk>
[[file:1982-07.dsk Programs in 1981-08 Disk Image]]
[[Category:Software Utilily]][[Category:Educational]][[Category:Mathematics]]

An educational program for everyone (Rainbow 1981-08)

2020-11-04T22:40:33Z

Luis46coco: /* Links */

{{NavRainbow1981-08}}
Here is a program that can really be of use to just about everyone in the family. It is called AMORT and it deals with money at interest.

On one level, it can be used as a regular interest program that wiII help you figure out such things as how much it will cost you a month to buy the new disc drives for your COLOR computer. That's not a bad thing to know.

On the other level, however, there are some explanations built in to help teach those in familiar with the terms involved with money at interest just what the terms mean. And there is a "cute" little default if you don't make the proper response to the amount of time the loan has to run question.

AMORT is written for non-Extended Color Basic, which -- as you know -- does not have the ability to raise numbers to powers. There is a way around that limitation of course, and it can be found in lines 30 and 60. For those of you who do have Extended Color Basic. you might wish to change those lines. The result will be a slightly more accurate result -- especially on the more complicated calculations for longer periods of time.

However, non-Extended Color users will have to change the PRINTUSING com¬mands in lines 140-146, 310 and 340. Just take out the reference to USING and the pound- and dollar-signs. That way, the program will run without any modification on your part.

Finally, notice the use of the variable PO to send output to the printer. If you want. you can eliminate the references to PO, but you would probably be better off leaving them in - in anticipation of the time when you might get a printer. Just answer "No" to the question in line 32 and no harm is done.

Here is the listing:
<pre>
3 '*********************
4 '* AMORT PROGRAM *
5 '* (c) FALSOFT, 1981 *
6 '*********************
11 C=0:CLS
12 PRINT " THIS PROGRAM WILL GENERATE AN AMORITZATION SCHEDULE FOR MOST COMMON LOANS."
13 PRINT:PRINT ">PLEASE FOLLOW DIRECTIONS BELOW<"
14 PRINT STRING$(32,"=")
15 INPUT "FIRST, WE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL LED THE PRINCIPAL. WHAT IS THE PRINCIPAL";P
16 CLS:PRINT:PRINT
17 PA=P
20 INPUT "NOW, WE MUST KNOW THE NUMBER OF PERIODS. THE LOAN WILL RUN. IF YOU WISH TO ENTER THE PERIODS BY MONTH.. TYPE IN THE WORD 'MONTH.' IF ITS YEARS, TYPE IN 'YEAR.' WHICH IS IT";A$
21 IF LEFT$(A$,1)="M" THEN 270
22 IF LEFT$(A$,1)="Y" THEN 260
23 GOTO250
30 CLS:PRINT:PRINT
31 INPUT "LASTLY, WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHA RGED ON THE LOAN. WHAT IS THE RATE";R
32 INPUT " DO YOU WANT A PRINTOUT";PO$: IF LEFT$(PO$,1)="Y" THEN PO=1
35 CLS
40 I=R/12:I=I/100
50 T=1:FOR X=1 TO L
60 T=T*(1+I):NEXT X:T=1/T
70 T=1-T
80 M=P*I/T
90 GOSUB200
100 FOR Z=1 TO L
120 R=(INT(P*I*100+.5))/100
130 B=M-A:P=P-B
140 PRINTTAB(0);:PRINTUSING"###";Z;:IF PO THEN PRINT#-2,TAB(0);:PRINT#-2, USING"###";Z;
142 PRINTTAB(3);:PRINTUSING"###,###.##";P;:IF PO THEN PRINT#-2,TAB(3);:PRINT#-2,USING"###,###.##";P;
144 PRINTTAB(14);:PRINTUSING"#,###.##";B;:IF PO THEN PRINT#-2,TAB(14);:PRINT#-2,USING"#,###.##";B;
146 PRINTTAB(23);:PRINTUSING"#,###.##";A:IF PO THEN PRINT#-2,TAB(23);:PRINT#-2,USING"#,###.##";A
160 Q=Q+1:C=C+1:AT=AT+A:NEXT Z
165 GOTO300
170 END
200 CLS:MA=M+.005:MA= INT(MA*100)/100:IF PO THEN PRINT#-2,TAB(4)"AMORITIZATION SCHEDULE"
201 IF PO THEN PRINT#-2,"PAYMENTS ARE $";MA
202 IF PO THEN PRINT#-2,TAB(4) "BALANCE";
204 IF PO THEN PRINT#-2,TAB(14) "PMT/PRIN";
206 IF PO THEN PRINT#-2,TAB(24) "PMT/INT"
208 PRINT "PAYMENT ARE $";MA
210 PRINTTAB(4)"BALANCE"TAB(14)"PMT/PRIN"TAB(24)"PMT/INT"
220 RETURN
250 CLS(5):PRINT@82,"NO!";
252 PRINT@162,"NEIN!";
254 PRINT@249,"NYET!";
255 PRINT@288," NO NO NO NO NO NO NO NO NO NO"
257 PRINT@132," ";:PRINT" YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. ENTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW. TRY AGAIN."
258 FOR WN=1 TO 3200:NEXT WN:CLS:PRINT:PRINT:GOTO20
260 PRINT
261 INPUT "O.K., NOW WILL YOU PLEASE ENTER THE NUMBER OF YEARS BEFORE YOU PAY OFF THE LOAN";YR
265 L=YR*12:GOTO 30
270 PRINT
271 INPUT "ALL RIGHT, NOW WILL YOU PLEASE ENTER THE NUMBER OF MOHTHS IT WILL TAKE TO FAY OFF THE LOAN";L
275 GOTO 30
300 IF PO THEN PRINT#-2, " ":PRINT#-2,TAB(10)"LOAN SUMMARY":PRINT#-2, TAB(10)"==========="
310 IF PO THEN PRINT#-2,TAB(5)"PRINCIPAL:";PRINT#-2,USING"#####, ###.##";PA
320 IF PO THEN PRINT#-2," PERIODS:"L;:PRINT#-2," RATE: ";:PRINT#-2,USING"##.##";R;:PRINT#-2,"%"
330 IF PO THEN PRINT#-2,STRING$(31,"-")
340 IF PO THEN PRINT#-2,"TOTAL INTEREST: ";:PRINT#-2,USING"$$###,###.##";AT
350 IF PO THEN PRINT#-2," ":PRINT#-2," ":PRINT#-2," "
</pre>

==Screen Shots==
<gallery>
AMORT-1.png|Initial Amount
AMORT-2.png|Month?
AMORT-3.png|How Many?
AMORT-4.png|Rate & Print?
AMORT-5.png|Result
</gallery>

==Links==
[https://archive.org/details/rainbowmagazine-1981-08/page/n7 See Rainbow Magazine 1981-08 Pag 8, in archive.org]
[[file:1982-07.DSK Programs in 1981-08 Disk Image]]
[[Category:Software Utilily]][[Category:Educational]][[Category:Mathematics]]