32600 IF FL THEN 3261632602 DIM L$(115),SV$(115),C2$(2),B$(115),M$(119),S$(98),E$(69),A$(1):FL=1:STMTAB=PEEK(136)+PEEK(137)*25632604 GRAPHICS 0:POKE 710,0:P=0:ABR=0:? "ALLOW ABBREVIATIONS";:INPUT A$:IF A$="Y" OR A$="y" THEN ABR=132606 B$(1)=" ":B$(115)=" ":B$(2)=B$32608 M$(1)="hhhhhͩ Dڬ˅ Dڭ "32610 M$(59)=" ٥ԍՍmmаԭ`"32612 S$="hhhhhإXͥYήi(͐@`ɀi 8@rױ Ȅ`"32614 E$="hhhإͥΠȱe͐ͅΰ7`"32616 OPEN #17,4,0,"E:":L$=" ":GOSUB 32662:START=032618 POKE 766,1:POKE 83,39:POSITION 1,3:IF LEN(L$)<39 THEN ? L$:GOTO 3262432620 IF LEN(L$)<77 THEN ? L$(1,38):? L$(39,LEN(L$)):GOTO 3262432622 ? L$(1,38):? L$(39,76):? L$(77,LEN(L$))32624 POKE 752,0:POKE 766,0:POKE 559,34:POKE 82,1:POKE 83,38:POSITION 0,10:? " ";:INPUT #17;L$:POKE 766,132626 IF (L$="P" OR L$="p") AND START=0 THEN P=1:L$=""32628 IF L$="E" OR L$="e" THEN E=1:POSITION 1,10:? SV$:GOTO 3262432630 IF L$="Q" OR L$="q" THEN 3269032632 IF L$="" AND P=1 THEN 3268632634 IF L$="" THEN 3262432636 IF L$="B" OR L$="b" THEN GRAPHICS 0:? "TYPE 'GOTO 32600' TO CONTINUE":END 32638 IF L$(1,1)="E" OR L$(1,1)="e" THEN E=1:TRAP 32624:EL=VAL(L$(2)):POSITION 1,9:LIST EL:GOTO 3262432640 SV$=L$:TRAP 32624:X=VAL(L$)32642 START=1:IF P AND NOT E THEN 3265232644 GOSUB 32674:IF NOT ABR OR P THEN 3265232646 POKE 766,0:? CHR$(125):POSITION 0,3:L=VAL(L$):LIST L:? :? :? "CONT":L$=B$32648 POSITION 0,0:POKE 842,13:STOP 32650 POKE 842,12:A=USR(ADR(S$),ADR(L$),4):L$=L$(1,A)32652 CHKSUM=USR(ADR(M$),ADR(L$),LEN(L$)):CHKSUM=CHKSUM+PEEK(1542)*6553632654 CHK=CHKSUM-(INT(CHKSUM/676)*676):HI=INT(CHK/26):LO=CHK-(HI*26):C2$(1)=CHR$(HI+65):C2$(2)=CHR$(LO+65)32656 IF NOT P OR E THEN E=0:GOSUB 32662:IF NOT P THEN 3266032658 POKE 83,39:POKE 752,1:FOR X=3 TO 5:POSITION 1,X:? B$(1,38):POSITION 1,X+7:? B$(1,38):NEXT X:POKE 83,3832660 POKE 766,1:POKE 83,38:POSITION 6,7:? C2$:POKE 752,0:GOTO 3261832662 GOSUB 32702:POKE 766,0:POKE 752,1:? "}":POKE 82,1:DL=PEEK(560)+256*PEEK(561)+432664 POKE DL-1,70:POKE DL+2,6:POKE DL+3,112:POKE DL+4,112:POKE DL+5,112:POKE DL+13,112:POKE DL+14,11232666 POKE DL+22,112:POKE DL+23,112:POKE DL+24,65:POKE DL+25,PEEK(560):POKE DL+26,PEEK(561):POKE 83,3932668 POSITION 20,0:? "頠":POSITION 0,7:? "Ǡנ"32670 POSITION 0,1:? "Šנ":POSITION 1,7:? ":";32672 POKE 559,34:RETURN 32674 GRAPHICS 0:POKE 559,0:POKE 766,1:POKE 82,0:POKE 83,39:POSITION 0,3:? L$:? :? :? :? "CONT":POSITION 0,032676 POKE 842,13:STOP 32678 POKE 842,12:TRAP 32682:A=USR(ADR(E$),VAL(L$)):IF A=4 THEN POP :GOTO 3268232680 RETURN 32682 GOSUB 32662:SOUND 0,75,10,8:FOR X=1 TO 20:NEXT X:SOUND 0,0,0,0:POSITION 1,3:? "SYNTAX ERROR!":POKE 766,132684 POKE 83,38:POSITION 1,10:? SV$:GOTO 3262432686 LINE=PEEK(STMTAB)+PEEK(STMTAB+1)*256:IF LINE>32599 THEN 3269032688 OFS=PEEK(STMTAB+2):STMTAB=STMTAB+OFS:POSITION 1,9:LIST LINE:GOTO 3262432690 POKE 766,0:POSITION 1,10:? "READY TO QUIT";:INPUT A$:IF A$<>"Y" THEN POSITION 1,10:? B$(1,38):GOTO 3262432692 GRAPHICS 0:? :? :? :FOR X=32600 TO 32636 STEP 2:? X:NEXT X:? "CONT":POSITION 0,0:POKE 842,13:STOP 32694 POKE 842,12:GRAPHICS 0:? :? :? :FOR X=32638 TO 32674 STEP 2:? X:NEXT X:? :? "CONT":POSITION 0,032696 POKE 842,13:STOP 32698 POKE 842,12:GRAPHICS 0:? :? :? :FOR X=32676 TO 32702 STEP 2:? X:NEXT X:? :? "POKE 842,12":POSITION 0,032700 POKE 842,13:STOP 32702 POKE 16,112:POKE 53774,112:RETURN