1 BN=8192:BI=49152:REM BN $2000 BI $2900
2 DIM Q$(60):GOSUB5000
5 PRINT"[147][205]USICHE NEL DISCO:"
6 DIMC$(2,4)
10 OPEN1,9,2,"$"
20 FORX=1TO253:GET#1,A$:NEXT
30 FORP=1TO8:GET#1,T$,A$,A$
510 FORL=0TO15
520 GET#1,A$
522 POKEBN+16*N+L,42
530 IFA$<>CHR$(96)THENIFA$<>CHR$(160)THENB$=B$+A$:IFATHENGOSUB1000
532 IFA$=">"THENA=1:N=0
540 NEXTL
550 FORL=1TO9:GET#1,A$:NEXTL
552 GET#1,L$,H$
554 L=ASC(L$+CHR$(0))+256*ASC(H$+CHR$(0)):IFL=0THENGOTO590
560 IFSTTHENCLOSE1:GOTO600
569 REM  IFAANDN>0THENGOSUB2000
570 B$="":PRINTQ$(N):   N=N+1
580 IFP<8THENGET#1,A$,A$
590 NEXTP:
591 GOTO30
600 PRINT"[147]OK      ":REM  SYS20427
620 POKE832,N-1: GOSUB 3000:GOSUB4070
999 END
1000 IFL=0OR L>15 ORA$=""   THENRETURN
1050 POKEBN+16*N+L-1,ASC(A$):Q$(N)=Q$(N)+A$
1060 REM   POKE1104+L-1,PEEK(BN+16*N+L-1)
1070 RETURN
2000 PRINT"[205]USICA:               [157][157][157][157][157][157][157][157][157][157][157][157][157][157]";N
2010 INPUT"[201]NIT ADDRESS";A$
2020 INPUT"[208]LAY ADDRESS";B$
2025 PRINT"                           "
2030 PRINTA$,B$
2031 C$(1,1)=MID$(A$,1,1):C$(1,2)=MID$(A$,2,1)
2040 C$(1,3)=MID$(A$,3,1):C$(1,4)=MID$(A$,4,1)
2050 C$(2,1)=MID$(B$,1,1):C$(2,2)=MID$(B$,2,1)
2060 C$(2,3)=MID$(B$,3,1):C$(2,4)=MID$(B$,4,1)
2070 FOR X=1TO2:FORY=1TO4
2080 IFASC(C$(X,Y))>64THENC$(X,Y)=STR$(ASC(C$(X,Y))-55)
2090 NEXTY:NEXTX
2100 LI=VAL(C$(1,3))*16+VAL(C$(1,4))
2110 HI=VAL(C$(1,1))*16+VAL(C$(1,2))
2120 LR=VAL(C$(2,3))*16+VAL(C$(2,4))
2130 HR=VAL(C$(2,1))*16+VAL(C$(2,2))
2140 POKEBI+8+XX*4,LI:POKEBI+9+XX*4,HI:POKEBI+10+XX*4,LR:POKEBI+11+XX*4,HR
2141 REM  PRINTBI+8+XX*4,BI+9+XX*4,BI+10+XX*4,BI+11+XX*4
2142 REM  PRINTPEEK(BI+8+XX*4),PEEK(BI+9+XX*4)
2170 RETURN
3000 REM SCRIVO DIR
3005 PRINT"SCRIVO DIR"
3010 OPEN5,9,5,"@:DIR,P,W"
3020 PRINT#5,CHR$(0);CHR$(160);
3030 FORX=0TON-1
3032 FORY=0TO15
3040 PRINT#5,CHR$(PEEK(BN+X*16+Y));
3050 NEXTY,X
3060 CLOSE5
3065 RETURN
3070 REM SCRIVO INFO
3105 PRINT"SCRIVO INFO"
3110 OPEN5,9,5,"@:INFO,P,W"
3120 PRINT#5,CHR$(255);CHR$(168);
3130 PRINT#5,CHR$(N-1);
3140 PRINT#5,CHR$(76);CHR$(0);CHR$(16);CHR$(76);CHR$(3);CHR$(16);CHR$(0);
3150 PRINT#5,CHR$(0);
3160 FORX=0TON-1
3162 FORY=0TO3
3170 PRINT#5,CHR$(PEEK(BI+8+Y+X*4));
3180 NEXTY,X
3190 CLOSE5
3200 PRINT"[200]O FINITO":END
4070 REM LEGGO  INFO
4100 FORXX=1TON-1
4105 A$="":B$="":    PRINT:PRINT"LEGGO  INFO DI ";Q$(XX)
4110 OPEN5,10,5,Q$(XX)+"*,P,R"
4120 GET#5,Z$
4130 IFZ$=""THENGOTO4120
4140 IF Z$=","ANDF=0THENGOSUB4300:A$=W$
4144 IF Z$=","AND F=1THENGOSUB4300:B$=W$
4148 IFF=2THENF=0:CLOSE5:GOSUB2030:NEXTXX:GOTO4200
4150 GOTO4120
4200 GOTO3070
4300 W$="":FORYY=0TO3:GET#5,Z$
4302 IFASC(Z$)>=97 THENZ$=CHR$(ASC(Z$)-32)
4308 W$=W$+Z$:NEXTYY:F=F+1:RETURN
4322 FORYY=0TO3:GET#5,Z$:B$=B$+Z$:NEXTYY:PRINTB$:F=F+1:RETURN
5000 REM ISTRUZIONI
5010 PRINT"[147]"
5020 PRINT"DRIVE 8: MASTER DISC"
5030 PRINT"DRIVE 9: MUSIC  DISC"
5040 PRINT"DRIVE 10: INFO   DISC"
5050 GETA$:IFA$=""THENGOTO5050
5060 RETURN