Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_c16_basic2.wav » unit11prog

unit11prog

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 » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_c16_basic2.wav
Filename: unit11prog
Read OK:
File size: 02FE bytes
Load address: 1001
Exec address: 0000
Duplicates

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

File contents
    10 REM MYSTERY PROGRAM
    20 PRINT"<black>WHAT IS YOUR"
    30 INPUT" NAME";X$
    40 PRINT
    50 PRINT"HELLO ";X$
    60 PRINT
    70 PRINT"PLEASE ANSWER THESE"
    80 PRINT"SIMPLE QUESTIONS"
    90 SC=0
   100 PRINT
   110 PRINT"WHAT IS THE CAPITAL"
   120 INPUT"OF FRANCE";A$
   130 IF A$="PARIS" THEN160
   140 PRINT"WRONG.IT'S PARIS"
   150 GOTO190
   160 PRINT"THAT'S RIGHT! WELL"
   170 PRINT "DONE,";X$
   180 SC=SC+1
   190 PRINT
   200 PRINT"WHO DISCOVERED"
   210 INPUT"AMERICA";A$
   220 IFA$="COLUMBUS"THEN270
   230 PRINT"SORRY ";X$
   240 PRINT"THAT'S WRONG. IT WAS"
   250 PRINT"COLUMBUS"
   260 GOTO300
   270 PRINT"CORRECT.";X$;" IS"
   280 PRINT"A HISTORY EXPERT!"
   290 SC=SC+1
   300 PRINT
   305 IF SC=2THEN390
   310 IF SC=1 THEN350
   320 PRINT"YOU DIDN'T GET <red>ANY<black>"
   330 PRINT"QUESTIONS RIGHT."
   340 GOTO370
   350 PRINT"YOU ONLY GOT ONE"
   360 PRINT"QUESTION RIGHT."
   370 PRINT"TRY AGAIN."
   380 GOTO90
   390 PRINT"THAT WAS EXCELLENT,"
   400 PRINTX$;". YOU GOT"
   410 PRINT"BOTH QUESTIONS RIGHT"
   420 STOP


