home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 December / Ahoy_Magazine_85-12_1985_Double_L.d64 / commhilo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  859 b   |  33 lines
  1. 0 rem << commhilo - hi-lo game with ibm
  2. 1 rem - commodore program -
  3. 2 rem    -- commhilo --
  4. 3 rem rupert report #24
  5. 4 rem the ibm connection
  6. 5 rem
  7. 6 print chr$(147)
  8. 10 open 2,2,0,chr$(8)+chr$(0)
  9. 20 n=int(rnd(0)*1048576)
  10. 30 n$=str$(n)
  11. 40 gosub 2000
  12. 50 if left$(r$,13)<>"pick a number" then t$="what?" : gosub 1000 : goto 40
  13. 60 t$="all right" : gosub 1000
  14. 70 print"( my number is";n;")"
  15. 80 gosub 2000 : ng=ng+1
  16. 90 g$=mid$(r$,6) :v=val(g$) :g$=str$(v)
  17. 100 if g$=n$ then 130
  18. 110 if v>n then t$=g$+" is too high" : gosub 1000 : goto 80
  19. 120 if v<n then t$=g$+" is too low" : gosub 1000 : goto 80
  20. 130 t$="that's right! my number is "+g$+".  you took"+str$(ng)+" guesses."
  21. 140 gosub 1000 : gosub 2000
  22. 150 t$="you're welcome." : gosub 1000
  23. 155 rem >wait till done transmitting<
  24. 160 if peek(673) and 1 then 160
  25. 170 close 2 : end
  26. 1000 print#2,t$  :rem transmit t$
  27. 1010 return
  28. 2000 r$=""       :rem receive r$
  29. 2010 get#2,a$:if a$="" then 2010
  30. 2020 if a$=chr$(13) then 2040
  31. 2030 r$=r$+a$ : goto 2010
  32. 2040 print r$ : return
  33.