#SmileBASIC, (削除) 118 (削除ここまで) 102 bytes
SmileBASIC, (削除) 118 (削除ここまで) 102 bytes
FOR I=-101TO.?MID$(("+CHR$(34))*3,30,102)[-I];:NEXTFOR I=-100TO.?MID$(("+CHR$(34))*3,30,102)[-I];:NEXT
#SmileBASIC, (削除) 118 (削除ここまで) 102 bytes
FOR I=-101TO.?MID$(("+CHR$(34))*3,30,102)[-I];:NEXTFOR I=-100TO.?MID$(("+CHR$(34))*3,30,102)[-I];:NEXT
SmileBASIC, (削除) 118 (削除ここまで) 102 bytes
FOR I=-101TO.?MID$(("+CHR$(34))*3,30,102)[-I];:NEXTFOR I=-100TO.?MID$(("+CHR$(34))*3,30,102)[-I];:NEXT
#SmileBASIC, 118(削除) 118 (削除ここまで) 102 bytes
P$="+CHR$(34)FOR I=-117TO101TO.?MID$(RIGHT$(P,4ドル"+CHR$(34)+P$*2)*3,30,102)[-I];:NEXT:P$="+CHR$(34)FORNEXTFOR I=-117TO100TO.?MID$(RIGHT$(P,4ドル"+CHR$(34)+P$*2)*3,30,102)[-I];:NEXT:P$="
#SmileBASIC, 118 bytes
P$="+CHR$(34)FOR I=-117TO.?(RIGHT$(P,4ドル)+P$*2)[-I];:NEXT:P$="+CHR$(34)FOR I=-117TO.?(RIGHT$(P,4ドル)+P$*2)[-I];:NEXT:P$="
#SmileBASIC, (削除) 118 (削除ここまで) 102 bytes
FOR I=-101TO.?MID$(("+CHR$(34))*3,30,102)[-I];:NEXTFOR I=-100TO.?MID$(("+CHR$(34))*3,30,102)[-I];:NEXT