Record Formatter

Developer(s): Tim Ward
Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Record Formatter

Source Code

  10 REM \CD\E7\02\06\0E\21\00\FF\2B\7C\B5\20\FB\10\F6\2A\10\40\23\4E\23\46\23\C5\5E\CD\1F\03\C1\0B\78\B1\20\F4\C9\CD\E7\02\2A\10\40\23\4E\23\46\23\C5\1E\08\DB\FE\D3\FF\17\30\F9\0E\94\06\1A\0D\DB\FE\17\CB\79\79\38\F5\10\F5\20\04\FE\56\30\E4\3F\CB\16\1D\20\DE\C1\0B\78\B1\C8\18\D3
  20 REM %P%R%O%G%R%A%M% %S%E%T% %U%P% % % % % % % % % 
  30 DIM A$(1,1459)
  40 DIM B$(64,32)
  50 DIM A(64)
  60 DIM B(64)
  70 DIM C(64)
  80 LET M=310
  90 LET W=1
 100 FOR X=1 TO 64
 110 PRINT AT 12,0;"ENTER FIELD TITLE       (32 POS)"
 120 INPUT B$(X)
 130 PRINT AT 12,0;"ENTER LENGTH OF FIELD           "
 140 INPUT C(X)
 150 LET A(X)=W
 160 LET B(X)=W+C(X)-1
 170 LET W=W+C(X)
 180 NEXT X
 190 FAST 
 200 LPRINT "RECORD LAYOUT"
 210 LPRINT 
 220 LPRINT "FIELD NAME"
 230 LPRINT "ST POS  END POS  LENGTH FLD NBR."
 240 LPRINT "--------------------------------"
 250 FOR X=1 TO 64
 260 LPRINT B$(X)
 270 LPRINT A(X);TAB 8;B(X);TAB 17;C(X);TAB 25;X
 280 LPRINT 
 290 NEXT X
 300 SLOW 
 310 REM %M%E%N%U% % % % % % % % % % % % % % % % % % % 
 320 CLS 
 330 PRINT TAB 5;"RECORD FORMATTER VER.1"
 340 PRINT TAB 3;"COPYRIGHT 1985 TIM L. WARD",,,
 350 PRINT "DO YOU WISH TO..",,,
 360 PRINT "1)...ENTER A NEW RECORD?",,,
 370 PRINT "2)...CHANGE A RECORD?",,,
 380 PRINT "3)...DISPLAY A RECORD?",,,
 390 PRINT "4)...PRINT A RECORD?",,,
 400 PRINT "5)...PRINT DATA TAPE DIRECTORY?",,,
 410 PRINT "6)...COPY DATA TAPE?",,,
 420 PRINT "7)...COPY PROGRAM?",,,
 430 PRINT "8)...END PROGRAM?",,,
 440 PRINT "ENTER NBR. OF SELECTION"
 450 IF INKEY$="" THEN GOTO 0450
 460 LET I$=INKEY$
 470 IF I$="1" THEN GOSUB 0560
 480 IF I$="2" THEN GOSUB 0770
 490 IF I$="3" THEN GOSUB 1150
 500 IF I$="4" THEN GOSUB 1470
 510 IF I$="5" THEN GOSUB 1690
 520 IF I$="6" THEN GOSUB 2020
 530 IF I$="7" THEN GOTO 2120
 540 IF I$="8" THEN GOSUB 2210
 550 GOTO 0310
 560 REM %E%N%T%E%R% %A% %N%E%W% %R%E%C%O%R%D% % % % % 
 570 CLS 
 580 PRINT ,,,,,,"DO YOU WISH TO ADD A NEW RCD?"
 590 PRINT TAB 11;"(Y, N, OR M)"
 600 GOSUB 2550
 610 IF I$<>"Y" THEN RETURN 
 620 FOR X=1 TO 64
 630 DIM C$(1,C(X))
 640 CLS 
 650 PRINT AT 0,6;"%E%N%T%E%R% %A% %N%E%W% %R%E%C%O%R%D"
 660 PRINT AT 2,0;"PLEASE ENTER INDIVIDUALS:"
 670 PRINT AT 4,0;B$(X)
 680 INPUT C$(1)
 690 PRINT AT 6,0;C$(1)
 700 PRINT "IS THIS CORRECT? (Y  OR N)"
 710 GOSUB 2550
 720 IF I$<>"Y" THEN GOTO 0640
 730 LET A$(1,A(X) TO B(X))=C$(1)
 740 NEXT X
 750 GOSUB 2410
 760 RETURN 
 770 REM %C%H%A%N%G%E% %A% %R%E%C%O%R%D% % % % % % % % 
 780 CLS 
 790 PRINT AT 0,8;"%C%H%A%N%G%E% %A% %R%E%C%O%R%D"
 800 PRINT AT 2,0;"DO YOU WISH TO CHANGE THIS RCD?"
 810 PRINT AT 4,11;"(Y, N, OR M)",,,
 820 FOR X=1 TO 5
 830 PRINT B$(X)
 840 PRINT A$(1,A(X) TO B(X))
 850 NEXT X
 860 GOSUB 2550
 870 IF I$="M" THEN RETURN 
 880 IF I$="Y" THEN GOTO 0920
 890 GOSUB 2410
 900 GOSUB 2280
 910 GOTO 0770
 920 FOR X=1 TO 64
 930 CLS 
 940 PRINT AT 0,8;"%C%H%A%N%G%E% %A% %R%E%C%O%R%D"
 950 PRINT AT 2,0;"CHANGE THIS FIELD? (Y OR N)"
 960 PRINT AT 4,0;B$(X)
 970 PRINT A$(1,A(X) TO B(X))
 980 GOSUB 2550
 990 IF I$="N" THEN NEXT X
