APPENDIX
VER.V09F
415 LINE(131,63-17)-(127,63-21l
416 LINE(94,63-21l-(127,63-21l
417 FORI=1T0999:NEXT
418 LINE(100,63-40l-C125,63-2Bl,O,BF
419 CHARO
420 FDRJ=1T030
421 LDCATE1B,4
422 PRINT"DVW"
423 LINEClOl,63-30)-(124,63-30)
425 NEXTJ
426 LINEC99,63-41l-C126,63-27l ,1,BF
470 FORI=1T0250:NEXTI
480 CLS
490 FORI=OT06'.:,
500 LINEC56,
1)-( 183, 1)
505 S0UN064- I , 1 (H)
510 NEXT!
520 FDRI=C>T063
530 LINE C 119,63)-( 119--I ,Ol, I+l
540 LINE(120,63)-(120+I,Ol,1+1
550 MEXTI
560 FORI=OT063
570 LINEC119,63)-(56,Il ,I+l
580 LINE( 120,63)--C 183, I), I+l
590 NEXT!
595 FDRI=1TD500:NEXTI
600 FDRI=OT063
610 LINEC119,63l-C56,63-I)
620 LINE< 120,63)-- C 183,63--I)
630 NEXT!
640 FDRI=OT063
650 LINEC119,63)-C56+1,0)
660 LINEC 120,63)- C 183-I
,O)
670 NEXT!
680 FORI=63T00STEP-1
690 LINEC56,63-I)-C183,63-1)
1
0
695 SOUND64-I,100
700 NEXTI
720 CLS
730 CHARI
740 LOCATE3,1
750 PRINT"5 Differ-ent char-acter
sets"
765 LINE(16,11)-(224,11)
767 FORI=1T0200:NEXTI
770 CHAR4
780 LOCATEB,3
790 GOSUB1000
800 LOCATES,~.
810 GOSUB1030
820 CHAR3
8.30 LOCATE12,.3
840 G0SIJB1000
850 LOCATE12,3
860 G0SUB1030
870 CHAR2
880 LOCATEB,3
890 GOSUB1000
900 LOCATE!3, :;
910 GOSUB1030
920 CHAR1
SECTION 9.5
PAGE 9 - 28
To Next Page
Loading...