Frame Save

Here is a short program written for the 1000 that can be used to create graphic pictures, text or a combination of both.

The program has two menu options, frame entry or frame display.

Prompt #1 asks which frame is to be used. Since 10 total frames are allowed, enter a number from 1 to 10.

Frame entry is done with the INPUT command in the FAST mode so the text or graphics are displayed at the bottom of the screen as they are typed. Pressing the ENTER key will return the menu.

Prompt #2 allows these frames to be displayed.

This type of routine allows for quick recall of text or graphics. It is a simply designed program that can be easily expanded with additional routines such as printout, editing, save on tape, etc.

  10 LET X=PEEK 16396+256*PEEK 16397
  20 DIM A$(10,704)
  30 FAST
 100 CLS
 110 PRINT ,,"       FRAME SAVE "
 120 PRINT ,,,,"TO ENTER A FRAME             1 "
 130 PRINT ,,"TO SEE A FRAME               2 "
 140 SLOW
 200 LET B$=INKEY$
 210 IF CODE B$<29 OR CODE B$>30 THEN GOTO 200
 220 FAST
 230 CLS
 240 GOTO VAL B$*1000
 999 STOP
1000 PRINT "WHAT FRAME?"
1010 SLOW
1020 INPUT Y
1030 FAST
1040 CLS
1100 INPUT B$
1110 LET A$(Y)=B$
1120 GOTO 100
2000 PRINT "WHAT FRAME?"
2010 SLOW
2020 INPUT Y
2030 FAST
2040 CLS
2050 PRINT A$(Y);
2060 SLOW
2100 LET B$=INKEY$
2110 IF B$="" THEN GOTO 2100
2120 FAST
2130 GOTO 100

Changing the codes in line 210 to the proper values (look them up) and deleting the FAST/SLOW lines will make this program work on the 2068.

The first line does nothing for the program but I put it in just in case you may want to write a routine that PEEKs and POKEs the screen. “X” determines the number that represents the memory location just before the first screen memory location (won’t work on the 2068). If you decide to go this route, remember the screen has 33 columns and the 33rd column isn’t used and POKEing its location can have disastrous effects.