home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 139 / 139side4.d64 / hello connect (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  950 b   |  24 lines
  1. 3 POKE53281,0:POKE53280,0:POKE32767,13
  2. 5 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3
  3. 10 POKE53272,21:POKE648,4:POKE55,0:POKE56,160:POKE51,0:POKE52,160:GOSUB500
  4. 20 GOSUB40000
  5. 500 DV=PEEK(186):IFDV<8THENDV=8
  6. 505 PRINT"[147]":A$="                                     "
  7. 510 B$="[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
  8. 520 POKE214,9:PRINT:POKE646,15:FORI=1TO10:PRINT""B$:NEXT
  9. 530 POKE214,11:PRINT:POKE646,11:FORI=1TO7:PRINTTAB(2)LEFT$(B$,34):NEXT
  10. 540 POKE214,10:PRINT:POKE646,3:FORI=1TO7:PRINTTAB(3)""LEFT$(B$,34):NEXT
  11. 550 POKE214,12:PRINT:POKE646,7:FORI=1TO4:PRINTTAB(5)""LEFT$(A$,30):NEXT
  12. 555 POKE214,11:PRINT:PRINTTAB(5)"[158]                              "
  13. 560 PRINTTAB(7)"[212]HERE IS NO [204][207][193][196][211][212][193][210] MENU"
  14. 562 PRINTTAB(7)"ON THIS SIDE.  [212]RY ANOTHER"
  15. 565 PRINTTAB(7)"SIDE AND PRESS A KEY.   "
  16. 570 GETA$:IFA$=""THEN570
  17. 580 RETURN
  18. 10000 OPEN15,8,15,"S0:HELLO CONNECT":CLOSE15:SAVE"HELLO CONNECT",8:END
  19. 40000 A$="HELLO CONNECT":FORI=8TO13:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
  20. 40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
  21. 40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
  22. 40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
  23. 40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
  24.