1000 IF I$="N" AND X=65 THEN GOTO 1130
1010 DIM C$(1,C(X))
1020 CLS 
1030 PRINT AT 0,8;"%C%H%A%N%G%E% %A% %R%E%C%O%R%D"
1040 PRINT AT 2,0;"PLEASE ENTER INDIVIDUALS:"
1050 PRINT AT 4,0;B$(X)
1060 INPUT C$(1)
1070 PRINT AT 6,0;C$(1)
1080 PRINT "IS THIS CORRECT? (Y OR N)"
1090 GOSUB 2550
1100 IF I$<>"Y" THEN GOTO 1020
1110 LET A$(1,A(X) TO B(X))=C$(1)
1120 NEXT X
1130 GOSUB 2410
1140 RETURN 
1150 REM %D%I%S%P%L%A%Y% %A% %R%E%C%O%R%D% % % % % % % 
1160 CLS 
1170 PRINT AT 0,8;"%D%I%S%P%L%A%Y% %A% %R%E%C%O%R%D"
1180 PRINT AT 2,0;"DO YOU WISH TO DISPLAY THIS RCD?"
1190 PRINT AT 4,11;"(Y, N, OR M)"
1200 FOR X=1 TO 5
1210 PRINT B$(X)
1220 PRINT A$(1,A(X) TO B(X))
1230 NEXT X
1240 GOSUB 2550
1250 IF I$="M" THEN RETURN 
1260 IF I$="Y" THEN GOTO 1290
1270 GOSUB 2280
1280 GOTO 1150
1290 CLS 
1300 FOR X=1 TO 64
1310 PRINT AT 0,8;"%D%I%S%P%L%A%Y% %A% %R%E%C%O%R%D"
1320 PRINT AT 2,0;"RECORD DISPLAYED IS FOR..."
1330 PRINT AT 4,0;"GEN/CODE NBR. ";A$(1, TO 5)
1340 PRINT AT 5,0;A$(1,6 TO 20)
1350 PRINT AT 6,0;A$(1,21 TO 35)
1360 PRINT AT 7,0;A$(1,36 TO 50)
1370 PRINT AT 8,0;A$(1,51 TO 65)
1380 PRINT AT 15,0;"%P%R%E%S%S% %E%N%T%E%R% %F%O%R% %N%E%X%T% %F%I%E%L%D% % % % % % "
1390 PRINT AT 16,0;"%P%R%E%S%S% %"%M%"% %T%O% %R%E%T%U%R%N% %T%O% % %M%E%N%U% % % % "
1400 PRINT AT 10,0;B$(X)
1410 PRINT AT 12,0;A$(1,A(X) TO B(X))
1420 IF INKEY$="" THEN GOTO 1420
1430 IF INKEY$="M" THEN RETURN 
1440 PRINT AT 12,0;"                                "
1450 NEXT X
1460 RETURN 
1470 REM %P%R%I%N%T% %A% %R%E%C%O%R%D% % % % % % % % % 
1480 CLS 
1490 PRINT AT 0,8;"%P%R%I%N%T% %A% %R%E%C%O%R%D"
1500 PRINT AT 2,0;"DO YOU WISH TO PRINT THIS RCD?"
1510 PRINT AT 4,11;"(Y, N, OR M)",,,
1520 FOR X=1 TO 5
1530 PRINT B$(X)
1540 PRINT A$(1,A(X) TO B(X))
1550 NEXT X
1560 GOSUB 2550
1570 IF I$="Y" THEN GOTO 1610
1580 IF I$="M" THEN RETURN 
1590 GOSUB 2280
1600 GOTO 1470
1610 FAST 
1620 FOR X=1 TO 64
1630 LPRINT B$(X)
1640 LPRINT A$(1,A(X) TO B(X))
1650 LPRINT 
1660 NEXT X
1670 SLOW 
1680 RETURN 
1690 REM %P%R%I%N%T% %D%/%T% %D%I%R%E%C%T%O%R%Y% % % % 
1700 CLS 
1710 PRINT AT 0,5;"%D%A%T%A% %T%A%P%E% %D%I%R%E%C%T%O%R%Y"
1720 PRINT AT 4,0;"IS THE PRINTER ON ? (Y, N, OR M)"
1730 GOSUB 2550
1740 IF I$="M" THEN RETURN 
1750 IF I$="Y" THEN GOTO 1790
1760 PRINT AT 12,0;"PLEASE TURN THE PRINTER ON"
1770 PRINT AT 14,0;"PRESS ENTER WHEN PRINTER IS ON"
1780 INPUT I$
1790 CLS 
1800 PRINT AT 0,5;"%D%A%T%A% %T%A%P%E% %D%I%R%E%C%T%O%R%Y"
1810 PRINT AT 4,0;"PLACE OLD DATA TAPE IN TAPE DECK"
1820 PRINT AT 6,0;"PRESS ""PLAY"" ON TAPE DECK"
1830 PRINT AT 8,0;"PRESS ""ENTER"" ON COMPUTER"
1840 INPUT I$
1850 LPRINT "% % % % % % % DATA TAPE DIRECTORY% % % % % % ",,
1860 LPRINT "GEN/"
1870 LPRINT "CODE  FIRST/LAST NAME",,,
1880 FOR X=1 TO 35
1890 RAND USR 16549
1900 DIM C$(1,36)
1910 LET C$(1)=A$(1,1 TO 5)+" "+A$(1,6 TO 20)+A$(1,51 TO 65)
1920 LET D$=""
1930 FOR Y=1 TO 36
1940 IF C$(1,Y)=" " THEN GOTO 1970
1950 LET D$=D$+C$(1,Y)
1960 IF C$(1,Y+1)=" " THEN LET D$=D$+" "
1970 NEXT Y
1980 LPRINT D$
1990 LPRINT 
2000 NEXT X
2010 RETURN 
2020 REM %C%O%P%Y% %D%A%T%A% %T%A%P%E% % % % % % % % % 
2030 CLS 
2040 PRINT ,,,,,,"HOW MANY RECORDS DO YOU WISH TO",,,"COPY? (1 TO 35)"
2050 INPUT Z
2060 IF Z>35 THEN GOTO 2020
2070 FOR X=1 TO Z
2080 GOSUB 2280
2090 GOSUB 2410
2100 NEXT X
2110 RETURN 
2120 REM %C%O%P%Y% %P%R%O%G%R%A%M% % % % % % % % % % % 
2130 CLS 
2140 PRINT ,,,,,,"PLACE BLANK PROGRAM TAPE IN TAPE",,"DECK, PRESS ""PLAY/RECORD"" ON",,,"TAPE DECK, PRESS ""ENTER"" ON",,,"COMPUTER."
2150 INPUT I$
2160 CLS 
2170 SAVE "FORMATTE%R"
2180 PRINT ,,,,,,"PRESS ""STOP"" ON TAPE DECK",,,"PRESS ""ENTER"" ON COMPUTER."
2190 INPUT I$
2200 GOTO 0310
2210 REM %E%N%D% %P%R%O%G%R%A%M% % % % % % % % % % % % 
2220 CLS 
2230 PRINT ,,,,,,"ARE YOU SURE YOU WANT TO QUIT?"
2240 PRINT TAB 11;"(Y, N, OR M)"
2250 GOSUB 2550
2260 IF I$="Y" THEN NEW 
2270 RETURN 
2280 REM %R%E%A%D% %R%E%C%O%R%D% %O%N% %T%A%P%E% % % % 
2290 CLS 
2300 PRINT AT 2,0;"PLACE OLD DATA TAPE IN TAPE DECK"
2310 PRINT AT 4,0;"PRESS ""PLAY"" ON TAPE DECK"
2320 PRINT AT 6,0;"PRESS ""ENTER"" ON COMPUTER"
2330 INPUT Z$
2340 RAND USR 16549
2350 CLS 
2360 SLOW 
2370 PRINT AT 12,0;"PRESS ""STOP"" ON TAPE DECK"
2380 PRINT AT 14,0;"PRESS ""ENTER"" ON COMPUTER"
2390 INPUT Z$
2400 RETURN 
2410 REM %W%R%I%T%E% %R%E%C%O%R%D% %O%N% %T%A%P%E% % % 
2420 CLS 
2430 PRINT AT 2,0;"PLACE NEW DATA TAPE IN TAPE DECK"
2440 PRINT AT 4,0;"PRESS ""PLAY/RECORD"" ON TAPE"
2450 PRINT "DECK"
2460 PRINT AT 7,0;"PRESS ""ENTER"" ON COMPUTER"
2470 INPUT Z$
2480 RAND USR 16514
2490 CLS 
2500 SLOW 
2510 PRINT AT 12,0;"PRESS ""STOP"" ON TAPE DECK"
2520 PRINT AT 14,0;"PRESS ""ENTER"" ON COMPUTER"
2530 INPUT Z$
2540 RETURN 
2550 REM %I%N%P%U%T% %C%H%E%C%K%E%R% %(%Y% %O%R% %N%)% 
2560 IF INKEY$="" THEN GOTO 2550
2570 LET I$=INKEY$
2580 IF I$<>"Y" AND I$<>"N" AND I$<>"M" THEN GOTO 2550
2590 RETURN 
2600 SAVE "1016%0"
2610 GOTO 300
Scroll to Top