KarateLoader.txt

1 CALL CLEAR :: CALL CHARPAT(63,A$) :: CALL CHAR(81,A$)
2 CALL CHARPAT(ASC("*"),A$) :: CALL CHAR(35,A$) :: CALL CHARPAT(ASC("."),A$) :: CALL CHAR(33,A$) :: CALL CHARPAT(ASC(","),A$) :: CALL CHAR(90,A$)
3 CALL SCREEN(6) :: FOR I=1 TO 8 :: CALL COLOR(I,16,6) :: NEXT I :: DISPLAY AT(8,10):"##########" :: DISPLAY AT(9,10):"#        #"
4 DISPLAY AT(10,10):"# KARATE #" :: DISPLAY AT(11,10):"#        #" :: DISPLAY AT(12,10):"##########"
5 DISPLAY AT(15,6):"FAIRWARE PROGRAM"
6 DISPLAY AT(18,3):"(C) 1986 HOWARD UMAN" :: DISPLAY AT(19,12):"3913 SYBIL ROAD" :: DISPLAY AT(20,12):"RAND., MD  21133"
7 CALL SOUND(300,110,0,220,0,330,0) :: DISPLAY AT(24,1):"PLEASE WAIT!!!!GETTING READY"
8 DATA 030303030103030303030706060E0C0EC040C4C498F0E0C0C0C0E06070703038
9 DATA 03022323190F0703030307060E0E0C1CC0C0C0C080C0C0C0C0C0E06060703070
10 DATA 030303030103030303030706060E0C0EC040C4C498F0E0C0C0C0E0743C1C0000
11 DATA 03022323190F07030303072E3C380000C0C0C0C080C0C0C0C0C0E06060703070
12 DATA 030303030103030303030706060E0C0EC040C4C498F0E0C0C2FEFE0000000000
13 DATA 03022323190F0703437F7F0000000000C0C0C0C080C0C0C0C0C0E06060703070
14 DATA 030303030103030303030706060E0C0EC040C3C78CF8F0C0C0C0E06070703038
15 DATA 0302C3E3311F0F03030307060E0E0C1CC0C0C0C080C0C0C0C0C0E06060703070
16 DATA 030303030103030303030706060E0C0EC040C0C080F8FEC6C0C0E06070703038
17 DATA 03020303011F7F63030307060E0E0C1CC0C0C0C080C0C0C0C0C0E06060703070
18 DATA 00000000000201010102000000000000000000000020C040C020000000000000
19 DATA 00000000000000000000070F1F3F7FFF00000000000000000000E0F0F8FCFEFF
20 DATA 00000000000001020702010000000000000000000080C0A0F0A0C08000000000
21 FOR I=96 TO 124 STEP 4 :: READ A$ :: CALL CHAR(I,A$) :: NEXT I
22 READ A$ :: CALL CHAR(60,A$) :: READ A$ :: CALL CHAR(92,A$) :: READ A$ :: CALL CHAR(40,A$) :: READ A$ :: CALL CHAR(44,A$) :: READ A$ :: CALL CHAR(36,A$)
23 CALL CLEAR :: DISPLAY AT(1,7):"# KARATE MENU #" :: DISPLAY AT(4,1):"CHOOSE ONE:" :: DISPLAY AT(6,4):"1! ONE PLAYER KARATE"
24 DISPLAY AT(8,4)BEEP:"2! TWO PLAYER KARATE"
25 CALL KEY(0,K,S) :: IF S=0 THEN 25
26 IF K=49 THEN 31
27 IF K=50 THEN 29
28 CALL SOUND(100,110,0) :: GOTO 25
29 CALL SOUND(300,110,0,220,0,330,0) :: DISPLAY AT(24,1):"  NOW LOADING MAIN PROGRAM" :: FOR DE=1 TO 200 :: NEXT DE
30 DISPLAY AT(8,3)SIZE(1):"#" :: RUN "DSK1.KARATE"
31 DISPLAY AT(6,3)SIZE(1):"#"
32 CALL SOUND(300,110,0,220,0,330,0) :: DISPLAY AT(24,1):"  NOW LOADING MAIN PROGRAM" :: FOR DE=1 TO 200 :: NEXT DE
33 RUN "DSK1.COMPUTER"