2068 Program Index

This simple program is easily adaptable to virtually any computer. It not only provides a modicum of security, but files all your stored programs by digital location on tape, eliminating a lengthy title-by-title search. I always incorporate an attention-getting BEEP at the beginning of each program SAVEd LINE 1 so that I may divert to other productive activities while passing the few minutes delay required for LOADing lengthy data. One last note: LINE 0 was obtained from Randall Larson‘s “NO DELETE PROGRAM” listed in the NOV/DEC ’87 issue of TDM (“In The Mailbag”). Originally intended for the Spectrum, it functions perfectly without modification on the TS2068.

   0>REM 1985:V. Phillip Hosey
   1 PRINT "STOP TAPE:CODE?": INPUT A$: IF A
$<>"(any CODE you want)"  THEN  NEW
  10 BORDER 0: PAPER 0: FOR l=0 TO 21: CLS :
 PRINT  INK 7;AT 1,0;": V. Phillip Hosey/T
S-2068:1985": BEEP .01,-1: NEXT l
  20 INK 2: CIRCLE 80,92,81
  23 INK 4: CIRCLE 207,55,43
  25 INK 1: CIRCLE 198,136,32
  30 PRINT  INK 6;AT 2,10;"1";AT 3,7;"Progra
m";AT 4,7;"-INDEX-";AT 14,23;"16k=90";AT 15
,23;"second";AT 16,22;"loadtime";AT 4,22;"I
NKEY$"; FLASH 1;AT 5,24;"#?": FLASH 0
  40 FOR n=0 TO 9: READ A$: PRINT  INK 3;AT
n+6,2;n;" "; INK 7;A$: NEXT n
  50 FOR y=0 TO 31: PRINT  INK 7;AT 21,y;"."
;AT 21,y;" "
  60 IF INKEY$="" THEN  NEXT y: BEEP .01,9:
GO TO 50
  65 IF INKEY$="0" THEN  GO TO 95
  81 IF INKEY$="1" THEN  LET t=15
  82 IF INKEY$="2" THEN  LET t=46
  83 IF INKEY$="3" THEN  LET t=56
  84 IF INKEY$="4" THEN  LET t=70
  85 IF INKEY$="5" THEN  LET t=110
  86 IF INKEY$="6" THEN  LET t=145
  87 IF INKEY$="7" THEN  LET t=165
  88 IF INKEY$="8" THEN  LET t=200
  89 IF INKEY$="9" THEN  LET t=300
  90 PRINT  INK 5;AT 3,22;"Start ";AT 4,22;"
 Tape ";AT 5,22;" Now ";AT 14,23;"Fast- ";
AT 15,23;"Forward";AT 16,22;" Tape To"; FLA
SH 1;AT 17,25;t;AT 21,7;"* PAUSE TO  LOAD
";INKEY$; FLASH 0: INK 7: LOAD INKEY$
  95 CLS : LIST 99: BEEP 1,30: PRINT ; FLASH
 1;"REWIND TAPE THEN  SAVE ": FLASH 0
  99 DATA "Index Editor","BattleStarXEMIT","
 MSCRIPT Master","Printer Drive","Accounts:1
987","TS-2068 CDP","File Matrix","SmartMode
m","WordWright","Dive Guide"

Line 1: I use my computer’s serial number as an access code.

Lines 81-89: You will insert these digital locations after SAVEing your programs. (Ignore these samples)

Line 99: You can list program names in order prior to storage. (Ignore these samples)