2 A=A+1:IFA=1THENLOAD"MPGETSPRIT",8,8
3 IFA=2THENLOAD"VIEWDIA",8,8
5 SI=54272:FORT=0TO24:POKESI+T,0:NEXT
8 GOSUB500:RESTORE
10 PRINT"[147]":POKE53280,0:POKE53281,0
15 DIMFA(40),TE$(3)
20 FORT=1TO33:READ FA(T):NEXT
50 FORT=1TO03:READ TE$(T):NEXT
100 FORT=1TO3:FORE=1TO33:POKE646,FA(E)
120 POKE214,11:PRINTTAB(20-LEN(TE$(T))/2)TE$(T):FORI=0TO30:NEXTI,E,T
125 TE$="[155]WAIT A LITTLE"
130 POKE214,11:PRINTTAB(20-LEN(TE$)/2)TE$
140 GOTO600
200 DATA0,11,12,15,1,1,1,1,1,1,1,1,1,1,1,1,1,1,15,12,11,0,0,0,0,0,0,0,0,0,0,0,0
210 DATA "ES FOLGT EINE SPITZEN DIA-SHOW"
220 DATA "AUS DEM HAUSE LION-SOFT"
230 DATA "VON HELMUT BURGEMEISTER"
300 DATA GIRL,PAULI,SUPERMAN,TAAR,CRY,*
500 POKE65,PEEK(122):POKE66,PEEK(123)
510 FORT=0TO24:READE:POKESI+T,E:NEXT
520 DATA1,4,0,2,00,240,251,0,4,0,2,00,240,253,20,26,0,0,00,10,0,0,21,243,31
525 POKESI+4,65:POKESI+11,65
530 RETURN
600 READL$:IFL$="*"THEN700
610 M=0:AD=23841:IFRIGHT$(L$,1)="?"OR RIGHT$(L$,1)="/"THENGOSUB1000
615 SYS32768,L$,AD
620 IFM=0THENGOSUB800:GOTO630
625 GOSUB900
630 SYS4096*12
640 GOTO600
700 POKE53265,27:POKE53272,21:POKE53281,0:POKE53280,0:POKE56576,3
710 PRINT"[147]    DAS WAR'S ...[154]
720 [151]198,0
730 [153]"LIST  NOCHMAL (J/N)":[146]198,1:[161]A$:[139]A$[178]"N" [167] [158]64738
740 [138]
800 [151]49249,[194](24017)
820 [151]49254,[194](24022)
830 [151]49253,[194](24021)
840 [129]T[178]0[164]7:[151]49255[170]T,[194](24023[170]T):[130]
850 [151]49244,[194](24012)
890 [142]
900 [151]49249,12
920 [151]49254,0
930 [151]49253,11
940 [129]T[178]0[164]7:[151]49255[170]T,1:[130]
950 [151]49244,0
960 [139]M[178]1[167][151]49244,255
990 [142]
1000 AD[178]24576
1010 [139][201](L$,1)[178]"?"[167]M[178]1
1020 [139][201](L$,1)[178]"/"[167]M[178]2
1030 L$[178][200](L$,[195](L$)[171]1)
1090 [142]