home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / k2.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-15  |  2.8 KB  |  37 lines
  1. 0  ' ====> K2.bas
  2. 1  LOCATE 1:PRINT STRING$(35,219)+STRING$(19,32)+STRING$(26,219)
  3. 2  LOCATE 2:PRINT STRING$(2,219)+TOPKEY1$+TOPKEY1$+CHR$(219)+TOPKEY1$+STRING$(35,32)+TOPKEY5$+STRING$(2,219)
  4. 3  LOCATE 3:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY1$+STRING$(35,32)+MIDKEY5$+STRING$(2,219)
  5. 4  LOCATE 4:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY1$+STRING$(35,32)+MIDKEY5$+STRING$(2,219)
  6. 5  LOCATE 5:PRINT STRING$(2,219)+BOTKEY1$+BOTKEY1$+CHR$(219)+BOTKEY1$+STRING$(35,32)+BOTKEY5$+STRING$(2,219)
  7. 6  LOCATE 6:PRINT STRING$(2,219)+TOPKEY1$+TOPKEY1$+CHR$(219)+TOPKEY3$+STRING$(39,32)+TOPKEY1$+STRING$(2,219)
  8. 7  LOCATE 7:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY3$+STRING$(39,32)+MIDKEY1$+STRING$(2,219)
  9. 8  LOCATE 8:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY3$+STRING$(39,32)+MIDKEY1$+STRING$(2,219)
  10. 9  LOCATE 9:PRINT STRING$(2,219)+BOTKEY1$+BOTKEY1$+CHR$(219)+BOTKEY3$+STRING$(39,32)+BOTKEY1$+STRING$(2,219)
  11. 10  LOCATE 10:PRINT STRING$(2,219)+TOPKEY1$+TOPKEY1$+CHR$(219)+TOPKEY4$+STRING$(37,32)+TOPKEY1$+STRING$(2,219)
  12. 11  LOCATE 11:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY4$+STRING$(37,32)+MIDKEY1$+STRING$(2,219)
  13. 12  LOCATE 12:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY4$+STRING$(37,32)+MIDKEY1$+STRING$(2,219)
  14. 13  LOCATE 13:PRINT STRING$(2,219)+BOTKEY1$+BOTKEY1$+CHR$(219)+BOTKEY4$+STRING$(37,32)+MIDKEY1$+STRING$(2,219)
  15. 14  LOCATE 14:PRINT STRING$(2,219)+TOPKEY1$+TOPKEY1$+CHR$(219)+TOPKEY2$+STRING$(41,32)+SIDEKEY$+STRING$(2,219)
  16. 15  LOCATE 15:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY2$+STRING$(41,32)+MIDKEY1$+STRING$(2,219)
  17. 16  LOCATE 16:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY2$+STRING$(41,32)+MIDKEY1$+STRING$(2,219)
  18. 17  LOCATE 17:PRINT STRING$(2,219)+BOTKEY1$+BOTKEY1$+CHR$(219)+BOTKEY2$+STRING$(41,32)+SIDEKEY$+STRING$(2,219)
  19. 18  LOCATE 18:PRINT STRING$(2,219)+TOPKEY1$+TOPKEY1$+CHR$(219)+TOPKEY5$+STRING$(19,32)+TOPKEY5$+MIDKEY1$+STRING$(2,219)
  20. 19  LOCATE 19:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY5$+STRING$(19,32)+MIDKEY5$+MIDKEY1$+STRING$(2,219)
  21. 20  LOCATE 20:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY5$+STRING$(19,32)+MIDKEY5$+MIDKEY1$+STRING$(2,219)
  22. 21  LOCATE 21:PRINT STRING$(2,219)+BOTKEY1$+BOTKEY1$+CHR$(219)+BOTKEY5$+STRING$(19,32)+BOTKEY5$+BOTKEY1$+STRING$(2,219)
  23. 22  LOCATE 22:PRINT STRING$(35,219)+STRING$(19,32)+STRING$(26,219)
  24. 23  LOCATE 3,36:PRINT "System Reset Sequence"
  25. 24  LOCATE 5,36:PRINT "The last item of the":LOCATE 6,36:PRINT "keyboard introduction is the system":LOCATE 7,36:PRINT "reset sequence. By pressing the":LOCATE 8,36:PRINT "Ctrl, Alt and Del keys together,"
  26. 25  LOCATE 9,36:PRINT "you can "+CHR$(34)+"re-boot"+CHR$(34)+" the computer":LOCATE 10,36:PRINT "(this does the same thing as":LOCATE 11,36:PRINT "switching off and on the power)."
  27. 26  LOCATE 12,36:PRINT "Find, press and hold first the Ctrl":LOCATE 13,36:PRINT "key, then the Alt key and last the":LOCATE 14,36:PRINT "Del key."
  28. 27  LOCATE 15,36:COLOR C3,C4:PRINT "==> REMEMBER <==";:COLOR C1,C2:PRINT" This sequence will":LOCATE 16,36:PRINT "re-start the BASIC Prof. You should":LOCATE 17,36:PRINT "then continue with lesson one."
  29. 28  COLOR C3,C4:LOCATE 10,20:PRINT TOPKEY4$:LOCATE 11,20:PRINT MIDKEY4$:LOCATE 12,20:PRINT MIDKEY4$:LOCATE 13,20:PRINT BOTKEY4$
  30. 29  LOCATE 11,25:PRINT "Ctrl"
  31. 30  LOCATE 18,20:PRINT TOPKEY5$:LOCATE 19,20:PRINT MIDKEY5$:LOCATE 20,20:PRINT MIDKEY5$:LOCATE 21,20:PRINT BOTKEY5$
  32. 31  LOCATE 19,26:PRINT "Alt"
  33. 32  LOCATE 18,55:PRINT TOPKEY5$:LOCATE 19,55:PRINT MIDKEY5$:LOCATE 20,55:PRINT MIDKEY5$:LOCATE 21,55:PRINT BOTKEY5$
  34. 33  LOCATE 19,61:PRINT "<UNK! {00F9}>":LOCATE 20,60:PRINT "Del":COLOR C1,C2
  35. 34  DEF SEG:POKE 91,24:POKE 92,25:LOCATE 24,1
  36. 35  GOTO 35
  37.