10 REM +++++++++++++++++++++++++++++++++
11 REM ! Program ....   MEMSTAT
12 REM ! Utg}va  1.0    1982-02-05
13 REM ! av (c) Sven J|nsson
14 REM ! Minne 16 Kbytes
15 REM ! Ins{nt av 707
16 REM +++++++++++++++++++++++++++++++++
17 REM 
18 REM 65408; LD (65504),SP :  LD HL,(65504) :  PUSH HL :  LD BC,(HEAP)
19 DATA 237,115,224,255,42,224,255,229,237,75,65056,254 
20 REM 65420; PUSH BC :  AND A :  SBC HL,BC :  PUSH HL :  LD H,B :  LD L,C :  LD BC,(EOFA) :  SBC HL,BC 
21 DATA 197,167,237,66,229,96,105,237,75,65054,254,237,66
22 REM 65433; DEC HL :  POP DE :  PUSH BC :  PUSH HL :  LD H,B :  LD L,C :  LD BC,(BOFA)
23 DATA 43,209,197,229,96,105,237,75,65052,254
24 REM 65443; SBC HL,BC :  POP AF :  PUSH BC :  PUSH DE :  PUSH AF :  PUSH HL 
25 DATA 237,66,241,197,213,245,229
26 REM 
27 REM ** UTSKRIFT 
28 REM 65450; LD A,7 :  LD IX,65011 :  LD HL,65508 :  EX AF,AF'
29 DATA 62,7,221,33,243,253,33,65508,255,8,
30 REM 65467; LD BC,4 :  CALL(WRLI) :  EX (SP),HL :  INC DE 
31 DATA 1,4,0,205,11,0,227,19
32 REM 65475; CALL(65491) :  PUCH IX :  CALL(CRLF) :  POP IX :  POP HL :  EX AF,AF'
33 DATA 205,65491,255,221,229,205,564,2,221,225 
34 DATA 225,8
35 REM 65480; DEC A :  JR NZ -24 :  LD A(65060)
36 DATA 61,32,232,58,65060,254
37 REM 65485; AND A :  RET Z :  JP 204 
38 DATA 167,200,195,204,0
39 REM 
40 REM F\LJANDE SUBRUTIN ANROPAR RUTIN
41 REM I BASIC-ROMET F\R UTSKRIFT
42 REM AV TAL. H[NSYN TAS TILL DE
43 REM OLIKA CHECK-SUMMORNA.
44 REM 
45 REM 65491; PUSH HL :  LD HL,6240 :  LD A,175 :  CP (HL) :  JR Z,+4 :  INC HL :  INC HL :  EX (SP),HL :  RET
46 DATA 229,33,96,24,62,175,190,40,2,35,35,227,201
47 REM 
48 REM UTFYLLNAD 65504-65507
49 REM 65504-65505 ANV[NDS F\R MELLAN- LAGRING AV SP
50 DATA 0,0,0,0
51 REM 
52 REM ** TEXT
53 REM 65508;PROG VAR. LED. BOFA EOFA HEAP SP
54 DATA 80,82,79,71,86,65,82,46,76,69,68,46,66,79,70,65,69,79,70,65,72,69,65,80,83,80,32,32
55 ONERRORGOTO 60 : P%=65408%
56 READ A%
57 POKE P%,A%
58 P%=P%+1%
59 GOTO 56
60 END