THE BLOCK READ ROUTINE IN SEGMENT INIT
06/15D8: A90900                     LDA   #$0009          ; read block 9
06/15DB: 8D1716                     STA   $1617                                 
06/15DE: 22A800E1                   JSL   GSOS                                  
06/15E2: 2200                       DW    $0022           ; READ_BLOCK          
06/15E4: 11160600                   ADRL  $00061611                             
06/15E8: B026                       BCS   $1610                                 
06/15EA: A21300                     LDX   #$0013                                
06/15ED: BD1B16                     LDA   $161B,X         ; search for pattern                      
06/15F0: DDFF16                     CMP   $16FF,X                               
06/15F3: D01A                       BNE   $160F                                 
06/15F5: CA                         DEX                                         
06/15F6: CA                         DEX                                         
06/15F7: 10F4                       BPL   $15ED                                 
06/15F9: CE1716                     DEC   $1617           ; we read block 8
06/15FC: 22A800E1                   JSL   GSOS                                  
06/1600: 2200                       DW    $0022           ; READ_BLOCK          
06/1602: 11160600                   ADRL  $00061611                             
06/1606: 9007                       BCC   $160F           ; read OK => copy
06/1608: C92700                     CMP   #$0027          ; not IO ERR => copy
06/160B: D002                       BNE   $160F                                 
06/160D: 18                         CLC                   ; original found!
06/160E: 60                         RTS                                         
06/160F: 38                         SEC                   ; copy found!
06/1610: 60                         RTS                   

06/1611: 0000                       DW    $0000           ;  device num         
06/1613: FF160600                   ADRL  $000616FF       ;  buffer ptr         
06/1617: 0800                       DW    $0008           ;  block num          
06/1619: 0000                       BRK   $00                                   
06/161B: 4D454343                   ASC   'MECC'                                
06/161F: 1053746F72                 STR   'Storybook Weaver'                    
06/1630: 00                         DB    $00                                   

MAIN PROTECTION LOOP IN SEGMENT INIT
06/0FDB: 20D815                     JSR   $15D8           ; check blocks
06/0FDE: 904D                       BCC   $102D           ; we're good!
06/0FE0: A90100                     LDA   #$0001          ; device 1 please
06/0FE3: 8D1116                     STA   $1611                                 
06/0FE6: 20D815                     JSR   $15D8           ; read blocks
06/0FE9: 9042                       BCC   $102D           ; we're good, we exit!
06/0FEB: EE1116                     INC   $1611                                 
06/0FEE: C91000                     CMP   #$0010          ; GS/OS error with volumes
06/0FF1: F005                       BEQ   $0FF8           ; no more volumes
06/0FF3: C91100                     CMP   #$0011          ; no device here
06/0FF6: D0EE                       BNE   $0FE6                                 
06/0FF8: A204CA2200                 _InitCursor           ; display the "insert your original alert"
06/0FFF: 48                         PHA                                         
06/1000: F40600                     PEA   ^$102F                                
06/1003: F42F10                     PEA   $102F                                 
06/1006: F40000                     PEA   $0000                                 
06/1009: F40000                     PEA   $0000                                 
06/100C: A215172200                 _Alert                                      
06/1013: A2120A2200                 _WaitCursor                                 
06/101A: 22740003                   JSL   $030074                               
06/101E: 68                         PLA                                         
06/101F: C90100                     CMP   #$0001          ; we loop or...
06/1022: F0BC                       BEQ   $0FE0                                 
06/1024: A9FFFF                     LDA   #$FFFF          ; ...we quit
06/1027: 8FF85702                   STAL  $0257F8                               
06/102B: 38                         SEC                                         
06/102C: 60                         RTS                                         
06/102D: 18                         CLC                                         
06/102E: 60                         RTS                                         

