10 A=A+1:ONAGOTO20,30,35,40,50,60
20 DV=PEEK(186)
25 LOAD"HRS2.ML1",DV,1
30 LOAD"HRS2.ML2",DV,1
35 LOAD"HRS2.DATA",DV,1
40 LOAD"HRS2.GRAPHICS",DV,1
50 LOAD"HRS2.TITLE",DV,1
60 SYS6121:REM DECOMPRESS FONT
75 FORA=.TO9:POKE781,A:SYS59903:NEXT
80 PRINT"L[207]"CHR$(34)"HRS2.BAS"CHR$(34)","DV;"":PRINT"R[213]1000";
90 POKE198,2:POKE631,13:POKE632,13:END