0 A=A+1:ONAGOTO1,2,3,4,9
1 DV=PEEK(186):GOSUB60000:GOTO0
2 LOAD"HRWS.ML1.V1.0",DV,1
3 LOAD"HRWS.ML2.V1.0",DV,1
4 J=39040:POKE829,J/256:POKE828,J-PEEK(829)*256:SYSJ+291:POKE768,123:POKE769,154
5 S=PEEK(653):IFSTHEN:#80,S
6 #4,49152,57151,49152-(SAND3)*8192,1,1
7 POKE808,234+3*SGN(SAND4)
8 LOAD"SYS.DEFAULT",DV,1
9 #4,720,767,40960-48,.,1
10 POKE2,0
12 I=256:A=16194:B=128*I-1:H=INT(A/I):L=A-H*I:POKE56,B/I:POKE55,B-PEEK(56)*I
15 PRINT"[144]P[207]"A-1",.:P[207]44,"H":P[207]43,"L":NEW"
20 PRINT"L[207]"CHR$(34)"HRWS.BAS.V1.0"CHR$(34)","DV"":PRINT"R[213]";
30 POKE198,3:FORA=631TOA+2:POKEA,13:NEXT:END
10000 DV=PEEK(186):N$="B.WORKSTATION":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV
10010 END
60000 PRINT"[147]":POKE53280,.:POKE53281,.
60005 Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO10:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[200] [201] - [210] [197] [211]  [215] [207] [210] [203] [211] [212] [193] [212] [201] [207] [206]":Z$(1)="VERSION 1.0"
60035 Z$(2)="BY [193]NDREW [205]ARTIN"
60040 Z$(4)="([195]) 1998 BY [202] & [198] [208]UBLISHING, [201]NC."
60050 Z$(5)="[212]HIS PROGRAM IS NOT SHAREWARE
60070 Z$(6)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(8)[178]"1-800-594-3370 OR 1-318-221-8718
60090 POKE214,12:PRINT
60100 FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN