home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / cocodos.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-01-08  |  657 b   |  30 lines
  1. 10  CLS
  2. 20  REM THIS PROGRAM IS IN THE SHAREWARE CATEGORY
  3. 30  REM PROGRAM WRITTEN BY K4EDE R. THWING Sr.
  4. 40  PRINT TAB(8) "CoCo TO MS-DOS"
  5. 50  PRINT
  6. 60  PRINT"CONVERSION OF PRINT @ FUNCTION"
  7. 70  PRINT"TO LOCATE (X,Y) STATEMENTS"
  8. 80  PRINT
  9. 90  PRINT STRING$(31,"*")
  10. 100  PRINT
  11. 110  PRINT"ENTER 000 TO END PROGRAM":PRINT
  12. 120  INPUT"ENTER PRINT@ NUMBER ";N
  13. 125  IF N=0 THEN 300
  14. 130  IF N>0 OR N< 31 THEN MS= 1:RL= N+1:GOTO 190
  15. 140  IF N> 511 THEN GOTO 230
  16. 150  M= N/32+1
  17. 160  MS= INT(M)
  18. 170  R= M- MS
  19. 180  RL= INT(R*32)
  20. 190  IF RL= 0 THEN RL= 1
  21. 200  PRINT"IS EQUAL TO LOCATE (";MS;",";RL;")"
  22. 210  PRINT
  23. 220  GOTO 120
  24. 230  PRINT:PRINT"YOUR PRINT@ # IS LARGER THAN"
  25. 240  PRINT"THE SCREEN SIZE OF THE CoCo!"
  26. 250  PRINT"BETTER RECHECK YOUR NUMBER"
  27. 260  PRINT
  28. 270  GOTO 120
  29. 300  CLS:RUN"MAINMENU"
  30.