[Type_ins] Fun Program from EMI cassette tape

Discussion about ZX80 / ZX81 Software
Post Reply
David G
Posts: 387
Joined: Thu Jul 17, 2014 7:58 am
Location: 21 North, 156 West

[Type_ins] Fun Program from EMI cassette tape

Post by David G »

This was included in the EMI brand tape cassette J-card. Probably from early 1982

See the video by 8-Bit Show And Tell: Youtube: The Tiny Type-In Hiding In A 40-Year-Old Blank Computer Cassette

Code: Select all

  10 PRINT "MOVE THE BLACK SPOT BY PRESSING"
  20 PRINT "THE APPROPRIATE ARROWS (KEYS 5,6,8 AND 8)"
  30 PRINT
  40 PRINT "WHEN YOU ARE READY PRESS NEWLINE"
  50 INPUT A$
  60 CLS
  70 LET X=32
  80 LET Y=22
  90 PLOT X,Y
 100 LET X=X+(INKEY$="8")-(INKEY$="5")
 110 LET X=X+(X<0)-(X>63)
 120 LET Y=Y+(INKEY$="7")-(INKEY$="6")
 130 LET Y=Y+(Y<0)-(Y>43)
 140 GOTO 90
It's like an etch-a-sketch program. With the PLOT command and INKEY$, it is more elegant than the VIC-20 version which used POKEs. And for a ZX81 it performs smooth animation. On the other hand, the VIC-20 has a quality keyboard and color output
EMI Fun Program
EMI Fun Program
David G
Posts: 387
Joined: Thu Jul 17, 2014 7:58 am
Location: 21 North, 156 West

Re: [Type_ins] Fun Program from EMI cassette tape

Post by David G »

Aside from the surprising elegant and compact BASIC program, the entire J-card is interesting with many helpful tidbits. Back in the day I might have not even read this card info, but the 8bit Show & Tell has pointed it all out. Good video
THORN EMI
EMITAPE
Computer Cassette
C20


Use to record (SAVE) computer programs or data

Quality, low noise, high output cassette for personal computer program and data

Selected for use with personal computers that link to a standard audio cassetteplayer including:
Sinclair ZX range
Acorn (Atom and BBC Micro)
Commondore (VIC 20 and PET)
Genie
Nascom range
Texas Instruments TI99/4A
and many others

EMITAPE
A product from THORN EMI Tape Limited
A THORN EMI company
Made in UK


EMITAPE Computer Cassette C20

Helpful Hints
When SAVEing (recording) or LOADing (reading) program study the following practical tips:

Do read the appropriate section in the computer user manual

When you have found the right postion for the tone and volume controls keep a note of the settings in a safe place for future reference

As a general rule a straightforward portable mono cassette is at least as satisfactory if not better than a more complex stereo one

For a variety of unplanned reasons (eg. falter in the mains power suppy), the information in the computer memory information the computer memory can be lost whilst you are working on a program. To avoid frustration it is a good practice to periodically save the developing program so that the amount of work to be redone is minimized. (SAVE, giving the program a name which indicates the date and time to ensure you keep track of the latest version and/or note the name as a REMark in the first program statement.)

If you have problem SAVEing and LOADing programs or data which are not resolved by simple tone or volume control adjustments, check all the connections thoroughly.

If you still have problems try saving
- with the output ear lead disconnected
- using a battery driven recorder
- with the TV screen and computer power supply (if separate), further away
- where there is less static (carpet/garment etc.)
- on a different recorder (borrow a friends).

If you make a change to a test working program keep a copy of the old one until the new version is proved.

Similarly to cater for unseen accidents, always keep an extra copy in a safe place, of any program or data that is valuable.

To stop programs or data being accidentally overwritten press out the write-protect tabs.

If subsequent recording is required - cover the gap create above with adhesive tape.


----------------------------------
PROGRAM DETAILS
Name & Date
Memory needed etc.
----------------------------------


Fun Program

Try this fun progam on your computer.

Try SAVEing on your EMITAPE Data Computer Cassette.

VIC 20
10 POKE 36879,8
20 PRINT "~"
30 PRINT "MOVE THE SQUARE USING CURSOR CONTROLS"
40 PRINT "NOW PRESS RETURN"
50 INPUT A$
60 PRINT "~"
70 LET X = 10
80 LET Y = 7922
90 POKE (X+Y),102
100 GET A$
110 LET X = X + (A$ = CHR$(157))-(A$ = CHR$(291))
120 LET X = X + (X > 21)-(X < 0)
130 LET Y = Y + 22 * (A$ = CHR$(145))-22 * (A$ = CHR$(17))
140 LET Y = Y + (Y > 21)- 22 * (Y < 7680)

(To obtain ~ press SHIFT and CLR/HOME key)


ZX 81
10 PRINT "MOVE THE BLACK SPOT BY PRESSING"
20 PRINT "THE APPROPRIATE ARROWS (KEYS 5,6,8 AND 8)"
30 PRINT
40 PRINT "WHEN YOU ARE READY PRESS NEWLINE"
50 INPUT A$
60 CLS
70 LET X=32
80 LET Y=22
90 PLOT X,Y
100 LET X=X+(INKEY$="8")-(INKEY$="5")
110 LET X=X+(X<0)-(X>63)
120 LET Y=Y+(INKEY$="7")-(INKEY$="6")
130 LET Y=Y+(Y<0)-(Y>43)
140 GOTO 90
Post Reply