0 REM 02-02-85 <-- last backup
10 PRINT"Eric Gans"
20 PRINT"French Department UCLA"
30 PRINT"Los Angeles, CA 90024"
40 PRINT"02/02/85"
50 PRINT TAB(32)"HEXLOAD":PRINT
60 PRINT"From Soul of CP/M":PRINT
70 REM EG 7/7/84 From Soul of CPM
80 DEFINT A-Z
90 LINE INPUT "File to load ";F$
100 OPEN "I",1,F$
110 INPUT#1,X$
120 IF MID$(X$,2,2)="00" THEN END
130 AD$=MID$(X$,4,4)
140 ST$=MID$(X$,10,LEN(X$)-11)
150 PRINT AD$":";
160 H$="&H"+AD$:AD=VAL(H$)
170 FOR J=1 TO LEN(ST$) STEP 2
180 DA$=MID$(ST$,J,2)
190 H$="&H"+DA$:DA=VAL(H$)
200 POKE AD,DA:AD=AD+1
210 NEXT J
220 GOTO 110