100 REM 110 REM 120 REM ### BUILDB ### 130 REM 140 REM 150 REM CREA FILE B 160 REM PER MELOPOLI 170 REM 180 REM 190 REM DINOSOFT 10/83 200 REM 210 REM 220 REM RICHIEDE: 230 REM 240 REM GAMEBOARD ($4000-$5FFF) 250 REM HRCG.P2 ($6000-$64FF) 260 REM BOLDn.SET ($6500-$67FF) 270 REM ALBn.SET ($6800-$6AFF) 280 REM TRAn.SET ($6B00-$6DFF) 290 REM DADIn.SET ($6E00-$70FF) 300 REM PA1 MUSIC ($7100-$71E9) 310 REM PEDINEn ($7200-$72xx) 320 REM 330 REM 340 REM 350 REM 360 REM # INIT HGR # 370 REM 380 REM 390 HIMEM: 16384 400 VTAB 1: HGR2 410 HCOLOR= 0: REM BLACK 420 REM 430 REM 440 REM # LOAD FILES # 450 REM 460 REM 470 D$ = CHR$ (4) 480 BL$ = D$ + "BLOAD" 490 PRINT BL$"GAMEBOARD,A$4000" 500 PRINT BL$"HRCG.P2.6000.64FF,A$6000" 510 PRINT BL$"BOLD3.SET,A$6500" 520 PRINT BL$"ALB7.SET,A$6800" 530 PRINT BL$"TRA13.SET,A$6B00" 540 PRINT BL$"DADI15.SET,A$6E00" 550 PRINT BL$"PA1 MUSIC.7100,A$7100" 560 PRINT BL$"PEDINE3,A$7200" 570 REM 580 REM 590 REM # ERR ROUTINE # 600 REM 610 REM 620 RESTORE 630 FOR I = 29168 TO 29177 640 READ D: POKE I,D 650 NEXT 660 REM 670 REM 680 REM # HRCG PROT CALL # 690 REM 700 REM 710 POKE 25449,176: POKE 25457,132 720 REM 730 REM 740 REM # SAVE B # 750 REM 760 REM 770 PRINT D$"BSAVE B,A$4000,L$3300" 780 TEXT 790 REM 800 REM 810 REM ERR ROUTINE 820 REM 830 DATA 104,168,104,166,223,154,72,152,72,96