home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / graphutl / cad.arc / PRCMND (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  147 b   |  7 lines
  1. 1 OPEN15,D0,15,"I0"
  2. 2 CLOSE15
  3. 3 A=USR(33),1:A=USR(33),2:A=USR(33),3
  4. 4 B$="S[211]D[196]HCP"
  5. 5 FORT=1TOLEN(B$):IFA$<>MID$(B$,T,1)THENNEXT:LOAD"MENU",D0
  6. 6 A$="PR"+A$:LOADA$,D0
  7.