� MYSTERY PROGRAM,�"�WHAT IS YOUR"<�" NAME";X$B(�S2�"HELLO ";X$Y<�tF�"PLEASE ANSWER THESE"�P�"SIMPLE QUESTIONS"�ZSC�0�d��n�"WHAT IS THE CAPITAL"�x�"OF FRANCE";A$��� A$�"PARIS" �160���"WRONG.IT'S PARIS"��190��"THAT'S RIGHT! WELL",�� "DONE,";X$8�SC�SC�1>��T��"WHO DISCOVERED"f��"AMERICA";A$}��A$�"COLUMBUS"�270���"SORRY ";X$���"THAT'S WRONG. IT WAS"���"COLUMBUS"��300��"CORRECT.";X$;" IS"��"A HISTORY EXPERT!""SC�SC�1,�1� SC�2�390&6� SC�1 �350B@�"YOU DIDN'T GET ANY�"ZJ�"QUESTIONS RIGHT."cT�370{^�"YOU ONLY GOT ONE"�h�"QUESTION RIGHT."�r�"TRY AGAIN."�|�90���"THAT WAS EXCELLENT,"���X$;". YOU GOT"���"BOTH QUESTIONS RIGHT"���
WPJ@. mystery program@,PT@.".what is your"@<P.@." name";x$@bP(@.@sP2@."hello ";x$@yP<@.@TPf@."please answer these"@.Pp@."simple questions"@.Pz@sc.0@.PD@.@.PN@."what is the capital"@.PX@."of france";a$@.P.@. a$."paris" .160@.P.@."wrong.it's paris"@AQ.@.190@[Q.@."that's right! well"@,Q.@. "done,";x$@8Q.@sc.sc.1@>Q.@.@tQ.@."who discovered"@FQ.@."america";a$@.Q.@.a$."columbus".270@.Q.@."sorry ";x$@.Q.@."that's wrong. it was"@.Q.@."columbus"@.QDA.300@.QNA."correct.";x$;" is"@.QXA."a history expert!"@AR"Asc.sc.1@GR,A.@VR1A. sc.2.390@&R6A. sc.1 .350@bR@A."you didn't get £any."@zRjA."questions right."@CRtA.370@.R.A."you only got one"@.RHA."question right."@.RRA."try again."@.R.A.90@.R.A."that was excellent,"@.R.A.x$;". you got"@.R.A."both questions right"@.R.A.@@@
00000000  17 10 0a 00 8f 20 4d 59  53 54 45 52 59 20 50 52  |..... MYSTERY PR|
00000010  4f 47 52 41 4d 00 2c 10  14 00 99 22 90 57 48 41  |OGRAM.,....".WHA|
00000020  54 20 49 53 20 59 4f 55  52 22 00 3c 10 1e 00 85  |T IS YOUR".<....|
00000030  22 20 4e 41 4d 45 22 3b  58 24 00 42 10 28 00 99  |" NAME";X$.B.(..|
00000040  00 53 10 32 00 99 22 48  45 4c 4c 4f 20 22 3b 58  |.S.2.."HELLO ";X|
00000050  24 00 59 10 3c 00 99 00  74 10 46 00 99 22 50 4c  |$.Y.<...t.F.."PL|
00000060  45 41 53 45 20 41 4e 53  57 45 52 20 54 48 45 53  |EASE ANSWER THES|
00000070  45 22 00 8c 10 50 00 99  22 53 49 4d 50 4c 45 20  |E"...P.."SIMPLE |
00000080  51 55 45 53 54 49 4f 4e  53 22 00 95 10 5a 00 53  |QUESTIONS"...Z.S|
00000090  43 b2 30 00 9b 10 64 00  99 00 b6 10 6e 00 99 22  |C.0...d.....n.."|
000000a0  57 48 41 54 20 49 53 20  54 48 45 20 43 41 50 49  |WHAT IS THE CAPI|
000000b0  54 41 4c 22 00 ca 10 78  00 85 22 4f 46 20 46 52  |TAL"...x.."OF FR|
000000c0  41 4e 43 45 22 3b 41 24  00 e0 10 82 00 8b 20 41  |ANCE";A$...... A|
000000d0  24 b2 22 50 41 52 49 53  22 20 a7 31 36 30 00 f8  |$."PARIS" .160..|
000000e0  10 8c 00 99 22 57 52 4f  4e 47 2e 49 54 27 53 20  |...."WRONG.IT'S |
000000f0  50 41 52 49 53 22 00 01  11 96 00 89 31 39 30 00  |PARIS"......190.|
00000100  1b 11 a0 00 99 22 54 48  41 54 27 53 20 52 49 47  |....."THAT'S RIG|
00000110  48 54 21 20 57 45 4c 4c  22 00 2c 11 aa 00 99 20  |HT! WELL".,.... |
00000120  22 44 4f 4e 45 2c 22 3b  58 24 00 38 11 b4 00 53  |"DONE,";X$.8...S|
00000130  43 b2 53 43 aa 31 00 3e  11 be 00 99 00 54 11 c8  |C.SC.1.>.....T..|
00000140  00 99 22 57 48 4f 20 44  49 53 43 4f 56 45 52 45  |.."WHO DISCOVERE|
00000150  44 22 00 66 11 d2 00 85  22 41 4d 45 52 49 43 41  |D".f...."AMERICA|
00000160  22 3b 41 24 00 7d 11 dc  00 8b 41 24 b2 22 43 4f  |";A$.}....A$."CO|
00000170  4c 55 4d 42 55 53 22 a7  32 37 30 00 8e 11 e6 00  |LUMBUS".270.....|
00000180  99 22 53 4f 52 52 59 20  22 3b 58 24 00 aa 11 f0  |."SORRY ";X$....|
00000190  00 99 22 54 48 41 54 27  53 20 57 52 4f 4e 47 2e  |.."THAT'S WRONG.|
000001a0  20 49 54 20 57 41 53 22  00 ba 11 fa 00 99 22 43  | IT WAS"......"C|
000001b0  4f 4c 55 4d 42 55 53 22  00 c3 11 04 01 89 33 30  |OLUMBUS"......30|
000001c0  30 00 dc 11 0e 01 99 22  43 4f 52 52 45 43 54 2e  |0......"CORRECT.|
000001d0  22 3b 58 24 3b 22 20 49  53 22 00 f5 11 18 01 99  |";X$;" IS"......|
000001e0  22 41 20 48 49 53 54 4f  52 59 20 45 58 50 45 52  |"A HISTORY EXPER|
000001f0  54 21 22 00 01 12 22 01  53 43 b2 53 43 aa 31 00  |T!"...".SC.SC.1.|
00000200  07 12 2c 01 99 00 16 12  31 01 8b 20 53 43 b2 32  |..,.....1.. SC.2|
00000210  a7 33 39 30 00 26 12 36  01 8b 20 53 43 b2 31 20  |.390.&.6.. SC.1 |
00000220  a7 33 35 30 00 42 12 40  01 99 22 59 4f 55 20 44  |.350.B.@.."YOU D|
00000230  49 44 4e 27 54 20 47 45  54 20 1c 41 4e 59 90 22  |IDN'T GET .ANY."|
00000240  00 5a 12 4a 01 99 22 51  55 45 53 54 49 4f 4e 53  |.Z.J.."QUESTIONS|
00000250  20 52 49 47 48 54 2e 22  00 63 12 54 01 89 33 37  | RIGHT.".c.T..37|
00000260  30 00 7b 12 5e 01 99 22  59 4f 55 20 4f 4e 4c 59  |0.{.^.."YOU ONLY|
00000270  20 47 4f 54 20 4f 4e 45  22 00 92 12 68 01 99 22  | GOT ONE"...h.."|
00000280  51 55 45 53 54 49 4f 4e  20 52 49 47 48 54 2e 22  |QUESTION RIGHT."|
00000290  00 a4 12 72 01 99 22 54  52 59 20 41 47 41 49 4e  |...r.."TRY AGAIN|
000002a0  2e 22 00 ac 12 7c 01 89  39 30 00 c7 12 86 01 99  |."...|..90......|
000002b0  22 54 48 41 54 20 57 41  53 20 45 58 43 45 4c 4c  |"THAT WAS EXCELL|
000002c0  45 4e 54 2c 22 00 db 12  90 01 99 58 24 3b 22 2e  |ENT,"......X$;".|
000002d0  20 59 4f 55 20 47 4f 54  22 00 f7 12 9a 01 99 22  | YOU GOT"......"|
000002e0  42 4f 54 48 20 51 55 45  53 54 49 4f 4e 53 20 52  |BOTH QUESTIONS R|
000002f0  49 47 48 54 22 00 fd 12  a4 01 90 00 00 00        |IGHT".........|
000002fe