Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_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_tape03b_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:
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_c16_basic2.wav » unit11prog
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav » unit11prog
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"