DataMuseum.dk

top - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »REVRSE.BAS«

└─⟦016ef1d53⟧ Bits:30005210 BASIC Demo
    └─ ⟦this⟧ »REVRSE.BAS« 

TextFile

10 REM REVRSE.BAS
20 DEFINT I-N
30 PRINT "GAME OF REVERSE"
40 PRINT:PRINT
50 RANDOMIZE
100 INPUT "INSTRUCTIONS (YES OR NO)";A$
110 IF MID$(A$,1,1)<>"Y" THEN 210
120 PRINT "IN THIS GAME YOU ARE GIVEN THE TEN DIGITS"
130 PRINT "IN RANDOM ORDER. THE OBJECT IS TO PUT THEM IN ASCENDING ORDER."
140 PRINT "YOU DO THIS BY REVERSING FROM 2 TO TEN DIGITS STARTING WITH THE"
150 PRINT "FIRST. FOR EXAMPLE IF YOU RESPOND 5 TO THE FOLLOWING PROMPT,"
160 PRINT " 5  6  7  2  9  4  0  3  1  8  REVERSE ?"
170 PRINT "THE PROGRAM WILL REVERSE THE FIRST FIVE DIGITS AND PROMPT:
180 PRINT " 9  2  7  6  5  4  0  3  1  8  REVERSE ?"
190 PRINT "GOOD LUCK!"
200 PRINT:PRINT
210 DIGS$="0123456789"
220 FOR I=1 TO 10
230	J=RND(1)*LEN(DIGS$)+.5
240	ID(I)=VAL(MID$(DIGS$,J,1))
250	DIGS$=MID$(DIGS$,1,J-1)+MID$(DIGS$,J+1)
260	NEXT
270 FOR I=1 TO 10
280	PRINT ID(I);
290	NEXT
300 INPUT " REVERSE";IR
310 IF (IR<0)OR IR>10 THEN 270
320 JST=JST+1
330 FOR I=1 TO IRØ2
340	IS=ID(I)
350	ID(I)=ID(IR-I+1)
360	ID(IR-I+1)=IS
370	NEXT
380 FOR I=1 TO 9
390	IF ID(I)<>I-1 THEN 270
400	NEXT
410 PRINT "DONE IN";JST;"MOVES";
415 IF JST<8 THEN PRINT "GREAT!!!!!" : GOTO 450
420 IF JST<10 THEN PRINT " - EITHER LUCKY OR VERY GOOD!" : GOTO 450
430	 IF JST<12 THEN PRINT " - GOOD WORK!" : GOTO 450
440	 PRINT " - COULD BE BETTER"
450 JST=0
460 PRINT:PRINT
470 INPUT "TRY AGAIN";A$
480 IF MID$(A$,1,1)="Y" THEN 200
490 PRINT "BYE"
500 RUN "MENU"
«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»