Thanks in advance.
Code: Select all
dim as string longstr= _
!"sub introduction()\n" & _
!" dim k as integer\n" & _
!" screen scrmode\n" & _
!" color frcolor,bgcolor\n"& _
!" cls\n"& _
!" locate 22,18\n"& _
!" print \"Loosely based on a C64 program \'Mind Boggle\'\"\n" & _
!" locate 24,10\n"& _
!" print \" from COMPUTE!s Gzsette Disk May 1984\"\n"& _
!" print_colord(12,20,\" M I N D B O G G L E\")\n"& _
"end sub "
print longstr
sub introduction()
dim k as integer
screen scrmode
color frcolor,bgcolor
cls
locate 22,18
print "Loosely based on a C64 program 'Mind Boggle'"
locate 24,10
print " from COMPUTE!s Gzsette Disk May 1984"
print_colord(12,20," M I N D B O G G L E")
end sub