Big Ones

LEARN HOW THE CHARACTER SET IS ARRANGED IN THE MEMORY OF THE TS2068 COMPUTER. USE BIG ONES TO DISPLAY THE ADDRESS IN MEMORY, THE BINARY EXPRESSION, AND A “BIG ONE” OF THE CHARACTER YOU WANTED! HAVE FUN AND LEARN!!

ADDR. DECI. BINARY   BIG ONE

15928  0    00000000
15929  60   00111100
15930  66   01000010
15931  64   01000000
15932  78   01001110
15933  66   01000010
15934  60   00111100
15935  0    00000000

CHARACTER G  CODE IS 71
ENTER "COPY" TO COPY THIS PAGE

TS2068 FUN

  5 REM     "BIG ONES"
            2K EXPRESS
            GARY W. ENNIS
            OWEGO, NEW YORK
            DECEMBER 1983
 10 FLASH 1: INK 2: PRINT AT 21,0;"  LOADED! STOP TAPE RECORDER  "
 11 FLASH 0: INK 0: PRINT AT 1,7;"    2K EXPRESS    "
 15 INPUT "PRESS ENTER TO PROCEED";Z$
 16 FLASH 0: CLS
 17 LET CHOOSE=0
 19 GO TO 170
 20 REM [illegible]ND START ADDRESS OF [illegible] CHARACTER [illegible]
 25 LET A=PEEK 23606+256*PEEK 23607
 34 IF CHOOSE=1 THEN GO TO 40
 35 FOR C=33 TO 122
 40 BORDER 4: BRIGHT 1: PAPER 6: INK 0: CLS
 45 PRINT "ADDR. DECI. BINARY BIG ONE"
 55 REM ADDRESS OF CHARACTER [illegible]
 60 LET D=8*C+A
 70 FOR X=0 TO 7
 75 REM [illegible] ADDRESS [illegible] ONE [illegible] CHARACTER [illegible]
 80 LET L=PEEK (D+X)
 85 REM PRINT [illegible] BINARY CODE
 90 PRINT AT X+2,0;D+X;TAB 7;L
100 FOR Z=19 TO 12 STEP -1
109 IF L-2*INT (L/2)=1 THEN PAPER 5: INK 9
110 PRINT AT X+2,Z;L-2*INT (L/2)
111 REM IF BINARY BIT=1 THEN PRINT A DOT
115 PAPER 6
120 IF L-2*INT (L/2)=1 THEN PRINT AT X+2,Z+10;"▒": BEEP .1,Z
130 LET L=INT (L/2)
140 NEXT Z
145 NEXT X
150 PRINT AT 19,0;"CHARACTER ";CHR$ C;" CODE IS ";C;"[illegible]"
155 PRINT AT 20,0;"ENTER ""COPY"" TO COPY THIS PAGE"
160 INPUT """COPY""&/or ENTER TO CONTINUE ";Z$
165 IF Z$="COPY" THEN COPY
166 IF CHOOSE=1 THEN GO TO 190
167 NEXT C
170 CLS : PRINT "TO SEE THE ENTIRE CHARACTER SET TYPE ""SET"" AND PRESS ENTER."
172 PRINT ''"OR YOU CAN CALL UP INDIVIDUAL  CHARACTERS.  IF THAT IS WHAT YOUWANT TO DO THEN ENTER ""CHOOSE"""
175 INPUT """CHOOSE"" OR ""SET"" ";Z$
176 IF Z$="CHOOSE" THEN GO TO 190
180 GO TO 20
190 LET CHOOSE=1
195 BORDER 2: PAPER 3: INK 0: CLS
196 PRINT "JUST PRESS THE LETTER OR NUMBER THAT YOU WANT TO SEE THEN PRESS ENTER."
198 INPUT Z$
199 LET C=CODE Z$
200 GO TO 25