100 '
  110 'background map & bitmap data changer
  120 '
  210 OPEN "D:\bin\WinAVRprojects\mega48_grobda\qqbasic\ntsc_bg2_origin.hex" FOR INPUT AS #1
  211 OPEN "D:\bin\WinAVRprojects\mega48_grobda\qqbasic\ntsc_bg2_tmp.hex" FOR OUTPUT AS #2
  212 OPEN "D:\bin\WinAVRprojects\mega48_grobda\qqbasic\grobda_bg.hex" FOR OUTPUT AS #3
  215 '
  216 DIM BINDATA(128+768)
  217 BYTE = 0
  218 '
  219 FOR K=1 TO 16
  220   O$=""
  221   FOR I=1 TO 8
  225     SUM=0
  230     FOR J=0 TO 7
  240       READ D
  250       SUM = SUM + D*(2^J)
  260     NEXT J
  270     O$ = O$ + RIGHT$("0"+HEX$(SUM),2)
  275     BINDATA(BYTE) = SUM
  276     BYTE = BYTE + 1
  280   NEXT I
  300   PRINT O$
  320   'PRINT #2,O$
  330 NEXT K
  340 '
  360 FOR C=0 TO 7
  370   FOR I=1 TO 12
  380     O$=""
  390     FOR J=1 TO 8
  400       READ R$,L$
  410       O$ = O$ + L$+R$
  420       BINDATA(BYTE) = VAL("&H"+L$+R$)
  430       BYTE = BYTE +1
  440     NEXT J
  450     PRINT O$
  455     'PRINT #2,O$
  460   NEXT I
  470   PRINT
  480 NEXT C
  500 '
  504 'PRINT #2,"**********"
  505 S_ADD = &H0224
  510 FOR K=1 TO 93
  520   LINE INPUT #1,ORG$
  530   L= VAL("&H"+MID$(ORG$,2,2))
  531   ADD = VAL("&H"+MID$(ORG$,4,4))
  532   IF (MID$(ORG$,1,2) = "00") THEN *LOOPSKIP1 
  540     FOR I=0 TO L-1
  541       IF (ADD+I >= S_ADD+768+128) OR (ADD+I < S_ADD) THEN *LOOPSKIP2
  542         Z$ = RIGHT$("0"+HEX$(BINDATA(ADD+I-S_ADD)),2)
  550         MID$(ORG$,I*2+10,2) = Z$:PRINT Z$;
  560       *LOOPSKIP2
  570     NEXT I
  575   *LOOPSKIP1  
  580   PRINT #2,ORG$:PRINT
  590 NEXT K
  595 CLOSE #2
  596 CLOSE #1
  600 '
  610 OPEN "D:\bin\WinAVRprojects\mega48_grobda\qqbasic\ntsc_bg2_tmp.hex" FOR INPUT AS #2
  620 FOR K=1 TO 93
  630   LINE INPUT #2,UPD$
  640   L = VAL("&H"+MID$(UPD$,2,2))
  650   LL = L+4
  660   SUM = 0
  670   FOR I=1 TO LL
  680     V = VAL("&H"+MID$(UPD$,I*2,2))
  690     SUM = SUM + V
  700   NEXT I
  710   CS$ = RIGHT$(HEX$(&H1000-SUM),2)
  720   MID$(UPD$,L*2+10,2) = CS$
  730   PRINT #3,UPD$
  740 NEXT K
  997 CLOSE #2
  998 CLOSE #3
  999 'BIT MAP DATA
 1000 DATA 1,1,1,1,1,1,1,1
 1010 DATA 0,0,1,1,1,0,0,0
 1020 DATA 0,1,0,0,0,1,0,0
 1030 DATA 0,1,1,0,0,1,0,0
 1040 DATA 0,1,0,1,0,1,0,0
 1050 DATA 0,1,0,0,1,1,0,0
 1060 DATA 0,1,0,0,0,1,0,0
 1070 DATA 0,0,1,1,1,0,0,0
 1080 '001
 1110 DATA 0,0,0,0,0,0,0,0
 1120 DATA 0,0,0,1,0,0,0,0
 1130 DATA 0,0,1,1,0,0,0,0
 1140 DATA 0,0,0,1,0,0,0,0
 1150 DATA 0,0,0,1,0,0,0,0
 1160 DATA 0,0,0,1,0,0,0,0
 1170 DATA 0,0,0,1,0,0,0,0
 1180 DATA 0,0,1,1,1,0,0,0
 1200 '002
 1210 DATA 0,0,0,0,0,0,0,0
 1220 DATA 0,0,1,1,1,0,0,0
 1230 DATA 0,1,0,0,0,1,0,0
 1240 DATA 0,0,0,0,0,1,0,0
 1250 DATA 0,0,0,0,1,0,0,0
 1260 DATA 0,0,0,1,0,0,0,0
 1270 DATA 0,0,1,0,0,0,0,0
 1280 DATA 0,1,1,1,1,1,0,0
 1300 '003
 1310 DATA 0,0,0,0,0,0,0,0
 1320 DATA 0,0,1,1,1,0,0,0
 1330 DATA 0,1,0,0,0,1,0,0
 1340 DATA 0,0,0,0,0,1,0,0
 1350 DATA 0,0,0,1,1,0,0,0
 1360 DATA 0,0,0,0,0,1,0,0
 1370 DATA 0,1,0,0,0,1,0,0
 1380 DATA 0,0,1,1,1,0,0,0
 1400 '004
 1410 DATA 0,0,0,0,0,0,0,0
 1420 DATA 0,1,0,0,0,0,0,0
 1430 DATA 0,1,0,0,1,0,0,0
 1440 DATA 0,1,0,0,1,0,0,0
 1450 DATA 0,1,0,0,1,0,0,0
 1460 DATA 0,1,1,1,1,1,0,0
 1470 DATA 0,0,0,0,1,0,0,0
 1480 DATA 0,0,0,0,1,0,0,0
 1500 '005
 1510 DATA 0,0,0,0,0,0,0,0
 1520 DATA 0,1,1,1,1,1,0,0
 1530 DATA 0,1,0,0,0,0,0,0
 1540 DATA 0,1,0,0,0,0,0,0
 1550 DATA 0,1,1,1,1,0,0,0
 1560 DATA 0,0,0,0,0,1,0,0
 1570 DATA 0,0,0,0,0,1,0,0
 1580 DATA 0,1,1,1,1,0,0,0
 1600 '006
 1610 DATA 0,0,0,0,0,0,0,0
 1620 DATA 0,0,1,1,1,0,0,0
 1630 DATA 0,1,0,0,0,1,0,0
 1640 DATA 0,1,0,0,0,0,0,0
 1650 DATA 0,1,1,1,1,0,0,0
 1660 DATA 0,1,0,0,0,1,0,0
 1670 DATA 0,1,0,0,0,1,0,0
 1680 DATA 0,0,1,1,1,0,0,0
 1700 '007
 1710 DATA 0,0,0,0,0,0,0,0
 1720 DATA 0,1,1,1,1,1,0,0
 1730 DATA 0,1,0,0,0,1,0,0
 1740 DATA 0,0,0,0,0,1,0,0
 1750 DATA 0,0,0,0,0,1,0,0
 1760 DATA 0,0,0,0,1,0,0,0
 1770 DATA 0,0,0,1,0,0,0,0
 1780 DATA 0,0,1,0,0,0,0,0
 1800 '008
 1810 DATA 0,0,0,0,0,0,0,0
 1820 DATA 0,0,1,1,1,0,0,0
 1830 DATA 0,1,0,0,0,1,0,0
 1840 DATA 0,1,0,0,0,1,0,0
 1850 DATA 0,0,1,1,1,0,0,0
 1860 DATA 0,1,0,0,0,1,0,0
 1870 DATA 0,1,0,0,0,1,0,0
 1880 DATA 0,0,1,1,1,0,0,0
 1900 '009
 1910 DATA 0,0,0,0,0,0,0,0
 1920 DATA 0,0,1,1,1,0,0,0
 1930 DATA 0,1,0,0,0,1,0,0
 1940 DATA 0,1,0,0,0,1,0,0
 1950 DATA 0,0,1,1,1,1,0,0
 1960 DATA 0,0,0,0,0,1,0,0
 1970 DATA 0,0,0,0,0,1,0,0
 1980 DATA 0,0,1,1,1,0,0,0
 2000 '00A block
 2010 DATA 1,1,1,1,1,1,1,0
 2020 DATA 1,1,1,1,1,1,1,0
 2030 DATA 1,1,1,1,1,1,1,0
 2040 DATA 0,0,0,0,0,0,0,0
 2050 DATA 1,1,1,0,1,1,1,1
 2060 DATA 1,1,1,0,1,1,1,1
 2070 DATA 1,1,1,0,1,1,1,1
 2080 DATA 0,0,0,0,0,0,0,0
 2100 '00B rope
 2110 DATA 0,0,0,1,0,0,0,0
 2120 DATA 0,0,0,1,0,0,0,0
 2130 DATA 0,0,0,1,0,0,0,0
 2140 DATA 0,0,0,1,0,0,0,0
 2150 DATA 0,0,0,1,0,0,0,0
 2160 DATA 0,0,0,1,0,0,0,0
 2170 DATA 0,0,0,1,0,0,0,0
 2180 DATA 0,0,0,1,0,0,0,0
 2200 '00C steel frame
 2210 DATA 1,1,1,1,1,1,1,1
 2220 DATA 1,1,1,1,1,1,1,1
 2230 DATA 0,1,1,1,1,1,1,0
 2240 DATA 0,0,1,1,1,1,0,0
 2250 DATA 0,0,1,1,1,1,0,0
 2260 DATA 0,1,1,1,1,1,1,0
 2270 DATA 1,1,1,1,1,1,1,1
 2280 DATA 1,1,1,1,1,1,1,1
 2300 '00D ladder
 2310 DATA 0,1,0,0,0,0,1,0
 2320 DATA 0,1,1,1,1,1,1,0
 2330 DATA 0,1,0,0,0,0,1,0
 2340 DATA 0,1,0,0,0,0,1,0
 2350 DATA 0,1,0,0,0,0,1,0
 2360 DATA 0,1,1,1,1,1,1,0
 2370 DATA 0,1,0,0,0,0,1,0
 2380 DATA 0,1,0,0,0,0,1,0
 2400 '00E wave 1
 2410 DATA 0,0,0,0,0,0,0,0
 2420 DATA 0,0,0,0,0,0,0,0
 2430 DATA 0,0,0,0,0,0,0,0
 2440 DATA 0,0,0,0,0,0,0,0
 2450 DATA 0,0,1,0,0,1,0,0
 2460 DATA 1,1,0,1,1,0,1,1
 2470 DATA 0,0,0,0,0,0,0,0
 2480 DATA 0,0,0,0,0,0,0,0
 2500 '00F wave 2
 2510 DATA 0,0,0,0,0,0,0,0
 2520 DATA 0,0,0,0,0,0,0,0
 2530 DATA 0,0,0,0,0,0,0,0
 2540 DATA 1,0,0,1,0,0,1,0
 2550 DATA 0,1,1,0,1,1,0,1
 2560 DATA 0,0,0,0,0,0,0,0
 2570 DATA 0,0,0,0,0,0,0,0
 2580 DATA 0,0,0,0,0,0,0,0
 2999 'MAP DATA
 3000 '000
 3010 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3020 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3030 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3040 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3050 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3060 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3070 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3080 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3090 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3095 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3096 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3097 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3000 '001
 3110 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3120 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3130 DATA 0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0
 3140 DATA 0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0
 3150 DATA 0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3160 DATA 0,0,0,0,0,0,0,0,0,0,0,5,0,0,7,0
 3170 DATA 0,0,0,0,0,0,5,0,0,0,0,0,0,0,0,0
 3180 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3190 DATA 0,0,7,0,0,0,0,0,0,7,0,0,0,0,0,0
 3195 DATA 0,0,0,0,5,0,0,0,0,0,0,0,0,5,0,0
 3196 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3197 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 3200 '002
 3210 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3220 DATA 1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1
 3230 DATA 1,5,4,5,5,5,5,5,5,5,5,1,4,5,5,1
 3240 DATA 1,5,1,5,1,1,1,0,1,1,0,1,5,1,5,1
 3250 DATA 1,5,1,5,1,0,0,0,0,0,0,0,5,1,5,1
 3260 DATA 1,5,5,5,1,0,1,1,0,1,0,1,5,5,5,1
 3270 DATA 1,1,1,5,0,0,0,1,0,1,0,1,1,1,5,1
 3280 DATA 1,5,5,5,1,0,1,1,0,1,0,1,5,5,5,1
 3290 DATA 1,5,1,5,1,0,0,0,0,0,0,5,5,1,5,1
 3295 DATA 1,5,1,5,1,1,1,0,1,1,0,1,5,1,5,1
 3296 DATA 1,5,4,5,5,5,5,5,5,5,5,1,4,5,5,1
 3297 DATA 1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1
 3300 '003
 3310 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3320 DATA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a
 3330 DATA a,0,0,0,0,0,0,0,0,0,0,0,0,0,0,a
 3340 DATA a,0,0,0,0,0,0,0,0,0,0,0,0,0,0,a
 3350 DATA a,0,0,0,0,0,0,0,0,0,0,0,0,0,0,a
 3360 DATA a,0,0,0,0,0,0,0,0,0,0,0,0,0,0,a
 3370 DATA a,0,0,0,0,0,0,0,0,0,0,0,0,0,0,a
 3380 DATA a,0,0,0,0,0,0,0,0,0,0,0,0,0,0,a
 3390 DATA a,0,0,0,0,0,0,0,0,0,0,0,0,0,0,a
 3395 DATA a,0,0,0,0,0,0,0,0,0,0,0,0,0,0,a
 3396 DATA a,0,0,0,0,0,0,0,0,0,0,0,0,0,0,a
 3397 DATA a,a,a,a,a,a,a,a,a,a,a,a,a,a,a,a
 3400 '004
 3410 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3420 DATA f,f,f,f,f,f,f,f,f,f,f,f,f,f,f,f
 3430 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3440 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3450 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3460 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3470 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3480 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3490 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3495 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3496 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3497 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3500 '005
 3510 DATA 0,0,d,0,0,c,c,c,0,0,0,0,0,0,0,0
 3520 DATA 0,0,d,0,0,d,0,d,0,0,0,0,0,0,0,0
 3530 DATA c,c,c,c,c,c,c,c,c,c,c,c,c,0,0,0
 3540 DATA 0,0,0,b,0,0,0,0,0,b,0,0,d,0,0,0
 3550 DATA 0,0,0,b,0,0,0,0,0,b,0,0,d,c,c,c
 3560 DATA c,c,0,b,0,c,c,c,0,b,0,c,c,0,0,0
 3570 DATA 0,d,0,b,0,0,d,0,0,b,0,0,d,0,0,0
 3580 DATA 0,d,0,b,0,0,d,0,0,b,0,0,d,0,0,0
 3590 DATA 0,d,0,b,0,0,d,0,0,b,0,c,c,d,0,0
 3595 DATA 0,d,0,b,0,0,d,0,0,b,0,0,0,d,c,c
 3596 DATA c,c,0,b,0,c,c,c,0,b,0,c,c,c,0,0
 3597 DATA c,c,c,c,c,c,c,c,c,c,c,c,c,c,c,c
 3600 '006
 3610 DATA 0,8,0,0,8,0,8,0,8,8,0,0,0,0,0,0
 3620 DATA 8,0,8,0,8,0,8,0,8,0,8,0,0,0,0,0
 3630 DATA 8,0,8,0,8,0,8,0,8,8,0,0,0,0,0,0
 3640 DATA 8,8,8,0,0,8,0,0,8,0,8,0,0,0,0,0
 3650 DATA 8,0,8,0,0,8,0,0,8,0,8,0,0,0,0,0
 3660 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3670 DATA 8,8,0,0,8,8,8,0,8,0,8,0,0,8,0,0
 3680 DATA 8,0,8,0,8,0,0,0,8,8,8,0,8,0,8,0
 3690 DATA 8,0,8,0,8,8,0,0,8,0,8,0,8,0,8,0
 3695 DATA 8,0,8,0,8,0,0,0,8,0,8,0,8,0,8,0
 3696 DATA 8,8,0,0,8,8,8,0,8,0,8,0,0,8,0,0
 3697 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3700 '007
 3710 DATA 0,9,0,0,9,0,9,0,9,9,0,0,0,0,0,0
 3720 DATA 9,0,9,0,9,0,9,0,9,0,9,0,0,0,0,0
 3730 DATA 9,0,9,0,9,0,9,0,9,9,0,0,0,0,0,0
 3740 DATA 9,9,9,0,0,9,0,0,9,0,9,0,0,0,0,0
 3750 DATA 9,0,9,0,0,9,0,0,9,0,9,0,0,0,0,0
 3760 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 3770 DATA 9,9,0,0,9,9,9,0,9,0,9,0,0,9,0,0
 3780 DATA 9,0,9,0,9,0,0,0,9,9,9,0,9,0,9,0
 3790 DATA 9,0,9,0,9,9,0,0,9,0,9,0,9,0,9,0
 3795 DATA 9,0,9,0,9,0,0,0,9,0,9,0,9,0,9,0
 3796 DATA 9,9,0,0,9,9,9,0,9,0,9,0,0,9,0,0
 3797 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0