test_io.bas

   1 5 SPEED=10
   2 10 HOME
   3 20 HTAB 10
   4 30 INVERSE:PRINT "MY PROGRAM":NORMAL
   5 32 SPEED=255
   6 35 FOR I=0 TO 31:POKE 1280+I,I*8:NEXT
   7 40 VTAB 5
   8 50 PRINT CHR$(7)"TYPE SOMETHING: ";
   9 60 GET I$
  10 70 PRINT "YOU TYPED: "I$
  11 80 INPUT "WHAT'S YOUR NAME? ";J$
  12 90 PRINT "HELLO, "J$
  13 100 INPUT K$
  14 110 PRINT "YOU TYPED: "K$
  15 120 FOR I=1 TO 10
  16 130 PRINT "HELLO"TAB(I)"GOODBYE"
  17 140 NEXT
  18 150 FLASH
  19 160 PRINT "GOODBYE"
  20 170 NORMAL
  21 180 GR
  22 190 COLOR=4
  23 200 PLOT 20,10
  24 210 COLOR=6
  25 220 VLIN 10,30 AT 15
  26 230 COLOR=13
  27 240 HLIN 10,30 AT 15
  28 250 TEXT