home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / cad30.arc / CMND (.txt) < prev    next >
Commodore BASIC  |  1988-11-13  |  372b  |  14 lines
  1. 1 OPEN15,D0,15,"UI:"
  2. 2 CLOSE15
  3. 3 A=FRE(0)
  4. 4 A=USR(33),1:A=USR(33),2:A=USR(33),3
  5. 5 B$="B[194]C[195]D[196]E[197]F[198]I[201]L[204]M[209]P[208]R[210]WXZ[218]S[205][175][182][174][172][188]A[199]K[215]U[213][177][187][176][191]O[207]T[167]H#![147]=&Y[217][179][178][211][191]J[202][193][203]N"
  6. 6 FORT=1TOLEN(B$):IFA$<>MID$(B$,T,1)THENNEXT:LOAD"MENU",D0
  7. 7 IFA$="#"THENSYS36876:LOAD"MENU",D0
  8. 8 IFA$="!"THENSYS36867:LOAD"MENU",D0
  9. 9 IFA$="[147]"THENSYS36888:LOAD"MENU",D0
  10. 10 IFA$="="THENSYS36882:LOAD"MENU",D0
  11. 11 IFA$="&"THENSYS36879:LOAD"MENU",D0
  12. 12 IFA$="[209]"THENSYS64738
  13. 13 LOADA$,D0
  14.