06/102F: 3C00                       DW    $003C           ; Alert rect          
06/1031: 2100                       DW    $0021                                 
06/1033: 7800                       DW    $0078                                 
06/1035: 1B01                       DW    $011B                                 
06/1037: B582                       DW    $82B5           ; Alert ID            
06/1039: 80                         HEX   80              ; First stage byte    
06/103A: 80                         HEX   80              ; Second stage byte   
06/103B: 80                         HEX   80              ; Third stage byte    
06/103C: 80                         HEX   80              ; fourth stage byte   
06/103D: 7D100600                   ADRL  $0006107D       ; Ptr to item templat 
06/1041: 65100600                   ADRL  $00061065       ; Ptr to item templat 
06/1045: 4D100600                   ADRL  $0006104D       ; Ptr to item templat 
06/1049: 00000000                   ADRL  $00000000                             
06/104D: 0100                       DW    $0001           ; Item ID             
06/104F: 2A00                       DW    $002A           ; Item rect           
06/1051: B700                       DW    $00B7                                 
06/1053: 3700                       DW    $0037                                 
06/1055: F300                       DW    $00F3                                 
06/1057: 0A00                       DW    $000A           ; Std button          
06/1059: C95E0200                   ADRL  $00025EC9       ; Item descriptor     
06/105D: 0000                       DW    $0000           ; Item value          
06/105F: 0000                       DW    $0000           ; Bit flag            
06/1061: 00000000                   ADRL  $00000000       ; Ptr to color table  
06/1065: 0200                       DW    $0002           ; Item ID             
06/1067: 2A00                       DW    $002A           ; Item rect           
06/1069: 7400                       DW    $0074                                 
06/106B: 3700                       DW    $0037                                 
06/106D: B000                       DW    $00B0                                 
06/106F: 0A00                       DW    $000A           ; Std button          
06/1071: D35E0200                   ADRL  $00025ED3       ; Item descriptor     
06/1075: 0000                       DW    $0000           ; Item value          
06/1077: 0000                       DW    $0000           ; Bit flag            
06/1079: 00000000                   ADRL  $00000000       ; Ptr to color table  
06/107D: 0300                       DW    $0003           ; Item ID             
06/107F: 0800                       DW    $0008           ; Item rect           
06/1081: 0F00                       DW    $000F                                 
06/1083: 2600                       DW    $0026                                 
06/1085: FA00                       DW    $00FA                                 
06/1087: 0F80                       DW    $800F           ; Static text         
06/1089: 95100600                   ADRL  $00061095       ; Item descriptor     
06/108D: 0000                       DW    $0000           ; Item value          
06/108F: 0000                       DW    $0000           ; Bit flag            
06/1091: 00000000                   ADRL  $00000000       ; Ptr to color table  
06/1095: 42506C6561                 STR   'Please insert your Storybook'0DI     

CODE THAT CALLS THE PROTECTION IN SEGMENT INIT
06/0F80: 200000                     JSR   $0000                                 
06/0F83: 20A700                     JSR   $00A7                                 
06/0F86: 206812                     JSR   $1268                                 
06/0F89: A90000                     LDA   #$0000                                
06/0F8C: 8FF85702                   STAL  $0257F8                               
06/0F90: 22B31A02                   JSL   $021AB3                               
06/0F94: 20D810                     JSR   $10D8	           ; call product.info
06/0F97: 9005                       BCC   $0F9E
06/0F99: 20DB0F                     JSR   $0FDB           ; call protection
06/0F9C: B007                       BCS   $0FA5                                 
06/0F9E: A20F2A2200                 _DrawMenuBar                                
06/0FA5: 228C0103                   JSL   $03018C                               
06/0FA9: 48                         PHA                                         
06/0FAA: 48                         PHA                                         
06/0FAB: F40100                     PEA   $0001                                 
06/0FAE: A204092200                 _GetAddress                                 
06/0FB5: 68                         PLA                                         
06/0FB6: 8FE15E02                   STAL  $025EE1                               
06/0FBA: 68                         PLA                                         
06/0FBB: 8FE35E02                   STAL  $025EE3                               

SEARCH FOR PATTERN 20 DB 0F B0 07 (IN SEGMENT 6 "INIT")
REPLACE WITH 2C DB 0F B0 00 OR WHATEVER SIMILAR YOU LIKE

A275
STORYBOOK V1.0
1	03CF
2	FAFA	0FEC9
3	01DB	100A4
4	09BC	10A60
5	13EC	11E4C
6	0F80		12DCC

