1HOME
2?:?:? "     WALTERS SOFTWARE CO."
3?:? "           5/8/85"
4FOR x=1 TO 2000:NEXT x
5LOMEM :40000:HOME
8FOR x=29900 TO 29989
10READ y
12POKE x, y
15IF x=29989 THEN GOTO 40
20NEXT x
25DATA   58,28,117,33,164,181,17,159,0,1,0,0,205,243,252,201,0,117,121,125,130,134,138,142
30DATA   147,151,155,160,164,168,173,177,181,0,48,124,200,20,96,172,248,68,144,220,40
35DATA   116,192,12,88,164,58,30,117,33,48,117,17,0,0,1,0,0,205,246,252,201,0,14,1,6,7,205
38DATA   32,253,201,0,8,0,24,0,4,0,8,0,4,0,5,0,0,0
40HOME:?:?:INPUT "  INIT DISK (Y/N) "; b$
50IF b$="N" OR b$="n" THEN GOTO 1000
80?:INPUT "  INIT NAME "; n$
90?:? "  DRIVE (C/D)":GET s$
92?:? "  PUT DISK IN DRIVE "; s$
94?:? "  PRESS ANY KEY WHEN READY":GET y$
95 add=29980:GOSUB 440
100FOR k=0 TO 2
110 j=0+k
120POKE 29907, j
130 l1=PEEK(29934+k): l2=PEEK(29917+k)
140POKE 29904, l1:POKE 29905, l2
150CALL 29900
160NEXT k
170IF LEN(n$)<11 AND LEN(n$)>0 GOTO 200
180GOTO 170
200FOR w=31100 TO 31203
210POKE w, PEEK(w+31326)
220NEXT w
230POKE 31117, 160:POKE 31195, 158
240FOR w=30003 TO 31023:POKE w, 0:NEXT w
250FOR w=31204 TO 32123:POKE w, 0:NEXT w
260FOR w=1 TO LEN(n$)
270 q(w)=ASC(MID$(n$, w, 1))
280IF q(w)>126 OR q(w)<32 OR q(w)=93 OR q(w)=91 OR q(w)=47 GOTO 200
290IF q(w)=44 OR q(w)=42 OR q(w)=41 OR q(w)=40 OR q(w)=34 GOTO 200
300POKE 31099+w, q(w):NEXT w
310POKE 31099+w, 3:POKE 31148, 4:POKE 31169, 1:POKE 31112, 129:POKE 31191, 2
320 add=29982:GOSUB 440: fm=0: t=3
330FOR k=0 TO t-fm
340 j=fm+k
350POKE 29957, j
360 l1=PEEK(29934+k): l2=PEEK(29917+k)
370POKE 29954, l1:POKE 29955, l2
380CALL 29950
390NEXT
400GOTO 40
440IF s$="C" OR s$="c" THEN POKE add, 4: a=1
450IF s$="D" OR s$="d" THEN POKE add, 5: a=1
460RETURN
1000LOMEM :27407
1010HOME:END
