Home » CEEFAX disks » telesoftware7.adl » 04-06-88/COMBAT1

04-06-88/COMBAT1

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware7.adl
Filename: 04-06-88/COMBAT1
Read OK: ✔
File size: 03E3 bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10 MODE 3
   20 VDU 19,0,4,0,0,0,19,1,3,0,0,0
   30 PRINT "********************************************************************************";
   40 PRINT "***********************  C  O  M  B  A  T    Z  O  N  E  ***********************";  
   50 PRINT "********************************************************************************"
   60 VDU 28,0,24,79,4 
   70 PRINT "Would you like to see the instructions?";
   80 REPEAT:A$=GET$:UNTIL A$="Y" OR A$="N"
   90 IF A$="N" THEN 200
  100 PRINT'''
  110 PRINT "Would you like a hard copy of the instructions?";
  120 REPEAT:A$=GET$:UNTIL A$="Y" OR A$="N"
  130 IF A$="Y" THEN HC=TRUE ELSE HC=FALSE
  140 PRINT''
  150 IF NOT HC PRINT "Press !SHIFT! to advance the text....."'':VDU 14:GOTO 170
  160 PRINT "Turn the printer on and press !SPACE!.....";:REPEAT UNTIL GET=32:VDU 2
  170 *TYPE CZins
  180 IF HC then VDU3 ELSE VDU15
  190 PRINT'''"Press !SPACE! to chain the main program.....";:REPEAT UNTIL GET=32
  200 MODE 7
  210 PRINT "�Danni Segal's....."
  220 FOR A=1 TO 2
  230 PRINT TAB(5);"����C O M B A T    Z O N E   �          ����C O M B A T    Z O N E   �"
  240 PRINT'"��.....is loading.....please wait....." 
  250 CHAIN "COMBAT2"


 � 3
  � 19,0,4,0,0,0,19,1,3,0,0,0
