10 POKE55,200:POKE56,17:CLR:POKE650,128:A=2:V=53248:DIMA$(15)
15 FORI=0TO15:A$(I)="--- / -":SYS6622,6912+I*64:POKE7936+I,0:NEXT
20 POKE53281,14:POKE53280,6:PRINT"[147]           [211][208][210][201][212][197]-[195][207][204][204][197][195][212][207][210].            ";
30 PRINT"     (W) 1985 BY [194]EISTER-SOFTWARE.      "CHR$(14)CHR$(8):POKE7967,14
400 PRINT"     [176][192][192][192][178][192][192][192][174]":PRINT"     [221]   [221]   [221]":PRINT"     [221]   [221]   [221]
410 [153]"     (null)   (null)   (null)":[153]"     -TANTANTAN>=TANTAN<":[153]"     (null)PEEKANK(null)  (null)
411 PRINT"     [221]    [173][192][192][179]":PRINT"     [221][206]R. [176][192][192][179]":PRINT"     [221]    [221]  [221]
412 [153]"     /TANTANTANTAN>TANTANEXP":[151]V[170]23,0:[151]V[170]29,0:[151]V[170]28,2:[151]V[170]16,0
420 [151]2040,11:[151]2041,11:[151]V,72:[151]V[170]1,99:[151]V[170]21,3:[151]V[170]2,104:[151]V[170]3,99
440 [153]" ORTANTANTANTANTANTANTAN=TANTANTANTANTANTANTAN^":[153]" (null)PEEKOX    (null)       (null)":[153]" /TANTANTANTANTANTANTAN>TANTANTANTANTANTANTANEXP
450 PRINT" F1[146] F3[146] F5[146] F7[146] *[146] _[146] +[146] -[146] S[146] 1[146] C[146] UP[146] DOWN[146] CR[146]
460 [153]" RIGHTWAIT LEFTWAIT + LEN=WAIT ODER CTRLWAITSYS
600 :
610 GOSUB820:GOSUB830:GOSUB840:GOSUB870
620 GETA$:IFA$="[145]"THENBA=(BA+1)AND3:GOSUB870
630 IFA$=""THENBA=(BA-1)AND3:GOSUB870
640 IFPEEK(197)<>2THEN670
645 ONPEEK(653)GOTO660,650,660,660
650 PO=(PO+1-(PEEK(653)=2)*9)AND255:GOSUB840:GOTO670
660 PO=(PO-1+(PEEK(653)=4)*9)AND255:GOSUB835
670 IFA$="[133]"THENB=(PEEK(V+39)+1)AND255:POKEV+39,B:POKEV+40,B
680 IFA$="[134]"THENPOKEV+37,(PEEK(V+37)+1)AND255
690 IFA$="[135]"THENPOKEV+38,(PEEK(V+38)+1)AND255
695 IFA$="[136]"THENB=(PEEK(V+33)+1)AND15:POKEV+33,B:POKE7967,B
700 IFA$="*"THENPOKE1191+4*MC,32:MC=1-MC:GOSUB820
730 IFA$="+"THENBO=(BO+1)AND15:GOSUB830
750 IFA$="-"THENBO=(BO-1)AND15:GOSUB830
760 IFA$="_"THENSYS6622,6912+BO*64:A$(BO)="--- / -":POKE7936+BO,0:GOSUB880
770 IFA$="C"THENPOKEV+21,0:PRINT"[147]":SYS6619:POKEV+21,3:GOTO20
800 IFA$=CHR$(13)THENA$(BO)=RIGHT$(" "+STR$(PO),3)+" /"+STR$(BA):GOTO880
805 IFA$<>"1"THEN811
806 GOSUB970:SYS6613
807 CLOSE1:POKEV+21,3:GOTO20
811 IFA$<>"S"THEN818
812 GOSUB970:SYS6616:GOTO807
818 GOTO620
820 POKE1191+MC*4,42:POKE55463+4*MC,7:RETURN
830 POKE214,16:PRINT:PRINTTAB(7)RIGHT$(STR$(BO),2)""A$(BO):RETURN
835 IFBA=0AND(PO>63ANDPO<128)THENPO=63
836 IFBA=0ANDPO=11THENPO=10
840 IFBA=0AND(PO>63ANDPO<128)THENPO=128
841 IFBA=0ANDPO=11THENPO=12
850 POKE214,12:PRINT:PRINTTAB(7)RIGHT$(" "+STR$(PO),3)
855 IFBA=0AND(PO>31ANDPO<64)THENSYS6610,PO*64+2512,704:RETURN
860 SYS6610,BA*16384+PO*64,704:RETURN
870 POKE214,10:PRINT:PRINTTAB(8)STR$(BA):GOTO850
880 SYS6610,704,6912+BO*64:POKE7936+BO,MC
890 A$="+":PO=(PO+1)AND255:GOSUB840:GOTO730
970 D$=""
980 POKE214,19:PRINT:PRINTTAB(8-LEN(D$)/2)"[145] "CHR$(34)D$CHR$(34)" "
990 GETA$:IFA$=""THEN990
1000 IFA$=CHR$(13)ANDD$<>""THENPOKEV+21,0:OPEN1,8,1,D$:RETURN
1010 IFA$=""ANDD$<>""THEND$=LEFT$(D$,LEN(D$)-1)
1020 IFA$=""ORA$=""ORA$=CHR$(13)ORA$=CHR$(141)THEN980
1030 IFA$=CHR$(34)ORLEN(D$)>15THEN980
1050 D$=D$+A$:GOTO980