|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1536 (0x600)
Types: TextFile
Names: »REVRSE.BAS«
└─⟦016ef1d53⟧ Bits:30005210 BASIC Demo
└─ ⟦this⟧ »REVRSE.BAS«
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"