Z � "********************************************************************************";
(\ � "***********************  C  O  M  B  A  T    Z  O  N  E  ***********************";  
2Y � "********************************************************************************"
< � 28,0,24,79,4 
F1 � "Would you like to see the instructions?";
P �:A$=�:� A$="Y" � A$="N"
Z � A$="N" � �dH@
d	 �'''
n9 � "Would you like a hard copy of the instructions?";
x �:A$=�:� A$="Y" � A$="N"
� � A$="Y" � HC=� � HC=�
� �''
�D � � HC � "Press !SHIFT! to advance the text....."'':� 14:� �tj@
�A � "Turn the printer on and press !SPACE!.....";:� � �=32:� 2
� *TYPE CZins
� � HC then �3 � �15
�A �'''"Press !SPACE! to chain the main program.....";:� � �=32
� � 7
� � "�Danni Segal's....."
� � A=1 � 2
�S � �5);"����C O M B A T    Z O N E   �          ����C O M B A T    Z O N E   �"
�0 �'"��.....is loading.....please wait....." 
� � "COMBAT2"
�
00000000  0d 00 0a 08 20 eb 20 33  0d 00 14 20 20 ef 20 31  |.... . 3...  . 1|
00000010  39 2c 30 2c 34 2c 30 2c  30 2c 30 2c 31 39 2c 31  |9,0,4,0,0,0,19,1|
00000020  2c 33 2c 30 2c 30 2c 30  0d 00 1e 5a 20 f1 20 22  |,3,0,0,0...Z . "|
00000030  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000080  22 3b 0d 00 28 5c 20 f1  20 22 2a 2a 2a 2a 2a 2a  |";..(\ . "******|
00000090  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000a0  2a 20 20 43 20 20 4f 20  20 4d 20 20 42 20 20 41  |*  C  O  M  B  A|
000000b0  20 20 54 20 20 20 20 5a  20 20 4f 20 20 4e 20 20  |  T    Z  O  N  |
000000c0  45 20 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |E  *************|
000000d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 22 3b 20 20 0d 00  |**********";  ..|
000000e0  32 59 20 f1 20 22 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |2Y . "**********|
000000f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000130  2a 2a 2a 2a 2a 2a 22 0d  00 3c 14 20 ef 20 32 38  |******"..<. . 28|
00000140  2c 30 2c 32 34 2c 37 39  2c 34 20 0d 00 46 31 20  |,0,24,79,4 ..F1 |
00000150  f1 20 22 57 6f 75 6c 64  20 79 6f 75 20 6c 69 6b  |. "Would you lik|
00000160  65 20 74 6f 20 73 65 65  20 74 68 65 20 69 6e 73  |e to see the ins|
00000170  74 72 75 63 74 69 6f 6e  73 3f 22 3b 0d 00 50 1d  |tructions?";..P.|
00000180  20 f5 3a 41 24 3d be 3a  fd 20 41 24 3d 22 59 22  | .:A$=.:. A$="Y"|
00000190  20 84 20 41 24 3d 22 4e  22 0d 00 5a 14 20 e7 20  | . A$="N"..Z. . |
000001a0  41 24 3d 22 4e 22 20 8c  20 8d 64 48 40 0d 00 64  |A$="N" . .dH@..d|
000001b0  09 20 f1 27 27 27 0d 00  6e 39 20 f1 20 22 57 6f  |. .'''..n9 . "Wo|
000001c0  75 6c 64 20 79 6f 75 20  6c 69 6b 65 20 61 20 68  |uld you like a h|
000001d0  61 72 64 20 63 6f 70 79  20 6f 66 20 74 68 65 20  |ard copy of the |
000001e0  69 6e 73 74 72 75 63 74  69 6f 6e 73 3f 22 3b 0d  |instructions?";.|
000001f0  00 78 1d 20 f5 3a 41 24  3d be 3a fd 20 41 24 3d  |.x. .:A$=.:. A$=|
00000200  22 59 22 20 84 20 41 24  3d 22 4e 22 0d 00 82 1b  |"Y" . A$="N"....|
00000210  20 e7 20 41 24 3d 22 59  22 20 8c 20 48 43 3d b9  | . A$="Y" . HC=.|
00000220  20 8b 20 48 43 3d a3 0d  00 8c 08 20 f1 27 27 0d  | . HC=..... .''.|
00000230  00 96 44 20 e7 20 ac 20  48 43 20 f1 20 22 50 72  |..D . . HC . "Pr|
00000240  65 73 73 20 21 53 48 49  46 54 21 20 74 6f 20 61  |ess !SHIFT! to a|
00000250  64 76 61 6e 63 65 20 74  68 65 20 74 65 78 74 2e  |dvance the text.|
00000260  2e 2e 2e 2e 22 27 27 3a  ef 20 31 34 3a e5 20 8d  |...."'':. 14:. .|
00000270  74 6a 40 0d 00 a0 41 20  f1 20 22 54 75 72 6e 20  |tj@...A . "Turn |
00000280  74 68 65 20 70 72 69 6e  74 65 72 20 6f 6e 20 61  |the printer on a|
00000290  6e 64 20 70 72 65 73 73  20 21 53 50 41 43 45 21  |nd press !SPACE!|
000002a0  2e 2e 2e 2e 2e 22 3b 3a  f5 20 fd 20 a5 3d 33 32  |.....";:. . .=32|
000002b0  3a ef 20 32 0d 00 aa 10  20 2a 54 59 50 45 20 43  |:. 2.... *TYPE C|
000002c0  5a 69 6e 73 0d 00 b4 17  20 e7 20 48 43 20 74 68  |Zins.... . HC th|
000002d0  65 6e 20 ef 33 20 8b 20  ef 31 35 0d 00 be 41 20  |en .3 . .15...A |
000002e0  f1 27 27 27 22 50 72 65  73 73 20 21 53 50 41 43  |.'''"Press !SPAC|
000002f0  45 21 20 74 6f 20 63 68  61 69 6e 20 74 68 65 20  |E! to chain the |
00000300  6d 61 69 6e 20 70 72 6f  67 72 61 6d 2e 2e 2e 2e  |main program....|
00000310  2e 22 3b 3a f5 20 fd 20  a5 3d 33 32 0d 00 c8 08  |.";:. . .=32....|
00000320  20 eb 20 37 0d 00 d2 1c  20 f1 20 22 82 44 61 6e  | . 7.... . ".Dan|
00000330  6e 69 20 53 65 67 61 6c  27 73 2e 2e 2e 2e 2e 22  |ni Segal's....."|
00000340  0d 00 dc 0e 20 e3 20 41  3d 31 20 b8 20 32 0d 00  |.... . A=1 . 2..|
00000350  e6 53 20 f1 20 8a 35 29  3b 22 81 9d 83 8d 43 20  |.S . .5);"....C |
00000360  4f 20 4d 20 42 20 41 20  54 20 20 20 20 5a 20 4f  |O M B A T    Z O|
00000370  20 4e 20 45 20 20 20 9c  20 20 20 20 20 20 20 20  | N E   .        |
00000380  20 20 81 9d 83 8d 43 20  4f 20 4d 20 42 20 41 20  |  ....C O M B A |
00000390  54 20 20 20 20 5a 20 4f  20 4e 20 45 20 20 20 9c  |T    Z O N E   .|
000003a0  22 0d 00 f0 30 20 f1 27  22 85 88 2e 2e 2e 2e 2e  |"...0 .'".......|
000003b0  69 73 20 6c 6f 61 64 69  6e 67 2e 2e 2e 2e 2e 70  |is loading.....p|
000003c0  6c 65 61 73 65 20 77 61  69 74 2e 2e 2e 2e 2e 22  |lease wait....."|
000003d0  20 0d 00 fa 10 20 d7 20  22 43 4f 4d 42 41 54 32  | .... . "COMBAT2|
000003e0  22 0d ff                                          |"..|
000003e3
04-06-88/COMBAT1.m0
04-06-88/COMBAT1.m1
04-06-88/COMBAT1.m2
04-06-88/COMBAT1.m4
04-06-88/COMBAT1.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .