10 POKE52,52:POKE56,52:CLR:POKE53281,0:POKE53280,0
12 DV=PEEK(186):IFDV<8THENDV=8
14 DIMW$(120),B(15)
16 UNPACK=13824:HG=13827:SR=52480:SQ=52486:G=49153
18 SYS57812"FSIITITLE.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
20 SYS57812"FSII3400-3747",DV,0:POKE780,0:POKE781,0:POKE782,52:SYS65493
22 POKE251,64:POKE252,96:POKE253,76:SYSUN:SYSHG
24 SYS57812"FSII FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
26 SYS57812"FSIIC000-CF5F",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
30 SYS13312,"FSII TEXT",DV
32 H=PEEK(252)*256+PEEK(251)
34 W$(0)=RIGHT$(W$(0),LEN(W$(0))-2)
36 FS$="[129][212][200][197] [198][207][213][210] [211][197][193][211][207][206][211]"
37 SP$="                                        "
38 Q=1:FORI=0TOH:IFW$(I)="*"THENB(Q)=I:Q=Q+1
40 NEXT:B(0)=0
50 PRINT"[147]"
60 SYSHG:PRINT"[147]"
65 SYSSR,96,76,56
100 FORI=1TO6:S$(I)="FSII"+CHR$(I+48)+".SHP":M$(I)="FSII"+CHR$(I+48)+".MUS":NEXT
120 GOTO700
200 N=1:S=1:FL=0:P=0:GOSUB500
205 GOSUB330
210 GOSUB300:IFFLTHEN700
230 SYSSQ-3,"[144]"
231 SYSSQ,0,23,SP$
233 SYSSQ,0,24,SP$
236 SYSSQ,20-INT((LEN(W$(N))/2)),23,W$(N)
238 SYSSQ,20-INT((LEN(W$(N+1))/2)),24,W$(N+1)
240 FORT=1TO500
242 GETA$
243 IFA$="Q"THENT=500:NEXT:GOTO700
244 IFA$<>"N"THEN247
245 T=500:NEXT:GOSUB310:IFFLTHEN700
246 N=B(S)+1:GOTO210
247 IFA$<>""THENT=500
249 NEXT
260 N=N+2
265 IFN>=B(S+1)THENN=B(S)+1
270 GOTO210
300 IFPEEK(49152)=7THENRETURN
310 GOSUB450:S=S+1:IFS>6THENFL=1:RETURN
320 GOSUB500:SYSHG:N=B(S)+1
330 SYS57812S$(S),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
340 SYS57812M$(S),DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
350 POKE251,64:POKE252,96:POKE253,76:SYSUN
360 POKE252,96:POKE253,76:SYSHG:GOSUB430
370 RETURN
430 SYS49615:POKE781,0:POKE782,128:SYS49664:POKE49152,7:MU=1:RETURN
450 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49897:SYS49935:MU=0:RETURN
500 POKE53281,0:ONSGOTO502,510,530,550,570,590,600
502 PRINT"[147][129]"TAB(10)"[193][213][212][213][205][206] [155]- [205]OVEMENT 1"
504 PRINT"[154]  [193] ROLLICKING AFFAIR WITH A SOLO
505 [153]"  VIOLIN AS A DRUNKEN PEASANT.
506 GOSUB600
508 RETURN
510 PRINT"[147][129]"TAB(10)"[193][213][212][213][205][206] [155]- [205]OVEMENT 2"
520 PRINT"[154]  [193] SLOW, CHROMATIC MOVEMENT EXPRESSING
522 [153]"  THE STUPOR OF A DRUNKARD'S SLEEP.
523 GOSUB600
524 RETURN
530 PRINT"[147][129]"TAB(10)"[193][213][212][213][205][206] [155]- [205]OVEMENT 3"
540 PRINT"[154]  [212]HE GUNS AND THE DOGS COMBINE IN THE
541 [153]"  RHYTHM OF THE CHASE.
542 GOSUB600
544 RETURN
550 PRINT"[147][129]"TAB(10)"[215][201][206][212][197][210] [155]- [205]OVEMENT 1"
560 PRINT"[154]  [212]HE SOLO VIOLIN'S TEETH CHATTER
562 [153]"  WHILE THE ORCHESTRA SHUDDERS.
563 GOSUB600                         .
564 RETURN
570 PRINT"[147][129]"TAB(10)"[215][201][206][212][197][210] [155]- [205]OVEMENT 2"
572 PRINT"[154]  [193] SOLO FOR THE CONTENTED VIOLIN,
573 [153]"  WITH RAINDROP ACCOMPANIMENT.
574 GOSUB600:RETURN
590 PRINT"[147][129]"TAB(10)"[215][201][206][212][197][210] [155]- [205]OVEMENT 3"
592 PRINT"[154]  [211]LIDING ON ICE WHILE THE WIND BLOWS,
593 [153]"  THE VIOLIN AND VIOLA CLASH.
594 GOSUB600:RETURN
600 POKE214,10:PRINT
610 PRINT"  [159][215]HILE PICTURE IS SHOWING:
620 [153]"   (null) OPEN- (null)EXT (null)OVEMENT
630 PRINT"   [209] [159]- [209]UIT TO [205]AIN [205]ENU
640 [153]"   ATNNY OTHER KEY OPEN- (null)EXT LINE OF VERSE
650 RETURN
700 POKE53281,0:IFPEEK(53270)<>200THENSYSHG
705 IFMUTHENGOSUB450
710 PRINT"[147][154]          "FS$
720 PRINT"  1[154]  [211]EE, HEAR AND READ THE POEM
730 [153]"  2CONT  MID$UST SEE THE SIX PICTURES
740 PRINT"  3[154]  [209]UIT TO [204][207][193][196][211][212][193][210]
750 [151]198,0
760 [161]A$:[139]A$[179]"1"[176]A$[177]"3"[167]760
770 [145][197](A$)[137]200,800,40000
800 [129]I[178]1[164]6
802 [153]"LOADCONT (null)RESS ANY KEY TO GO TO THE NEXT
804 PRINT" PICTURE.  [208]RESS [209][154] WHILE PICTURE IS
806 [153]" SHOWING TO RETURN TO THE MENU.
830 SYS57812S$(I),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
840 POKE251,64:POKE252,96:POKE253,76:SYSUN
850 POKE252,96:POKE253,76:SYSHG
860 GETA$:IFA$=""THEN860
865 SYSHG:POKE53281,0
870 IFA$="Q"THENI=6:NEXT:GOTO700
880 NEXT:GOTO800
10000 OPEN15,8,15,"S0:FSII":CLOSE15:SAVE"FSII",8:END
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:END
40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END