100 " ;
110 " ;
120 " ;
130 " ; PockePonga
140 " ;  Written by jsurfer
150 " ;  On Sunday, Feb 26, 2006
160 " ;  Requires 1647 bytes
170 " ;   of free memory to run
180 " ;   (64 bytes are for
190 " ;    string data.)
200 " ;
210 " ;
220 " ;
230 " ; Put string data to external RAM
240 " CALL PTDATA
250 " ;
260 " ;
270 " ;
280 " ;
290 " ;     MAIN
300 " ;
310 " CALL CLRSCRN     ;Clear screen
320 " CALL REINIT     ;Reinitialize everything
330 " CALL DWTITLE     ;Draw title screen
340 " OMAINLP:     ;Outer main loop
350 "  CALL CLRSCRN     ;Clear screen
360 "  CALL REINIT     ;Reinitialize everything
370 "  CALL DWSCRN     ;Draw screen
380 "  CALL DWEDGE     ;Draw edge
390 "  CALL DWBAR     ;Draw bar
400 "  CALL DWBALL     ;Draw ball
410 "   MAINLP:     ;Main loop
420 "    PRE 30H
430 "    MV A, (30)
440 "    CMP A, 1H
450 "    JPZ EXITML     ;Exit main loop if Q=true
460 "    CALL UNDWBL     ;Undraw ball
470 "    CALL MVBALL     ;Move ball
480 "    CALL DWBALL     ;Draw ball
490 "    CALL DWBAR     ;Draw bar
500 "    PRE 30H
510 "    MV A, (31)
520 "    CMP A, 1H
530 "    JPZ EXITML     ;Exit main loop if MISSED=true
540 "    CALL CKKEY     ;Check key entry
550 "   JP MAINLP     ;Jump to main loop
560 "   EXITML:
570 "   MV IL, 45H     ;Clear key buffer
580 "   PRE 30H
590 "   MVW (0D6H),1H     ;Put 0H to (cx)
600 "   CALLF 0FFFE8H
610 "   CALL ASKREPLAY     ;Ask if want to replay
620 "   PRE 30H
630 "   MV A, (32)
640 "   CMP A, 1H
650 "   JPZ EXITOML     ;Exit outer loop if user chose NO
660 "  JP OMAINLP
670 " EXITOML:
680 " CALL CLRSCRN
690 " CALL ENDSCRN     ;Display end screen
700 " RETF
710 " ;
720 " ;     END OF MAIN
730 " ;
740 " ;
750 " ;
760 " ;
770 " CLRSCRN:     ;Clear screen
780 " PRE 30H
790 " MVW (0D6H), 0H     ;Put 0H to (cx)
800 " MV IL, 51H
810 " CALLF 0FFFE8H
820 " RET
830 " ;
840 " ;
850 " ;
860 " ENDSCRN:     ;Display end screen
870 " PRE 30H
880 " MVW (0D6H), 0H     ;Put 0H to (cx)
890 " MV IL, 42H
900 " PRE 30H
910 " MV (0D4H), 0FH     ;Put location X into (bl)
920 " PRE 30H
930 " MV (0D5H), 1H     ;Put location Y into (bh)
940 " MV X, 0BFFBAH     ;Put address of string PockePonga
950 " MV Y, 10     ;Put length of string into Y
960 " CALLF 0FFFE8H     ;Display the string
970 " PRE 30H
980 " MVW (0D6H), 0H     ;Put 0H to (cx)
990 " MV IL, 42H
1000 " PRE 30H
1010 " MV (0D4H), 09H     ;Put location X into (bl)
1020 " PRE 30H
1030 " MV (0D5H), 2H     ;Put location Y into (bh)
1040 " MV X, 0BFFDAH     ;Put address of Sunday...
1050 " MV Y, 21     ;Put length of string into Y
1060 " CALLF 0FFFE8H     ;Display the string
1070 " RET
1080 " ;
1090 " ;
1100 " ;
1110 " DWTITLE:     ;Draw title screen
1120 " PRE 30H
1130 " MVW (0D6H), 0H     ;Put 0H to (cx)
1140 " MV IL, 42H
1150 " PRE 30H
1160 " MV (0D4H), 0FH     ;Put location X into (bl)
1170 " PRE 30H
1180 " MV (0D5H), 1H     ;Put location Y into (bh)
1190 " MV X, 0BFFBAH     ;Put address of string PockePonga
1200 " MV Y, 10     ;Put length of string into Y
1210 " CALLF 0FFFE8H     ;Display the string
1220 " MV A, 0H
1230 " SLTITL:     ;Start of loop in draw title
1240 " MV I, 0EFFFH     ;Length of the wait
1250 " WAIT
1260 " INC A
1270 " CMP A, 20H
1280 " JPZ ELTITL
1290 " JP SLTITL
1300 " ELTITL:     ;End of loop in draw title
1310 " RET
1320 " ;
1330 " ;
1340 " ;
1350 " REINIT:     ;Reinitialize everything
1360 " ; Initialization for internal RAM
1370 " PRE 30H
1380 " MVW (0), 100     ;Bar X
1390 " PRE 30H
1400 " MVW (2), 10     ;Bar Y
1410 " PRE 30H
1420 " MVW (4), 0     ;BarY top edge
1430 " PRE 30H
1440 " MVW (6), 28     ;Bar Y bottom edge
1450 " PRE 30H
1460 " MVW (8), 160     ;BallX
1470 " PRE 30H
1480 " MVW (10), 14     ;BallY
1490 " PRE 30H
1500 " MV (12), 1     ;BallDirectionX (0=left, 1=right)
1510 " PRE 30H
1520 " MV (13), 1     ;BallDirectionY (0=up, 1=down)
1530 " PRE 30H
1540 " MVW (14), 170     ;Right edge X
1550 " PRE 30H
1560 " MVW (16), 0     ;Top edge Y
1570 " PRE 30H
1580 " MVW (18), 28     ;Bottom edge Y
1590 " PRE 30H
1600 " MV (20), 0     ;Loop counter 1
1610 " PRE 30H
1620 " MV (21), 0     ;Loop counter 2
1630 " PRE 30H
1640 " MVW (22), 0     ;Temp storage 1
1650 " PRE 30H
1660 " MVW (24), 0     ;Temp storage 2
1670 " PRE 30H
1680 " MVW (26), 0     ;Loop counter 3
1690 " PRE 30H
1700 " MVW (28),0     ;Temp storage 3
1710 " PRE 30H
1720 " MV (30), 0     ;QUIT boolean (0=false, 1=true)
1730 " PRE 30H
1740 " MV (31), 0     ;MISSED boolean (0=false, 1=true)
1750 " PRE 30H
1760 " MV (32), 0     ;No is chosen boolean (0=false, 1=true)
1770 " RET
1780 " ;
1790 " ;
1800 " ;
1810 " ASKREPLAY:     ;Ask user for replay
1820 " PRE 30H
1830 " MVW (0D6H), 0H     ;Put 0H into (cx)
1840 " MV IL, 42H
1850 " PRE 30H
1860 " MV (0D4H), 0EH     ;Put location X into (bl)
1870 " PRE 30H
1880 " MV (0D5H), 2H     ;Put location Y into (bh)
1890 " MV X, 0BFFEFH     ;Put address of string REPLAY?
1900 " MV Y, 12     ;Put length of string into Y
1910 " CALLF 0FFFE8H     ;Display the string
1920 " BGASK:
1930 " PRE 30H
1940 " MV (0F0H), 0FH
1950 " PRE 30H
1960 " MV (0F1H), 0H
1970 " PRE 30H
1980 " MV A, (0F2H)
1990 " SUB A, 10H     ;N pressed?
2000 " JPZ NPRESSED
2010 " PRE 30H
2020 " MV A, (0F2H)
2030 " SUB A, 01H     ;Y pressed?
2040 " JPZ EDASK
2050 " JP BGASK     ;Jump to beginning of ASK
2060 " NPRESSED:
2070 " PRE 30H
2080 " MV (32), 1     ;Set 'NO IS CHOSEN' to TRUE
2090 " JP EDASK     ;Jump to end of ASK
2100 " EDASK:
2110 " MV IL, 45H     ;Clear key buffer
2120 " PRE 30H
2130 " MVW (0D6H), 1H
2140 " CALLF 0FFFE8H
2150 " RET
2160 " ;
2170 " ;
2180 " ;
2190 " CKKEY:     ; Check for key entry
2200 " PRE 30H
2210 " MV (0F0H), 01H
2220 " PRE 30H
2230 " MV (0F1H), 0H
2240 " PRE 30H
2250 " MV A, (0F2H)
2260 " SUB A, 2H
2270 " JPNZ CKAKEY     ;Jump if Q is not pressed
2280 " PRE 30H
2290 " MV (30), 1     ;Set QUIT boolean to TRUE
2300 " JP ECKKEY     ;Jump to end of CKKEY because Q is pressed
2310 " CKAKEY:     ;Checks if 'A' key is pressed
2320 " PRE 30H
2330 " MV A, (0F2H)
2340 " SUB A, 08H
2350 " JPNZ CKZKEY     ;'A' key not pressed so jump
2360 " PRE 30H
2370 " MV A, (2)
2380 " DEC A
2390 " PRE 30H
2400 " MV (2), A
2410 " PRE 30H
2420 " SUB A, (16)     ;Check if hit top edge Y
2430 " JPNZ ECKKEY     ;If not, jump to EXITCHECKKEY
2440 " PRE 30H
2450 " MV A, (2)
2460 " INC A
2470 " PRE 30H
2480 " MV (2), A
2490 " JP ECKKEY     ;Jump to end of CKKEY
2500 " CKZKEY:     ;Check if 'Z' key is pressed
2510 " PRE 30H
2520 " MV A, (0F2H)
2530 " SUB A, 20H
2540 " JPNZ ECKKEY
2550 " PRE 30H
2560 " MV A, (2)
2570 " INC A
2580 " PRE 30H
2590 " MV (2), A
2600 " PRE 30H
2610 " MV A, (18)
2620 " DEC A
2630 " DEC A
2640 " DEC A
2650 " PRE 30H
2660 " MV (28), A
2670 " PRE 30H
2680 " MV A, (2)
2690 " PRE 30H
2700 " SUB A, (28)     ;Check if hit bottom edge Y
2710 " JPNZ ECKKEY     ;If not, jump to EXITCHECKKEY
2720 " PRE 30H
2730 " MV A, (2)
2740 " DEC A
2750 " PRE 30H
2760 " MV (2), A
2770 " JP ECKKEY     ;Jump to end of CKKEY
2780 " ECKKEY:     ;End fo CKKEY
2790 " RET
2800 " ;
2810 " ;
2820 " ;
2830 " DWEDGE:     ;Draw right edge
2840 " PRE 30H
2850 " MV A, (14)     ;Get right edge
2860 " ADD A, 4H     ;Add 4 for ball size
2870 " PRE 30H
2880 " MV (22), A     ;Put it in TEMP
2890 " PRE 30H
2900 " MV (20), 0H
2910 " LSEDGE:     ;Loop start of edge
2920 "  PRE 30H
2930 "  MVW (0D6H), 0H     ;Put 0H to (cx)
2940 "  MV IL, 4CH
2950 "  PRE 30H
2960 "  MV X, (22)
2970 "  PRE 30H
2980 "  MV Y, (20)
2990 "  MV A, 0H
3000 "  CALLF 0FFFE8H
3010 "  PRE 30H
3020 "  MV A, (20)
3030 "  INC A
3040 "  PRE 30H
3050 "  MV (20), A
3060 "  PRE 30H
3070 "  CMP A, 20H
3080 " JPNZ LSEDGE     ;Jump to loop start of edge
3090 " RET
3100 " ;
3110 " ;
3120 " ;
3130 " DWBAR:     ;Draw bar
3140 " PRE 30H
3150 " MV (20), 0H     ;Set loop counter to 0
3160 " LSBAR:     ;Loop start of Draw Bar
3170 "  PRE 30H
3180 "  MVW (0D6H), 0H     ;Put 0H to (cx)
3190 "  MV IL, 4CH
3200 "  PRE 30H
3210 "  MV X, (0)
3220 "  PRE 30H
3230 "  MV BA, (2)
3240 "  PRE 30H
3250 "  ADD A, (20)
3260 "  PRE 30H
3270 "  MV (22), A
3280 "  PRE 30H
3290 "  MV Y, (22)
3300 "  MV A, 0H
3310 "  CALLF 0FFFE8H
3320 "  PRE 30H
3330 "  MV A, (20)
3340 "  INC A
3350 "  PRE 30H
3360 "  MV (20), A
3370 "  PRE 30H
3380 "  CMP A, 7H     ;Length of bar is 7H
3390 " JPNZ LSBAR     ;Jump to loop start of draw bar
3400 " MV IL, 4CH     ;Delete 1 dot above
3410 " PRE 30H
3420 " MVW (0D6H), 0H     ;Put 0H to (cx)
3430 " PRE 30H
3440 " MV X, (0)
3450 " PRE 30H
3460 " MV BA, (2)
3470 " DEC BA
3480 " PRE 30H
3490 " MV (22), A
3500 " PRE 30H
3510 " MV Y, (22);
3520 " MV A, 1H
3530 " CALLF 0FFFE8H
3540 " MV IL, 4CH     ;Delete 1 dot down
3550 " PRE 30H
3560 " MVW (0D6H), 0H     ;Put 0H to (cx)
3570 " PRE 30H
3580 " MV X, (0)
3590 " PRE 30H
3600 " MV BA, (2)
3610 " INC BA
3620 " INC BA
3630 " INC BA
3640 " INC BA
3650 " INC BA
3660 " INC BA
3670 " INC BA
3680 " PRE 30H
3690 " MV (22), A
3700 " PRE 30H
3710 " MV Y, (22);
3720 " MV A, 1H
3730 " CALLF 0FFFE8H
3740 " RET
3750 " ;
3760 " ;
3770 " ;
3780 " DWBALL:     ;Draw ball
3790 " PRE 30H
3800 " MV (20), 0     ;Set loop counter 1 to 0
3810 " LSBAL1:     ;Loop start of ball1
3820 "  PRE 30H
3830 "  MV BA, (8)
3840 "  PRE 30H
3850 "  ADD A, (20)
3860 "  PRE 30H
3870 "  MV (22), BA     ;BA -> TEMP storage 1
3880 "  PRE 30H
3890 "  MV X, (22)
3900 "  PRE 30H
3910 "  MV (21), 0     ;Set loop counter 2 to 0
3920 "  LSBAL2:     ;Loop start of ball2
3930 "   PRE 30H
3940 "   MV BA, (10)
3950 "   PRE 30H
3960 "   ADD A, (21)
3970 "   PRE 30H
3980 "   MV (24), BA     ;BA -> TEMP storage 2
3990 "   PRE 30H
4000 "   MVW (0D6H), 0H     ;Put 0H to (cx)
4010 "   MV IL, 4CH
4020 "   PRE 30H
4030 "   MV Y, (24)
4040 "   MV A, 0H
4050 "   CALLF 0FFFE8H
4060 "   PRE 30H
4070 "   MV A, (21)
4080 "   INC A
4090 "   PRE 30H
4100 "   MV (21), A
4110 "   CMP A, 4H
4120 "  JPNZ LSBAL2
4130 "  PRE 30H
4140 "  MV A, (20)
4150 "  INC A
4160 "  PRE 30H
4170 "  MV (20), A
4180 "  CMP A, 4H
4190 " JPNZ LSBAL1
4200 " RET
4210 " ;
4220 " ;
4230 " ;
4240 " UNDWBL:     ;Undraw ball
4250 " PRE 30H
4260 " MV (20), 0     ;Set loop counter 1 to 0
4270 " LSUDB1:     ;Loop start of UNDRAW BALL1
4280 "  PRE 30H
4290 "  MV BA, (8)
4300 "  PRE 30H
4310 "  ADD A, (20)
4320 "  PRE 30H
4330 "  MV (22), BA     ;BA -> TEMP storage 1
4340 "  PRE 30H
4350 "  MV X, (22)
4360 "  PRE 30H
4370 "  MV (21), 0     ;Set loop counter 2 to 0
4380 "  LSUDB2:     ;Loop start of UNDRAW BALL2
4390 "   PRE 30H
4400 "   MV BA, (10)
4410 "   PRE 30H
4420 "   ADD A, (21)
4430 "   PRE 30H
4440 "   MV (24), BA     ;BA -> TEMP storage 2
4450 "   MV IL, 4CH
4460 "   PRE 30H
4470 "   MVW (0D6H), 0H     ;Put 0H to (cx)
4480 "   PRE 30H
4490 "   MV Y, (24)
4500 "   MV A, 1H
4510 "   CALLF 0FFFE8H
4520 "   PRE 30H
4530 "   MV A, (21)
4540 "   INC A
4550 "   PRE 30H
4560 "   MV (21), A
4570 "   CMP A, 4H
4580 "  JPNZ LSUDB2
4590 "  PRE 30H
4600 "  MV A, (20)
4610 "  INC A
4620 "  PRE 30H
4630 "  MV (20), A
4640 "  CMP A, 4H
4650 " JPNZ LSUDB1
4660 " RET
4670 " ;
4680 " ;
4690 " ;
4700 " MVBALL:     ;Move ball
4710 " PRE 30H
4720 " MV A, (12)
4730 " CMP A, 1H
4740 " JPZ MVRT     ;Jump to MOVE RIGHT
4750 " PRE 30H     ;Move to left
4760 " MV A, (8)
4770 " DEC A
4780 " PRE 30H
4790 " MV (8), A
4800 " PRE 30H
4810 " SUB A, (0)     ;If bar Y
4820 " JPNZ UPORDN     ;Jump to UP OR DOWN FUNC
4830 " ;Check to see if ball hit bar
4840 " PRE 30H
4850 " MV (31), 1     ;Set MISSED to TRUE
4860 " ;
4870 " PRE 30H
4880 " MV A, (2)
4890 " DEC A
4900 " DEC A ; BARY - 2
4910 " PRE 30H
4920 " MV (23), A     ;Save value in A to (23) for now
4930 " PRE 30H
4940 " SUB A, (10)
4950 " JPZ SETMFS     ;Jump to SET MISSED TO FALSE
4960 " ;
4970 " PRE 30H
4980 " MV (20), 0     ;Set loop counter 1 to 0
4990 " BGLPMB:     ;Begin of loop in MOVEBALL
5000 "  PRE 30H
5010 "  MV A, (23)     ;Restore value
5020 "  INC A ;
5030 "  PRE 30H
5040 "  MV (23), A     ;Save value in A to (23) for now
5050 "  PRE 30H
5060 "  SUB A, (10)
5070 "  JPZ SETMFS     ;Jump to SET MISSED TO FALSE
5080 "  PRE 30H
5090 "  MV A, (20)
5100 "  INC A     ;Increase loop counter by 1
5110 "  CMP A, 9H
5120 "  JPZ EDMVBL     ;Jump to end of MOEVEBALL
5130 "  PRE 30H
5140 "  MV (20), A
5150 " JP BGLPMB
5160 " SETMFS:     ;Set MISSED to FALSE
5170 " PRE 30H
5180 " MV (31), 0     ;Set MISSED to FALSE
5190 " PRE 30H
5200 " MV A, (12)
5210 " PRE 30H
5220 " INC A     ;Change direction to right
5230 " PRE 30H
5240 " MV (12), A
5250 " JP UPORDN
5260 " MVRT:
5270 " PRE 30H     ;Move to right
5280 " MV A, (8)
5290 " INC A
5300 " PRE 30H
5310 " MV (8), A
5320 " PRE 30H
5330 " SUB A, (14)
5340 " JPNZ UPORDN     ;Jump to UP OR DOWN
5350 " PRE 30H
5360 " MV A, (12)
5370 " PRE 30H
5380 " DEC A
5390 " PRE 30H
5400 " MV (12), A
5410 " UPORDN:    ;UP OR DOWN
5420 " PRE 30H
5430 " MV A, (13)
5440 " CMP A, 1H
5450 " JPZ MVDN     ;Jump to MOVE DOWN
5460 " PRE 30H     ;Move up
5470 " MV A, (10)
5480 " DEC A
5490 " PRE 30H
5500 " MV (10), A
5510 " PRE 30H
5520 " SUB A, (16)
5530 " JPNZ EDMVBL     ;Move to end of MOVEBALL
5540 " PRE 30H
5550 " MV A, (13)
5560 " INC A
5570 " PRE 30H
5580 " MV (13), A
5590 " JP EDMVBL
5600 " MVDN:
5610 " PRE 30H
5620 " MV A, (10)
5630 " INC A
5640 " PRE 30H
5650 " MV (10), A
5660 " PRE 30H
5670 " SUB A, (18)
5680 " JPNZ EDMVBL
5690 " PRE 30H
5700 " MV A, (13)
5710 " DEC A
5720 " PRE 30H
5730 " MV (13), A
5740 " EDMVBL:    ;END OF MOVEBALL
5750 " RET
5760 " ;
5770 " ;
5780 " ;
5790 " DWSCRN:     ;Draw screen
5800 " PRE 30H
5810 " MVW (0D6H), 0H     ;Put 0H to (cx)
5820 " MV IL, 42H
5830 " PRE 30H
5840 " MV (0D4H), 0H     ;Put location X in (bl)
5850 " PRE 30H
5860 " MV (0D5H), 0H     ;Put location Y in (bh)
5870 " MV X, 0BFFBAH     ;Put address of string PockePonga
5880 " MV Y, 10     ;Put length of string into Y
5890 " CALLF 0FFFE8H     ;Display string
5900 " PRE 30H
5910 " MVW (0D6H), 0H     ;Put 0H to (cx)
5920 " MV IL, 42H
5930 " PRE 30H
5940 " MV (0D4H), 1H     ;Put location X in (bl)
5950 " PRE 30H
5960 " MV (0D5H), 1H     ;Put location Y in (bh)
5970 " MV X, 0BFFC4H     ;Put address of string QUIT
5980 " MV Y, 8     ;Put length of string into Y
5990 " CALLF 0FFFE8H     ;Display string
6000 " PRE 30H
6010 " MVW (0D6H), 0H     ;Put 0H to (cx)
6020 " MV IL, 42H
6030 " PRE 30H
6040 " MV (0D4H), 1H     ;Put location X in (bl)
6050 " PRE 30H
6060 " MV (0D5H), 2H     ;Put location Y in (bh)
6070 " MV X, 0BFFCCH     ;Put address of string UP
6080 " MV Y, 6     ;Put length of string into Y
6090 " CALLF 0FFFE8H     ;Display string
6100 " PRE 30H
6110 " MVW (0D6H), 0H     ;Put 0H to (cx)
6120 " MV IL, 42H
6130 " PRE 30H
6140 " MV (0D4H), 1H     ;Put location X in (bl)
6150 " PRE 30H
6160 " MV (0D5H), 3H     ;Put location Y in (bh)
6170 " MV X, 0BFFD2H     ;Put address of string DOWN
6180 " MV Y, 8     ;Put length of string into Y
6190 " CALLF 0FFFE8H     ;Display string
6200 " RET
6210 " ;
6220 " ;
6230 " ;
6240 " PTDATA:     ;Put string data to external RAM
6250 " ;
6260 " ; 'PockePonga'
6270 " ; 10 characters
6280 " ;
6290 " MV X, 0BFFBAH
6300 " MV A, 80     ;'P'
6310 " MV [X], A
6320 " MV X, 0BFFBBH
6330 " MV A, 111     ;'o'
6340 " MV [X], A
6350 " MV X, 0BFFBCH
6360 " MV A, 99     ;'c'
6370 " MV [X], A
6380 " MV X, 0BFFBDH
6390 " MV A, 107     ;'k'
6400 " MV [X], A
6410 " MV X, 0BFFBEH
6420 " MV A, 101     ;'e'
6430 " MV [X], A
6440 " MV X, 0BFFBFH
6450 " MV A, 80     ;'P'
6460 " MV [X], A
6470 " MV X, 0BFFC0H
6480 " MV A, 111     ;'o'
6490 " MV [X], A
6500 " MV X, 0BFFC1H
6510 " MV A, 110     ;'n'
6520 " MV [X], A
6530 " MV X, 0BFFC2H
6540 " MV A, 103     ;'g'
6550 " MV [X], A
6560 " MV X, 0BFFC3H
6570 " MV A, 97     ;'a'
6580 " MV [X], A
6590 " ;
6600 " ; '[Q]:Quit'
6610 " ; 8 characters
6620 " ;
6630 " MV X, 0BFFC4H
6640 " MV A, 91     ;'['
6650 " MV [X], A
6660 " MV X, 0BFFC5H
6670 " MV A, 81     ;'Q'
6680 " MV [X], A
6690 " MV X, 0BFFC6H
6700 " MV A, 93     ;']'
6710 " MV [X], A
6720 " MV X, 0BFFC7H
6730 " MV A, 58     ;':'
6740 " MV [X], A
6750 " MV X, 0BFFC8H
6760 " MV A, 81     ;'Q'
6770 " MV [X], A
6780 " MV X, 0BFFC9H
6790 " MV A, 117     ;'u'
6800 " MV [X], A
6810 " MV X, 0BFFCAH
6820 " MV A, 105     ;'i'
6830 " MV [X], A
6840 " MV X, 0BFFCBH
6850 " MV A, 116     ;'t'
6860 " MV [X], A
6870 " ;
6880 " ; '[A]:Up'
6890 " ; 6 characters
6900 " ;
6910 " MV X, 0BFFCCH
6920 " MV A, 91     ;'['
6930 " MV [X], A
6940 " MV X, 0BFFCDH
6950 " MV A, 65     ;'A'
6960 " MV [X], A
6970 " MV X, 0BFFCEH
6980 " MV A, 93     ;']'
6990 " MV [X], A
7000 " MV X, 0BFFCFH
7010 " MV A, 58     ;':'
7020 " MV [X], A
7030 " MV X, 0BFFD0H
7040 " MV A, 85     ;'U'
7050 " MV [X], A
7060 " MV X, 0BFFD1H
7070 " MV A, 112     ;'p'
7080 " MV [X], A
7090 " ;
7100 " ; '[Z]:Down'
7110 " ; 8 characters
7120 " ;
7130 " MV X, 0BFFD2H
7140 " MV A, 91     ;'['
7150 " MV [X], A
7160 " MV X, 0BFFD3H
7170 " MV A, 90     ;'Z'
7180 " MV [X], A
7190 " MV X, 0BFFD4H
7200 " MV A, 93     ;']'
7210 " MV [X], A
7220 " MV X, 0BFFD5H
7230 " MV A, 58     ;':'
7240 " MV [X], A
7250 " MV X, 0BFFD6H
7260 " MV A, 68     ;'D'
7270 " MV [X], A
7280 " MV X, 0BFFD7H
7290 " MV A, 111     ;'o'
7300 " MV [X], A
7310 " MV X, 0BFFD8H
7320 " MV A, 119     ;'w'
7330 " MV [X], A
7340 " MV X, 0BFFD9H
7350 " MV A, 110     ;'n'
7360 " MV [X], A
7370 " ;
7380 " ; 'Sunday, Feb. 26, 2006'
7390 " ; 21 characters
7400 " ;
7410 " MV X, 0BFFDAH
7420 " MV A, 83     ;'S'
7430 " MV [X], A
7440 " MV X, 0BFFDBH
7450 " MV A, 117     ;'u'
7460 " MV [X], A
7470 " MV X, 0BFFDCH
7480 " MV A, 110     ;'n'
7490 " MV [X], A
7500 " MV X, 0BFFDDH
7510 " MV A, 100     ;'d'
7520 " MV [X], A
7530 " MV X, 0BFFDEH
7540 " MV A, 97     ;'a'
7550 " MV [X], A
7560 " MV X, 0BFFDFH
7570 " MV A, 121     ;'y'
7580 " MV [X], A
7590 " MV X, 0BFFE0H
7600 " MV A, 44     ;','
7610 " MV [X], A
7620 " MV X, 0BFFE1H
7630 " MV A, 32     ;' '
7640 " MV [X], A
7650 " MV X, 0BFFE2H
7660 " MV A, 70     ;'F'
7670 " MV [X], A
7680 " MV X, 0BFFE3H
7690 " MV A, 101     ;'e'
7700 " MV [X], A
7710 " MV X, 0BFFE4H
7720 " MV A, 98     ;'b'
7730 " MV [X], A
7740 " MV X, 0BFFE5H
7750 " MV A, 46     ;'.'
7760 " MV [X], A
7770 " MV X, 0BFFE6H
7780 " MV A, 32     ;' '
7790 " MV [X], A
7800 " MV X, 0BFFE7H
7810 " MV A, 50     ;'2'
7820 " MV [X], A
7830 " MV X, 0BFFE8H
7840 " MV A, 54     ;'6'
7850 " MV [X], A
7860 " MV X, 0BFFE9H
7870 " MV A, 44     ;','
7880 " MV [X], A
7890 " MV X, 0BFFEAH
7900 " MV A, 32     ;' '
7910 " MV [X], A
7920 " MV X, 0BFFEBH
7930 " MV A, 50     ;'2'
7940 " MV [X], A
7950 " MV X, 0BFFECH
7960 " MV A, 48     ;'0'
7970 " MV [X], A
7980 " MV X, 0BFFEDH
7990 " MV A, 48     ;'0'
8000 " MV [X], A
8010 " MV X, 0BFFEEH
8020 " MV A, 54     ;'6'
8030 " MV [X], A
8040 " ;
8050 " ; 'Replay?[Y/N]'
8060 " ; 12 characters
8070 " ;
8080 " MV X, 0BFFEFH
8090 " MV A, 82     ;'R' 12 characters
8100 " MV [X], A
8110 " MV X, 0BFFF0H
8120 " MV A, 101     ;'e'
8130 " MV [X], A
8140 " MV X, 0BFFF1H
8150 " MV A, 112     ;'p'
8160 " MV [X], A
8170 " MV X, 0BFFF2H
8180 " MV A, 108     ;'l'
8190 " MV [X], A
8200 " MV X, 0BFFF3H
8210 " MV A, 97     ;'a'
8220 " MV [X], A
8230 " MV X, 0BFFF4H
8240 " MV A, 121     ;'y'
8250 " MV [X], A
8260 " MV X, 0BFFF5H
8270 " MV A, 63     ;'?'
8280 " MV [X], A
8290 " MV X, 0BFFF6H
8300 " MV A, 91     ;'['
8310 " MV [X], A
8320 " MV X, 0BFFF7H
8330 " MV A, 89     ;'Y'
8340 " MV [X], A
8350 " MV X, 0BFFF8H
8360 " MV A, 47     ;'/'
8370 " MV [X], A
8380 " MV X, 0BFFF9H
8390 " MV A, 78     ;'N'
8400 " MV [X], A
8410 " MV X, 0BFFFAH
8420 " MV A, 93     ;']'
8430 " MV [X], A
8440 " RET