Block: $009E (158)      Volume name: STORYBOOK       Friday     19-Dec-15  9:51 
Prefix: /STORYBOOK/                                                             
Following: WEAVER, Type S16, Rel block 152, Byte $012E00                        
(c) Q      00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F             R/W mode 
    Z 000: 48 A2 13 09 22 00 00 E1 22 F4 0D 02 20 00 00 20   H".."..a"t.. ..    
  b Z 010: A7 00 20 68 12 A9 00 00 8F F8 57 02 22 B3 1A 02   '. h.)...xW."3..   
B y Z 020: 20 D8 10 90 05 20 DB 0F B0 07 A2 0F 2A 22 00 00    X... [.0.".*"..   
L   Z 030: E1 22 8C 01 03 48 48 F4 01 00 A2 04 09 22 00 00   a"...HHt..".."..   
O G Z 040: E1 68 8F E1 5E 02 68 8F E3 5E 02 F4 00 00 F4 24   ah.a^.h.c^.t..t$   
C l Z 050: 59 F4 24 59 A2 04 0E 22 00 00 E1 20 AF 14 A2 04   Yt$Y".."..a /.".   
K e Z 060: CA 22 00 00 E1 AB 6B 20 D8 15 90 4D A9 01 00 8D   J"..a+k X..M)...   
  n Z 070: 11 16 20 D8 15 90 42 EE 11 16 C9 10 00 F0 05 C9   .. X..Bn..I..p.I   
W   Z 080: 11 00 D0 EE A2 04 CA 22 00 00 E1 48 F4 2F 10 F4   ..Pn".J"..aHt/.t   
A B Z 090: 2F 10 F4 00 00 F4 00 00 A2 15 17 22 00 00 E1 A2   /.t..t..".."..a"   
R r Z 0A0: 12 0A 22 00 00 E1 22 74 00 03 68 C9 01 00 F0 BC   .."..a"t..hI..p<   
D e Z 0B0: A9 FF FF 8F F8 57 02 38 60 18 60 3C 00 21 00 78   ).xW.8`.`<.!.x   
E d Z 0C0: 00 1B 01 B5 82 80 80 80 80 7D 10 00 00 65 10 00   ...5.....}...e..   
N o Z 0D0: 00 4D 10 00 00 00 00 00 00 01 00 2A 00 B7 00 37   .M.........*.7.7   
  n Z 0E0: 00 F3 00 0A 00 00 00 00 00 00 00 00 00 00 00 00   .s..............   
    Z 0F0: 00 02 00 2A 00 74 00 37 00 B0 00 0A 00 00 00 00   ...*.t.7.0......   

A276
STORYBOOK WEAVER - WORLD OF ADVENTURE V1.0
1	03CF	
2	FC11	0FFE0
3	01DB	101BB
4	09AB	10B66
5	13DF	11F45
6	0F80	12EC5

Block: $03BC (956)      Volume name: STORYBOOK       Friday     19-Dec-15 10:10 
Prefix: /STORYBOOK/                                                             
Following: WEAVER.ADV, Type S16, Rel block 152, Byte $012F00                    
(c) Q      00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F             R/W mode 
    Z 100: E1 22 F4 0D 02 20 00 00 20 A7 00 20 68 12 A9 00   a"t.. .. '. h.).   
  b Z 110: 00 8F 04 58 02 22 B3 1A 02 20 D8 10 90 05 20 DB   ...X."3.. X... [   
B y Z 120: 0F B0 07 A2 0F 2A 22 00 00 E1 22 8C 01 03 48 48   .0.".*"..a"...HH   
L   Z 130: F4 01 00 A2 04 09 22 00 00 E1 68 8F ED 5E 02 68   t..".."..ah.m^.h   
O G Z 140: 8F EF 5E 02 F4 00 00 F4 30 59 F4 30 59 A2 04 0E   .o^.t..t0Yt0Y"..   
C l Z 150: 22 00 00 E1 20 AF 14 A2 04 CA 22 00 00 E1 AB 6B   "..a /.".J"..a+k   
K e Z 160: 20 D8 15 90 4D A9 01 00 8D 11 16 20 D8 15 90 42    X..M)..... X..B   
  n Z 170: EE 11 16 C9 10 00 F0 05 C9 11 00 D0 EE A2 04 CA   n..I..p.I..Pn".J   
