home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol235 / bc2.osb < prev    next >
Encoding:
Text File  |  1986-02-13  |  1.5 KB  |  51 lines
  1. 1 REM BASICODE 2 osborne I inplementatie 21/4/83
  2. 2 REM                      door Henk Wevers
  3. 2 REM NADERE INLICHTINGEN BASICODE
  4. 3 REM NOS, HOBBYSCOOP HILVERSUM  
  5. 4 REM initialisatie
  6. 5 PRINT CHR$(26);:WIDTH(255)
  7. 10 GOTO 1000
  8. 19 REM regels 20-100 clear a, niet nodig voor mbasic
  9. 20 GOTO 1010
  10. 99 REM  regel 100-110 clear screen
  11. 100 PRINT CHR$(26);:RETURN
  12. 109 REM regel 110 - 120 set cursor op HO en VE
  13. 110 REM
  14. 111 IF HO>51 THEN HO=51
  15. 112 IF VE>23 THEN VE=23
  16. 113 PRINT CHR$(27);"=";CHR$(VE+32);CHR$(HO+32);
  17. 115 RETURN
  18. 119 REM regel 120-130 haal cursorpositie in HO en VE
  19. 120 HO=PEEK(&HEF5A):VE=PEEK(&HEF5B)-&HF0
  20. 121 VE=VE*2
  21. 122 IF HO>127 THEN HO=HO-128:VE=VE+1
  22. 123 VE=VE-PEEK(&HEF62):IF VE<0 THEN VE=32+VE
  23. 124 RETURN
  24. 200 IN$=INKEY$:RETURN
  25. 210 GOSUB 200:IF IN$="" THEN 210
  26. 211 RETURN
  27. 250 PRINT CHR$(7);:RETURN
  28. 260 RV=RND(1):RETURN
  29. 270 FR=FRE(2):RETURN
  30. 300 SR$=STR$(SR)
  31. 301 O7=LEN(SR$):IF O7=0 THEN RETURN
  32. 302 IF RIGHT$(SR$,1)<>" " THEN 304
  33. 303 SR$=LEFT$(SR$,O7-1):GOTO 301
  34. 304 IF LEFT$(SR$,1)<>" " THEN RETURN
  35. 305 SR$=RIGHT$(SR$,O7-1):GOTO 301
  36. 310 O4=SR:IF CN<>0 THEN 316
  37. 312 SR=INT(SR+.5):GOSUB 300:GOTO 330
  38. 316 O5=SGN(SR):SR=ABS(SR):O8=INT(SR):O9=SR-O8
  39. 318 FOR O6=1 TO CN:O9=O9*10:NEXT O6
  40. 320 O9=INT(O9+.5):SR=O9:GOSUB 300
  41. 322 O9$=RIGHT$("00000000000000000000"+SR$,CN)
  42. 324 IF O8=0 AND O9=0 THEN O5=1
  43. 326 SR=O8:GOSUB 300:IF O5=-1 THEN SR$="-"+SR$
  44. 328 SR$=SR$+"."+O9$
  45. 330 IF LEN(SR$)<=CT THEN 334
  46. 332 SR$=LEFT$("********************",CT):GOTO 340
  47. 334 SR$=RIGHT$("                    "+SR$,CT)
  48. 340 SR=O4:RETURN
  49. 350 LPRINT SR$;:RETURN
  50. 360 LPRINT:RETURN
  51.