REM THIS PROGRAM PLAYS THE HIGH/LOW GAME on Z80 Membership Card

High_Lo_Z80.BAS

     0000 REM NOT YET TESTED on Z80
     0010 REM THIS PROGRAM PLAYS THE HIGH/LOW GAME.
     0020 PRINT "I WILL PICK A NUMBER BETWEEN 1 AND 100"
     0030 PRINT "THEN I WANT YOU TO TRY AND GUESS IT."
     0040 PRINT "I WILL TELL YOU IF YOU ARE TOO HIGH, OR TOO LOW"
     0050 C=0
     0060 N=1+R;?%100
     0070 INPUT "WHAT IS YOUR GUESS?",G
     0080 C=C+1
     0090 LIF G==N THEN PRINT "YOU GUESSED IT IN ",C," GUESSES!":END
     0100 IF G>N THEN PRINT "YOU ARE TOO HIGH."
     0110 IF G<N THEN PRINT "YOU ARE TOO LOW."
     0120 GOTO 70

     0010 REM THIS PROGRAM WILL COUNT FROM 1 TO 10, AND DISPLAY
     0020 REM THE COUNT, BOTH AS A NUMBER, AND AS A WORD.
     0030 ORDER 60 : FOR I=1 TO 10
     0040 READ I$ : PRINT I," ",I$
     0050 NEXT I
     0060 DATA "ONE","TWO","THREE","FOUR","FIVE"
     0070 DATA "SIX","SEVEN","EIGHT","NINE","TEN"

     0010 REM THIS PROGRAM WILL INPUT N NUMBERS, AND PRINT THEM
     0020 REM OUT IN REVERSE ORDER.
     0030 INPUT"HOW MANY NUMBERS?",N:DIM A(N):FORI=1TON
     0040 PRINT"NUMBER ",I,:INPUT X:A[I]=X:NEXT I
     0050 PRINT"NOW HERE THEY ARE BACKWARDS."
     0060 FOR I=0 TO N-1:PRINT" ",A[N-I],:NEXTI:PRINT""

     0010 REM THIS PROGRAM WILL DISPLAY THE ASCII CHARACTER SET.
     0020 FOR I=0 TO 127:PRINT @[I]$:NEXTI:PRINT""

     0010 REM THIS PROGRAM WILL DISPLAY THE CONTENTS OF MEMORY
     0020 REM FROM 0000 TO 07FF IN DECIMAL.
     0030 FOR I=0 TO 7FF# : PRINT @[I],:NEXT I : PRINT ""

     0010 REM THIS PROGRAM WILL DISPLAY THE CONTENTS OF MEMORY
     0020 REM FROM 0000 TO 07FF IN ASCII.
     0030 FOR I=0 TO 7FF# : PRINT @[@[I]]$," ", : NEXT I : PRINT ""

     0010 REM THIS PROGRAM WILL INPUT A NUMBER, AND PRINT IT IN HEX.
     0020 REM NOTE THE USE OF MOD. ARITHMETIC, AND CHAR. VARIABLE INDEX.
     0030 R$="":H$="0123456789ABCDEF":INPUTN
     0040 R$=H[R;N=N%16]$+R$:IFN>0THEN40
     0050 PRINT R$