W   Z 180: 22 00 00 E1 48 F4 2F 10 F4 2F 10 F4 00 00 F4 00   "..aHt/.t/.t..t.   
A B Z 190: 00 A2 15 17 22 00 00 E1 A2 12 0A 22 00 00 E1 22   .".."..a".."..a"   
R r Z 1A0: 74 00 03 68 C9 01 00 F0 BC A9 FF FF 8F 04 58 02   t..hI..p<)..X.   
D e Z 1B0: 38 60 18 60 3C 00 21 00 78 00 1B 01 B5 82 80 80   8`.`<.!.x...5...   
E d Z 1C0: 80 80 7D 10 00 00 65 10 00 00 4D 10 00 00 00 00   ..}...e...M.....   
N o Z 1D0: 00 00 01 00 2A 00 B7 00 37 00 F3 00 0A 00 00 00   ....*.7.7.s.....   
  n Z 1E0: 00 00 00 00 00 00 00 00 00 00 02 00 2A 00 74 00   ............*.t.   
    Z 1F0: 37 00 B0 00 0A 00 00 00 00 00 00 00 00 00 00 00   7.0.............   

A298
STORYBOOK WEAVER - WORLD OF MAKE-BELIEVE V1.0
1	03CF	
2	FD5E	1012D
3	01DB	10308
4	09AB	10CB3
5	13D8	1208B
6	0F80	1300B

Block: $0517 (1303)     Volume name: STORYBOOK       Friday     19-Dec-15 10:17 
Prefix: /STORYBOOK/                                                             
Following: MAKE.BELIEVE, Type S16, Rel block 153, Byte $013064                  
(c) Q      00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F            Edit mode 
    Z 000: A5 04 18 69 00 08 48 A2 1B 02 22 00 00 E1 20 EA   %..i..H".."..a j   
  b Z 010: 13 20 31 16 20 72 16 A2 12 02 22 00 00 E1 20 EA   . 1. r.".."..a j   
B y Z 020: 13 AD FD 16 48 A5 04 18 69 00 09 48 A2 13 02 22   .-}.H%..i..H".."   
L   Z 030: 00 00 E1 20 EA 13 AF 39 59 02 48 AF 37 59 02 48   ..a j./9Y.H/7Y.H   
O G Z 040: A2 13 09 22 00 00 E1 22 F8 0D 02 20 00 00 20 A7   ".."..a"x.. .. '   
C l Z 050: 00 20 68 12 A9 00 00 8F A1 58 02 22 E2 1A 02 20   . h.)...!X."b..    
K e Z 060: D8 10 90 05 20 DB 0F B0 07 A2 0F 2A 22 00 00 E1   X... [.0.".*"..a   
  n Z 070: 22 8C 01 03 48 48 F4 01 00 A2 04 09 22 00 00 E1   "...HHt..".."..a   
W   Z 080: 68 8F 8A 5F 02 68 8F 8C 5F 02 F4 00 00 F4 CD 59   h.._.h.._.t..tMY   
A B Z 090: F4 CD 59 A2 04 0E 22 00 00 E1 20 AF 14 A2 04 CA   tMY".."..a /.".J   
R r Z 0A0: 22 00 00 E1 AB 6B 20 D8 15 90 4D A9 01 00 8D 11   "..a+k X..M)....   
D e Z 0B0: 16 20 D8 15 90 42 EE 11 16 C9 10 00 F0 05 C9 11   . X..Bn..I..p.I.   
E d Z 0C0: 00 D0 EE A2 04 CA 22 00 00 E1 48 F4 2F 10 F4 2F   .Pn".J"..aHt/.t/   
N o Z 0D0: 10 F4 00 00 F4 00 00 A2 15 17 22 00 00 E1 A2 12   .t..t..".."..a".   
  n Z 0E0: 0A 22 00 00 E1 22 74 00 03 68 C9 01 00 F0 BC A9   ."..a"t..hI..p<)   
    Z 0F0: FF FF 8F A1 58 02 38 60 18 60 3C 00 21 00 78 00   .!X.8`.`<.!.x.