1  REM  ****  HP BASIC PROGRAM LIBRARY  *****************************
2  REM
3  REM        ASCIIZ:  CREATES AN ASCII FILE CONTAINING ALL 256 ASCII
4  REM                 CHARACTERS
5  REM
6  REM        36256  REV B   6/73
7  REM
8  REM  ****  CONTRIBUTED PROGRAM  **********************************
10  REM  *** AARDWOLF & COMPANY WRITING TEAM ***  PHILIP J. TUBB
20  REM  *** ASCIIZ *** 0335 WORDS *** VERSION 7 ***
30  E$="ASCII"
40  READ O1,O2,O3,J1
50  DATA 1,2,3,32
60  DIM A$[64],B$[64],C$[64],D$[64],E$[5]
70  FILES *,ASCII
80  A$=" !##$%&'()*+,-./0123456789:;<=>?"
90  B$="@ABCDEFGHIJKLMNOPQRSTUVWXYZ["'92"]^^"
100  ASSIGN E$,O1,B,"!!"
110  PRINT #O1;A$,B$
120  ASSIGN E$,O1,B,F$
130  READ #O1,O1;C$,D$
140  B$[J1]=D$[J1]
150  A$[O3,O3]=C$[O3]
160  PRINT #O1,O1;A$,B$
170  ASSIGN E$,O1,B,"0000"
180  READ #O1,O1;C$,D$
190  C$[J1+O1]=A$
200  B$[J1+O1]=D$
210  PRINT #O2,O1;C$,B$
220  ASSIGN E$,O1,B,"@@@@@@"
230  PRINT #O1,O2;B$,C$
240  READ #O1,O1
250  READ #O2,O2;A$,B$
260  PRINT #O2;"FOR MORE INFORMATION WRITE:""THE AARDWOLF AND COMPANY WRITING TEAM""2130 BELL COURT""LAKEWOOD, COLO.  80215"
270  END 
