0 REM
1 REM
2 REM,
3 REM:
4 PRINT"":POKE,:POKE,:GOSUB700:GOSUB162:=:=:PRINT"
5 =""
6 DIM,,,,,,,,,,,
7 DIM,,,,,
8 GOSUB23:INPUT"":IFLEFT$,=""THEN=
9 INPUT"":IFLEFT$,=""THEN=:=
10 =:=:=:=:=
11 ="":=""
12 =RND-:=:=:=:=:=:=
13 ="":=""
14 PRINT""
15 FOR=TO:+-*,=:NEXT:,=:,=
16 =INTRND*+:=INTRND*+
17 FOR=TO:FOR=TO:READ,:NEXT:NEXT
18 ="":=""
19 FOR=TO:READ:NEXT:FOR=TO:READ:IF<>""THEN21
20 READ:FOR=TO:READ,:NEXT
21 NEXT
22 FOR=TO:READ:NEXT:FOR=TO:READ:NEXT:GOTO32
23 PRINT""
24 PRINT""
25 PRINT""
26 PRINT""
27 PRINTTAB(""
28 PRINT""
29 PRINT""
30 PRINT""
31 PRINT:PRINT"":PRINT:RETURN
32 POKE,:POKE,:POKE,
33 POKE,:POKE,:POKE,
34 POKE,:POKE,:POKE,
35 =:=:=:=:=:=
36 FOR=TO:POKE,:NEXT
37 POKE,:IFPEEK<>THENGOSUB652
38 GOSUB135:FOR=TO:POKE,-,+:=,-:=:NEXT:GOSUB661
39 GOSUB165:IF=THEN39
40 =>+
41 POKE,,:POKE,,
42 =STR$
43 =""++""
44 =:=:=:GOSUB160:FOR=TO:NEXT:=:GOSUB160:GOTO65
45 =:=:=
46 IF=THEN56
47 =
48 GOSUB165:=
49 IF=THENSYS:GOSUB325:SYS:GOSUB661:GOTO59
50 FOR=TO:=+
51 POKE,:IF>THEN=-:SYS:GOSUB175:SYS
52 POKE,-,+
53 =,-
54 FOR=TOSTEP+:FOR=TO:POKE,:NEXT:NEXT
55 FOR=TO:POKE,:NEXT:NEXT
56 POKE,-,+:GOSUB661
57 SYS:GOSUB182:SYS:GOSUB661:IF<THENGOSUB635:SYS
58 IF=THENPOKE,-,:POKE,-,+
59 IFTHEN=:POKE,:=,-:GOTO50
60 IFTHEN=:POKE,:=,-:GOTO56
61 IFTHEN=:POKE,:=,-:GOTO65
62 IFTHEN=:POKE,-,+:POKE,:=,-
63 IFTHEN65
64 =-
65 =:=:=-:GOSUB160
66 =:=:=:GOSUB160
67 GET:IF<>""THEN67
68 GET:IF=""THEN68
69 IF=""THENSYS:GOSUB423:SYS:GOSUB661:GOTO65
70 =:=:=:GOSUB160
71 GOTO45
72 DATA,,,,,,,,,,,
73 DATA,,,,,,,,,
74 DATA,,,,,,,,,,,
75 DATA,,,,,,,
76 DATA,,,,,,,,,,,
77 DATA,,,,,,,
78 DATA,,,,,,,,,,,
79 DATA,,,,,,,
80 DATA""""""""
81 DATA""
82 DATA""""""""
83 DATA""
84 DATA""""""""
85 DATA""""""
86 DATA""
87 DATA""""""""
88 DATA""""""""
89 DATA""
90 DATA""""""""
91 DATA""
92 DATA""""""
93 DATA""
94 DATA""""""""""
95 DATA,,,,,,,,,,,,,,,,,,,,
96 DATA,,,,,,,,,,,,,,,,,,
97 DATA,,,,,,,,,,,,,,,,,,,
98 DATA,,,,,,,,,,,,,,,,,,,
99 DATA,,,,,,,,,,,,,,,
100 DATA,,,,,,,,,,,,,
101 DATA,,,,,,,,
102 DATA,,,,,,,,,,,,,
103 DATA,,,,,
104 DATA,,,,,,,,,,,,,,,,,
105 DATA,,
106 DATA,,,,,,,,,,,,,,,,
107 DATA,,
108 DATA,,,,,,,,,,,,,,,,,
109 DATA
110 DATA,,,,,,,,,,,,,,
111 DATA,,,,
112 DATA,,,,,,,,,,,,,
113 DATA,,,
114 DATA,,,,,,,,,,,,,
115 DATA,,,,
116 DATA,,,,
117 DATA,,
118 DATA
119 DATA
120 DATA,
121 DATA,,
122 DATA,,
123 DATA
124 DATA
125 DATA
126 DATA,,
127 DATA,
128 DATA,,
129 DATA
130 DATA
131 DATA,,
132 DATA,
133 DATA
134 GOTO651
135 PRINT""
136 PRINT""
137 PRINT""
138 PRINT""
139 PRINT""
140 PRINT""
141 PRINT""
142 PRINT""
143 PRINT""
144 PRINT""
145 PRINT""
146 PRINT""
147 PRINT""
148 PRINT""
149 PRINT""
150 PRINT""
151 PRINT""
152 PRINT""
153 PRINT""
154 PRINT""
155 PRINT""
156 PRINT""
157 PRINT""
158 PRINT""
159 RETURN
160 PRINT""LEFT$,LEFT$,""
161 RETURN
162 ="":=""
163 ="":=""
164 ="":="":RETURN
165 =
166 =INTRND*+:=INTRND*+:=+
167 FOR=TO:POKE,*:NEXT
168 PRINT""LEFT$,LEFT$,
169 PRINT""LEFT$,LEFT$,
170 FOR=TO:POKE,:NEXT
171 =+:IF<THENFOR=TO:NEXT:GOTO166
172 IF=THEN=+:GOTO174
173 =
174 RETURN
175 PRINT"":PRINT
176 PRINT""
177 =+:PRINT:PRINT:PRINT
178 PRINT""
179 GET:IF<>""THEN179
180 GET:IF=""THEN180
181 RETURN
182 POKE,:=
183 IF=""THEN195
184 IF=""THEN244
185 IF=""THENRETURN
186 IF=""THEN280
187 IF=""THEN311
188 IF=""THENRETURN
189 IF=""THEN325
190 IF=""THEN336
191 IF=""THEN334
192 IF=""THEN338
193 IF=""THEN362
194 IF=""THEN403
195 PRINT""TAB(""
196 IFTHEN200
197 PRINT""
198 =-
199 =:=
200 PRINTTAB(-LEN-/""""
201 PRINTLEFT$,:=PEEK:POKE,:PRINT""
202 PRINT
203 PRINT"",
204 PRINT"",
205 PRINT"",
206 PRINT"",
207 PRINT"",
208 PRINT"",
209 PRINT
210 PRINT"",
211 PRINT"",""
212 PRINT"",""
213 IFTHENPRINT:PRINT:GOSUB178:POKE,:RETURN
214 PRINT:FOR=TO:IF=AND<>THENGOSUB216
215 NEXT:GOTO218
216 IFTHENPRINT"""":RETURN
217 PRINT"""":RETURN
218 PRINT
219 IF=THENPRINT"",
220 PRINT"",
221 IF=THEN226
222 PRINT"":IFTHENPRINT""
223 IF<THENPRINT""
224 IF=THENPRINT""
225 GOTO231
226 PRINT""
227 PRINT"":INPUT"":=LEFT$,
228 IF=""THEN237
229 IF<>""THENPRINT"":GOTO227
230 PRINT"""":=-,:=:GOTO236
231 =,+:IF=THEN236
232 IFTHEN236
233 =:=:GOSUB238:IFTHENIF=THEN=*
234 =-:=+:PRINT""
235 =+
236 GOSUB178:POKE,:RETURN
237 GOSUB619:GOTO236
238 =:=:=:FOR=TO:IF=AND=THEN=+:IFTHEN=
239 NEXT
240 IF=AND=""THEN=:RETURN
241 IF=AND=""THEN=:RETURN
242 IF=THEN=:RETURN
243 RETURN
244 PRINT"":=
245 PRINT""
246 PRINT""
247 PRINT""
248 PRINT""
249 PRINT
250 PRINTTAB(-LEN/""""
251 POKE,:POKE,:POKE,
252 =:FOR=TO:FOR=TO:POKE,:NEXT:FOR=TO:NEXT
253 FOR=TO:POKE,:NEXT:FOR=TO:NEXT:NEXT
254 POKE,:POKE,:POKE,
255 PRINT:PRINT""
256 PRINT""
257 PRINT""
258 PRINT""
259 PRINT
260 PRINT""
261 PRINT:IF=THENPRINT"":GOTO279
262 PRINT""
263 PRINT:FOR=TO:IF=""THENGOSUB265
264 NEXT:GOTO267
265 IFTHENPRINT"":RETURN
266 PRINT"":RETURN
267 IFTHENPRINT"":GOTO275
268 PRINT""
269 PRINT"":INPUT"":=LEFT$,
270 IF=""THENGOSUB619:GOTO279
271 IF<>""THENPRINT"":GOTO269
272 =-:=
273 PRINT""
274 GOTO279
275 =:=
276 IF=THEN279
277 =:FOR=TOSTEP:IF=""AND=THEN=*
278 NEXT:=/:PRINT"":=-:=+
279 GOSUB178:RETURN
280 PRINT""
281 PRINT""
282 PRINT""
283 PRINT""
284 PRINT""
285 PRINT"":PRINT
286 =
287 PRINTTAB(-LEN/""""
288 PRINT:PRINT""
289 PRINT
290 PRINT""
291 =INTRND*+:=INTRND*+
292 IFTHEN1=:=
293 PRINT:PRINT"":PRINT
294 IF=THENPRINT"":GOTO310
295 IF-THENPRINT-""-:GOTO297
296 PRINT-""
297 PRINT:IFTHENPRINT"":GOTO305
298 PRINT""
299 INPUT"":=LEFT$,
300 IF=""THENGOSUB619:GOTO310
301 IF<>""THENPRINT"":GOTO299
302 PRINT""""
303 =-
304 =:GOTO310
305 IF=THEN310
306 PRINT""""""
307 =:IF=AND=THEN=
308 IF=THEN=
309 =*+:PRINT"":=-:=+
310 =:GOSUB178:RETURN
311 PRINT""
312 PRINT"
313 PRINT""
314 PRINT"
315 PRINT"
316 PRINT"
317 PRINT"
318 PRINT"
319 PRINT"
320 PRINT"
321 PRINT:PRINT"":PRINT
322 IF=THENGOSUB178:RETURN
323 PRINT:PRINT""
324 PRINT"""":=+:=:PRINT:GOSUB178:RETURN
325 PRINT""TAB(""
326 IF=THENPRINT:PRINT"":PRINT
327 PRINTTAB("":FOR=TO:PRINTTAB("":NEXT
328 PRINTTAB("":PRINT:=:=:=
329 FOR=TO:FOR=TOSTEP:FOR=TO:POKE,:NEXT:NEXT
330 FOR=TO:NEXT
331 FOR=TOSTEP-:FOR=TO:POKE,:NEXT:NEXT:NEXT
332 FOR=TO:POKE,:NEXT
333 PRINT"":GOSUB178:RETURN
334 PRINT""TAB("":PRINT:PRINTTAB(""
335 PRINT:PRINT:PRINT:=-:=+:GOSUB178:RETURN
336 PRINT""TAB("":PRINT:PRINTTAB(""
337 PRINT:PRINT:PRINT:=-:=+:GOSUB178:RETURN
338 =+:IF>THEN=-
339 =-:=:IF=ANDTHEN=+:=
340 PRINT"":PRINT""
341 IF=THEN1=
342 IF=THENGOSUB178:GOTO325
343 IF=THEN=:=:GOSUB178:GOSUB175:RETURN
344 IF=THEN=+
345 IF=THEN=+:=-
346 IF=THEN=+
347 IF=THEN=-:=+
348 IF=THEN=+
349 IF=THENGOSUB358
350 IF=THEN=+
351 IF=THEN=+
352 IF=THEN=+
353 IF=THEN=-
354 IF=THEN=+
355 IF=THEN=-
356 IF=THEN=+
357 GOSUB178:RETURN
358 =:FOR=TO
359 IF=AND<THEN=+*
360 IF=AND=THEN=+
361 NEXT:PRINT"":=-:=+:RETURN
362 =+:IF>THEN=-
363 =-:=:IF=ANDTHEN=+:=
364 PRINT"":PRINT""
365 IF=THEN=-:=+
366 IF=THENGOSUB178:GOTO325
367 IF=THEN=:=:GOSUB178:GOSUB175:RETURN
368 IF=THEN=+
369 IF=THENGOSUB382:=
370 IF=THENGOSUB386:=
371 IF=THEN=+
372 IF=THEN2=
373 IF=THEN=-:=+
374 IF=THENGOSUB388:=
375 IF=THENGOSUB390:=
376 IF=THEN=-:=
377 IF=THENGOSUB392:=
378 IF=THENGOSUB394
379 IF=THENGOSUB382:=
380 IF=THENGOSUB398:=
381 GOSUB178:RETURN
382 =+:IF>THENGOSUB668:=-
383 IF=""THEN385
384 GOTO382
385 =:RETURN
386 IF>THENGOSUB668
387 =:RETURN
388 IF>THENGOSUB668
389 =:RETURN
390 IF>THENGOSUB668
391 =:RETURN
392 =:RETURN
393 RETURN
394 =:=:FOR=TO
395 IF=AND<THEN=+*
396 IF=AND=THEN=+
397 NEXT:PRINT"":=-:==:RETURN
398 =+
399 IF>THENGOSUB668:=-
400 IF=""THEN402
401 GOTO398
402 =:RETURN
403 PRINT""
404 =+
405 PRINT""""
406 PRINT:PRINT""""
407 PRINT""
408 PRINT""
409 PRINT""
410 PRINT:INPUT"":IF<OR>THEN410
411 IF=THEN=-:=+:=:GOSUB178:=:RETURN
412 IF=AND=THEN1=:=:GOSUB178:=:RETURN
413 IF=AND=THEN2=:=:GOSUB178:=:RETURN
414 IF=THENPRINT"":GOTO410
415 IF=THENGOSUB165:IFTHEN421
416 PRINT""
417 IF>THENPRINT"":=-:=:=
418 IF>THENGOSUB178:=+:RETURN
419 GOSUB178:RETURN
420 IF=THENGOSUB178:=:RETURN
421 PRINT"":=:GOSUB178:=:=:RETURN
422 GOTO635
423 PRINT"":IFTHENPRINT""
424 PRINT"":PRINT""
425 PRINT:PRINT""""
426 PRINT:PRINT:PRINTTAB(""
427 PRINT
428 PRINT""
429 PRINT""
430 PRINT""
431 PRINT""
432 PRINT""
433 PRINT""
434 PRINT""
435 PRINT"":PRINT
436 INPUT""
437 IF=""THEN436
438 IF=""THENGOSUB447
439 IF=""THENGOSUB464
440 IF=""THENGOSUB479
441 IF=""THENGOSUB523
442 IF=""THENGOSUB559
443 IF=""THENGOSUB665
444 IF=""THENRETURN
445 IF=""THEN643
446 GOTO423
447 INPUT""
448 IF<OR>THEN447
449 PRINT""
450 PRINTTAB(""
451 PRINT
452 FOR=TO:="":IF=THENPRINT
453 IF<>THEN460
454 IF<>""THEN458
455 PRINTSPC(-LEN-"":IF<THEN=STR$+""
456 IF=THEN=""
457 =+""+MID$STR$,+,
458 IF=THEN=""
459 PRINT
460 NEXT
461 PRINT:IF=OR=THENPRINT""
462 PRINT""""
463 PRINT:GOSUB178:RETURN
464 PRINT""
465 ="":PRINT
466 FOR=TO:IF<>""AND<>""AND<>""THEN475
467 PRINT""TAB(
468 PRINTTAB(
469 =STR$:=MID$STR$,:IF>THEN=""
470 IF<>""THEN=""
471 IFTHEN=""
472 =+""+
473 IF=THEN=""
474 PRINT
475 IF=THENPRINT:GOSUB178:PRINT"":PRINT
476 NEXT
477 PRINT:GOSUB178
478 RETURN
479 PRINT""
480 =
481 PRINT"":PRINT
482 PRINT
483 INPUT""
484 FOR=TO:IF=LEFT$,LENTHEN=:=:GOTO487
485 NEXT
486 PRINT"":GOTO483
487 =
488 =:GOSUB238:IFTHEN=
489 IFTHEN492
490 PRINT""
491 PRINT"":GOSUB178:RETURN
492 PRINT""
493 =:FOR=TO+:IF=THENPRINT""TAB(:=+
494 NEXT
495 PRINT:PRINT"",""
496 PRINT"","",*
497 PRINT
498 PRINT""
499 PRINT""
500 PRINT"":=*-:PRINT""
501 INPUT:IF>THENGOTO500
502 =INT/:=-*
503 IF<*,THENPRINT"":GOTO500
504 IF=THENPRINT"":GOSUB178:RETURN
505 =-*,:FOR=TO+:IF=THEN=+
506 NEXT
507 IFTHEN509
508 GOTO522
509 PRINT""""
510 PRINT:=:FOR=TO+:IF=THEN1=+:PRINT,""
511 NEXT:PRINT:FOR=TO
512 PRINT"":INPUT:IF=THENPRINT"":GOTO512
513 =:=:=
514 FOR=TO+:IF=THEN1=+:IF=THEN9=
515 NEXT
516 IF=THENPRINT"":GOTO512
517 =:FOR=TO+:IF=THENIF>THEN2=+
518 NEXT
519 IFTHENPRINT"":GOTO512
520 =:=+
521 NEXT
522 PRINT"":GOSUB178:RETURN
523 INPUT""
524 IF=THENGOSUB178:RETURN
525 =+:IF>THEN2=-
526 PRINT"":INPUT:IFLEFT$,=""THEN547
527 PRINT"":PRINT
528 PRINT:INPUT""
529 FOR=TO:IF=LEFT$,LENTHEN=:=:GOTO532
530 NEXT
531 PRINT"":GOTO528
532 PRINT""TAB(""
533 =:=:FOR=TO+:IF=THEN=+:PRINT""""TAB(
534 IFTHEN=
535 NEXT
536 PRINT:PRINT""""
537 INPUT
538 =:FOR=TO+:IF=THEN=+:IF=THEN4=:=
539 NEXT
540 IF=THENPRINT"":GOTO536
541 IF<>THENPRINT"""":GOTO523
542 IFTHENPRINT"":GOTO546
543 INPUT""
544 =+:=-:=
545 PRINT"""""":PRINT""
546 PRINT:GOSUB178:RETURN
547 PRINT""TAB(""
548 FOR=TOSTEP:=+:PRINT""""TAB(:NEXT:=
549 PRINT""""TAB(:PRINT""""TAB(
550 INPUT"":IF=THENRETURN
551 IF<OR>THEN550
552 IF=AND=THEN=:GOTO556
553 IF=AND=THEN=:GOTO556
554 IF>AND<THEN=+-*:IF=THENGOTO556
555 PRINT"":GOTO547
556 INPUT""
557 =+:=-:=
558 GOSUB178:RETURN
559 PRINT"":PRINT"":PRINT"":PRINT""
560 PRINT"":PRINT""
561 PRINT"":PRINT"":PRINT
562 INPUT"":IF<OR>THEN562
563 IF=THENGOSUB178:RETURN
564 ONGOSUB566589598606669
565 GOTO559
566 PRINT:PRINT"":PRINT"":PRINT
567 PRINT:INPUT""
568 FOR=TO:IF=LEFT$,LENTHEN=:=:GOTO571
569 NEXT
570 PRINT"":GOTO567
571 =:FOR=TO+:IF=THEN=+
572 NEXT
573 IFTHENPRINT"":GOTO588
574 PRINT""TAB(""
575 =:FOR=TO+:IF<>THEN578
576 =+:PRINT""""TAB(:="":IFTHEN=""
577 PRINT
578 NEXT
579 PRINT:PRINT"":INPUT
580 IF=THENGOSUB178:RETURN
581 =:FOR=TO+:IF=THEN=+:IF=THEN4=:=
582 NEXT
583 IF=THENPRINT"":GOTO579
584 IF<>THENPRINT"":GOSUB178:GOTO559
585 IF=THENPRINT"":GOTO579
586 PRINT:PRINT"":=
587 PRINT"","":=+,
588 GOSUB178:RETURN
589 =:FOR=TOSTEP:IF=""THEN=+:PRINT""""
590 NEXT
591 INPUT""
592 IF<OR>THEN591
593 =+-*
594 IF<>THENPRINT"":GOSUB178:GOTO559
595 IF=THENPRINT"":GOSUB178:GOTO559
596 =:PRINT"":=+
597 GOSUB178:RETURN
598 =:=
599 FOR=TO:PRINT"""":NEXT
600 INPUT""
601 IF<OR>THEN600
602 IF<>THENPRINT"":GOSUB178:GOTO559
603 IF=THENPRINT"":GOSUB178:GOTO559
604 =:PRINT"":=+
605 GOSUB178:RETURN
606 PRINT:PRINT""
607 =:FOR=TO:IF=AND=THEN=+:PRINT""""
608 NEXT
609 IF=THENPRINT"":GOSUB178:RETURN
610 PRINT:INPUT""
611 IF<OR>THENPRINT"":GOTO610
612 =:FOR=TO:IF=AND=THEN=+:IF=THEN=
613 NEXT
614 PRINT"",
615 PRINT"":=,*:PRINT
616 IF>THENPRINT"":GOSUB178:RETURN
617 =-:=
618 GOSUB178:RETURN
619 IFTHEN621
620 RETURN
621 =:PRINT""
622 PRINT""
623 =-:PRINT:=:=:=:PRINT:=:=:=
624 =-
625 PRINT"""":INPUT:=INT:=+
626 IF=THENON>+GOTO629624
627 IF<=THENPRINT"""":GOTO625
628 =:=:GOTO624
629 IF=THEN634
630 PRINT""
631 PRINT""""
632 =-:=
633 RETURN
634 PRINT:PRINT"":RETURN
635 PRINT"":PRINT""""
636 PRINT""ABS""
637 PRINT""
638 PRINT""
639 GOSUB178:GOSUB423
640 IF>=THENRETURN
641 IF<THENPRINT"":=-
642 PRINT"""":END
643 PRINT""
644 PRINT""
645 IF>THENPRINT""
646 IF>THENPRINT""
647 IF=THENPRINT""
648 PRINT""
649 PRINT""
650 PRINT
651 POKE,:FOR=TO:POKE,:END
652 FOR=TO
653 READ:POKE,:NEXT
654 DATA,,,,,,,,,,,,,,,,,,
655 DATA,,,,,,,,,,,,,,,,,
656 DATA,,,,,,,
657 DATA,,,,,,,,,,,,,,,,,,,,
658 DATA,,,,,,,,,,,,,,,,,,,,,,
659 DATA,,,,,,,,,,,,,,,,,,
660 RETURN
661 FOR=TO
662 =""++LEFT$""-LEN-+""
663 =""+MID$STR$,+"":=:=*+:=:GOSUB160
664 =+:=:GOSUB160:NEXT:RETURN
665 PRINT"":PRINT:INPUT:PRINT
666 =:FOR=TO:IF=LEFT$,LENTHEN=:=:GOSUB195:=
667 NEXT:=:RETURN
668 =+:PRINT"":RETURN
669 PRINT"":PRINT:INPUT
670 =:FOR=TOSTEP-:IF=LEFT$,LENTHEN=:=
671 NEXT:IFTHEN673
672 PRINT"":GOTO669
673 =:=:FOR=TO+:IF<>AND=THEN=
674 IF=THEN=+
675 NEXT
676 IF=OR=THENPRINT"":GOSUB178:RETURN
677 PRINT""TAB(""
678 =:FOR=TO+:IF=THEN=+:PRINT""""TAB(
679 NEXT
680 INPUT"":IFLEFT$,=""THEN694
681 PRINT:INPUT""
682 IF=THENRETURN
683 =:FOR=TO+:IF=THEN=+:IF=THEN4=:=
684 NEXT
685 IF=THENPRINT"":GOTO681
686 IF=THENPRINT"":GOTO681
687 =:=:FOR=TO+:IF>THEN=
688 NEXT
689 IFTHENPRINT"":GOTO681
690 PRINT:PRINT"":=-
691 =,/
692 PRINT"""":=+
693 GOSUB178:GOTO559
694 =:FOR=TO+:IF=THEN=+,/*:=
695 NEXT:PRINT"""":=+:GOTO693
697 OR:PRINT"
700 PRINT"":GOSUB999
701 PRINT"":GOSUB999
702 PRINT"":GOSUB999
703 PRINT"":GOSUB999
704 PRINT"":GOSUB999
705 PRINT"":GOSUB999
706 PRINT"":GOSUB999
707 PRINT"":GOSUB999
708 PRINT"":GOSUB999
709 PRINT"":GOSUB999
710 PRINT""
711 =PEEK:IFTHENPRINT"":RETURN
712 GOTO711
999 =PEEK:IFNOTTHENRETURN