1000  REM 'TOTAPE' PRINTS CHARS. ON PAPER TAPE *  1570 WORDS = 07 REC'D
1010  REM WRITTEN BY  JEFF BROWN / ARAGON H.S.  /     3-10-76
1020  DIM A$[72],B$[255],C$[62]
1030  C$="ABCDEFGHIJKLMNOPQRSTUVWXYZ -!'=:.,()[]1234567890+*<>;?$#/%&"'34'92
1040  PRINT ": ";
1050  LINPUT A$
1060  PRINT "TURN ON PUNCH."
1070  ENTER 5,H,B$
1080  FOR X=1 TO 20
1090  PRINT '128;
1100  NEXT X
1110  B$=""
1120  FOR X=1 TO LEN(A$)
1130  B5=POS(C$,A$[X,X])
1140  GOTO B5 OF 1270,1290,1310,1330,1350,1370,1390,1410,1430,1450,1470
1150  GOTO B5-11 OF 1490,1510,1530,1550,1570,1590,1610,1630,1650,1670
1160  GOTO B5-21 OF 1690,1710,1730,1750,1770,1790,1810,1830,1850,1870
1170  GOTO B5-31 OF 1890,1910,1930,1950,1970,1990,2010,2030,2050,2070
1180  GOTO B5-41 OF 2090,2110,2130,2150,2170,2190,1550,2210,2230,2250
1190  GOTO B5-51 OF 2270,2290,2310,2330,2350,2370,2390,2410,2430,2450
1200  NEXT X
1210  FOR X=1 TO (20 MIN (255-LEN(B$)))
1220  B$[LEN(B$)+1]='128
1230  NEXT X
1240  PRINT B$;
1250  ENTER 5,H,A$
1260  STOP 
1270  B$[LEN(B$)+1]="_EE_@@"
1280  GOTO 1200
1290  B$[LEN(B$)+1]="_UUJ@@"
1300  GOTO 1200
1310  B$[LEN(B$)+1]="NQQJ@@"
1320  GOTO 1200
1330  B$[LEN(B$)+1]="_QQN@@"
1340  GOTO 1200
1350  B$[LEN(B$)+1]="_UUQ@@"
1360  GOTO 1200
1370  B$[LEN(B$)+1]="_EEA@@"
1380  GOTO 1200
1390  B$[LEN(B$)+1]="NQUM@@"
1400  GOTO 1200
1410  B$[LEN(B$)+1]="_DD_@@"
1420  GOTO 1200
1430  B$[LEN(B$)+1]="Q_Q@@"
1440  GOTO 1200
1450  B$[LEN(B$)+1]="HPPO@@"
1460  GOTO 1200
1470  B$[LEN(B$)+1]="_DJQ@@"
1480  GOTO 1200
1490  B$[LEN(B$)+1]="_PPP@@"
1500  GOTO 1200
1510  B$[LEN(B$)+1]="_BDB_@@"
1520  GOTO 1200
1530  B$[LEN(B$)+1]="_BDH_@@"
1540  GOTO 1200
1550  B$[LEN(B$)+1]="NQQN@@"
1560  GOTO 1200
1570  B$[LEN(B$)+1]="_EEB@@"
1580  GOTO 1200
1590  B$[LEN(B$)+1]="NQQNP@@"
1600  GOTO 1200
1610  B$[LEN(B$)+1]="_EMR@@"
1620  GOTO 1200
1630  B$[LEN(B$)+1]="WUU]@@"
1640  GOTO 1200
1650  B$[LEN(B$)+1]="AA_AA@@"
1660  GOTO 1200
1670  B$[LEN(B$)+1]="OPPO@@"
1680  GOTO 1200
1690  B$[LEN(B$)+1]="GHPHG@@"
1700  GOTO 1200
1710  B$[LEN(B$)+1]="GHPLPHG@@"
1720  GOTO 1200
1730  B$[LEN(B$)+1]="QJDJQ@@"
1740  GOTO 1200
1750  B$[LEN(B$)+1]="AB"'92"BA@@"
1760  GOTO 1200
1770  B$[LEN(B$)+1]="QYUSQ@@"
1780  GOTO 1200
1790  B$[LEN(B$)+1]="@@"
1800  GOTO 1200
1810  B$[LEN(B$)+1]="HHHH@@"
1820  GOTO 1200
1830  B$[LEN(B$)+1]="W@@"
1840  GOTO 1200
1850  B$[LEN(B$)+1]="BA@@"
1860  GOTO 1200
1870  B$[LEN(B$)+1]='12'12'12'12"@@"
1880  GOTO 1200
1890  B$[LEN(B$)+1]='12"@@"
1900  GOTO 1200
1910  B$[LEN(B$)+1]="00@@"
1920  GOTO 1200
1930  B$[LEN(B$)+1]="H0@@"
1940  GOTO 1200
1950  B$[LEN(B$)+1]="NQ@@"
1960  GOTO 1200
1970  B$[LEN(B$)+1]="QN@@"
1980  GOTO 1200
1990  B$[LEN(B$)+1]="_QQ@@"
2000  GOTO 1200
2010  B$[LEN(B$)+1]="QQ_@@"
2020  GOTO 1200
2030  B$[LEN(B$)+1]='18"_P@@"
2040  GOTO 1200
2050  B$[LEN(B$)+1]="RYQV@@"
2060  GOTO 1200
2070  B$[LEN(B$)+1]="QUUJ@@"
2080  GOTO 1200
2090  B$[LEN(B$)+1]="GDD_@@"
2100  GOTO 1200
2110  B$[LEN(B$)+1]="WUM@@"
2120  GOTO 1200
2130  B$[LEN(B$)+1]="NUUH@@"
2140  GOTO 1200
2150  B$[LEN(B$)+1]="CA]CA@@"
2160  GOTO 1200
2170  B$[LEN(B$)+1]="NUUN@@"
2180  GOTO 1200
2190  B$[LEN(B$)+1]="CEE_@@"
2200  GOTO 1200
2210  B$[LEN(B$)+1]="HH<HH@@"
2220  GOTO 1200
2230  B$[LEN(B$)+1]='18'12"?"'12'18"@@"
2240  GOTO 1200
2250  B$[LEN(B$)+1]="HT"'34"@@"
2260  GOTO 1200
2270  B$[LEN(B$)+1]='34"TH@@"
2280  GOTO 1200
2290  B$[LEN(B$)+1]="L0@@"
2300  GOTO 1200
2310  B$[LEN(B$)+1]="A-EG@@"
2320  GOTO 1200
2330  B$[LEN(B$)+1]="WU?U]@@"
2340  GOTO 1200
2350  B$[LEN(B$)+1]="L^^L@@"
2360  GOTO 1200
2370  B$[LEN(B$)+1]=" PH@DBA@@"
2380  GOTO 1200
2390  B$[LEN(B$)+1]=" PHRDBA@@"
2400  GOTO 1200
2410  B$[LEN(B$)+1]='12'18"?"'18"@@"
2420  GOTO 1200
2430  B$[LEN(B$)+1]="GG@@"
2440  GOTO 1200
2450  B$[LEN(B$)+1]="ABD@HP @@"
2460  GOTO 1200
2470  END 
