home *** CD-ROM | disk | FTP | other *** search
/ Ozsi 13 / Ozsi_13_199x_Tide_Side_A.d64 / intro4urprgbasic (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  12KB  |  12 lines
  1. 0 poke53280,0:poke53281,0:print"[147]"
  2. 10 t=t+1:reada$:ifa$="*"then220
  3. 20 gosub100:print:print
  4. 30 goto10
  5. 100 a=int((37-len(a$))/2+.1)
  6. 101 fort=0to3000:next
  7. 110 forr=1to4:printtab(a)mid$("[151][152][155]",r,1)a$"[145]":fore=0to45:nexte,r:c$="[145]":return
  8. 200 datayour name here,presents,in 1999,a mega whatever,contact our boards
  9. 201 data(washing board,ironing board)
  10. 202 datagreets to all our friends,and ctx worldwide,in our st,booting system,*
  11. 220 load"intro4urprgbasic",8,1:run
  12.