1 IFX=0THENX=1:LOAD"ML BACTERIOLAB",8,1
5 DIMC%(1000):POKE53280,11:POKE53281,0
10 C=55296:PRINT"[147]"CHR$(142);:SYS 49600   :POKE 650,128
12 FORX=CTOC+1000:POKEX,0:C%(X-55296)=0:   NEXT
20 GET A$:A=PEEK(C+K):POKEC+K,             NOT(AAND1)AND(AOR1)
25 IFA$="K"THEN1000
27 IFA$="L"THEN2000
28 IFA$="_"THEN63000
29 IFA$="[147]"THEN10
30 IF A$="*" THEN S=1:D=1:GOTO 150
40 IF A$=CHR$(13) THEN200
50 IF A$="" THEN D=1:GOTO 150
60 IF A$="[157]" THEN D=-1:GOTO 150
70 IF A$="" THEN D=40:GOTO 150
80 IF A$="[145]" THEN D=-40:GOTO 150
90 IF A$=" " THEN S=0:D=1:GOTO 150
100 FOR I=1 TO 100:NEXT:GOTO20
150 POKE C+K,S:C%(C+K-55296)=SAND15:        K=K+D:IFK>999ORK<0THENK=K-D
160 S=PEEK(C+K):GOTO 20
200 POKE C+K,S:SYS 49310:GOTO3000
900 :
1000 REM    SAVE A FILE  ADDED BY L.S.
1010 PRINT"[147] SAVE [146]"
1020 PRINT"FILENAME (X=EXIT)";
1030 INPUTF$:IFF$="X"THEN3000
1040 OPEN2,8,2,F$+",S,W"
1050 FORX=0TO999:PRINT#2,                    MID$(STR$(C%(X)),2);:NEXT
1060 PRINT" DONE [146]":FORDL=1TO800:NEXT:         GOTO3000
1070 :
2000 REM   LOAD A FILE   ADDED BY L.S.
2010 PRINT"[147] LOAD [146]"
2020 PRINT"FILENAME (X=EXIT)";
2030 INPUTF$:IFF$="X"THEN3000
2040 OPEN15,8,15
2060 OPEN2,8,2,F$
2070 INPUT#15,ER,ER$
2080 IFER<19THEN2100
2090 PRINT"[147] ERROR !":                PRINT"CODE :"ER;ER$
2095 FORDL=1TO800:NEXT:GOTO3000
2100 FORX=0TO999:GET#2,C$:C%(X)=VAL(C$):     NEXT
2110 PRINT" DONE [146]":FORDL=1TO800:NEXT:          GOTO3000
2200 :
3000 REM   RESET SCREEN   ADDED BY L.S.
3005 CLOSE2:CLOSE15
3010 SYS49600:FORX=CTOC+1000:POKE53280,    X-(INT(X/256)*256):POKEX,C%(X-C):NEXT
3020 GOTO20
63000 REM   CONNECT TO L.S.
63010 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:        END