Aus gegebenem Anlass habe ich mal meine eingerosteten Basic-Kenntnisse auf die Probe gestellt.

10 print chr$(147)
20 poke53280,1:poke53281,1:poke646,0
30 input"wie ist dein name";a$
40 print"hallo " a$ "."
50 input"moechtest du das rss-abo von basic thinking kuendigen (j/n)";bt$
60 if bt$="J" goto80
70 if bt$="N" or bt$<>"n" goto50
80 input"bist du sicher (j/n)";b$
90 if b$="j" goto46902
100 if b$="n" goto50
110 if b$<>"j" or b$<>"n" goto80
46902 print"OK.":sys64738

RUN