10 V=53248:POKEV+32,2:POKEV+33,5:S=54272:FORLL=0TO24:POKES+LL,0:NEXT
15 PRINT"[147][149]"SPC(17)"ELFRED":GOSUB420
20 FORN=0TO63:READQ:POKE704+N,Q:NEXT:FORN=0TO191:READQ:POKE832+N,Q:NEXT
25 POKEV+23,1:POKEV+37,1:POKEV+38,2:POKEV+28,254:POKEV+21,255
30 PRINT"     PLEASE WAIT... READING DATA...":POKE2041,13
35 POKEV+40,10:POKEV+2,172:POKEV+3,90:FORN=0TO511:READQ:POKE12288+N,Q:NEXT
40 POKE198,0:PRINT"[147]HOW MANY BAGS DO YOU WANT TO PACK? (1-5)"
45 GETA$:IFA$=""THEN45
50 IFA$<"1"ORA$>"5"THEN45
55 A=VAL(A$):PRINTA"TYPE NAME AND HIT RETURN"
60 FORL=1TOA:PRINT"BAG #"L:INPUTN$(L):N$(L)=LEFT$(N$(L),9):NEXT
65 PRINT"[147]CHOOSE SPEED:  0 SLOW AND EASY"SPC(71)"TO"SPC(72)"9 WATCH THEM ZIP!"
70 GETSP$:IFSP$=""THEN70
75 IFSP$<"0"ORSP$>"9"THEN70
80 SP=VAL(SP$)+1:FORB=1TOA
85 POKE53280,1:POKE53281,3:PRINT"[147]";
90 FORL=1TO4:PRINT"                                        ";:NEXT
95 FORL=1TO40:PRINT" ";:NEXT:POKEV+2,175:POKEV+3,140
100 PRINT"[146][191][191].[149] [146][191][191] [144][213][192][192][192][192][192][192][192][192][192][192][192][201]"
105 PRINT"  [191][191][223][146].[169][149] [223][146].[169][146][191][191] [144][221] HIT SPACE[146] [221]"
110 PRINT"  [191][191][149]         [146][191][191] [144][221] TO CHOOSE [221]"
115 PRINT"  [191][191]..[149] [146].[191][191] [144][221]    TOYS   [221]"
120 PRINT"  [191][191].[149] [146]..[191][191] [144][221]           [221]"
125 PRINT"  [191][191][223][146].[169][149] [223][169][146][191][191] [144][202][192][192][192][192][205][206][192][192][192][192][192][203]":PRINT"  [191][191][149][184][184][184][184][184][184][184][184][184][191][191]"
130 FORJ=1TO160:PRINT" ";:NEXT:PRINTTAB(35)"[145][145][145][145][145][145][145][145][145][145][145][145][145][129][146]*"
135 PRINTTAB(34)"[169] [223][157][157][157][157][169]   [223][157][157][157][157][157][169]   [223][157][157][157][157][157][157][169]   * [223][157][157][157][157][157][157][157][169]     [223][157]"
140 FORJ=1TO2:PRINTSPC(31)"[169]       [223]";:NEXT
145 POKE2040,11:POKEV+21,255:POKEV,248:POKEV+1,153:POKEV+39,5
150 FORJ=1TO2:PRINTSPC(31)"         ";:NEXT
155 FORJ=1TO3:PRINTSPC(30)"          ";:NEXT:POKE1537,170:POKE1620,170
160 PRINTSPC(28)"[169]           ";:POKE1736,170:POKE1741,170:POKE1663,170
165 PRINTSPC(27)"[169] *          "SPC(29)"[169]        * "SPC(32)"[169]*    [223]"
170 PRINTSPC(34)"[149]   "SPC(36)"[169]   [223][145][145][145][145][145]"SPC(15);
175 PRINT"[146][223]       [146][169]"SPC(32)"       "SPC(32)"[169]  FOR  [223]"SPC(31)"         ";
180 PRINTSPC(31)"         "SPC(31)"[146][223]       [146][169][145][145]";
185 PRINTSPC(35-(INT(LEN(N$(B))/2)))N$(B)
190 PRINT""SPC(29)"SPEED:"SP-1SPC(71)"TOTAL"SPC(35)"MISSES:"SC"[157][157][157]";
195 Z=1:XX=25:X=4:Y=5:CC=41:POKEV+14,150:POKEV+15,166
200 FORT=192TO200:IFT=200THENT=192
205 IFZ=6THEN230
210 POKE2047,T:GOSUB380:POKEV+46,C:FORL=1TO100:IFPEEK(197)<>60THEN225
215 G(Z)=T:POKE2041+Z,T:POKEV+X,XX:POKEV+Y,55:POKEV+CC,C:GOSUB410
220 Z=Z+1:X=X+2:XX=XX+49:Y=Y+2:CC=CC+1:FORL=1TO100
225 NEXTL:NEXTT
230 POKEV+14,0:T=192+INT(RND(0)*8)
235 PRINT""SPC(58)"HIT SPACE[146]"SPC(31)" TO DROP "SPC(32)"TOY IN"SPC(36);
240 PRINT"BAG"
245 POKE2047,T:GOSUB380:POKEV+46,C:FORX=0TO249STEPSP:POKEV+14,X:POKEV+15,166
250 IFPEEK(197)<>60THEN270
255 GOSUB315:IFG(1)=0ANDG(2)=0ANDG(3)=0ANDG(4)=0ANDG(5)=0ANDB=ATHEN365
260 IFG(1)=0ANDG(2)=0ANDG(3)=0ANDG(4)=0ANDG(5)=0ANDB<ATHENGOSUB420:NEXTB
265 GOTO230
270 IFX>170THENPOKE2041,15:GOTO285
275 IFX>160THENPOKE2041,14:GOTO285
280 POKE2041,13
285 NEXTX:FORZ=1TO5:IFG(Z)=TTHENFF=1:POKEV+14,0:GOSUB330:FF=0:GOTO295
290 NEXTZ
295 POKEV+14,0:POKE2041,14:M=M+1:IFM=5THEN305
300 GOTO230
305 FORZ=1TO5:IFG(Z)>0THENT=G(Z):M=0:GOTO245
310 NEXTZ
315 IFX<138ORX>170THEN330
320 FORZ=1TO5:IFG(Z)=TTHENPOKEV+27,128:GOTO345
325 NEXTZ
330 SC=SC+1:PRINT""SPC(36)SC""
335 PRINTSPC(18)"         "SPC(32)" OOPS! "SPC(33)"      "SPC(36)"   "
340 IFFF=1THEN355
345 FORY=166TO250STEP3:POKEV+14,X:POKEV+15,Y:NEXT:POKEV+27,0
350 IFX>137ANDX<171ANDG(Z)=TTHENPOKEV+2*(Z+1),0:GOSUB400:G(Z)=0:RETURN
355 FORJ=1TO2:FORL=13TO15:POKE2041,L:FORLL=1TO50:NEXTLL:NEXTL
360 FORL=15TO13STEP-1:POKE2041,L:FORLL=1TO50:NEXTLL:NEXTL:NEXTJ:RETURN
365 GOSUB420:PRINTSPC(57)"PLAY AGAIN?"SPC(30)"HIT SPACE"
370 IFPEEK(197)=60THENPOKEV+3,0:POKEV,0:SC=0:GOTO40
375 GOTO370
380 IFT=194ORT=196ORT=199THENC=0:RETURN
385 IFT=193THENC=1:RETURN
390 IFT=198THENC=5:RETURN
395 IFT=192ORT=195ORT=197THENC=7:RETURN
400 POKE2041,14:PRINT""SPC(98)"         "SPC(32)"HOORAY!"SPC(33)"      ";
405 PRINTSPC(36)"   "
410 POKES+1,130:POKES+15,65
415 POKES+24,15:POKES+4,21:FORLL=1TO500:NEXTLL:POKES+4,20:POKES+24,0:RETURN
420 RESTORE
425 POKES+24,15:POKES+5,9:POKES+6,0:READD,H,L:IFD=-1THENPOKES+24,0:RETURN
430 POKES+1,H:POKES,L:POKES+4,17:FORSS=1TOD*1.5:NEXT:POKES+4,16:GOTO425
435 DATA120,25,30,110,33,135,50,33,135,50,37,162,50,33,135,50,31,165,120,28,49
440 DATA120,28,49,120,28,49,120,37,162,50,37,162,50,42,62,50,37,162,50,33,135
445 DATA120,31,165,120,25,30,120,25,30,120,42,62,50,42,62,50,44,193,50,42,62
450 DATA50,37,162,120,33,135,120,28,49,50,25,30,50,25,30,120,28,49,120,37,162
455 DATA120,31,165,250,33,135,-1,-1,-1
460 DATA0,0,1,0,0,7,0,0,31,0,0,127,0,1,255,0,0,31,0,0,127,0,1,255,0,7,255
465 DATA0,15,255,0,31,255,0,127,255,1,255,255,0,31,255,0,127,255,1,255,255
470 DATA3,255,255,7,255,255,31,255,255,127,255,255,255,255,255,0
475 DATA0,0,5,0,63,252,3,255,252,15,255,252,63,255,252,21,85,84,21,85,84,42
480 DATA170,168,21,149,174,14,174,186,10,170,170,42,170,170,170,170,174,170
485 DATA170,174,42,170,170,10,171,170,10,174,160,15,250,176,10,170,255,254,171
490 DATA255,255,255,255,0
495 DATA0,20,0,0,60,0,0,255,0,3,255,192,15,255,240,21,85,84,21,85
500 DATA84,42,170,168,37,105,88,107,170,238,170,170,170,186,170
505 DATA174,186,170,174,170,170,170,43,170,232,42,235,168,10,190,160
510 DATA2,170,128,63,170,252,255,255,255,255,255,255,0
515 DATA80,0,0,15,252,0,15,255,192,15,255,240,15,255,252,5,85,84,5,85
520 DATA84,10,170,168,174,86,84,171,186,176,170,170,160,174,170,168
525 DATA174,170,170,170,170,170,170,170,168,42,186,168,10,174,160,14
530 DATA175,192,255,234,168,255,250,173,255,255,255,0
535 DATA0,0,48,0,0,32,0,0,168,0,0,154,0,0,170,0,0,160,0,0,160,0,0,160,0,0,160
540 DATA0,0,160,0,0,160,2,70,160,11,234,168,10,190,168,42,170,168,170,254,168
545 DATA10,170,160,8,195,32,8,195,32,8,195,32,8,195,32,0
550 DATA0,0,0,0,0,160,0,2,8,0,8,70,0,8,2,0,2,8,0,0,160,0,2,8,0,11,254,2,43,254
555 DATA0,171,234,2,163,168,0,2,172,8,11,188,40,15,252,42,175,252,10,175,240,0
560 DATA15,240,40,42,0,10,168,0,2,128,0,0
565 DATA0,0,0,0,0,0,0,0,0,2,170,128,10,185,160,46,85,184,42,85,168,165
570 DATA170,90,149,190,86,149,190,86,149,190,86,149,190,86,165,170,90,42
575 DATA85,168,46,85,184,10,85,160,2,170,128,0,0,0,0,0,0,0,0,0,0,0,0,0
580 DATA0,0,0,0,0,0,0,0,0,0,0,0,252,0,0,32,0,0,8,0,0,2,240,0,10,191
585 DATA0,42,165,240,10,255,255,2,255,255,10,0,0,8,0,0,32,0,0,252
590 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
595 DATA0,128,0,0,144,0,0,132,0,0,133,0,0,133,0,0,133,64,0,133,64,0,133
600 DATA80,0,133,80,0,133,84,0,133,84,0,149,85,0,170,170,0,128,0,170,170,170
605 DATA191,255,254,47,255,248,47,255,248,11,255,224,2,170,128,0,0,0,0
610 DATA0,0,0,0,0,0,0,0,0,0,0,0,2,128,0,10,160,0,59,160,0,250,160,0,10
615 DATA160,162,2,130,170,2,170,170,10,170,170,42,170,168,42,170,168,42
620 DATA170,160,10,170,160,2,170,128,0,0,0,0,0,0,0,0,0,0,0,0,0
625 DATA170,170,160,170,170,164,170,170,166,170,170,166,170,170,166
630 DATA171,254,166,170,170,166,175,255,166,170,170,166,170,170,166,170
635 DATA170,166,170,170,166,170,170,166,170,170,166,170,170,166,170,170
640 DATA166,170,170,166,170,170,166,170,170,166,37,85,86,10,170,170,0
645 DATA0,168,0,2,170,0,10,102,128,10,102,128,10,170,128,2,170,0,2,170
650 DATA0,10,170,128,34,8,32,130,8,8,130,8,8,32,130,32,8,34,32,32,34
655 DATA32,128,130,8,130,0,130,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0